code

tai lieu lap trinh nang cao

Bài 1: Thiết kế Form như sau:

Yêu cầu:

+ Khi ta Click chuột lên nút lênh Show thì trên nền của Form hiện ra

dòng chữ "Trung tâm tin học Bách Khoa"

+ Khi ta Click chuột lên nút lệnh Clear thì dòng chữ trên Form biến

mất

+ Khi ta Click chuột lên nút lệnh Exit thì chương trình biến mất

(Hướng dẫn:

Sử dụng sự kiện (Event) Click của đối tượng Command Button và

phương thức Print của Form)

Hướng Dẫn:

Đầu tiên tại cửa sổ trương trình làm theo lầm lượt các bước như hình sau

:

Tiếp đó đổi tên từng nút

Các nút sau làm tương tự

- Tiếp đến là viết code cho trương trình :

Tại cửa sổ code :

Bạn có thể tham khảo đoạn code sau :

Private Sub CmdLuongdam0_Click()

Print "Trung Tam Tin Hoc Bach Khoa"

Private Sub Form_Load()

Me.Caption = Space(10) & "Luongdam.Bai tap lap trinh Lop CNTT

K47"

End Sub

Private Sub Timer1_Timer()

Me.Caption = Right(Me.Caption, Len(Me.Caption) - 1) & Left(Me.Caption, 1)

End Sub

Như vậy là các bạn đã hoàn thành bai tập 1 rồi đó

Bài 2: Chương trình Hello

Yêu cầu:

+ Khi Click chuột lên nút Display Hello thì trong Text Box xuất hiện dòng chữ "Hello World!!!"

+ Khi Click chuột lên Clear thì dòng chữ trong Text Box biến mất + Khi ta Click chuột lên nút lệnh Exit thì chương trình chấm dứt

(Hướng dẫn:

Sử dụng sự kiện (Event) Click của đối tượng Command Button và thuộc tính Text của đối tượng Text Box)

Hướng Dẫn Đầu tiên tại cửa sổ trương trình làm theo lầm lượt các bước như hình sau :

Đổi tên các nút lầm lượt Display Hello, clear , exit

Ta tiếp tục Chuột phải vào đối tượng View Code để viết lệnh cho từng đối tượng :

Đoạn code tham khảo

Private Sub Command1_Click()

Text1.Text = "Hello World "

+ Khi Click chuột lên nút lệnh Trans thì các dòng chữ trong Text 1

và Text 3 đổi chỗ cho nhau (Hướng dẫn bạn có thể dùng Text 2 làm trung gian)

+ Khi Click chuột lên nút lênh Text thì con trỏ sẽ tự động xuất hiện

trong Text 1 để ta chuẩn bị nhập dữ liệu (Chú ý khi con trỏ hội tụ vào

trong Text 1 thì văn bản hiện có của Text 1 sẽ tự động được bôi đen)

Ta tiếp tục Chuột phải vào đối tượng View Code để viết lệnh cho từng đối tượng :

Đoạn code tham khảo :

Private Sub Cmd1_Click()

Text1.Text = "Luong van Dam"

Text2.Text = "Lop :CNTT-K47 CDSLA "

Text3.Text = " Muong Bang_Mai Son "

Private Sub Cmd3_Click()

Text1.Text = "Muong Bang_Mai Son"

Text2.Text = "Lop :CNTT-K47 CDSLA "

Text3.Text = "Luong van Dam "

End Sub

Private Sub Cmd4_Click()

CmdLuongdam0.Hide

End Sub

Private Sub Form_Load()

Me.Caption = Space(10) & "Luongdam CNTTK47"

End Sub

Private Sub Timer1_Timer()

Me.Caption = Right(Me.Caption, Len(Me.Caption) - 1) &

Left(Me.Caption, 1)

End Sub

Các bạn đã có một bài hoàn chỉnh rùi đó chúc các bạn thành công trong các bai tiếp theo

Bài 4: Thiết kế biểu mẫu sau:

Yêu cầu:

+ Khi Click chuột lên nút lệnh "+" thì tổng a+b xuất hiện ở Text 3 + Khi Click chuột lên nút lệnh "-" thì hiệu a-b xuất hiện ở Text 3 + Khi Click chuột lên nút lệnh "*" thì tích axb xuất hiện ở Text 3 + Khi Click chuột lên nút lệnh "/" thì thương a/b xuất hiện ở Text 3 + Khi Click chuột lên nút lệnh "Mod" thì phần dư a/b xuất hiện ở Text 3

(Hướng dẫn: chú ý hàm Mod, Vad, Str)

Hướng Dẫn:

Thiết kế form trên ta sử dụng textbox và command

Ta tiếp tục Chuột phải vào đối tượng View Code để viết lệnh cho từng đối tượng :

Đoạn code tham khảo :

Đây là thành quả mà chính các bạn tạo ra đó

Bài 5: Chương trình SPEED:

Yêu cầu:

+Khi ta thay đổi vị trí con chạy của thanh cuộn thì Text Box sẽ hiển thị vị trí hiện tại của con chạy

