Postingan

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
Posting Komentar
Baca selengkapnya

PROGRAM H

Gambar
Private Sub cbokode_Click() Dim A, M As String Select Case cbokode Case "P205" A = "Pentium II 500 Mega Hz" M = "1500000" Case "P308" A = "Pentium III 800 Mega Hz" M = "2100000" Case "P310" A = "Pentium III 1.0 Giga Hz" M = "3500000" Case "P415" A = "Pentium IV 1.5 Giga Hz" M = "4000000" Case "P417" A = "Pentium IV 1.7 Giga Hz" M = "4200000" Case "P419" A = "Pentium IV 1.9 Giga Hz " M = "5500000" End Select txtjk = A txths = M txtjj.SetFocus End Sub Private Sub Command1_Click() txthp = Val(txtjj) * Val(txths) If txthp >= 30000000 Then txtdis = 0.15 * Val(txthp) ElseIf txthp >= 25000000 Then txtdis = 0.1 * Val(txthp) ElseIf txthp >= 20000000 Then txtdis = 0.05 * Val(txthp) ElseIf txthp >= 15000000 Then txtdis = 0.02 * Val(tx
Posting Komentar
Baca selengkapnya

PROGRAM G

Gambar
Private Sub cmdbatal_Click() txtkb.SetFocus txtkb = "" txtjb = "" txtpeng = "" txttt = "" txtper = "" txth = "" End Sub Private Sub cmdkeluar_Click() End End Sub Private Sub cmdlagi_Click() txtkb.SetFocus txtkb = "" txtjb = "" txtpeng = "" txttt = "" txtper = "" txth = "" End Sub Private Sub cmdproses_Click() Dim X As String txttt = "20" & Mid(txtkb, 5, 2) X = Left(txtkb, 3) If X = "SIM" Then txtjb = "Sistem Informasi Manajemen" txtpeng = "Fadiya Ulfa" txth = "75900" ElseIf X = "EDP" Then txtjb = "Electronik Data Processing" txtpeng = "Nurul Agustina" txth = "62000" ElseIf X = "MNJ" Then txtjb = "Manajemen" txtpeng = "Rian Hidayat" txth = "42000" ElseIf X = &
Posting Komentar
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
Posting Komentar
Baca selengkapnya

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 cmdpro
Posting Komentar
Baca selengkapnya