"RUMUS TABEL SIMPLEKS"

RUMUS :

Private Sub DISS_Click()
If Int(X1A) < Int(X2A) Then
kk1 = X1A
KK2 = X1B
KK3 = X1C
KK4 = X1D
Label21.Caption = "CB"
VGANTI_BP = "CB"
Else
kk1 = X2A
KK2 = X2B
KK3 = X2C
KK4 = X2D
Label22.Caption = "PR"
VGANTI_BP = "PR"

End If
If KK2 = 0 Then
A = 0
Else
A = NK2 / KK2
If KK3 = 0 Then
B = 0
Else
B = NK3 / KK3
If KK4 = 0 Then
C = 0
Else
C = NK4 / KK4

End If
End If
End If

'blok yang kemungkinan dimulai'
'If a < b And b < c And a > c Then'
'tak mungkin'

If A < B And B < C And A < C Then
x = A
F = KK2
P = Z2 / F
Q = X1B / F
R = X2B / F
S = S1B / F
T = S2B / F
U = S3B / F
V = NK2 / F
Z1.Text = Z1 - (kk1 * P)
X1A.Text = X1A - (kk1 * Q)
X2A.Text = X2A - (kk1 * R)
S1A.Text = S1A - (kk1 * S)
S2A.Text = S2A - (kk1 * T)
S3A.Text = S3A - (kk1 * U)
NK1.Text = NK1 - (kk1 * V)
Z3.Text = Z1 - (KK3 * P)
X1C.Text = X1C - (KK3 * Q)
X2C.Text = X2C - (KK3 * R)
S1C.Text = S1C - (KK3 * S)
S2C.Text = S2C - (KK3 * T)
S3C.Text = S3C - (KK3 * U)
NK3.Text = NK3 - (KK3 * V)
Z4.Text = Z4 - (KK4 * P)
X1D.Text = X1D - (KK4 * Q)
X2D.Text = X2D - (KK4 * R)
S1D.Text = S1D - (KK4 * S)
S2D.Text = S2D - (KK4 * T)
S3D.Text = S3D - (KK4 * U)
NK4.Text = NK4 - (KK4 * V)
Z2.Text = P
X1B.Text = Q
X2B.Text = R
S1B.Text = S
S2B.Text = T
S3B.Text = U
NK2.Text = V
Label17.Caption = VGANTI_BP



'If a < b And b < c And a = c Then'
'tak mungkin'


