Bài tập thực hành: lập trình visual basic 6

Bài Th c Hành s 4

L P TRÌNH VISUAL BASIC

TH T C VÀ HÀM (SUB END SUB, FUNCTION END FUNCTION )

Trong bài h c này, sinh viên xây d ng các ch ng trình đ tìm hi u v vi c s d ng th t c và hàm c

b n trong Visual Basic

Yêu c u: sinh viên đã đ c trang b ki n th c xây d ng th t c và hàm

I BÀI T P CÓ H NG D N

Bài 01 Thi t k ch ng trình máy tính c b n

 B c 2: Thi t l p các thu c tính Properties cho form và các control trên form theo b ng sau

TEXTBOX

Name txtNoidung Caption 0

Alignment 1- Right Justify

Nhóm các button s t 0 9 Name b0, b1, , b9 0,1, …, 9

`

Nhóm các

BUTTON s t

0 9

Nhóm các BUTTON phép toán: +,-,*,/

TEXTBOX

BUTTON dùng đ reset (kh i t o l i)

BUTTON dùng đ tính ngh ch đ o

BUTTON dùng đ xem k t qu

BUTTON d u

th p phân BUTTON d u

âm

Button 1/x Name bNghichdao

Caption 1/x

Text +/-

Text

Nhóm các button phép toán +,-,*,/ Name bCong,bTru,bNhan,bChia

Text +,-,*,/

Do ph n l p trình x lý có nhi u đo n code nên sinh viên c n chia thành các kh i l nh nh sau:

 Ph n khai báo các bi n toàn c c: (vào menu View / Code), t i c a s vi t code ch n ( General)

Khai báo các bi n toàn c c nh hình d i

Ý ngh a các bi n:

 Bi n sothunhat, sothuhai: dùng đ l u l n l t các giá tr trên textbox txtNoidung cho 2 s

c n tính toán

 Bi n bMemoryTime: dùng đ ki m tra xem l n l u là l n th m y (n u bMemoryTime = 1

thì s l u giá tr trên textbox txtNoidung cho bi n sothunhatvà ng c l i n u bMemoryTime

= 2 thì s l u giá tr trên textbox txtNoidung cho bi n sothuhai)

 Bi n fClear dùng đ xóa n i dung c a textbox txtNoidung sau khi đã nh p xong giá tr ho c

nh n button CE

 Bi n pheptoandùng đ l u giá tr ký hi u phép toán đã ch n: +,-,*,/

 Bi n fDauchamdùng đ ki m tra button d u th p phân “.” đã đ c nh n hay ch a

 Xây d ng module ch a th t c và hàm nh sau: Right Click vào project nh hình d i và ch n

Double Click vào module mylibrary nh p đo n code sau:

 Xây d ng module ch a th t c và hàm nh sau: Right Click vào project nh hình d i và ch n

Add Module

 L n l t Double Click vào các Button và nh p l nh cho các button nh sau:

Th t c xulyso dùng đ x lý n i các ký s l i v i nhau sau khi các button s đã đ c nh n

Hàm tinhtoan dùng đ tính k t qu t ng ng v i phép toán +,-,*,/ đã đ c nh n

t tên cho module: mylibrary

2

1

3

4

Nh p l nh x lý cho các button bChamdong, bAmduong và bNghichdao

Kh i t o giá tr cho các

bi n khi form đ c kích

ho t

Gán l i giá tr cho các

bi n khi click button CE

G i th t c xulyso đ

n i các ký s l i v i nhau

T ng t cho các button

s còn l i

T ng t , nh p l nh x lý cho các button bCong, bTru, bNhan, bChia(ch vi c đ i d u c a phép toán

t ng ng) và bBang

tính

G i hàm tinhtoan đ th c hi n tính toán tùy theo pheptoan đ c click ch n

Bài 02 Thi t k ch ng trình máy tính c b n

II BÀI T P M R NG

Sinh viên hoàn t t các ch c n ng máy tính còn l i trong bài t p 2

bClear: xóa làm l i t đ u

bCE: (clear entry) xóa s

v a nh p

bSqrt: rút c n

bPercent: tính

ph n tr m

xóa lùi 1 ký s

v a nh p

bEmpty: nút

thông báo b

nh đã l u

bMC: memory

clear

bMR: memory

read

bMS: memory

save

bMS: memory

add