program kalkulator dengan vb

buat temen2 yang mau bwt kalkulator denegn program vb,, gampang bgt cekemprit,,,,

keterangan yang kudu di tulis di name propertis

1. layar text box nya   = Text1
2. On                         = cmdhapus
3. C                           = cmdhapus
4. Off                         = cmdkeluar
5. angka 0 - 9             = cmdangka
6. tanda titik ( . )         = cmdangka
7. tanda tambah ( + )  = cmdoperator
8. tanda kurang ( - )   = cmdoperator
9. tanda kali ( * )       = cmdoperator
10. tanda bagi ( / )     = cmdoperator
11.tanda sama dengan ( = ) = cmd hitung

nihh koding nye

Dim angka(1 To 2) As Single

Dim operator As String

_________________________________

Private Sub cmdangka_Click(Index As Integer)

Text1.Text = Text1.Text & cmdangka(Index).Caption

End Sub

_________________________________

Private Sub cmdhapus_Click(Index As Integer)

Text1.Text = ""

End Sub

_________________________________

Private Sub cmdhitung_Click()

Dim hasil As Single

If Text1.Text = "" Then Exit Sub

angka(2) = CSng(Text1.Text)

Select Case operator

Case "+"

hasil = angka(1) + angka(2)

Case "-"

hasil = angka(1) - angka(2)

Case "*"

hasil = angka(1) * angka(2)

Case "/"

hasil = angka(1) / angka(2)

End Select

Text1.Text = hasil

End Sub

_________________________________

Private Sub cmdkeluar_Click()

Unload Me

End Sub

_________________________________

Private Sub cmdoperator_Click(Index As Integer)

If Text1.Text = "" Then Exit Sub

angka(1) = CSng(Text1.Text)

operator = cmdoperator(Index).Caption

Text1.Text = ""

End Sub

_________________________________

Private Sub Text1_Change()

End Sub

muga2 bermanfaat ye,,,

validasi vb hanya input huruf

Public Sub CharacterValid(KeyAscii As Integer)

Const Character = "AaBbCcDdEeFfGgHhIiJjKkLlMmNnOoPpQqRrSsTtUuVvWwXxYyZz <spasi>"

If KeyAscii <> 8 And KeyAscii <> 13 Then

   If InStr(Character, Chr(KeyAscii)) = 0 Then

      KeyAscii = 0

      Exit Sub

   End If

End If

End Sub

validasi vb hanya input angka dan huruf

Public Sub AlphaNumericValid(KeyAscii As Integer)

Const Character = "0123456789AaBbCcDdEeFfGgHhIiJjKkLlMmNnOoPpQqRrSsTtUuVvWwXxYyZz "

If KeyAscii <> 8 And KeyAscii <> 13 Then

   If InStr(Character, Chr(KeyAscii)) = 0 Then

      KeyAscii = 0

      Exit Sub

   End If

End If

End Sub

validasi vb hanya input angka

Public Sub NumberValid(KeyAscii As Integer)

Const Number = "0123456789"

If KeyAscii <> 8 And KeyAscii <> 13 Then

   If InStr(Number, Chr(KeyAscii)) = 0 Then

      KeyAscii = 0

      Exit Sub

   End If

End If

End Sub

program visual basic penghitungan nilai

Nieahc,, liat dulu tampilanye ye,,

 

koding ini dengan penghitungan nilai akhir di ambil dari 30% nilai UTS, 30% nilai TUGAS dan 40% nilai UAS  lalu di jumlahkan,,, nich koding nya,,,

Private Sub INPUT_Click()

'untuk memberi niali kosong'

XNIM.Text = ""

XNAMA.Text = ""

XUTS.Text = ""

XTUGAS.Text = ""

XUAS.Text = ""

XAKHIR.Text = ""

'untuk mengaktifkan objec inputan'

XNIM.Enabled = True

XNAMA.Enabled = True

XUTS.Enabled = True

XTUGAS.Enabled = True

XUAS.Enabled = True

XAKHIR.Enabled = True

XAKTIVITAS.Caption = "INPUT DATA"

INPUT.Enabled = False

HITUNG.Enabled = True

KELUAR.Enabled = True

End Sub

 

Private Sub KELUAR_Click()

End

End Sub                                                                

 

Private Sub HITUNG_Click()

XAKTIVITAS.Caption = "HITUNG DATA"

XAKHIR.Text = 0.3 * Val(XTUGAS.Text) + 0.3 * Val(XUTS.Text) + 0.4 * Val(XUAS.Text)

End Sub

 

Private Sub Form_Load()

'untuk menonaktifkan objec di awal'

XNIM.Enabled = False

XNAMA.Enabled = False

XUTS.Enabled = False

XTUGAS.Enabled = False

XUAS.Enabled = False

XAKHIR.Enabled = False

XAKTIVITAS.Caption = ""

INPUT.Enabled = True

HITUNG.Enabled = False

KELUAR.Enabled = False

End Sub

 

Private Sub XAKHIR_Change()

XAKHIR.Text = 0.3 * Val(XTUGAS.Text) + 0.3 * Val(XUTS.Text) + 0.4 * Val(XUAS.Text)

End Sub

 

Private Sub XUAS_LostFocus()

XAKHIR.Text = 0.3 * Val(XTUGAS.Text) + 0.3 * Val(XUTS.Text) + 0.4 * Val(XUAS.Text)

End Sub

program visual basic pembayaran pdam

Liat dulu nihh tampilannya,,,

 nihhh baru koding nya,,,

 

Private Sub Form_Load()

xNO.Enabled = False

xMETERLALU.Enabled = False

xMETERSEKARANG.Enabled = False

xPAKAI.Enabled = False

xBAYAR.Enabled = False

End Sub

 

Private Sub INPUT_Click()

xNO.Enabled = True

xMETERLALU.Enabled = True

xMETERSEKARANG.Enabled = True

xPAKAI.Enabled = True

xBAYAR.Enabled = True

xNO.Text = ""

xMETERLALU.Text = ""

xMETERSEKARANG.Text = ""

xNO.SetFocus

xNO.BackColor = vbWhite

xMETERLALU.BackColor = vbWhite

xMETERSEKARANG.BackColor = vbWhite

xPAKAI.BackColor = vbWhite

xBAYAR.BackColor = vbWhite

End Sub

Private Sub xMETERSEKARANG_LostFocus()

xPAKAI.Text = Val(xMETERSEKARANG.Text) - Val(xMETERLALU.Text)

End Sub

 

Private Sub xPAKAI_LostFocus()

If Val(xPAKAI.Text) <= 10 Then

tarif1 = 5000 * Val(xPAKAI.Text)

tarif2 = 0

tarif3 = 0

End If

If (Val(xPAKAI.Text) > 10) And (Val(xPAKAI.Text) <= 20) Then

tarif1 = 5000 * Val(10)

tarif2 = 10000 * (Val(xPAKAI.Text) - 10)

tarif3 = 0

End If

If Val(xPAKAI.Text) > 20 Then

tarif1 = 5000 * Val(10)

tarif2 = 10000 * Val(10)

tarif3 = 15000 * (Val(xPAKAI.Text) - 20)

End If

xBAYAR.Text = tarif1 + tarif2 + tarif3

End Sub

 

Private Sub KELUAR_Click()

End

End Sub