Ngôn ngữ lập trình visua basic

13:15:17 BÀI 1: VISUAL STUDIO NET Chương trình ví dụ: Lucky seven Mở rộng chương trình ví dụ Bài 1 13:21:53 Chương trình ví dụ: Lucky seven Bài 2 13:21:54 Chương trình ví dụ: Lucky seven 3 13:21:55 Chương trình ví dụ: Lucky seven Bài 4 13:24:15 Chương trình ví dụ: Lucky seven Click chuột phải vào Form1.vb, chọn Rename, đổi tên thành frmLucky7.vb Chọn Project > Lucky Properties chọn Startup form frmLucky7 Bài 5 13:29:18 Chương trình ví dụ: Lucky seven Cửa sổ thiết kế Cửa sổ Properties Các điều khiển Bài 6 13:37:59 Chương trình ví dụ: Lucky seven button label Picture box label Thay đổi thuộc tính đối tượng: chọn đối tượng, sau click vào thuộc tính cần thiết cửa sổ Properties Bài 7 13:37:59 Chương trình ví dụ: Lucky seven Thuộc tính đối tượng Đối tượng Button Button Label Label Label Thuộc tính Giá trị Name bttQuayso Text Quay số Name bttExit Text Kết thúc Name lblNo1 FontSize 25 Name lblNo2 FontSize 25 Name lblNo3 FontSize 25 Đối tượng Label PictureBox Thuộc tính Giá trị Name lblVictory Text Bạn chiến thắng ForeColor Red Name picVictory Image SizeMode Bài StretchImage 8 13:38:00 Chương trình ví dụ: Lucky seven Thuộc tính Image PictureBox: Click vào nút Browse bên phải Nhấn nút Import chọn file ảnh Bài 9 13:45:11 Chương trình ví dụ: Lucky seven Viết mã lệnh: DoubleClick vào nút Quay số, mã lệnh: Private Sub bttQuayso_Click(sender As Object, e As EventArgs) Handles bttQuayso.Click picVictory.Visible = False lblVictory.Visible = False lblNo1.Text = CStr(Int(Rnd() * 10)) lblNo2.Text = CStr(Int(Rnd() * 10)) lblNo3.Text = CStr(Int(Rnd() * 10)) 'Nếu ba nhãn xuất số ảnh kêu beep If (lblNo1.Text = "7") Or (lblNo2.Text = "7") Or (lblNo3.Text = "7") Then picVictory.Visible = True Beep() End If If (lblNo1.Text = "7") And (lblNo2.Text = "7") And (lblNo3.Text = "7") Then picVictory.Visible = True Beep() lblVictory.Visible = True End If End Sub Bài 10 10 13:45:42 Chương trình ví dụ: Lucky seven Viết mã lệnh: picVictory.Visible = False đặt thuộc tính Visible đối tượng picVictory False Không Picture hình lblVictory.Visible = False lblNo1.Text = CStr(Int(Rnd() * 10)) Rnd(): hàm tạo số ngẫu nhiên từ 