+ Khi Click chuột lên nút lệnh Exit thì chương trình chấm dứt

(Hướng dẫn: Sử dụng các sự kiện Change của Scroll của thanh cuộn)

Hướng Dẫn:

Ta tiếp tục Chuột phải vào đối tượng View Code để viết lệnh cho từng đối tượng :

Đoạn code tham khảo :

Private Sub Command1_Click()

Private Sub HScroll1_Change()

Text1.Text = HScroll1.Value & "mgh"

End Sub

Chúc các bạn thành công

Bài 6: Chương trình Option:

Yêu cầu:

+ Khi Click chuột vào các Check Box và các Option chương trình sẽ hiện trạng thái của các hộp kiểm tra và nút chọn trong nhãn (label) lblChoice

+ Khi Click chuột lên nút lênh Exit thì chương trình biến mất

Hướng Dẫn :

Thiết kế form

Phải chuột vào chọn view code để viết code cho cac nut tuong tu nhu form tren

Đoạn code :

Private Sub Check1_Click()

If Check1.Value = 1 Then Label5 = "on"

If Check1.Value = 0 Then Label5 = "off" End Sub

Private Sub Check2_Click()

If Check2.Value = 1 Then Label6 = "on"

If Check2.Value = 0 Then Label6 = "off" End Sub

Private Sub Check3_Click()

If Check3.Value = 1 Then Label7 = "on"

If Check3.Value = 0 Then Label7 = "off" End Sub

Private Sub Command1_Click()

Form1.Hide

End Sub

Private Sub Option1_Click()

If Option1 = True Then Label8 = "1" End Sub

Private Sub Option2_Click()

If Option2 = True Then Label8 = "2" End Sub

Private Sub Option3_Click()

If Option3 = True Then Label8 = "3" End Sub

Bài 7: Chương trình SUM:

Chương trình này nhận vào số N và tính tổng các số từ 1
N

+ Khi Click chuột lên nút lệnh Exit thì chương trình chấm dứt

+ Khi bạn nhả chuột thì nội dung trong txtResult sẽ biến mất

+ Khi Click chuột lên nút lệnh Exit thì chương trình chấm dứt

(Hướng dẫn:

- Sử dụng sự kiện MouseDown và MouseUp của đối tượng Form

- Sử dụng tham số Button của sự kiện để xác định nút chuột nào được bấm Button = 1: phím trái bấm; Button = 2: phím phải bấm; Button

= 4: phím giữa bấm)

Hướng dẫn

Để thiết kế được form như trên các bạn làm theo các bước sau:

Tiếp theo các bạn bấm phải chuột và chọn view code để viết

code

Đoạn code như sau:

Private Sub Command1_Click()

End

End Sub

Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X

As Single, Y As Single)

If Button = 1 Then Text1.Text = " Left button is currently pushed "

If Button = 2 Then Text1.Text = " Right button is currently pushed "

If Button = 4 Then Text1.Text = " Center button is currently pushed

"

End Sub

Private Sub Form_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)

If Button = 1 Then Text1.Text = ""

If Button = 2 Then Text1.Text = ""

If Button = 4 Then Text1.Text = ""

End Sub

Bài hoàn chỉnh

Bài 10: Chương trình Button 2:

If Button = 1 Then Check1.Value = 1

If Button = 2 Then Check3.Value = 1

If Button = 4 Then Check2.Value = 1

End Sub

Private Sub Form_MouseUp(Button As Integer, Shift As Integer, X

As Single, Y As Single)

If Button = 1 Then Check1.Value = 0

If Button = 2 Then Check3.Value = 0

If Button = 4 Then Check2.Value = 0

End Sub

Chúc các bạn thành công!!!

Bài 11: Chương trình Color:

Menu có cấu trúc như sau:

Color

Set Color

Red Blue White Exit

Size

Small Large

Yêu cầu:

+ Bắt dầu chương trình mục White trong trình đơn của mục Set Color không cho phéo chọn Điều này cần thiết để phù hợp logic chương trình Vì khi bắt đầu nền Form màu trắng, chẳng lẽ lại cho phép màu nền

từ trắng thành trắng Tương tự Small trong trình đơn Size cũng không cho phép chọn vì Form đang ở dạng nhỏ

+ Sau khi bạn chọn mục Large trong trình đơn Size, Form lớn toàn màn hình Đồng thời mục Large bị che đi

+ Sau khi bạn đổi nền Form mục tương ứng của màu nền mới bị che

Đoạn code

Private Sub B_Click()

Form1.BackColor = &HFF00&

End Sub

Private Sub Form_Load()

Me.Caption = Space(10) & "Luongdam.color"

End Sub

Private Sub R_Click()

Form1.BackColor = &HFF&

End Sub

Private Sub Timer1_Timer()

Me.Caption = Right(Me.Caption, Len(Me.Caption) - 1) &

Left(Me.Caption, 1)

End Sub

Private Sub W_Click()

