20 Juni 2009

Membuat Kalkulator Dengan VB

saat ini saya ingi membagi sedikit tulisan tentang bagaimana membuat suatu program aplikasi dengan VB. yang saya post kan ini adalah bagai mana membuat program kalkulator



Berikut aturan dari Properties nya

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





dan ini listingnya 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


sekian dulu dari saya semoga bermanfaat yach !!!

0 comments :

Posting Komentar

RELATED POST :