Tugas visual basic 1.1





Komentar

Posting Komentar

Postingan populer dari blog ini

TUGAS BP 2.3

Gambar
Private Sub Command1_Click() Text9 = Val(Text1) + Val(Text2) Text10 = Val(Text3) - Val(Text4) Text11 = Val(Text5) * Val(Text6) Text12 = Val(Text7) / Val(Text8) Text13 = Val(Text9) + Val(Text10) + Val(Text11) + Val(Text12) End Sub Private Sub Command2_Click() Text1.SetFocus Text1 = "" Text2 = "" Text3 = "" Text4 = "" Text5 = "" Text6 = "" Text7 = "" Text8 = "" Text9 = "" Text10 = "" Text11 = "" Text12 = "" Text13 = "" End Sub Private Sub Command3_Click() Unload Me End Sub Private Sub Text1_keypress(keyascii As Integer) If keyascii = 13 Then Text2.SetFocus End If End Sub Private Sub Text10_keypress(keyascii As Integer) If keyascii = 13 Then Text10 = Val(Text3) - Val(Text4) End If End Sub Private Sub Text11_keypress(keyascii As Integer) If keyascii = 13 Then Text11 = Val(Text5) * Val...
Baca selengkapnya

TUGAS PROGRAM F

Gambar
Private Sub cmdkeluar_Click() End End Sub Private Sub cmdlagi_Click() txtkt.SetFocus txtkt = "" txtht = "" txtjk = "" txtjb = "" txtjt = "" txttp = "" End Sub Private Sub cmdproses_Click() txttp = Val(txtht) * Val(txtjt) End Sub Private Sub txtkt_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then txtjt.SetFocus End If Dim k As String k = txtkt If k = "BIM" Then txtht = "50000" txtjk = "BIMA" txtjb = "16.00" ElseIf k = "EKO" Then txtht = "35000" txtjk = "EKONOMI" txtjb = "19.00" ElseIf k = "MUT" Then txtht = "23000" txtjk = "MUTIARA" txtjb = "17.00" ElseIf k = "SEN" Then txtht = "15000" txtjk = "SENJA" txtjb = "20.00" End If End Sub
Baca selengkapnya

TUGAS PROGRAM E

Gambar
Private Sub cbokode_Click() Dim j, h As String Select Case cbokode Case "P205" j = "Pentium II 500 Mega Hz" h = "1500000" Case "P308" j = "Pentium III 800 Mega Hz" h = "2100000" Case "P310" j = "Pentium III 1.0 Giga Hz" h = "3500000" Case "P415" j = "Pentium IV 1.5 Giga Hz" h = "4000000" Case "P417" j = "Pentium IV 1.7 Giga Hz" h = "4200000" Case "P419" j = "Pentium IV 1.9 Giga Hz" h = "5500000" End Select txtjk = j txths = h txtjj.SetFocus End Sub Private Sub cmdhl_Click() cbokode.SetFocus cbokode = "Pilih Kode Komputer" txtjj = "" txtjk = "" txths = "" txthp = "" txtdis = "" txttb = "" End Sub Private Sub cmdkeluar_Click() End End Sub Private Sub cmdproses_Click() txthp = Val(txths) * Val(txtjj)...
Baca selengkapnya