ElseIf A < B And B > C And A > C Then
x = C
F = KK4
P = Z4 / F
Q = X1D / F
R = X2D / F
S = S1D / F
T = S2D / F
U = S3D / F
V = NK4 / F
Z1.Text = Z1 - (kk1 * P)
X1A.Text = X1A - (kk1 * Q)
X2A.Text = X2A - (kk1 * R)
S1A.Text = S1A - (kk1 * S)
S2A.Text = S2A - (kk1 * T)
S3A.Text = S3A - (kk1 * U)
NK1.Text = NK1 - (kk1 * V)
Z2.Text = Z2 - (KK2 * P)
X1B.Text = X1B - (KK2 * Q)
X2B.Text = X2B - (KK2 * R)
S1B.Text = S1B - (KK2 * S)
S2B.Text = S2B - (KK2 * T)
S3B.Text = S3B - (KK2 * U)
NK2.Text = NK2 - (KK2 * V)
Z3.Text = Z1 - (KK3 * P)
X1C.Text = X1C - (KK3 * Q)
X2C.Text = X2C - (KK3 * R)
S1C.Text = S1C - (KK3 * S)
S2C.Text = S2C - (KK3 * T)
S3C.Text = S3C - (KK3 * U)
NK3.Text = NK3 - (KK3 * V)
Z4.Text = P
X1D.Text = Q
X2D.Text = R
S1D.Text = S
S2D.Text = T
S3D.Text = U
NK4.Text = V
Label19.Caption = "CB"
ElseIf A < B And B > C And A < C Then
x = A
F = KK2
P = Z2 / F
Q = X1B / F
R = X2B / F
S = S1B / F
T = S2B / F
U = S3B / F
V = NK2 / F
Z1.Text = Z1 - (kk1 * P)
X1A.Text = X1A - (kk1 * Q)
X2A.Text = X2A - (kk1 * R)
S1A.Text = S1A - (kk1 * S)
S2A.Text = S2A - (kk1 * T)
S3A.Text = S3A - (kk1 * U)
NK1.Text = NK1 - (kk1 * V)
Z3.Text = Z1 - (KK3 * P)
X1C.Text = X1C - (KK3 * Q)
X2C.Text = X2C - (KK3 * R)
S1C.Text = S1C - (KK3 * S)
S2C.Text = S2C - (KK3 * T)
S3C.Text = S3C - (KK3 * U)
NK3.Text = NK3 - (KK3 * V)
Z4.Text = Z4 - (KK4 * P)
X1D.Text = X1D - (KK4 * Q)
X2D.Text = X2D - (KK4 * R)
S1D.Text = S1D - (KK4 * S)
S2D.Text = S2D - (KK4 * T)
S3D.Text = S3D - (KK4 * U)
NK4.Text = NK4 - (KK4 * V)
Z2.Text = P
X1B.Text = Q
X2B.Text = R
S1B.Text = S
S2B.Text = T
S3B.Text = U
NK2.Text = V
Label17.Caption = VGANTI_BP
'ElseIf a < B And B > c And a = c Then'
'tak mungkin'
'ElseIf a < b And b = c And a > c Then
'tak mungkin'
ElseIf A < B And B = C And A < C Then
x = A
F = KK2
P = Z2 / F
Q = X1B / F
R = X2B / F
S = S1B / F
T = S2B / F
U = S3B / F
V = NK2 / F
Z1.Text = Z1 - (kk1 * P)
X1A.Text = X1A - (kk1 * Q)
X2A.Text = X2A - (kk1 * R)
S1A.Text = S1A - (kk1 * S)
S2A.Text = S2A - (kk1 * T)
S3A.Text = S3A - (kk1 * U)
NK1.Text = NK1 - (kk1 * V)
Z3.Text = Z1 - (KK3 * P)
X1C.Text = X1C - (KK3 * Q)
X2C.Text = X2C - (KK3 * R)
S1C.Text = S1C - (KK3 * S)
S2C.Text = S2C - (KK3 * T)
S3C.Text = S3C - (KK3 * U)
NK3.Text = NK3 - (KK3 * V)

Z4.Text = Z4 - (KK4 * P)
X1D.Text = X1D - (KK4 * Q)
X2D.Text = X2D - (KK4 * R)
S1D.Text = S1D - (KK4 * S)
S2D.Text = S2D - (KK4 * T)
S3D.Text = S3D - (KK4 * U)
NK4.Text = NK4 - (KK4 * V)
Z2.Text = P
X1B.Text = Q
X2B.Text = R
S1B.Text = S
S2B.Text = T
S3B.Text = U
NK2.Text = V
Label17.Caption = VGANTI_BP

