PROGRAM MENCARI LUAS PERSEGI PANJANG

Private Sub Command1_Click()
txthasil.Text = txtpanjang.Text * txtlebar.Text
Command2.Enabled = True
Command1.Enabled = False
End Sub

Private Sub Command2_Click()
txtpanjang.Text = ""
txtlebar.Text = ""
txthasil.Text = ""
txtpanjang.SetFocus
Command1.Enabled = True
Command2.Enabled = False
End Sub

Private Sub Command3_Click()
End
End Sub

Private Sub txtlebar_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
Command1.SetFocus
End If

End Sub

Private Sub txtpanjang_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
txtlebar.SetFocus
End If
End Sub

Bilangan genap ganjil

Private Sub cmdkeluar_Click()
End
End Sub

Private Sub cmdproses_Click()
If Val(Text1.Text) Mod 2 = 0 Then
Label1.Caption = "GENAP"
Else
Label1.Caption = "GANJIL"
End If
cmdulang.Enabled = True
cmdproses.Enabled = False
End Sub

Private Sub cmdulang_Click()
Text1.Text = ""
Label1.Caption = ""
cmdproses.Enabled = True
cmdulang.Enabled = False
Text1.SetFocus
End Sub

Private Sub Text1_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
cmdproses.SetFocus
End If
End Sub

MENCARI BILANGAN FACTORIAL

Private Sub Command1_Click()
tangka.Text = ""
thasil.Text = ""
tangka.SetFocus
End Sub

Private Sub Command2_Click()
End
End Sub

Private Sub Command3_Click()
vbil = Val(tangka.Text)
vproses = 1
For i = 1 To vbil
vproses = i * vproses
Next i

thasil.Text = vproses

End Sub

Private Sub tangka_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
Command3.SetFocus
End If
End Sub

MENENTUKAN BILANGAN PRIMA

Private Sub Command1_Click()
For i = 2 To Text1.Text - 1
If Text1.Text Mod i = 0 Then
Text2.Text = "BUKAN BILANGAN PRIMA"
Exit For
Else
Text2.Text = "BILANGAN PRIMA"
End If
Next i

If Text1.Text = "" Then
End If

Command1.Enabled = False
Command2.Enabled = True
Command2.SetFocus
End Sub

Private Sub Command2_Click()
Text1.Text = ""
Text2.Text = ""
Text1.SetFocus
Command2.Enabled = False
Command1.Enabled = True
End Sub

Private Sub Command3_Click()
End
End Sub

Private Sub Text1_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
Command1.SetFocus
End If
End Sub