Contoh Program menggunakan If dan Select Case

Pertama-tama yang kita buat adalah menu untuk menuju program yang menggunakan If maupun Select Case yang ditunjukan seperti gambar di bawah ini :

berikut isi logika yang tertera didalam form tersebut :

Private Sub Command1_Click()
Form3.Show
Unload Me
End Sub
Private Sub Command2_Click()
Form1.Show
Unload Me
End Sub



Setelah kita membuat daftar menunya, maka sekarang kita akan lanjutkan dengan membuat form yang menggunakan logika If...Else, yang digambarkan sebagai berikut :
berikut isi logika yang tertera didalam form tersebut :
Option Explicit
Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long
Private Const SW_MAXIMIZE = 3
Private Const SW_MINIMIZE = 6
Private Const SW_NORMAL = 1

Private Sub CmdProses_Click()
If TxtNilaiAngka.Text = "" Then MsgBox "Tidak angka yang dimasukan ", vbExclamation + vbOKOnly, "Perhatian"
Else If TxtNilaiAngka.Text >= 80 Then
LblNilaiHuruf.Caption = "A"
ElseIf TxtNilaiAngka.Text >= 60 And TxtNilaiAngka.Text <= 79 Then
LblNilaiHuruf.Caption = "B"
ElseIf TxtNilaiAngka.Text >= 40 And TxtNilaiAngka.Text <= 59 Then
LblNilaiHuruf.Caption = "C"
ElseIf TxtNilaiAngka.Text >= 20 And TxtNilaiAngka.Text <= 39 Then
LblNilaiHuruf.Caption = "D"
ElseIf TxtNilaiAngka.Text <>
LblNilaiHuruf.Caption = "E"
End If
End If
End Sub

Private Sub Label3_Click()
Dim strURL As String strURL = "http://www.adiguna106.co.cc"
ShellExecute 0, "open", strURL, vbNullString, vbNullString, SW_MAXIMIZE End Sub

Setelah kita membuat form If...Else maka kita lanjutkan dengan membuat form yang menggunakan logika select Case yang digambarkan sebagai berikut :
berikut isi logika yang tertera didalam form tersebut :

Option Explicit
Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long
Private Const SW_MAXIMIZE = 3
Private Const SW_MINIMIZE = 6
Private Const SW_NORMAL = 1

Private Sub CmdProses_Click()
Select Case Val(TxtNilaiAngka.Text)
Case Is >= 80
LblNilaiHuruf.Caption = "A"
Case Is >= 60
LblNilaiHuruf.Caption = "B"
Case Is >= 40
LblNilaiHuruf.Caption = "C"
Case Is >= 20
LblNilaiHuruf.Caption = "D"
Case Is <>
LblNilaiHuruf.Caption = "E"
End Select
End Sub

Private Sub Label3_Click()
Dim strURL As String
strURL = "http://www.adiguna106.co.cc"
ShellExecute 0, "open", strURL, vbNullString, vbNullString, SW_MAXIMIZE
End Sub

Setelah kita membuat ketiga form tersebut beserta logikanya silahkan run(jalankan) program tersebut, apabila terjadi error periksalah source codenya.