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
BÀI THỰC HÀNH
LẬP TRÌNH
LẬP TRÌNH
Bùi Hồ Phương Anh
Bùi Hồ Phương Anh
11AN-THPT Lê Quý Đôn
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:
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,
giống chương trình slide 2,
ta lại có thêm kiện thiết lập
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.
đ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)
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] )
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
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:
cho phần mềm giải pt bậc sau:
(7)Cách lập trình:
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
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
If ((A.Value) Mod (12)) = Then
KQ.Value = "BAN SINH NAM TUAT," & "TUOI TUAT LA CON CHO CO/ NAM KHOANH TRONG LO LO MUI LO LEM"
End If
If ((A.Value) Mod (12)) = Then
KQ.Value = "BAN SINH NAM HOI," & "TUOI HOI CON HEO AN HEM/ NGA QUA NGA LAI NGA MEM XUONG MUONG"
End If
If ((A.Value) Mod (12)) = Then
KQ.Value = "BAN SINH NAM TI." & "TUOI TI CON CHUOT TRONG VO,/THA GAO THA NEP THA DON XUONG HANG"
End If
If ((A.Value) Mod (12)) = Then
KQ.Value = "BAN SINH NAM SUU." & "TUOI SUU CON TRAU KENH CANG / CAY CHUA TOI BUOI DA MANG CAY VE"
(12)If ((A.Value) Mod (12)) = Then
KQ.Value = "BAN SINH NAM DAN." & "TUOI DAN CON COP CHINH GHE/ BAT NGUOI AN THIT DEM VE NON CAO"
End If
If ((A.Value) Mod (12)) = Then
KQ.Value = "BAN SINH NAM MAO." & "TUOI MAO LA CON MEO NGAO/ HAY QUAU HAY QUAO,AN VUNG CHAN TINH"
End If
If ((A.Value) Mod (12)) = Then
KQ.Value = "BAN SINH NAM THIN." & "TUOI THIN RONG O THIEN DINH/ HO PHONG HOAN VU AN MINH TRONG MAY"
End If
If ((A.Value) Mod (12)) = Then
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
Đối với người lập trình với chương
trình visual basic, sử dụng hàm mod
trình visual basic, sử dụng hàm mod
trong tính tóan ban đầu khó,
trong tính tóan ban đầu khó,
khi quen dễ.
khi quen dễ.
Hãy thử tính xem năm năm
Hãy thử tính xem năm năm
xem thử câu lục bát nói chúng:
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
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].
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.
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]
trình cho [KẾT QUẢ 1] VÀ [KẾT QUẢ 2]
sau:
sau:
(16)Ô [KẾT QUẢ 1]:
If ((A.Value) Mod (10)) = Then
KQ1.Value = "AT " End If
If ((A.Value) Mod (10)) = Then
KQ1.Value = "BINH " End If
If ((A.Value) Mod (10)) = Then
KQ1.Value = "DINH " End If
If ((A.Value) Mod (10)) = Then
KQ1.Value = "MAU " End If
If ((A.Value) Mod (10)) = Then
KQ1.Value = "KY " Private Sub
CommandButton1_Click() If ((A.Value) Mod (10)) = Then
KQ1.Value = "CANH " End If
If ((A.Value) Mod (10)) = Then
KQ1.Value = "TAN " End If
If ((A.Value) Mod (10)) = Then
KQ1.Value = "NHAM " End If
If ((A.Value) Mod (10)) = Then
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