'ElseIf a < b And b = c And a = c Then
'tak mungkin'
ElseIf A > B And B < C And A > C Then
x = B
F = KK3
P = Z3 / F
Q = X1C / F
R = X2C / F
S = S1C / F
T = S2C / F
U = S3C / F
V = NK3 / F
Z1.Text = Z1 - (kk1 * P)
X1A.Text = X1A - (kk1 * Q)
X2A.Text = X2A - (kk1 * R)
S1A.Text = S1A - (kk1 * S)
S2A.Text = S2A - (kk1 * T)
S3A.Text = S3A - (kk1 * U)
NK1.Text = NK1 - (kk1 * V)
Z2.Text = Z2 - (KK2 * P)
X1B.Text = X1B - (KK2 * Q)
X2B.Text = X2B - (KK2 * R)
S1B.Text = S1B - (KK2 * S)
S2B.Text = S2B - (KK2 * T)
S3B.Text = S3B - (KK2 * U)
NK2.Text = NK2 - (KK2 * V)
Z4.Text = Z4 - (KK4 * P)
X1D.Text = X1D - (KK4 * Q)
X2D.Text = X2D - (KK4 * R)
S1D.Text = S1D - (KK4 * S)
S2D.Text = S2D - (KK4 * T)
S3D.Text = S3D - (KK4 * U)
NK4.Text = NK4 - (KK4 * V)
Z3.Text = P
X1C.Text = Q
X2C.Text = R
S1C.Text = S
S2C.Text = T
S3C.Text = U
NK3.Text = V
Label18.Caption = VGANTI_BP
ElseIf A > B And B < C And A < C Then
x = B
F = KK3
P = Z3 / F
Q = X1C / F
R = X2C / F
S = S1C / F
T = S2C / F
U = S3C / F
V = NK3 / F
Z1.Text = Z1 - (kk1 * P)
X1A.Text = X1A - (kk1 * Q)
X2A.Text = X2A - (kk1 * R)
S1A.Text = S1A - (kk1 * S)
S2A.Text = S2A - (kk1 * T)
S3A.Text = S3A - (kk1 * U)
NK1.Text = NK1 - (kk1 * V)
Z2.Text = Z2 - (KK2 * P)
X1B.Text = X1B - (KK2 * Q)
X2B.Text = X2B - (KK2 * R)
S1B.Text = S1B - (KK2 * S)
S2B.Text = S2B - (KK2 * T)
S3B.Text = S3B - (KK2 * U)
NK2.Text = NK2 - (KK2 * V)
Z4.Text = Z4 - (KK4 * P)
X1D.Text = X1D - (KK4 * Q)
X2D.Text = X2D - (KK4 * R)
S1D.Text = S1D - (KK4 * S)
S2D.Text = S2D - (KK4 * T)
S3D.Text = S3D - (KK4 * U)
NK4.Text = NK4 - (KK4 * V)
Z3.Text = P
X1C.Text = Q
X2C.Text = R
S1C.Text = S
S2C.Text = T
S3C.Text = U
NK3.Text = V
Label18.Caption = VGANTI_BP

ElseIf A > B And B < C And A = C Then
x = B
F = KK3
P = Z3 / F
Q = X1C / F
R = X2C / F
S = S1C / F
T = S2C / F
U = S3C / F
V = NK3 / F
Z1.Text = Z1 - (kk1 * P)
X1A.Text = X1A - (kk1 * Q)
X2A.Text = X2A - (kk1 * R)
S1A.Text = S1A - (kk1 * S)
S2A.Text = S2A - (kk1 * T)
S3A.Text = S3A - (kk1 * U)
NK1.Text = NK1 - (kk1 * V)
Z2.Text = Z2 - (KK2 * P)
X1B.Text = X1B - (KK2 * Q)
X2B.Text = X2B - (KK2 * R)
S1B.Text = S1B - (KK2 * S)
S2B.Text = S2B - (KK2 * T)
S3B.Text = S3B - (KK2 * U)
NK2.Text = NK2 - (KK2 * V)
Z4.Text = Z4 - (KK4 * P)
X1D.Text = X1D - (KK4 * Q)
X2D.Text = X2D - (KK4 * R)
S1D.Text = S1D - (KK4 * S)
S2D.Text = S2D - (KK4 * T)
S3D.Text = S3D - (KK4 * U)
NK4.Text = NK4 - (KK4 * V)
Z3.Text = P
X1C.Text = Q
X2C.Text = R
S1C.Text = S
S2C.Text = T
S3C.Text = U
NK3.Text = V
Label18.Caption = VGANTI_BP
ElseIf A > B And B > C And A > C Then
x = C
F = KK4
P = Z4 / F
Q = X1D / F
R = X2D / F
S = S1D / F
T = S2D / F
U = S3D / F
V = NK4 / F
Z1.Text = Z1 - (kk1 * P)
X1A.Text = X1A - (kk1 * Q)
X2A.Text = X2A - (kk1 * R)
S1A.Text = S1A - (kk1 * S)
S2A.Text = S2A - (kk1 * T)
S3A.Text = S3A - (kk1 * U)
NK1.Text = NK1 - (kk1 * V)
Z2.Text = Z2 - (KK2 * P)
X1B.Text = X1B - (KK2 * Q)
X2B.Text = X2B - (KK2 * R)
S1B.Text = S1B - (KK2 * S)
S2B.Text = S2B - (KK2 * T)
S3B.Text = S3B - (KK2 * U)
NK2.Text = NK2 - (KK2 * V)
Z3.Text = Z1 - (KK3 * P)
X1C.Text = X1C - (KK3 * Q)
X2C.Text = X2C - (KK3 * R)
S1C.Text = S1C - (KK3 * S)
S2C.Text = S2C - (KK3 * T)
S3C.Text = S3C - (KK3 * U)
NK3.Text = NK3 - (KK3 * V)
Z4.Text = P
X1D.Text = Q
X2D.Text = R
S1D.Text = S
S2D.Text = T
S3D.Text = U
NK4.Text = V
Label19.Caption = VGANTI_BP


