Private Sub Command1_Click()
Dim Radius
Radius = InputBox("Type In The Radius", "Radius")
Dim Area
Area = 3.14 * (Radius * Radius)
MsgBox Area, vbDefaultButton1, "Answer"
Dim Answer End Sub
PESAN BARIS
Private Sub Form_Click()
MsgBox "Baris Pertama " & Chr(13) & _
"Baris Kedua " & Chr(13) & _
"Baris Ketiga " & vbCrLf & _
"Baris Keempat " & vbCrLf & _
"Baris Kelima"
End Sub
MENU BERJALAN
Dim Bergerak As Integer
Dim Teks As String
Private Sub Form_Load()
Teks = Me.Caption
End Sub
Private Sub Timer1_Timer()
Me.Caption = Bergerak
Teks = Right(Teks, Len(Teks) - 1) & Left(Teks, 1)
Me.Caption = Teks
End Sub
TEKS BERKEDIP
Private Sub Form_Load()
Me.Width = 10
End Sub
Private Sub Timer1_Timer()
Me.Width = Me.Width + 100
Tengah
If Me.Width >= 4000 Then
Timer1.Enabled = False
Tengah
End If
End Sub
Public Sub Tengah()
Me.Left = (Screen.Width - Me.Width) / 2
Me.Top = (Screen.Height - Me.Height) / 2
End Sub
Private Sub Timer1_Timer()
If Label1.Visible = True Then
Label1.Visible = False
Label2.Visible = True
ElseIf Label1.Visible = False Then
Label1.Visible = True
Label2.Visible = False
End If
End Sub
INI BARU KODE KALKULATOR
'deklarasi variabel penampung nilaiDim nilai1, nilai2 As IntegerDim hasil As Double'deklarasi variabel untuk flag'(penanda nilai pertama atau kedua)Dim pertama As Boolean'jenis operasiDim operasi As Integer
Private Sub cmdbagi_click()
'jika nilai pertama
If pertama = True Then
'mengubah ke posisi nilai kedua
pertama = False
'operasi pembagianoperasi = 4
'mengambil nilai pertama
'pada layar text
boxnilai1 = Val(txtlayar.Text)
'mengosongi layar textbox
txtlayar.Text = ""
End IfEnd Sub
Private Sub cmddelapan_click()
'menampilkan nilai yang dimaksud pada layar
txtlayar.Text = Trim(txtlayar.Text) & "8"
End Sub
Private Sub cmddua_click()
'menampilkan nilai yang dimaksud pada layar
txtlayar.Text = Trim(txtlayar.Text) & "2"
End Sub Private Sub cmdempat_click()
'menampilkan nilai yang dimaksud pada layar
txtlayar.Text = Trim(txtlayar.Text) & "4"
End Sub
Private Sub cmdenam_click()
'menampilkan nilai yang dimaksudkan pada layar
txtlayar.Text = Trim(txtlayar.Text) & "6"
End Sub
Private Sub cmdhasil_click()
'jika bukan nilai pertama
'atau yang dimaksudkan adalah nilai kedua
If pertama = False Then
'mengambil nilai kedua dari layar
nilai2 = Val(txtlayar.Text)
'memilih operasi yang dilakukan
'berdasarkan pilihan operasi dari user
Select Case operasi
'operasi penjumlahan
Case 1
hasil = nilai1 + nilai2
'operasi pengurangan
Case 2
hasil = nilai1 - nilai2
'operasi pekalian
Case 3
hasil = nilai1 * nilai2
'operasi pembagian
Case 4 hasil = nilai1 / nilai2
End Select
'menampilkan hasil operasi ke layar
txtlayar.Text = hasil
End If
End Sub
Private Sub cmdkali_click()
'jika nilai pertama
If pertama = True Then
'mengubah ke posisi nilai kedua
pertama = False
'operasi perkalian
operasi = 3
'mengambil nilai pertama
'pada layar text box
nilai = Val(txtlayar.Text)
'mengosongkan layar textbox
txtlayar.Text = ""
End If
End Sub
Private Sub cmdkosong_click()
'mengembalikan ke posisi pertama
pertama = True
'mereset nilai penampung hasil operasi
hasil = 0
'mengosongkan nilai text box
txtlayar.Text = ""
End Sub
Private Sub cmdkurang_click()
'jika nila pertama
If pertama = True Then
'mengubah ke posisi nilai kedua
pertama = False
'operasi pengurangan
operasi = 2
'mengambil nilai pertama
'pada layar text box
nilai1 = Val(txtlayar.Text)
'mengosongkan layar textbox
'pertama layar textbox
nilai1 = Val(txtlayar.Text)
'mengosongi layar textbox
txtlayar.Text = ""
End If
End Sub
Private Sub cmdlima_click()
'menampilkan nilai yang dimakudkan pada layar
txtlayar.Text = Trim(txtlayar.Text) & "5"
End Sub
Private Sub cmdnol_click()
'menampilkan nilai yang dimaksudkan pada layar
txtlayar.Text = Trim(txtlayar.Text) & "0"
End Sub
Private Sub cmdsatu_click()
'menampilkan nilai yang dimaksudkan pada layar
txtlayar.Text = Trim(txtlayar.Text) & "1"
End Sub
Private Sub cmdsembilan_click()
'menampilkan nilai yang dimaksudkan pada layar
txtlayar.Text = Trim(txtlayar.Text) & "9"
End Sub
Private Sub cmdtambah_click()
'jika nilai pertama
If pertama = True Then
'mengubah ke posisi nilai kedua
pertama = False
'operasi penjumlahan
operasi = 1
'mengambil nilai pertama
'pada layar textbox
nilai1 = Val(txtlayar.Text)
'mengosongkan layar textbox
txtlayar.Text = ""
End If
End Sub
Private Sub cmdtiga_click()
'menampilkan nilai yang dimaksudkan pada layar
txtlayar.Text = Trim(txtlayar.Text) & "3"
End Sub
Private Sub cmdtujuh_click()
'menampilkan nilai yang dimaksudkan pada layar
txtlayar.Text = Trim(txtlayar.Text) & "7"
End Sub Private Sub form_load()
'memberi nilai awal var penampung
nilai1 = 0
nilai2 = 0
nilai3 = 0
'mengosongi layar textbox
txtlayar.Text = ""
'tidak ada operasi yang dipilih
operasi = 0
'mengubah ke posisi nilai pertama
pertama = True
End Sub