tugas 3.2


Private Sub Cmdproses_Click()

Dim S As String

Txttt = "20" & Right(Cbokodebuku, 2)

S = Left(Cbokodebuku, 1)

If S = "A" Then

Txtpenerbit = "andi offset yogyakarta"

ElseIf S = "I" Then

Txtpenerbit = "indah surabaya"

ElseIf S = "S" Then

Txtpenerbit = "salemba empat"

ElseIf S = "E" Then

Txtpenerbit = "elek media computindo"

ElseIf S = "M" Then

Txtpenerbit = "maxicom"

End If

S = Mid(Cbokodebuku, 3, 3)

If S = "SIM" Then

Txtjb = "Sistem Informasi Managemen"

Txtpengarang = "Yati Nur Oktavia"

Txtharga = "75900"

ElseIf S = "EDP" Then

Txtjb = "Elektronik Data Processing"

Txtpengarang = "Imam Tarmizi"

Txtharga = "62000"

ElseIf S = "MNJ" Then

Txtjb = "Manajemen"

Txtpengarang = "Valentina Mariana Adiwianti"

Txtharga = "42000"

ElseIf S = "CDR" Then

Txtjb = "Corel Draw"

Txtpengarang = " Riyan Suhandi"

Txtharga = "53000"

ElseIf S = "RPL" Then

Txtjb = "Rekayasa Perangnkat Lunak"

Txtpengarang = "sinta umpu singa"

Txtharga = "83000"

End If

End Sub



Private Sub Command2_Click()

Cbokodebuku.SetFocus

Cbokodebuku = ""

Txtjb = ""

Txtpengarang = ""

Txttt = ""

Txtpenerbit = ""

Txtharga = ""

End Sub



Private Sub Command3_Click()

Cbokodebuku.SetFocus

Cbokodebuku = ""

Txtjb = ""

Txtpengarang = ""

Txttt = ""

Txtpenerbit = ""

Txtharga = ""

End Sub



Private Sub Command4_Click()

End

End Sub



Private Sub Form_Load()

Cbokodebuku.AddItem "A-SIM-01"

Cbokodebuku.AddItem "I-EDP-02"

Cbokodebuku.AddItem "S-MNJ-03"

Cbokodebuku.AddItem "E-CDR-04"

Cbokodebuku.AddItem "M-RPL-05"

End Sub

Komentar

Posting Komentar

Postingan populer dari blog ini

Tugas 1.2

Gambar
Private Sub cmdbersih_Click() Txtn1.SetFocus Txtn1 = "" Txtn2 = "" Txtn3 = "" End Sub Private Sub Cmdhitung_Click() Txtn3 = Val(Txtn1) * Val(Txtn2) End Sub Private Sub cmdkeluar_Click() End End Sub Private Sub Txtn1_Keypress(Keyascii As Integer) If Keyascii = 13 Then Txtn2.SetFocus End If End Sub Private Sub Txtn2_Keypress(Keyascii As Integer) If Keyascii = 13 Then Txtn3.SetFocus End If End Sub
Baca selengkapnya

Tugas 1.5

Gambar
Private Sub Command1_Click() Text9 = Val(Text1) + Val(Text2) Text10 = Val(Text4) * Val(Text6) Text11 = Val(Text3) - Val(Text7) Text12 = Val(Text2) / Val(Text8) End Sub Private Sub Command2_Click() End End Sub Private Sub Command3_Click() Text1.SetFocus Text1 = "" Text2 = "" Text3 = "" Text4 = "" Text5 = "" Text6 = "" Text7 = "" Text8 = "" Text9 = "" Text10 = "" Text11 = "" Text12 = "" End Sub Private Sub Text1_Keypress(Keyascii As Integer) If Keyascii = 13 Then Text5.SetFocus End If End Sub Private Sub Text2_Keypress(Keyascii As Integer) If Keyascii = 13 Then Text8.SetFocus End If End Sub Private Sub Text3_Keypress(Keyascii As Integer) If Keyascii = 13 Then Text7.SetFocus End If End Sub Private Sub Text4_Keypress(Keyascii As Integer) If Keyascii = 13 Then Text6.SetFocus ...
Baca selengkapnya

Tugas 1.1

Gambar
Private Sub Text1_Keypress(Keyascii As Integer) If Keyascii = 13 Then Text2.SetFocus End If End Sub Private Sub Text2_Keypress(Keyascii As Integer) If Keyascii = 13 Then Text3.SetFocus End If End Sub Private Sub Command1_Click() Text3 = Val(Text1) * Val(Text2) End Sub Private Sub Command2_Click() Text1.SetFocus Text1 = "" Text2 = "" Text3 = "" End Sub Private Sub Command3_Click() End End Sub
Baca selengkapnya