'ElseIf a > b And b > c And a < c Then
'tak mungkin'
'/ElseIf a > b And b > c And a = c Then
'tak mungkin'
'ElseIf a > b And b = c And a > c Then
'tak mungkin'
'ElseIf a > b And b = c And a < c Then
'tak mungkin'
'ElseIf a > b And b = c And a = c Then
'tak mungkin'
'ElseIf a = b And b < c And a > c Then
'tak mungkin'
'ElseIf a = b And b < c And a < c Then
'tak mungkin'
'ElseIf a = b And b < c And a = c Then
'tak mungkin'
Else
If A = B And B > C And A > C Then
x = C
F = KK4
P = Z4 / F
Q = X1D / F
R = X2D / F
S = S1D / F
T = S2D / F
U = S3D / F
V = NK4 / F
Z1.Text = Z1 - (kk1 * P)
X1A.Text = X1A - (kk1 * Q)
X2A.Text = X2A - (kk1 * R)
S1A.Text = S1A - (kk1 * S)
S2A.Text = S2A - (kk1 * T)
S3A.Text = S3A - (kk1 * U)
NK1.Text = NKZ2.Text = Z2 - (KK2 * P)
X1B.Text = X1B - (KK2 * Q)
X2B.Text = X2B - (KK2 * R)
S1B.Text = S1B - (KK2 * S)
S2B.Text = S2B - (KK2 * T)
S3B.Text = S3B - (KK2 * U)
NK2.Text = NK2 - (KK2 * V)
Z3.Text = Z1 - (KK3 * P)
X1C.Text = X1C - (KK3 * Q)
X2C.Text = X2C - (KK3 * R)
S1C.Text = S1C - (KK3 * S)
S2C.Text = S2C - (KK3 * T)
S3C.Text = S3C - (KK3 * U)
NK3.Text = NK3 - (KK3 * V)
Z4.Text = P
X1D.Text = Q
X2D.Text = R
S1D.Text = S
S2D.Text = T
S3D.Text = U
NK4.Text = V
Label19.Caption = VGANTI_BP


'ElseIf a = b And b > c And a < c Then
'tak mungkin '
'ElseIf a = b And b > c And a = c Then
'tak mungkin'
'ElseIf a = b And b = c And a > c Then
'tak mungkin'
'ElseIf a = b And b = c And a < c Then
'tak mungkin'
'ElseIf a = b And b = c And a = c Then
'tak mungkin'
'end blok yang benar

If Label17.Caption = "CB" Then
Text8.Text = NK2
ElseIf Label18.Caption = "CB" Then
Text8.Text = NK3
ElseIf Label19.Caption = "CB" Then
Text8.Text = NK4
ElseIf Label17.Caption = "PR" Then
Text9.Text = NK2
ElseIf Label18.Caption = "PR" Then
Text9.Text = NK3
ElseIf Label19.Caption = "PR" Then
Text9.Text = NK4


End If
End If




End If




End Sub



Private Sub HSL_Click()
Z1.Text = 1
Z2.Text = 0
Z3.Text = 0
Z4.Text = 0
X1A.Text = (CB * -1)
X1B.Text = CB1
X1C.Text = CB2
X1D.Text = CB3
X2A.Text = (PR * -1)
X2B.Text = PR1
X2C.Text = PR2
X2D.Text = PR3
S1A.Text = 0
S1B.Text = 1
S1C.Text = 0
S1D.Text = 0
S2A.Text = 0
S2B.Text = 0
S2C.Text = 1
S2D.Text = 0
S3A.Text = 0
S3B.Text = 0
S3C.Text = 0
S3D.Text = 1
NK1.Text = 0
NK2.Text = TOTAL1
NK3.Text = TOTAL2
NK4.Text = TOTAL3


