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 A

Gambar
Private Sub cmdkeluar_Click() End End Sub Private Sub cmdlagi_Click() txtnk.SetFocus txtnk = "" txtnik = "" txtgol = "" txtkstat = "" txtstatus = "" txttahun = "" txtjbt = "" txtbagian = "" txtgapok = "" txttunjangan = "" txttotg = "" End Sub Private Sub cmdproses_Click() Dim V As String txttahun = Left(txtnik, 4) V = Mid(txtnik, 7, 1) If V = "S" Then txtkstat = "S" txtstatus = "Single" ElseIf V = "M" Then txtkstat = "M" txtstatus = "Menikah" ElseIf V = "J" Then txtkstat = "J" txtstatus = "Janda" ElseIf V = "D" Then txtkstat = "D" txtstatus = "Duda" End If Dim S As String S = Right(txtnik, 3) If S = "KEU" Then txtbagian = "Accounting" ElseIf S = "ADM"...
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