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]

Trang 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 MICROSOFT VISUAL BASIC

Trang 2

PHẦN MỀM GIẢI PHƯƠNG

TRÌNH BẬC NHẤT

Ax+B=0

OK

+

Trang 3

CÁCH LẬP TRÌNH:

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

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

và nút lệnh (A, B, [OK], KQ )

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

Private Sub CommandButton1_Click()

If A.Value = 0 And B.Value <> 0 Then KQ.Value = "PHUONG TRINH VO NGHIEM"

End If

If A.Value = 0 And B.Value = 0 Then KQ.Value = "PHUONG TRINH VO SO NGHIEM"

End If

If A.Value <> 0 Then KQ.Value = "PHUONG TRINH CO NGHIEM X=" &

(-B.Value / A.Value) End If

End Sub

Trang 4

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

 0x+2=0

 0x+0=0

 7x-2=0

 5x+5=0

THỰC TẬP

Trang 5

PHẦN MỀM GIẢI PHƯƠNG

TRÌNH BẬC HAI

Ax2+Bx+C=0

OK

X 2

Trang 6

Cách lập trình:

 Chú ý: Cách thiết lập chương trình cũng giống như chương trình ở slide 2, nhưng

ta lại có thêm 1 dữ kiện thiết lập mới là

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

Lập màn hình chạy chương trình (như ở silde 4) Dùng properties thiết lập thuộc tính cho các ô vuông và nút lệnh(A, B, C, KQ, [OK] )

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

Các bước lập

trình:

Trang 7

Cách lập trình:

If A.Value = 0 Then

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

End If

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

KQ.Value = " PHUONG TRINH VO NGHIEM"

End If

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

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

End If

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

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

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

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

End If

End Sub

Trang 8

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

0x 2 +2X+3=0

12X 2 +23X+34=0

7x 2 -2=0

5x 2 +5X-5=0

THỰC TẬP

Trang 9

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

BẠN TUỔI CON GÌ?

Trang 10

Cách lập trình

 Thiết lập các ô năm sinh, kết quả và nút lệnh [OK]

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

quả=KQ, )

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

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

Thân

• Nếu [NĂM SINH] chia 12 dư 1 thì [KẾT QUẢ] là năm Dậu

• Nếu [NĂM SINH] chia 12 dư 2 thì [KẾT QUẢ] là năm Tuất

• Nếu [NĂM SINH] chia 12 dư 0 thì [KẾT QUẢ] là năm Mùi

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

làm câu lệnh gán (lập trình) như sau

Trang 11

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

KQ.Value = "BAN SINH NAM THAN!" & "TUOI THAN CON KHI O LUM/ CHUYEN QUA

CHUYEN LAI TE UM XUONG SONG"

End If

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"

End If

Trang 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

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

End If

KQ.Value = "BAN SINH NAM MUI," & "TUOI MUI LA CON DE GIA, CO SUNG CO GAC RAU RIA UM TUM"

Trang 13

Đối với những người lập trình với chương trình visual basic, khi sử dụng hàm mod

trong tính tóan ban đầu sẽ rất khó, nhưng khi quen sẽ rất dễ.

Hãy thử tính xem các năm dưới đây là năm con gì và xem thử các câu lục bát nói về chúng:

 NĂM 1989

 NĂM 2002

 NĂM 1991

 NĂM 1992

 NĂM 1993

 NĂM 1994

Trang 14

CAN CHI CỦA BẠN LÀ

GÌ?

HÃY NHẬP NĂM

CAN : CHI:

KẾT QUẢ

VẬY:

1968

MAU

BAN SINH NAM MAU THAN.

Trang 15

 Cách lập màn hình chạy chương trình cũng

giống với cách lập màn hình của các slide

trước, gồm: ô [ NĂM], [KẾT QUẢ 1], [KẾT QUẢ 2], [ KẾT QUẢ] và nút [ENTER].

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

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

 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 như ở slide trước, lập

trình cho ô [KẾT QUẢ 1] VÀ [KẾT QUẢ 2] như sau:

CÁCH LẬP

TRÌNH

Trang 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 "

End If

Private Sub

CommandButton1_Click()

If ((A.Value) Mod (10)) = 0

Then

KQ1.Value = "CANH "

End If

Then

KQ1.Value = "TAN "

End If

Then

KQ1.Value = "NHAM "

End If

Then

KQ1.Value = "QUY "

End If

Then

Trang 17

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

QUẢ] : If ((A.Value) Mod (12)) = 7 Then

KQ2.Value = "MAO"

End If

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

End If

If ((A.Value) Mod (12)) = 9 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)) = 6 Then KQ2.Value = "DAN"

End If

KQ2.Value = "THAN"

End If

KQ2.Value = "DAU"

End If

KQ2.Value = "TUAT"

End If

KQ2.Value = "HOI"

End If

KQ2.Value = "TI"

End If

KQ2.Value = "SUU"

End If KQ.Value = "BAN SINH NAM " &

(KQ1.Value + KQ2.Value) & "."

End Sub

[ KẾT QUẢ 2] :

[ KẾT QUẢ ] TỔNG HỢP :

Trang 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ờ, các bạn hãy tìm can chi của một 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

THỰC TẬP:

Trang 19

Đây là một số phần mềm đơn giản bạn có thể tự

làm được tại nhà Hãy cố thử lập trình chúng, dù

sai hay đúng cũng sẽ giúp bạn giỏi về môn này

hơn

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 đó!

Trang 20

THE END

CẢM ƠN CÁC BẠN ĐÃ XEM!

Định dạng
Số trang	20
Dung lượng	509,5 KB