TUGAS PEMROGRAMAN VISUAL BASIC 1.1











Komentar

Posting Komentar

Postingan populer dari blog ini

PROGRAM I

Gambar
Private Sub cmdbatal_Click() txtnama.SetFocus txtnama = "" txtnpm = "" txtjurusan = "" txtpstudy = "" txttahun = "" txtnurut = "" txtbp = "" End Sub Private Sub cmdkeluar_Click() End End Sub Private Sub cmdlagi_Click() txtnama.SetFocus txtnama = "" txtnpm = "" txtjurusan = "" txtpstudy = "" txttahun = "" txtnurut = "" txtbp = "" End Sub Private Sub cmdproses_Click() Dim Z As String txttahun = "20" & Left(txtnpm, 2) txtnurut = Right(txtnpm, 3) Z = Mid(txtnpm, 3, 1) If Z = "1" Then txtjurusan = "Sistem Informasi" ElseIf Z = "2" Then txtjurusan = "Teknik Informatika" ElseIf Z = "3" Then txtjurusan = "Manajemen Informatika" ElseIf Z = "4" Then txtjurusan = "Manajemen & Komp.Akuntansi...
Baca selengkapnya

PROGRAM D

Gambar
Private Sub cbokode_Click() Dim m, h As String Select Case cbokode Case "Asus A43SA" m = "Asus A43SA - VX090D" h = "5500000" Case "Asus A43SD" m = "Asus A43SD - VX052D" h = "4500000" Case "Asus A43SJ" m = "Asus A43SJ - VX792D" h = "4300000" Case "Asus A43TA" m = "Asus A43TA - VX034D" h = "4900000" Case "Asus N43SL" m = "Asus N43SL - VX264D" h = "4300000" Case "Apple MD311" m = "Apple MacBook Pro MD311" h = "19300000" Case "Apple MD313" m = "Apple MacBook Pro MD313" h = "24200000" Case "Apple MD314" m = "Apple MacBook Pro MD314" h = "11900000" Case "Apple MD322" m = "Apple MacBook Pro MD322" h = "14700000" Case "Apple MC965" m = "Apple MacBo...
Baca selengkapnya

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