thuc hanh lap trinh bang visual basic

Những phần mềm này, một khi tôi đã lập trình được, bạn cũng sẽ lập trình được. Hãy tin vào điều đó!.[r]

(1)

BÀI THỰC HÀNH

LẬP TRÌNH

Bùi Hồ Phương Anh

11AN-THPT Lê Quý Đôn

BẰNG PHẦN MỀM

(2)

PHẦN MỀM GIẢI PHƯƠNG TRÌNH BẬC NHẤT

Ax+B=0

X =0

OK

(3)

CÁCH LẬP TRÌNH:

 Lập hình chạy chương trình (như silde 2)

 Dùng properties thiết lập thuộc tính cho ô vuông và nút lệnh (A, B, [OK], KQ )

 Double click vào nút lệnh lập chương trình cho phần mềm giải pt bậc sau:

Private Sub CommandButton1_Click() If A.Value = And B.Value <> Then

KQ.Value = "PHUONG TRINH VO NGHIEM" End If

If A.Value = And B.Value = Then

KQ.Value = "PHUONG TRINH VO SO NGHIEM" End If

If A.Value <> Then

KQ.Value = "PHUONG TRINH CO NGHIEM X=" & (-B.Value / A.Value)

(4)

Hãy thử với chương trình trên, tìm nghiệm phương trình sau:

0x+2=0 0x+0=0 7x-2=0 5x+5=0

(5)

PHẦN MỀM GIẢI PHƯƠNG TRÌNH BẬC HAI

Ax2+Bx+C=0

X =0

OK

(6)

Cách lập trình:

Chú ý: Cách thiết lập chương trình Chú ý: Cách thiết lập chương trình

giống chương trình slide 2,

ta lại có thêm kiện thiết lập

điều kiện x=0 phương trình bậc 2.

Lập hình chạy chương trình (như silde 4)

Dùng properties thiết lập thuộc tính cho

Dùng properties thiết lập thuộc tính cho ô

vuông nút lệnh(A, B, C, KQ, [OK] )

Double click vào nút lệnh lập chương trình

cho phần mềm giải pt bậc sau:

(7)

Cách lập trình:

Private Sub CommandButton1_Click() If A.Value = Then

KQ.Value = "PHUONG TRINH BAC HAI VO NGHIEM" End If

If A.Value <> And ((B.Value * B.Value) - (4 * A.Value * C.Value)) < Then

KQ.Value = " PHUONG TRINH VO NGHIEM" End If

If A.Value <> And ((B.Value * B.Value) - (4 * A.Value * C.Value)) = Then

KQ.Value = " PHUONG TRINH CO NGHIEM KEP X=" & (-B.Value / * A.Value)

End If

If A.Value <> And ((B.Value * B.Value) - (4 * A.Value * C.Value)) > Then

KQ.Value = " PHUONG TRINH CO NGHIEM X1= " &

((B.Value+Sqr((B.Value*B.Value)- (4 * A.Value * C.Value))) / *

A.Value) & " X2=" & ((-B.Value - Sqr((B.Value * B.Value) - (4 * A.Value * C.Value))) / * A.Value)

(8)

H

Hãy thử với chương trình trên, tìm ãy thử với chương trình trên, tìm nghiệm phương trình sau:

nghiệm phương trình sau:

0x

0x22+2X+3=0+2X+3=0

12X

12X22+23X+34=0+23X+34=0

7x

7x22-2=0-2=0

5x

5x22+5X-5=0+5X-5=0

(9)

OK

HÃY NHẬP NĂM SINH CỦA BẠN!

(10)

Cách lập trình

 Thiết lập năm sinh, kết nút lệnh [OK]Thiết lập ô năm sinh, kết nút lệnh [OK]

 Dùng properties thiết lập thuộc tính( năm sinh=A, kết Dùng properties thiết lập thuộc tính( năm sinh=A, kết

quả=KQ, ) quả=KQ, )

 Lập chương trình cho phần mềm:Lập chương trình cho phần mềm:

• Nếu [NĂM SINH] chia 12 dư [KẾT QUẢ] năm Nếu [NĂM SINH] chia 12 dư [KẾT QUẢ] năm

Thân Thân

• Nếu [NĂM SINH] chia 12 dư [KẾT QUẢ] năm DậuNếu [NĂM SINH] chia 12 dư [KẾT QUẢ] năm Dậu • Nếu [NĂM SINH] chia 12 dư [KẾT QUẢ] năm TuấtNếu [NĂM SINH] chia 12 dư [KẾT QUẢ] năm Tuất •

• Nếu [NĂM SINH] chia 12 dư [KẾT QUẢ] năm MùiNếu [NĂM SINH] chia 12 dư [KẾT QUẢ] năm Mùi

 Ta dùng hàm mod (number1 Mod number2) để

(11)

Private Sub CommandButton1_Click() If ((A.Value) Mod (12)) = Then

KQ.Value = "BAN SINH NAM THAN!" & "TUOI THAN CON KHI O LUM/ CHUYEN QUA CHUYEN LAI TE UM XUONG SONG"

End If

If ((A.Value) Mod (12)) = Then

KQ.Value = "BAN SINH NAM DAU!" & "TUOI DAU CON GA VANG LONG/ CO MO CO MONG HAY GAY O O"

End If

KQ.Value = "BAN SINH NAM TUAT," & "TUOI TUAT LA CON CHO CO/ NAM KHOANH TRONG LO LO MUI LO LEM"

End If

