Tutorial VB 6.0 dan Photoshop Sederhana

Membuat Kalkulator Sederhana dengan Visual basic 6.0

Sumber: Bina Sarana Informatika



Properties

Label1 : Caption = KALKULATOR
Name = LBLKALKULATOR
Label2 : Caption = NILAI PERTAMA
Label3 : Caption = NILAI KEDUA
Label4 : Caption = HASIL
Label5 : Caption = Tanggal Sekarang
Label6 : Caption = Jam Sekarang
Textbox1 : Name = TXTPERTAMA
Text = Tulisan Text1 dihapus
Textbox2 : Name = TXTKEDUA
Text = Tulisan Text1 dihapus

Textbox3 : Name = TXTHASIL
Text = Tulisan Text1 dihapus
CommandButton1 : Name = CMDTAMBAH
Caption = +
CommandButton2 : Name = CMDKURANG
Caption = -
CommandButton3 : Name = CMDKALI
Caption =*
CommandButton4 : Name = CMDBAGI
Caption =/
CommandButton5 : Name = CMDPANGKAT
Caption = ^
CommandButton6 : Name = CMDTEBAL
Caption = &TEBAL
CommandButton7 : Name = CMDMIRING
Caption =&MIRING
CommandButton8 : Name = CMDGARISBAWAH
Caption = &GARIS BAWAH
CommandButton9 : Name = CMDBIRU
Caption = &BIRU
CommandButton10 : Name = CMDKUNING
Caption = K&UNING
CommandButton11 : Name = CMDKELUAR
Caption = &KELUAR
Timer1 : Interval=100





Listing Program

Private Sub CMDBAGI_Click()
TXTHASIL.Text = Val(TXTPERTAMA.Text) / Val(TXTKEDUA.Text)
End Sub

Private Sub CMDBIRU_Click()
LBLKALKULATOR.ForeColor = vbBlue
End Sub

Private Sub CMDGARISBAWAH_Click()
LBLKALKULATOR.FontUnderline = True
End Sub

Private Sub CMDKALI_Click()
TXTHASIL.Text = Val(TXTPERTAMA.Text) * Val(TXTKEDUA.Text)
End Sub

Private Sub CMDKELUAR_Click()
End
End Sub

Private Sub CMDKUNING_Click()
LBLKALKULATOR.ForeColor = vbYellow
End Sub

Private Sub CMDKURANG_Click()
TXTHASIL.Text = Val(TXTPERTAMA.Text) - Val(TXTKEDUA.Text)
End Sub

Private Sub CMDMIRING_Click()
LBLKALKULATOR.FontItalic = True
End Sub

Private Sub CMDNORMAL_Click()
LBLKALKULATOR.ForeColor = vbBlack
LBLKALKULATOR.FontBold = False
LBLKALKULATOR.FontItalic = False
LBLKALKULATOR.FontUnderline = False
End Sub

Private Sub CMDPANGKAT_Click()
TXTHASIL.Text = Val(TXTPERTAMA.Text) ^ Val(TXTKEDUA.Text)
End Sub

Private Sub CMDTAMBAH_Click()
TXTHASIL.Text = Val(TXTPERTAMA.Text) + Val(TXTKEDUA.Text)
End Sub

Private Sub CMDTEBAL_Click()
LBLKALKULATOR.FontBold = True
End Sub

Private Sub Timer1_Timer()
Ltanggal.Caption = Format(Now, "dd-mm-yyyy")
Ljam.Caption = Format(Now, "hh:mm:ss Am/Pm")
End Sub