+ Chọn một trong các nút chương trình Dialog thông báo ngay nút bạn vừa chọn

+ Dùng nút Exit trong trình đơn Dialogs kết thúc chương trình Chương trình dùng hộp thoại Yes/No để hỏi bạn chắc chắn muốn dừng chương trình chọn nút Yes

Hướng dẫn :

Cách làm các bạn có thể tham khảo bài 11

Mở giao diện

Đoạn code

Private Sub A_Click()

A = MsgBox(" Luongdam: Abort_Retry_Igmore", vbAbortRetryIgnore + vbExclamation, " Luongdam: Abort_Retry_Igmore")

End Sub

Private Sub E_Click()

End

End Sub

Private Sub O_Click()

O = MsgBox("Luongdam: Ok_Cancel", vbOKCancel + vbQuestion, " Luongdam: Chao ban")

End Sub

Private Sub R_Click()

R = MsgBox("Luongdam: Retry_Cancel", vbRetryCancel + vbCritical,

"Luongdam: Retry_Cancel ")

End Sub

Private Sub Y_Click()

Y = MsgBox("Luongdam: Yes_No_Cancel", vbYesNoCancel +

vbInformation, "Luongdam: Yes_No_Cancel")

End Sub

Private Sub YY_Click()

YY = MsgBox("Luongdam: Yes_No", vbYesNo + vbQuestion,

Bài 15: Thiết kế Form như sau:

Yêu cầu:

+ Khi chạy chương trình, cá thông tin trong Combol được tự động điền vào như trên (Gợi ý: chú ý sử dụng sự kiện Form _load của biểu mẫu)

+ Khi ta Click chuột vào nút lệnh “Remove to List box” thì Item đang được chọn của Combol sẽ bị đẩy sang List box và Item đó sẽ bị loại

ra khỏi Combol

+ Khi ta Click chuột vào nút lệnh “Remove to Combol Box” thì Item đang được chọn của List box sẽ bị đẩy sang Combol và Item đó sẽ

bị loại ra khỏi List Box

(Hướng dẫn: Chú ý sử dụng các phương pháp AddItem, RemoveItem, của đối tượng ComBox và List Box)

Hướng dẫn:

Các bạn làm theo các bước sau

Đoạn code

Private Sub Combo1_Change()

End Sub

Private Sub Command1_Click()

If Form1.Combo1.ListIndex = -1 Then Exit Sub

Form1.List1.AddItem Form1.Combo1.List(Form1.Combo1.ListIndex) Form1.Combo1.RemoveItem Form1.Combo1.ListIndex

Combo1.ListIndex = 0

End Sub

Private Sub Command2_Click()

If Form1.List1.ListIndex = -1 Then Exit Sub

Form1.Combo1.AddItem Form1.List1.List(Form1.List1.ListIndex) Form1.List1.RemoveItem Form1.List1.ListIndex

End Sub

Private Sub Form_Load()

Combo1.AddItem " Hoc Sinh "

Combo1.AddItem " Sinh Vien "

Combo1.AddItem " Giang Vien "

Combo1.AddItem " Thac Sy "

Combo1.AddItem " Tien Si "

Combo1.AddItem " Pho Giao Su "

Combo1.ListIndex = 0

End Sub

Bài 16: Thiết kế Form sau:

Yêu cầu:

+ Khi ta Click chuột lên hộp danh sách ổ đĩa và chọn ổ đĩa bất kỳ, thì các thư mục ứng với ổ đĩa đó sẽ xuất hiện trên hộp danh sách các thư mục

+ Khi ta Click chuột 2 lần lên một Folder bất kỳ trong hộp danh sách các thư mục thì tất cả các File sẽ hiện lên trong hộp danh sách các tệp tin + Khi ta Click chuột lên hộp Combol thì một danh sách xuất hiện Các Item trong danh sách này chính là các phần mở rộng của các tệp tin Khi ta chọn một trong số Item đó thì tên hộp danh sách các tệp tin chỉ

”đọng” lại các tệp tin có phần mở rộng như đã chọn trong hộp Combol + Khi ta Click chuột lên một tệp bất kỳ trong danh sách các tệp tin thì cả đường dẫn và tên tệp tin đó sẽ xuất hiẹn trong Text1

+ Khi ta Click chuột lên nút lệnh Exit thì chương trình chấm dứt

(Hướng dẫn: Chú ý các thuộc tính Path, FileName, Filter, của các đối tượng Driver, File List box, )

Private Sub Drive1_Change()

Dir1.Path = Drive1

End Sub

Private Sub Form_Load()

Combo1.AddItem "All file (*.*)"

Combo1.AddItem "Text file (*.txt)"

Combo1.AddItem "Html file (*.html)"

End Sub

Chúc các bạn thành công !!!

Bài 17: Chương trình SIZE:

Private Sub Command1_Click(Index As Integer)

Private Sub Form_Load()

Combo1.AddItem "All file (*.*)"

Combo1.AddItem "Text file (*.txt)"

Combo1.AddItem "Html file (*.html)"

End Sub