Archives for the month of: January, 2014

Private Sub cmdbaru_Click()

Data1.Recordset.AddNew

txtnpm.SetFocus

End Sub

 

Private Sub cmdhapus_Click()

Data1.Recordset.Delete

End Sub

 

Private Sub cmdkeluar_Click()

Unload Me

End Sub

Private Sub cmdproses_Click()

Dim s As String

s = Mid(txtnpm.Text, 3, 1)

If s = “1” Then

txtjur.Text = “sistem informasi”

ElseIf s = “2” Then

txtjur.Text = “manajemen informatika”

ElseIf s = “3” Then

txtjur.Text = “m.informatika dan akuntansi”

End If

s = Mid(txtnpm.Text, 4, 2)

If s = “00” Then

txtprodi.Text = “strata satu”

ElseIf s = “01” Then

txtprodi.Text = “diploma tiga”

End If

txttm.Text = “20” & Left(txtnpm, 2)

txtnu.Text = Right(txtnpm, 3)

End Sub

 

Private Sub cmdsimpan_Click()

Data1.Recordset.Update

End Sub

Gambar

Private Sub cbokode_Click()
Dim m, hrg As String
Select Case cbokode.Text
Case “Apple MC965 Macbook Air”
m = “Apple Macbook Air MC965”
hrg = “12800000”
Case “Apple MC966 Macbook Air”
m = “Apple Macbook Air MC965”
hrg = “15800000”
Case “Apple MC968 Macbook Air”
m = “Apple Macbook Air MC968”
hrg = “9900000”
Case “Apple MC969 Macbook Air”
m = “Apple Macbook Air MC969”
hrg = “11900000”
Case “Apple MC700 Macbook Pro”
m = “Apple Macbook Pro MC700”
hrg = “10800000”
Case “Apple MC721 Macbook Pro”
m = “Apple Macbook Pro MC721”
hrg = “15900000”
Case “Apple MC723 Macbook Pro”
m = “Apple Macbook Pro MC723”
hrg = “19300000”
Case “Apple MC311 Macbook Pro”
m = “Apple Macbook Pro MC311”
hrg = “24200000”
Case “Apple MC313 Macbook Pro”
m = “Apple Macbook Pro MC313”
hrg = “11900000”
Case “Apple MC314 Macbook Pro”
m = “Apple Macbook Pro MC314”
hrg = “14700000”
Case “Apple  MC318 Macbook Pro”
m = “Apple Macbook Pro MC318”
hrg = “17600000”
Case “Apple MC322 Macbook Pro”
m = “Apple Macbook Pro MC322”
hrg = “21300000”
Case “Apple  MC965 Macbook Pro”
m = “Apple Macbook Pro MC965”
hrg = “12800000”
Case “Apple  MC966 Macbook Pro”
m = “Apple Macbook Pro MC966”
hrg = “15800000”
End Select
txtmerk.Text = m
txths.Text = hrg
txtjj.SetFocus
End Sub

Private Sub cmdhitunglagi_Click()
cbokode.Text = “”
txtmerk.Text = “”
txths.Text = “”
txtjj.Text = “”
txtdis.Text = “”
txttb.Text = “”
End Sub

Private Sub cmdkeluar_Click()
Unload Me
End Sub
Private Sub cmdproses_Click()
Select Case txthp.Text
Case Is > 140000000
txtdis.Text = (0.15) * Val(txthp)
Case Is > 135000000
txtdis.Text = (0.1) * Val(txthp)
Case Is > 130000000
txtdis.Text = (0.5) * Val(txthp)
Case Is > 125000000
txtdis.Text = (0.2) * Val(txthp)
End Select
txttb.Text = Val(txthp) – Val(txtdis)
End Sub
Private Sub Form_Load()
cbokode.AddItem “Apple MC965 Macbook Air”
cbokode.AddItem “Apple MC966 Macbook Air”
cbokode.AddItem “Apple MC968 Macbook Air”
cbokode.AddItem “Apple MC969 Macbook Air”
cbokode.AddItem “Apple MC700 Macbook Pro”
cbokode.AddItem “Apple MC721 Macbook Pro”
cbokode.AddItem “Apple MC723 Macbook Pro”
cbokode.AddItem “Apple MC311 Macbook Pro”
cbokode.AddItem “Apple MC313 Macbook Pro”
cbokode.AddItem “Apple MC314 Macbook Pro”
cbokode.AddItem “Apple MC318 Macbook Pro”
cbokode.AddItem “Apple MC322 Macbook Pro”
cbokode.AddItem “Apple MC965 Macbook Air”
cbokode.AddItem “Apple MC966 Macbook Air”
End Sub
Private Sub txtjj_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
txthp.Text = Val(txths) * Val(txtjj)
End If
End Sub