KQ.Value = "BAN SINH NAM HOI," & "TUOI HOI CON HEO AN HEM/ NGA QUA NGA LAI NGA MEM XUONG MUONG"

End If

KQ.Value = "BAN SINH NAM TI." & "TUOI TI CON CHUOT TRONG VO,/THA GAO THA NEP THA DON XUONG HANG"

End If

KQ.Value = "BAN SINH NAM SUU." & "TUOI SUU CON TRAU KENH CANG / CAY CHUA TOI BUOI DA MANG CAY VE"

(12)

KQ.Value = "BAN SINH NAM DAN." & "TUOI DAN CON COP CHINH GHE/ BAT NGUOI AN THIT DEM VE NON CAO"

End If

KQ.Value = "BAN SINH NAM MAO." & "TUOI MAO LA CON MEO NGAO/ HAY QUAU HAY QUAO,AN VUNG CHAN TINH"

End If

KQ.Value = "BAN SINH NAM THIN." & "TUOI THIN RONG O THIEN DINH/ HO PHONG HOAN VU AN MINH TRONG MAY"

End If

KQ.Value = "BAN SINH NAM TY," & "TUOI TY RAN O TREN CAY/ NAM KHOANH TRONG BONG CHANG HAY BIET GI"

End If

If ((A.Value) Mod (12)) = 10 Then

KQ.Value = "BAN SINH NAM NGO." & "TUOI NGO NGUA O DEN SI/ Y MINH SUC MANH NGAI GI DUONG XA"

End If

If ((A.Value) Mod (12)) = 11 Then

(13)

Đối với người lập trình với chương

trình visual basic, sử dụng hàm mod

trong tính tóan ban đầu khó,

khi quen dễ.

Hãy thử tính xem năm năm

xem thử câu lục bát nói chúng:

(14)

CAN CHI CỦA BẠN LÀ GÌ?

HÃY NHẬP NĂM

SINH CỦA BẠN! ENTER

CAN : CHI:

KẾT QUẢ

VẬY:

1968

MAU

(15)

 Cách lập hình chạy chương trình Cách lập hình chạy chương trình

giống với cách lập hình slide

trước, gồm: [ NĂM], [KẾT QUẢ 1], [KẾT QUẢ

trước, gồm: ô [ NĂM], [KẾT QUẢ 1], [KẾT QUẢ

2], [ KẾT QUẢ] nút [ENTER].

 Trong CAN có can: Giáp, Ất, Bính, Đinh, Trong CAN có can: Giáp, Ất, Bính, Đinh,

Mậu, Kỷ, Canh, Tân, Nhâm, Quý.

Mậu, Kỷ, Canh, Tân, Nhâm, Q.

 Trong CHI có 12 chi: Tí, Sửu, Dần, Mão, Thìn, Trong CHI có 12 chi: Tí, Sửu, Dần, Mão, Thìn,

Tỵ, Ngọ, Mùi, Thân, Dậu, Tuất, Hợi.

● Dùng hàm mod giống slide trước, lập Dùng hàm mod giống slide trước, lập

trình cho [KẾT QUẢ 1] VÀ [KẾT QUẢ 2]

sau:

(16)

Ô [KẾT QUẢ 1]:

KQ1.Value = "AT " End If

KQ1.Value = "BINH " End If

KQ1.Value = "DINH " End If

KQ1.Value = "MAU " End If

KQ1.Value = "KY " Private Sub

CommandButton1_Click() If ((A.Value) Mod (10)) = Then

KQ1.Value = "CANH " End If

KQ1.Value = "TAN " End If

KQ1.Value = "NHAM " End If

KQ1.Value = "QUY " End If

(17)

Ô [KẾT QUẢ 2] VÀ Ô [ KẾT

QUẢ] :If ((A.Value) Mod (12)) = Then KQ2.Value = "MAO"

End If

If ((A.Value) Mod (12)) = Then KQ2.Value = "THIN"

End If

If ((A.Value) Mod (12)) = Then KQ2.Value = "TY"

End If

If ((A.Value) Mod (12)) = 10 Then KQ2.Value = "NGO"

End If

If ((A.Value) Mod (12)) = 11 Then KQ2.Value = "MUI"

End IfIf ((A.Value) Mod (12)) = Then KQ2.Value = "DAN"

End If If ((A.Value) Mod (12)) = Then

KQ2.Value = "THAN" End If

If ((A.Value) Mod (12)) = Then KQ2.Value = "DAU"

End If

If ((A.Value) Mod (12)) = Then KQ2.Value = "TUAT"

End If

If ((A.Value) Mod (12)) = Then KQ2.Value = "HOI"

End If

If ((A.Value) Mod (12)) = Then KQ2.Value = "TI"

End If

If ((A.Value) Mod (12)) = Then KQ2.Value = "SUU"

End If KQ.Value = "BAN SINH NAM " & (KQ1.Value + KQ2.Value) & "." End Sub

[ KẾT QUẢ 2] :

(18)

 LƯU Ý: CÁC CƠNG THỨC LẬP TRÌNH

ĐỀU ĐƯỢC LẬP TRÌNH CHUNG TRONG MỘT Ơ LẬP TRÌNH.

Bây giờ, bạn tìm can chi số năm sau đây:

•Năm 1994 •Năm 2000 •Năm 2002 •Năm •Năm

1945 •Năm 1954 •Năm 1968 •Năm

(19)

Đây số phần mềm đơn giản bạn tự

làm nhà Hãy cố thử lập trình chúng, dù

sai hay giúp bạn giỏi môn

hơn

(20)

THE END