membuat calculator

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