End Sub


Private Sub KELUAR_Click()
Unload Me
End Sub

Private Sub ULANG_Click()
CB.Text = ""
PR.Text = ""
CB1.Text = ""
CB2.Text = ""
CB3.Text = ""
PR1.Text = ""
PR2.Text = ""
PR3.Text = ""
TOTAL1.Text = ""
TOTAL2.Text = ""
TOTAL3.Text = ""

End Sub

"PROGRAM MENCARI FPB"

Langkah mencari FPB
• Masuklah ke program Microsoft Visual Basic, akan keluar tampilan New Project, pilih Standar EXE kemudian klik Open.
• Kemudian muncul tampilan Form1, dan ganti nama Form1 pada Caption menjadi “Mencari FPB”
• Dan untuk membuat User Interface klik dan drag-drop komponen label didalam ToolBox ke Form sebanyak 5kali dan kemudian ganti nama Captionnya Label1 dengan ANGKA, Label2 dengan HP, Label3 dengan I, Label 4 dengan II dan Label5 dengan ZaenurRohman=SIR200933. Lalu klik dan drag-drop TextBox sebanyak 5kali, dan kosongkan semua textnya kemudian beri nama pada text1 dengan ANGKA1, Text2 dengan ANGKA2, Text3 dengan HASIL1, Text4 dengan HASIL2 dan Text5 dengan FPB.
Untuk memodif tampilan kita masuk ke Categorized
• Kemudian klik dan drag CommandButton sebanyak 4kali. Ganti nama Caption Command1 dengan PROSES, Command2 dengan ULANG, Command3 dengan nama EXIT dan Command4 dengan nama FPB. Klik View Code untuk menampilkan Jendela Code kemudian masukan rumusnya :
Private Sub Command1_Click()
vbil = Val(angka1.Text)
vbil1 = Val(angka2.Text)
For i = 1 To vbil
If vbil Mod i = 0 Then
hasil1.Text = hasil1.Text + Str(i)
End If
Next i
For n = 1 To vbil1
If vbil1 Mod n = 0 Then
hasil2.Text = hasil2.Text + Str(n)
End If
Next n

End Sub
Private Sub Command2_Click()
angka1.Text = ""
angka2.Text = ""
hasil1.Text = ""
hasil2.Text = ""
fpb.Text = ""
angka1.SetFocus
End Sub

Private Sub Command3_Click()
End
End Sub

Private Sub Command4_Click()
Dim a, b, c, i, x As Integer
a = angka1.Text
b = angka2.Text
If Val(a) > Val(b) Then
x = a
ElseIf Val(b) > Val(a) Then
x = b
End If

For i = 1 To x
If a Mod i = 0 And b Mod i = 0 Then
c = i
End If
Next i
fpb.Text = c
End Sub

"PROGRAM MENCARI BILANGAN PRIMA"

Langkah mencari bilangan Prima:
• Masuklah ke program Microsoft Visual Basic, akan keluar tampilan New Project, pilih Standar EXE kemudian klik Open.
• Kemudian muncul tampilan Form1, dan ganti nama Form1 pada Caption menjadi “Mencari Bilangan Prima”
• Dan untuk membuat User Interface klik dan drag-drop komponen label didalam ToolBox ke Form sebanyak 3kali dan kemudian ganti nama Captionnya Label1 dengan ANGKA, Label2 dengan HASIL dan ganti nama Label3 dengan TXTHASIL kosongkan Captionnya. Lalu klik dan drag-drop TextBox sebanyak 1kali, dan kosongkan semua textnya kemudian beri nama pada text1 dengan TXTANGKA.
• Kemudian klik dan drag CommandButton sebanyak 3kali. Ganti nama Caption Command1 dengan PROSES, Command2 dengan ULANG dan Command3 dengan nama EXIT. Dan beri nama Command1 dengan CMDPROSES, Command2 dengan CMDULANG dan Command3 dengan CMDEXIT.
• Klik View Code untuk menampilkan Jendela Code kemudian masukan rumusnya :
Private Sub CMDPROSES_Click()
If Val(TXTANGKA.Text) = 1 Then
TXTHASIL.Caption = "Bukan Prima"
ElseIf Val(TXTANGKA.Text) = 2 Then
TXTHASIL.Caption = "Prima"
Else
For i = 2 To Val(TXTANGKA.Text) - 1
If Val(TXTANGKA.Text) Mod i = 0 Then
TXTHASIL.Caption = "Bukan Prima"
Exit For
Else
TXTHASIL.Caption = "Prima"
End If
Next
End If
CMDULANG.Enabled = True
CMDPROSES.Enabled = False
End Sub

