Month: November 2015

APLIKASI PERHITUNGAN GAJI

Posted on by riskisafitrastmikpringsewu

RISKI3

3.2

Private Sub cmdhitung_Click()

txtgp = Val(txtgp) + (txttj) + (txtpt)

txtpjk = Val(txtgk) * 0.1

txtgd = Val(txtgk) – Val(txtpjk)

 

End Sub

 

Private Sub cmdulang_Click()

txtgp.SetFocus

txtgp = “”

txttj = “”

txtpot = “”

txtgk = “”

txtpjk = “”

txtgd = “”

 

End Sub

 

Private Sub cmdkeluar_Click()

End

 

End Sub

 

Private Sub txtgd_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

End If

 

End Sub

 

APLIKASI PERHITUNGAN HARGA

Posted on by riskisafitrastmikpringsewu

RISKI3

3.1

Private Sub cmdhitung_Click()

txtgk = Val(txtgp) + (txttj) – (txtpt)

txtpjk = Val(txtgk) * 0.1

txtgd = Val(txtgk) – Val(txtpjk)

 

End Sub

 

Private Sub cmdulangi_Click()

txtgp.SetFocus

txtgp = “”

txttj = “”

txtpot = “”

txtgk = “”

txtpjk = “”

txtgd = “”

 

End Sub

 

Private Sub cmdkeluar_Click()

End

 

End Sub

 

PERHITUNGAN HARGA SETELAH DISCOUNT

Posted on by riskisafitrastmikpringsewu

RISKI2

2.2

Private Sub cmdhitung_Click()

txtdis = Val(txtha) * 0.1

txtak = Val(txtha) – Val(txtdis)

 

End Sub

 

Private Sub cmdulangi_Click()

txtha.SetFocus

txtha = “”

txtdis = “”

txtak = “”

 

End Sub

 

Private Sub cmdkeluar_Click()

End

 

End Sub

 

Private Sub txtha_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

End If

 

End Sub

 

 

 

 

 

 

 

KALKULATOR MINI

Posted on by riskisafitrastmikpringsewu

RISKI1

1.2

Private Sub cmdhitung_Click()

txtperkalian = Val(txtn1) * Val(txtn2)

txtpenjumlahan = Val(txtn3) * Val(txtn4)

txtpengurangan = Val(txtn5) * Val(txtn6)

txtpembagian = Val(txtn7) * Val(txtn8)

End Sub

 

Private Sub cmdlagi_Click()

txtperkalian = ” ”

txtpenjumlahan = ” ”

txtpengurangan = ” ”

txtpembagian = ” ”

End Sub

 

Private Sub cmdbatal_Click()

txtperkalian = ” ”

txtpenjumlahan = ” ”

txtpengurangan = ” ”

txtpembagian = ” ”

End Sub

 

Private Sub cmdkeluar_Click()

End

End Sub

 

Private Sub txtpembagian_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

End Sub

 

Private Sub txtpengurangan_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

End Sub

 

Private Sub txtpenjumlahan_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

End Sub

 

Private Sub txtperkalian_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

End Sub

 

 

KALKULATOR MINI

Posted on by riskisafitrastmikpringsewu

RISKI1

1.1

Private Sub cmdhitung_Click()

txtperkalian = Val(txtn1) * Val(txtn2)

txtpenjumlahan = Val(txtn3) * Val(txtn4)

txtpengurangan = Val(txtn5) * Val(txtn6)

txtpembagian = Val(txtn7) * Val(txtn8)

End Sub

 

Private Sub cmdlagi_Click()

txtperkalian = ” ”

txtpenjumlahan = ” ”

txtpengurangan = ” ”

txtpembagian = ” ”

End Sub

 

Private Sub cmdbatal_Click()

txtperkalian = ” ”

txtpenjumlahan = ” ”

txtpengurangan = ” ”

txtpembagian = ” ”

End Sub

 

Private Sub cmdkeluar_Click()

End

End Sub

 

aplikasi perhitungan gaji

Posted on by riskisafitrastmikpringsewu

 

 

 

 

 

 

3.1

Private Sub cmdhitung_Click()

txtgk = Val(txtgp) + (txttj) – (txtpt)

txtpjk = Val(txtgk) * 0.1

txtgd = Val(txtgk) – Val(txtpjk)

 

End Sub

 

Private Sub cmdulangi_Click()

txtgp.SetFocus

txtgp = “”

txttj = “”

txtpot = “”

txtgk = “”

txtpjk = “”

txtgd = “”

 

End Sub

BAHASA PEMROGRAMAN 1

Posted on by riskisafitrastmikpringsewu

riski

Private Sub CmdBATAL_Click()

txtNPM.setfous

txtNPM = “”

TxtNAMA = “”

txtALAMAT = “”

End Sub

 

Private Sub CmdKELUAR_Click()

End

End Sub

 

Private Sub CmdLAGI_Click()

txtNPM.SETFOCUS

txtNPM = “”

TxtNAMA = “”

TxtNAMA = “”

End Sub

 

Private Sub TxtNAMA_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

txtALAMAT.SETFOCUS

End If

End Sub

 

Private Sub txtNPM_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

TxtNAMA.SETFOCUS

End If

End Sub

 

riski1

Private Sub cmdBATAL_Click()

Txtnppm.SetFocus

TxtNPM = “”

txtNAMA = “”

txtAlamat = “”

TxtAGAMA = “”

TxtjenisKELAMIN = “”

txtnamaAYAH = “”

TxtnamaIBU = “”

Txtpekerjaanayah = “”

TxtpekerjaanIBU

End If

End Sub

 

Private Sub CmdKELUAR_Click()

End

End Sub

 

Private Sub CmdLAGI_Click()

Txtnppm.SetFocus

TxtNPM = “”

txtNAMA = “”

txtAlamat = “”

TxtAGAMA = “”

TxtjenisKELAMIN = “”

txtnamaAYAH = “”

TxtnamaIBU = “”

Txtpekerjaanayah = “”

TxtpekerjaanIBU

End If

End Sub

Private Sub txtNAMA_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

txtAlamat.SetFocus

End If

End Sub

 

Private Sub TxtNPM_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

txtNAMA.SetFocus

End If

End Sub

riski2

Private Sub txtn1_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

txtn2.SetFocus

End If

End Sub

 

Private Sub cmdHITUNG_Click()

Txthasil = Val(txtn1) * Val(txtn2)

End If

End Sub

 

Private Sub CmdBERSIH_Click()

txtn1 = “”

txtn2 = “”

Txthasil = “”

End Sub

 

 

Private Sub cmdKELUAR_Click()

End

End Sub

riski2

Private Sub txtn2_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

Txthasil = Val(txtn1) * Val(txtn2)

End If

End Sub

 

 

 

PERKALIAN 2 BILANGAN

Posted on by riskisafitrastmikpringsewu

ekye

PERKALIAN DUA BILANGAN

Private Sub txtn1_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

txtn2.SetFocus

End If

End Sub

 

Private Sub cmdHITUNG_Click()

Txthasil = Val(txtn1) * Val(txtn2)

End If

End Sub

 

Private Sub CmdBERSIH_Click()

txtn1 = “”

txtn2 = “”

Txthasil = “”

End Sub

 

 

Private Sub cmdKELUAR_Click()

End

End Sub