Syntak;
Private Sub cmdbagi_Click()
Dim bil1 As Single
Dim bil2 As Single
Dim hasil As Double
bil1 = txtbil1.Text
bil2 = txtbil2.Text
hasil = bil1 / bil2
txthasil.Text = hasil
End Sub
|
Private Sub cmdkali_Click()
Dim bil1 As Single
Dim bil2 As Single
Dim hasil As Double
bil1 = txtbil1.Text
bil2 = txtbil2.Text
hasil = bil1 * bil2
txthasil.Text = hasil
End Sub
|
Private Sub cmdkurang_Click()
Dim bil1 As Integer
Dim bil2 As Integer
Dim hasil As Long
bil1 = txtbil1.Text
bil2 = txtbil2.Text
hasil = bil1 - bil2
txthasil.Text = hasil
End Sub
|
Private Sub cmdselesai_Click()
txtbil1.Text = ""
txtbil2.Text = ""
txthasil.Text = ""
txtbil1.SetFocus
End Sub
|
Private Sub cmdtambah_Click()
Dim bil1 As Integer
Dim bil2 As Integer
Dim hasil As Long
bil1 = Val(txtbil1.Text)
bil2 = vil(txtbil2.Text)
hasil = bil1 + bil2
txthasil.Text = hasil
End Sub
|
Syntak;
Private Sub Command1_Click()
Dim nama As String
Dim gol As String
Dim gaji As Currency
nama = Text1.Text
gol = Text2.Text
Select Case gol
Case "a", "A"
gaji = 100000
Case "b", "B"
gaji = 200000
Case "c", "C"
gaji = 300000
Case "d", "D"
gaji = 400000
Case Else
X = MsgBox("golongan tidak ada", vbOKOnly, "error
massage")
Text2.Text = ""
Text2.SetFocus
End Select
Text3.Text = gaji
End Sub
|
Private Sub Command2_Click()
Text1.Text = ""
Text2.Text = ""
Text3.Text = ""
Text1.SetFocus
End Sub
|
Private Sub Command3_Click()
Unload Me
End Sub
Private Sub Form_Activate()
Text1.SetFocus
End Sub
|
Syntak;
Private Sub Command1_Click()
Dim bil, angka As Integer
Dim hasil As Long
bil = Combo1.Text
hasil = 1
angka = 1
Do While angka <= bil
hasil = hasil * angka
angka = angka + 1
Loop
Text1.Text = hasil
End Sub
|
Private Sub Command2_Click()
Combo1.Text = ""
Text1.Text = ""
End Sub
Private Sub Command3_Click()
End
End Sub
|
Private Sub Form_Activate()
Dim i As Byte
Combo1.Text = ""
For i = 1 To 10
Combo1.AddItem i
Next i
End Sub
|