Private Sub CMDULANG_Click()
TXTANGKA.Text = ""
TXTHASIL.Caption = ""
TXTANGKA.SetFocus
CMDPROSES.Enabled = True
CMDULANG.Enabled = False
End Sub

Private Sub CMDEXIT_Click()
End
End Sub

"PROGRAM MENCARI LUAS PERSEGI PANJANG"

Langkah mencari Luas Persegi Panjang :
• Masuklah ke program Microsoft Visual Basic, akan keluar tampilan New Project, pilih Standar EXE kemudian klik Open.
• Kemudian muncul tampilan Form1, dan ganti nama Form1 pada Caption menjadi “Mencari Luas Persegi Panjang”
• Dan untuk membuat User Interface klik dan drag-drop komponen label didalam ToolBox ke Form sebanyak 3kali dan kemudian ganti nama Captionnya Label1 dengan PANJANG, Label2 dengan LEBAR dan Caption3 dengan nama LUAS. Lalu klik dan drag-drop TextBox sebanyak 3kali, dan kosongkan semua textnya kemudian beri nama pada text1 dengan TXTPANJANG, Text2 dengan TXTLEBAR dan Text3 dengan nama TXTHASIL.
• Kemudian klik dan drag CommandButton sebanyak 3kali. Ganti nama Caption Command1 dengan PROSES, Command2 dengan ULANG dan Command3 dengan nama EXIT. Dan beri nama Command1 dengan CMDPROSES, Command2 dengan CMDULANG dan Command3 dengan CMDEXIT.
• Klik View Code untuk menampilkan Jendela Code kemudian masukan rumusnya :
Private Sub CMDPROSES_Click()
TXTHASIL.Text = TXTPANJANG.Text * TXTLEBAR.Text
CMDULANG.Enabled = True
CMDPROSES.Enabled = False
End Sub

Private Sub CMDULANG_Click()
TXTPANJANG.Text = ""
TXTLEBAR.Text = ""
TXTHASIL.Text = ""
TXTPANJANG.SetFocus
CMDPROSES.Enabled = True
CMDULANG.Enabled = False
End Sub

Private Sub CMDEXIT_Click()
End
End Sub

"PROGRAM MENCARI BILANGAN FAKTORIAL"

Langkah mencari faktorial :
• Masuklah ke program Microsoft Visual Basic, akan keluar tampilan New Project, pilih Standar EXE kemudian klik Open.
• Kemudian muncul tampilan Form1, dan ganti nama Form1 pada Caption menjadi “Mencari Bilangan Faktorial”
• Dan untuk membuat User Interface klik dan drag-drop komponen label didalam ToolBox ke Form sebanyak 2kali dan kemudian ganti nama Captionnya Label1 dengan ANGKA, Label2 dengan HASIL. Lalu klik dan drag-drop TextBox sebanyak 2kali, dan kosongkan semua textnya kemudian beri nama pada text1 dengan TXTANGKA dan Text2 dengan TXTHASIL.
• Kemudian klik dan drag CommandButton sebanyak 3kali. Ganti nama Caption Command1 dengan PROSES, Command2 dengan ULANG dan Command3 dengan nama EXIT. Dan beri nama Command1 dengan CmdProses, Command2 dengan CmdUlang dan Command3 dengan CmdExit.
• Klik View Code untuk menampilkan Jendela Code kemudian masukan rumusnya :
Private Sub cmdproses_Click()
bil = 1
For i = 1 To TXTANGKA.Text
bil = bil * i
Next
TXTHASIL.Text = Str(bil)
CMDULANG.Enabled = True
CMDPROSES.Enabled = False
End Sub

