Struktur Keputusan Case pada Visual Basic

1. Desain Awal Program

2. Atur Properties Masing-masing Objek sebagai berikut:
NO.
OBJEK
PROPERTIES
PENGATURAN
1
Form1
Text
-
2
Label1
Text
Password
   3
Textbox1
Name
TxtPass
4
Button1
Text
Proses


Name
Btnproses
5
Button2
Text
Bersih


Name
Btnbersih

3. Tampilan program setelah pengaturan properties sebagai berikut:




4. Pemberian Perintah/Instruksi pada Program
     Alur Program:
a.    Masukkan password pada label1 (Password) pada Textbox1 (Txtpass).
b.    Setelah itu klik Button1 (Proses)maka akan memproses Password yang kita masukkan benar atau tidak. Jika Password yang kita masukkan benar maka akan ada pemberitahuan bahwa Password yang kita massukan benar, dan bila Password yang kita masukkan salah maka ada pemberitahuan Password yang kita masukkan salah berdasarkan sesuai Perintah Program.
c.    Jika diklik tombol Button2(Tutup), maka program akan ditutup (keluar dari program)








Perintah Program :
PrivateSub TxtProses_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TxtProses.Click
If Txtpass.Text = "Rahasia"Then
            MsgBox("Password yang Anda Masukkan Benar", MsgBoxStyle.Information, "Info Login")
Else
            MsgBox("Password yang Anda Masukkan Salah", 16, "Info")
EndIf
EndSub

PrivateSub Btnbersih_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)

EndSub

PrivateSub Btntutup_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btntutup.Click
Dim pesan AsString
        pesan = MsgBox("Apakah Anda ingin menutup Program ini ?", MsgBoxStyle.YesNo + 32, "Tutup Program")
If pesan = vbYes Then
End
Else
ExitSub
EndIf
EndSub
EndClass

Tampilan Program setelah dijalankan berdasarkan Password yang benar sebagai berikut :




Untuk menjalankan program, klik tombol Start Debugging 
        atau tekan tombol F5 pada keyboard.
Untuk menutup program, klik tombol Stop Debugging   
     


 












 







Komentar

Posting Komentar

Postingan populer dari blog ini

Pengertian PROCEDURE,FUNCTION, dan MODUL

A.     TUJUAN -        Memahami dan mengenal Procedure, Function dan Modul -        Dapat membuat aplikasi sederhana dengan menggunakan Procedure, Function dan Modul B.      PERANGKAT LUNAK (SOFTWARE) -        Microsoft Visual Basic 2008 C.     DASAR TEORI 1.       Procedure (Prosedur) Sejauh ini, anda telah menuliskan sub procedure yang dibuat secara otomatis pada saat menggunakan event . Sub procedure merupakan blok kode yang mempunyai nama dan berisi perintah yang dapat dipanggil suatu waktu. Artinya, hanya sekali dibuat yang kemudian di panggil berkali-kali sesuai dengan kebutuhan. Bentuk Umum : [Private|Public] Sub subname [(argumentlist)]       Statements End sub Sub Procedure dapat dipanggil dengan perintah : [call] subname [(argumentlist)] Ket...
Baca selengkapnya

Pengertian Exception Handling

A.     TUJUAN -        Memahami dan mengenal Exception Handling -        Dapat membuat aplikasi sederhana dengan menggunakan Exception Handling B.      PERANGKAT LUNAK (SOFTWARE) -        Microsoft Visual Basic 2008 C.     DASAR TEORI EXCEPTION HANDLING Perintah penanganan kesalahan atau yang lebih dikenal dengan sebutan Exception Handling Perintah ini digunakan untuk menangani kesalahan dalam menjalankan aplikasi, dengan adanya perintah ini setiap kesahan akan diatasi secara otamatis sesuai dengan perintah penanganan kesalahan yang telah dibuat, sehingga tidak terjadi kemacetan aplikasi yang sedang berjalan. Struktur Exception Handling Struktur Exception Handling atau penanganan kesalahan pada visual basic 2008 antara lain : Try … Catch … Finally … End Try Merupakan perintah penanganan kesalahan yang berfungsi untuk...
Baca selengkapnya

Cara membuat project mencari volume tabung dengan menggunakan Visual Basic

Gambar
1. Desain awal program 2. Atur Properties Masing-masing Objek sebagai berikut: NO. OBJEK PROPERTIES PENGATURAN 1 Form1 Text Project Volume Tabung BackColor ActiveCaption 2 Label1 Text Operasi Matematika Bold True FontSize 10 3 Label2 Text Radius : 4 Label3 Text Tinggi : 5 Label4 Text Hasil :    6 Textbox1 Name Txtradius 7 Textbox2 Name Txttinggi 8 Textbox3 Name Txthasil 9 Button1 Text Proses Name Btnproses 10 Button2 Text Bersih ...
Baca selengkapnya