TÀi liệu tham khảo lập trình visual basic giảng viên: Lương Trần Hy Hiến Email



tải về 5.95 Mb.
trang17/64
Chuyển đổi dữ liệu26.04.2018
Kích5.95 Mb.
#37162
1   ...   13   14   15   16   17   18   19   20   ...   64

Bài tập thực hành If


Thiết kế một chương trình đăng nhập (Log In) cho phép người sử dụng đánh tên và mật mã (Password) vào sau đó kiểm tra xem password có đúng với chuỗi được quy định trước hay không?



Thiết kế giao diện


  • Tạo các control (label, textbox, command button) như hình

  • Đặt tên lần lượt là TxtUser, TxtPassword, cmdOK,CmdCancel

  • Thiết lập thuộc tính PasswordChar cho txtPassword là * (che ký tự nhập vào)

Viết code cho chương trình



Ví dụ: Viết chương trình giải phương trình bậc nhất Ax+B=0

Option Explicit



Private Sub Form_Load()‘Lưu ý: sử dụng sự kiện load để cài đặt các yếu tố ban đầu

lbl_tua.Caption = "CHƯƠNG TRÌNH" & Chr(13) & " GIẢI PHƯƠNG TRÌNH BẬC I Ax+B=0" ‘Sử dụng ký tự chr(13) để xuống dòng

txt_A.Text = ""

txt_b.Text = ""

txt_kq.Text = ""

End Sub

Private Sub cmd_giai_Click()



If txt_A.Text = "" Or txt_b.Text = "" Then

MsgBox "Bạn chưa nhập đủ dữ liệu "

ElseIf Val(txt_A.Text) <> 0 Then

txt_kq.Text = "Nghiệm của PT là: " & Val(txt_b.Text) / Val(txt_A.Text)

ElseIf Val(txt_b.Text) = 0 Then

txt_kq.Text = "Phương trình vô số nghiệm"

Else

txt_kq.Text = "Phương trình vô nghiệm"



End If

End Sub
Private Sub cmd_moi_Click()

txt_A.Text = ""

txt_b.Text = ""

txt_kq.Text = ""

txt_A.SetFocus ‘Chuyển focus về textbox txt_a để tiện lợi cho người sử dụng nhập liệu



End Sub

Private Sub cmd_kt_Click()



End

End Sub
3. Cấu trúc lựa chọn SELECT CASE … END SELECT
Ví dụ: thực hiện lại ví dụ nói trên, xuất ra màn hình chuỗi phát âm của thứ nhập vào


Каталог: books -> cong-nghe-thong-tin -> lap-trinh-ung-dung
cong-nghe-thong-tin -> BÀi thực hành số 1
cong-nghe-thong-tin -> BÀi giảng cấu trúc máy tíNH
cong-nghe-thong-tin -> Câu 1: Các thành phần của hệ điều hành, nhân hệ điều hành, tải hệ điều hành
cong-nghe-thong-tin -> Bài 1 Những khái niệm cơ bản về ngôn ngữ c mục tiêu
cong-nghe-thong-tin -> Trừ khi người ta cho bạn ngủ trong trạng thái đông lạnh suốt mấy năm vừa qua, nếu không, chắc chắn bạn đã nghe nói nhiều về máy tính và những mối đe dọa từ Internet đối với sự riêng tư của bạn
lap-trinh-ung-dung -> Mục lục 2 Làm quen với visual basic 9
cong-nghe-thong-tin -> TÀi liệu html, dhtml và javascript ha noi 9/2008
cong-nghe-thong-tin -> Hình thức trả lời là chọn 1 hoặc nhiều đáp án đúng. Ứng dụng web
cong-nghe-thong-tin -> SỞ khoa học và CÔng nghệ ĐĂKLĂk trung tâm tin họC & thông tin khcn

tải về 5.95 Mb.

Chia sẻ với bạn bè của bạn:
1   ...   13   14   15   16   17   18   19   20   ...   64




Cơ sở dữ liệu được bảo vệ bởi bản quyền ©hocday.com 2024
được sử dụng cho việc quản lý

    Quê hương