Private Sub CMDULANG_Click()
TXTANGKA.Text = ""
TXTHASIL.Text = ""
TXTANGKA.SetFocus
CMDULANG.Enabled = False
CMDPROSES.Enabled = True
End Sub

Private Sub CMDEXIT_Click()
End
End Sub

"PROGRAM MENCARI BILANGAN GENAP & GANJIL"

Langkah mencari bilangan genap atau ganjil:
• Masuklah ke program Microsoft Visual Basic, akan keluar tampilan New Project, pilih Standar EXE kemudian klik Open.
• Kemudian muncul tampilan Form1, dan ganti nama Form1 pada Caption menjadi “Mencari Bilangan Genap atau Ganjil”
• Dan untuk membuat User Interface klik dan drag-drop komponen label didalam ToolBox ke Form sebanyak 3kali dan kemudian ganti nama Captionnya Label1 dengan ANGKA, Label2 dengan HASIL, dan Label3 diganti namanya menjadi HASIL. Lalu klik dan drag-drop TextBox sebanyak 1kali, dan kosongkan semua textnya kemudian beri nama pada text1 dengan Txt_angka.
• Kemudian klik dan drag CommandButton sebanyak 3kali. Ganti nama Caption Command1 dengan PROSES, Command2 dengan ULANG dan Command3 dengan nama EXIT. Dan beri nama Command1 dengan Cmd_Proses, Command2 dengan Cmd_Ulang dan Command3 dengan Cmd_Exit.


• Klik View Code untuk menampilkan Jendela Code kemudian masukan rumusnya :
Private Sub cmd_proses_Click()
If Val(txt_angka.Text) Mod 2 = 0 Then
hasil.Caption = "genap"
Else
hasil.Caption = "ganjil"
End If
cmd_ulang.Enabled = True
cmd_proses.Enabled = False
End Sub

Private Sub cmd_ulang_Click()
txt_angka.Text = ""
hasil.Caption = ""
txt_angka.SetFocus
cmd_proses.Enabled = True
cmd_ulang.Enabled = False
End Sub

Private Sub cmd_exit_Click()
End
End Sub

"PROGRAM MENCARI LUAS BUJUR SANGKAR"

Langkah mencari Luas Bujur Sangkar:
• Masuklah ke program Microsoft Visual Basic, akan keluar tampilan New Project, pilih Standar EXE kemudian klik Open.
• Kemudian muncul tampilan Form1, dan ganti nama Form1 pada Caption menjadi “Mencari Luas Bujur Sangkar”
• Dan untuk membuat User Interface klik dan drag-drop komponen label didalam ToolBox ke Form sebanyak 3kali dan kemudian ganti nama Captionnya Label1 dengan Sisi1, Label2 dengan Sisi2, dan Label3 dengan Luas. Lalu klik dan drag-drop TextBox sebanyak 3kali, dan kosongkan semua textnya kemudian beri nama pada text1 dengan Txt_sisi1, text2 dengan Txt_sisi2 dan text3 dengan Txt_luas.
• Kemudian klik dan drag CommandButton sebanyak 2kali. Ganti nama Caption Command1 dengan ULANG dan Command2 dengan HITUNG. Dan beri nama Command1 dengan Cmd_Ulang dan Command2 dengan Cmd_Hitung.
• Klik View Code untuk menampilkan Jendela Code kemudian masukan rumusnya :
Private Sub Cmd_Hitung_Click()
Txt_luas.Text = Val(Txt_sisi1.Text) * Val(Txt_sisi2.Text)
End Sub

Private Sub Cmd_Ulang_Click()
Txt_sisi1.Text = ""
Txt_sisi2.Text = ""
Txt_luas.Text = ""
Txt_sisi1.SetFocus
End Sub