tugas vb 4

Private Sub cbonpm_Click()
Dim nama, jurusan, hm As String
    Select Case cbonpm.Text
        Case “12100487”
        nama = “oksa ade pambudi”
        jurusan = “Manajemen informatika”
        Case “12201125”
        nama = ” RATNA SARI”
        jurusan = “Sistem Informasi”
        Case “12100488”
        nama = “adhi seno”
        jurusan = “Manajemen Informatika”
       
    End Select
    txtnama.Text = nama
    txtjur.Text = jurusan
    txtquis.SetFocus
End Sub

Private Sub cmdbatal_Click()
    cbonpm.SetFocus
    cbonpm.Text = ” “
    txtnama.Text = ” “
    txtjur.Text = ” “
    txtquis.Text = ” “
    txttugas.Text = ” “
    txtuts.Text = ” “
    txtuas.Text = ” “
    txtna.Text = ” “
    txthm.Text = ” “
End Sub

Private Sub cmdkeluar_Click()
    Unload Me
End Sub

Private Sub cmdproses_Click()
Dim na As Integer
Dim hm As String
    quis = Val(txtquis.Text)
    tugas = Val(txttugas.Text)
    uts = Val(txtuts.Text)
    uas = Val(txtuas.Text)
    na = (quis + tugas + uts + uas) / 4
    txtna.Text = na
        Select Case txtna.Text
        Case Is > 80
        hm = “A”
        Case Is > 70
        hm = “B”
        Case Is > 60
        hm = “C”
        Case Is > 50
        hm = “D”
        Case Is < 50
        hm = “E”
        End Select
    txthm.Text = hm

End Sub

Private Sub Form_Load()
    cbonpm.AddItem “12100487”
    cbonpm.AddItem “12201125”
    cbonpm.AddItem “12100488”
    
End Sub

Private Sub txtquis_KeyPress(KeyAscii As Integer)
    If KeyAscii = 13 Then
        txttugas.SetFocus
    End If
End Sub

Private Sub txttugas_KeyPress(KeyAscii As Integer)
    If KeyAscii = 13 Then
        txtuts.SetFocus
    End If
End Sub

Private Sub txtuts_KeyPress(KeyAscii As Integer)
    If KeyAscii = 13 Then
        txtuas.SetFocus
    End If
End Sub

Private Sub cbogol_Click()

Dim gapok, tunjangan, pajak, total As Variant

    Select Case cbogol.Text

    Case “I”

    gapok = 1500000

    tunjangan = 150000

    Case “II”

    gapok = 2000000

    tunjangan = 200000

    Case “III”

    gapok = 2500000

    tunjangan = 2500000

    Case “IV”

    gapok = 3000000

    tunjangan = 300000

    Case Else

    gapok = 0

    tunjangan = 0

    End Select

total = gapok + tunjangan

pajak = total * 0.1

txtgapok.Text = gapok

txttunj.Text = tunjangan

txtpajak.Text = pajak

txtterima.Text = total – pajak

End Sub

 

Private Sub cmdbatal_Click()

    txtnidn.SetFocus

    txtnidn.Text = “”

    txtnama.Text = “”

    cbogol.Text = “”

    txtgapok.Text = “”

    txttunj.Text = “”

    txtpajak.Text = “”

    txtterima.Text = “”

End Sub

 

Private Sub cmdkeluar_Click()

    Unload Me

End Sub

 

Private Sub cmdlagi_Click()

    txtnidn.SetFocus

    txtnidn.Text = “”

    txtnama.Text = “”

    cbogol.Text = “”

    txtgapok.Text = “”

    txttunj.Text = “”

    txtpajak.Text = “”

    txtterima.Text = “”

End Sub

 

Private Sub Form_Load()

    cbogol.AddItem “I”

    cbogol.AddItem “II”

    cbogol.AddItem “III”

    cbogol.AddItem “IV”

End Sub

 

Private Sub txtnidn_KeyPress(KeyAscii As Integer)

    If KeyAscii = 13 Then

        txtnama.SetFocus

    End If

End Sub

Private Sub Cmdbatal_Click()

cbokb.SetFocus

cbokb = “”

txtpeng = “”

txtjb = “”

txttt = “”

txtpenerbit = “”

txthg = “”

End Sub

 

Private Sub Cmdkeluar_Click()

Unload Me

End Sub

 

Private Sub Cmdlagi_Click()

cbokb.SetFocus

cbokb = “”

txtpeng = “”

txtjb = “”

txttt = “”

txtpenerbit = “”

txthg = “”

End Sub

 

Private Sub Form_Load()

cbokb.AddItem = “a-sim-01”

cbokb.AddItem = “s-edp-05”

cbokb.AddItem = “m-cdr-02”

cbokb.AddItem = “i-sim-12”

cbokb.AddItem = “s-rpl-02”

cbokb.AddItem = “a-mnj-11”

cbokb.AddItem = “e-cdr-13”

 

End Sub

 

Private Sub Cmdproses_Click()

Dim k, j, p, h, n As String

k = Mid(cbokb.Text, 3, 3)

If k = “sim” Then

j = “sistem informasi manajemen”

p = “Yati nur oktavia”

h = “75900”

ElseIf k = “edp” Then

j = “elektronic data processing”

p = “Imam tarmizi”

h = “62000”

ElseIf k = “mnj” Then

j = “Manajemen”

p = “Valentina mariana Adiwianti”

h = “42000”

ElseIf k = “cdr” Then

j = “Corel Draw”

p = “Rian Suhandi”

h = “53000”

ElseIf k = “rpl” Then

j = “Rekayasa Perangkat Lunak”

p = “sinta umpu singa'”

h = “83000”

End If

txtjb.Text = j

txtpeng.Text = p

txthg.Text = h

txttt = “20” & Right(cbokb.Text, 2)

k = Left(cbokb.Text, 1)

If k = “a” Then

n = “Andi Offset Yogyakarta”

ElseIf k = “i” Then

n = “Indah Surabaya”

ElseIf k = “S” Then

n = “Salemba Empat”

ElseIf k = “e” Then

n = “Elek Media Komputindo”

ElseIf k = “m” Then

n = “maxicom”

End If

txtpenerbit.Text = n

End Sub

lanjutan tugas 3

SCRIPT 1 : PROSES & ENTER

 

Private Sub Command1_Click()

Dim K, J, P, H, G As String

K = Left(Text1.Text, 3)

If K = “SIM” Or K = “sim” Then

J = “Sistem Informasi Manajemen”

P = “Fadiya Ulfa”

H = “75900″

ElseIf K = “EDP” Or K = “edp” Then

J = “Elektronik Data Procesing”

P = “Nurul Agustina”

H = “62000″

ElseIf K = “MNJ” Or K = “mnj” Then

J = “Manajemen”

P = “Rian Hidayat”

H = “42000″

ElseIf K = “cdr” Or K = “CDR” Then

J = “Corel Draw”

P = “Siti Nur Khotimah”

H = “53000″

ElseIf K = “rpl” Or K = “RPL” Then

J = “Rekayasa Perangkat Lunak”

P = “Winda Erlianti”

H = “83000″

End If

Text2.Text = J

Text3.Text = P

Text6.Text = H

K = Right(Text1.Text, 1)

If K = “A” Or K = “a” Then

G = “Andi Offset Yogyakarta”

ElseIf K = “i” Or K = “I” Then

G = “Indah Surabaya”

ElseIf K = “S” Or K = “s” Then

G = “Salemba Empat”

ElseIf K = “E” Or K = “e” Then

G = “Elek Media Komputindo”

ElseIf K = “M” Or K = “m” Then

G = “Maxikom”

End If

Text5.Text = G

Text4.Text = “20″ & Mid(Text1.Text, 5, 2)

End Sub

Private Sub Command2_Click()

Text1.SetFocus

Text1 = “”

Text2 = “”

Text3 = “”

Text4 = “”

Text5 = “”

Text6 = “”

End Sub

Private Sub Command3_Click()

Text1.SetFocus

Text1 = “”

Text2 = “”

Text3 = “”

Text4 = “”

Text5 = “”

Text6 = “”

End Sub

Private Sub Command4_Click()

Unload Me

End Sub

Private Sub Text1_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

Dim K, J, P, H, G As String

K = Left(Text1.Text, 3)

If K = “SIM” Or K = “sim” Then

J = “Sistem Informasi Manajemen”

P = “Fadiya Ulfa”

H = “75900″

ElseIf K = “EDP” Or K = “edp” Then

J = “Elektronik Data Procesing”

P = “Nurul Agustina”

H = “62000″

ElseIf K = “MNJ” Or K = “mnj” Then

J = “Manajemen”

P = “Rian Hidayat”

H = “42000″

ElseIf K = “cdr” Or K = “CDR” Then

J = “Corel Draw”

P = “Siti Nur Khotimah”

H = “53000″

ElseIf K = “rpl” Or K = “RPL” Then

J = “Rekayasa Perangkat Lunak”

P = “Winda Erlianti”

H = “83000″

End If

Text2.Text = J

Text3.Text = P

Text6.Text = H

K = Right(Text1.Text, 1)

If K = “A” Or K = “a” Then

G = “Andi Offset Yogyakarta”

ElseIf K = “i” Or K = “I” Then

G = “Indah Surabaya”

ElseIf K = “S” Or K = “s” Then

G = “Salemba Empat”

ElseIf K = “E” Or K = “e” Then

G = “Elek Media Komputindo”

ElseIf K = “M” Or K = “m” Then

G = “Maxikom”

End If

Text5.Text = G

Text4.Text = “20″ & Mid(Text1.Text, 5, 2)

End If

End Sub

MENGGUNAKAN ENTER

Private Sub Command2_Click()

Text1.SetFocus

Text1 = “”

Text2 = “”

Text3 = “”

Text4 = “”

Text5 = “”

Text6 = “”

End Sub

Private Sub Command3_Click()

Text1.SetFocus

Text1 = “”

Text2 = “”

Text3 = “”

Text4 = “”

Text5 = “”

Text6 = “”

End Sub

Private Sub Command4_Click()

Unload Me

End Sub

Private Sub Text1_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

Dim K, J, P, H, G As String

K = Left(Text1.Text, 3)

If K = “SIM” Or K = “sim” Then

J = “Sistem Informasi Manajemen”

P = “Fadiya Ulfa”

H = “75900″

ElseIf K = “EDP” Or K = “edp” Then

J = “Elektronik Data Procesing”

P = “Nurul Agustina”

H = “62000″

ElseIf K = “MNJ” Or K = “mnj” Then

J = “Manajemen”

P = “Rian Hidayat”

H = “42000″

ElseIf K = “cdr” Or K = “CDR” Then

J = “Corel Draw”

P = “Siti Nur Khotimah”

H = “53000″

ElseIf K = “rpl” Or K = “RPL” Then

J = “Rekayasa Perangkat Lunak”

P = “Winda Erlianti”

H = “83000″

End If

Text2.Text = J

Text3.Text = P

Text6.Text = H

K = Right(Text1.Text, 1)

If K = “A” Or K = “a” Then

G = “Andi Offset Yogyakarta”

ElseIf K = “i” Or K = “I” Then

G = “Indah Surabaya”

ElseIf K = “S” Or K = “s” Then

G = “Salemba Empat”

ElseIf K = “E” Or K = “e” Then

G = “Elek Media Komputindo”

ElseIf K = “M” Or K = “m” Then

G = “Maxikom”

End If

Text5.Text = G

Text4.Text = “20″ & Mid(Text1.Text, 5, 2)

End If

End Sub

MENGGUNAKAN PROSES

Private Sub Command1_Click()

Dim K, J, P, H, G As String

K = Left(Text1.Text, 3)

If K = “SIM” Or K = “sim” Then

J = “Sistem Informasi Manajemen”

P = “Fadiya Ulfa”

H = “75900″

ElseIf K = “EDP” Or K = “edp” Then

J = “Elektronik Data Procesing”

P = “Nurul Agustina”

H = “62000″

ElseIf K = “MNJ” Or K = “mnj” Then

J = “Manajemen”

P = “Rian Hidayat”

H = “42000″

ElseIf K = “cdr” Or K = “CDR” Then

J = “Corel Draw”

P = “Siti Nur Khotimah”

H = “53000″

ElseIf K = “rpl” Or K = “RPL” Then

J = “Rekayasa Perangkat Lunak”

P = “Winda Erlianti”

H = “83000″

End If

Text2.Text = J

Text3.Text = P

Text6.Text = H

K = Right(Text1.Text, 1)

If K = “A” Or K = “a” Then

G = “Andi Offset Yogyakarta”

ElseIf K = “i” Or K = “I” Then

G = “Indah Surabaya”

ElseIf K = “S” Or K = “s” Then

G = “Salemba Empat”

ElseIf K = “E” Or K = “e” Then

G = “Elek Media Komputindo”

ElseIf K = “M” Or K = “m” Then

G = “Maxikom”

End If

Text5.Text = G

Text4.Text = “20″ & Mid(Text1.Text, 5, 2)

End Sub

Private Sub Command2_Click()

Text1.SetFocus

Text1 = “”

Text2 = “”

Text3 = “”

Text4 = “”

Text5 = “”

Text6 = “”

End Sub

Private Sub Command3_Click()

Text1.SetFocus

Text1 = “”

Text2 = “”

Text3 = “”

Text4 = “”

Text5 = “”

Text6 = “”

End Sub

Private Sub Command4_Click()

Unload Me

End Sub

tugas 3

MENGGUNAKAN ENTER DAN PROSES

Private Sub Command1_Click()

Dim k, j, p As String

k = Mid(TXTNPM.Text, 3, 1)

If k = “1″ Then

j = “SISTEM INFORMASI”

ElseIf k = “2″ Then

j = “MANAJEMEN INFORMATIKA”

ElseIf k = “3″ Then

j = “TEKNIK INFORMATIKA”

ElseIf k = “4″ Then

j = “KOMPUTER AKUNTASI”

End If

TXTJURUSAN.Text = j

k = Mid(TXTNPM.Text, 4, 2)

If k = “01″ Then

p = “STRATA SATU”

ElseIf k = “02″ Then

p = “DIPLOMA TIGA”

ElseIf k = “03″ Then

p = “DIPLOMA DUA”

ElseIf k = “04″ Then

p = “DIPLOMA EMPAT”

End If

TXTPRODI.Text = p

TXTTM.Text = “20″ & Left(TXTNPM.Text, 2)

TXTNU.Text = Right(TXTNPM.Text, 3)

End Sub

Private Sub Command2_Click()

Text1.SetFocus

Text1 = “”

TXTNPM = “”

TXTJURUSAN = “”

TXTPRODI = “”

TXTTM = “”

TXTNU = “”

End Sub

Private Sub Command3_Click()

Text1.SetFocus

Text1 = “”

TXTNPM = “”

TXTJURUSAN = “”

TXTPRODI = “”

TXTTM = “”

TXTNU = “”

End Sub

Private Sub Command4_Click()

Unload Me

End Sub

Private Sub Text1_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

TXTNPM.SetFocus

End If

End Sub

Private Sub TXTNPM_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

Dim k, j, p As String

k = Mid(TXTNPM.Text, 3, 1)

If k = “1″ Then

j = “SISTEM INFORMASI”

ElseIf k = “2″ Then

j = “MANAJEMEN INFORMATIKA”

ElseIf k = “3″ Then

j = “TEKNIK INFORMATIKA”

ElseIf k = “4″ Then

j = “KOMPUTER AKUNTASI”

End If

TXTJURUSAN.Text = j

k = Mid(TXTNPM.Text, 4, 2)

If k = “01″ Then

p = “STRATA SATU”

ElseIf k = “02″ Then

p = “DIPLOMA TIGA”

ElseIf k = “03″ Then

p = “DIPLOMA DUA”

ElseIf k = “04″ Then

p = “DIPLOMA EMPAT”

End If

TXTPRODI.Text = p

TXTTM.Text = “20″ & Left(TXTNPM.Text, 2)

TXTNU.Text = Right(TXTNPM.Text, 3)

End If

End Sub

MENGGUNAKAN ENTER

Private Sub Command1_Click()

Dim k, j, p As String

k = Mid(TXTNPM.Text, 3, 1)

If k = “1″ Then

j = “SISTEM INFORMASI”

ElseIf k = “2″ Then

j = “MANAJEMEN INFORMATIKA”

ElseIf k = “3″ Then

j = “TEKNIK INFORMATIKA”

ElseIf k = “4″ Then

j = “KOMPUTER AKUNTASI”

End If

TXTJURUSAN.Text = j

k = Mid(TXTNPM.Text, 4, 2)

If k = “01″ Then

p = “STRATA SATU”

ElseIf k = “02″ Then

p = “DIPLOMA TIGA”

ElseIf k = “03″ Then

p = “DIPLOMA DUA”

ElseIf k = “04″ Then

p = “DIPLOMA EMPAT”

End If

TXTPRODI.Text = p

TXTTM.Text = “20″ & Left(TXTNPM.Text, 2)

TXTNU.Text = Right(TXTNPM.Text, 3)

End Sub

Private Sub Command2_Click()

Text1.SetFocus

Text1 = “”

TXTNPM = “”

TXTJURUSAN = “”

TXTPRODI = “”

TXTTM = “”

TXTNU = “”

End Sub

Private Sub Command3_Click()

Text1.SetFocus

Text1 = “”

TXTNPM = “”

TXTJURUSAN = “”

TXTPRODI = “”

TXTTM = “”

TXTNU = “”

End Sub

Private Sub Command4_Click()

Unload Me

End Sub

Private Sub Text1_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

TXTNPM.SetFocus

End If

End Sub

MENGGUNAKAN PROSES

Private Sub Command2_Click()

Text1.SetFocus

Text1 = “”

TXTNPM = “”

TXTJURUSAN = “”

TXTPRODI = “”

TXTTM = “”

TXTNU = “”

End Sub

Private Sub Command3_Click()

Text1.SetFocus

Text1 = “”

TXTNPM = “”

TXTJURUSAN = “”

TXTPRODI = “”

TXTTM = “”

TXTNU = “”

End Sub

Private Sub Command4_Click()

Unload Me

End Sub

Private Sub Text1_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

TXTNPM.SetFocus

End If

End Sub

Private Sub TXTNPM_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

Dim k, j, p As String

k = Mid(TXTNPM.Text, 3, 1)

If k = “1″ Then

j = “SISTEM INFORMASI”

ElseIf k = “2″ Then

j = “MANAJEMEN INFORMATIKA”

ElseIf k = “3″ Then

j = “TEKNIK INFORMATIKA”

ElseIf k = “4″ Then

j = “KOMPUTER AKUNTASI”

End If

TXTJURUSAN.Text = j

k = Mid(TXTNPM.Text, 4, 2)

If k = “01″ Then

p = “STRATA SATU”

ElseIf k = “02″ Then

p = “DIPLOMA TIGA”

ElseIf k = “03″ Then

p = “DIPLOMA DUA”

ElseIf k = “04″ Then

p = “DIPLOMA EMPAT”

End If

TXTPRODI.Text = p

TXTTM.Text = “20″ & Left(TXTNPM.Text, 2)

TXTNU.Text = Right(TXTNPM.Text, 3)

End If

End Sub

MENGGUNAKAN ENTER DAN PROSES

Private Sub Command1_Click()

Dim k, j, p As String

k = Mid(TXTNPM.Text, 3, 1)

If k = “1″ Then

j = “SISTEM INFORMASI”

p = “STRATA SATU”

ElseIf k = “2″ Then

j = “MANAJEMEN INFORMATIKA”

p = “DIPLOMA TIGA”

ElseIf k = “3″ Then

j = “TEKNIK INFORMATIKA”

p = “DIPLOMA DUA”

ElseIf k = “4″ Then

j = “KOMPUTER AKUNTASI”

p = “DIPLOMA EMPAT”

End If

TXTJURUSAN.Text = j

TXTPRODI.Text = p

TXTTM.Text = “20″ & Left(TXTNPM.Text, 2)

TXTNU.Text = Right(TXTNPM.Text, 5)

End Sub

Private Sub Command2_Click()

Text1.SetFocus

Text1 = “”

TXTNPM = “”

TXTJURUSAN = “”

TXTPRODI = “”

TXTTM = “”

TXTNU = “”

End Sub

Private Sub Command3_Click()

Text1.SetFocus

Text1 = “”

TXTNPM = “”

TXTJURUSAN = “”

TXTPRODI = “”

TXTTM = “”

TXTNU = “”

End Sub

Private Sub Command4_Click()

Unload Me

End Sub

Private Sub Text1_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

TXTNPM.SetFocus

End If

End Sub

Private Sub TXTNPM_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

Dim k, j, p As String

k = Mid(TXTNPM.Text, 3, 1)

If k = “1″ Then

j = “SISTEM INFORMASI”

p = “STRATA SATU”

ElseIf k = “2″ Then

j = “MANAJEMEN INFORMATIKA”

p = “DIPLOMA TIGA”

ElseIf k = “3″ Then

j = “TEKNIK INFORMATIKA”

p = “DIPLOMA DUA”

ElseIf k = “4″ Then

j = “KOMPUTER AKUNTASI”

p = “DIPLOMA EMPAT”

End If

TXTJURUSAN.Text = j

TXTPRODI.Text = p

TXTTM.Text = “20″ & Left(TXTNPM.Text, 2)

TXTNU.Text = Right(TXTNPM.Text, 5)

End If

End Sub

MENGGUNAKAN  ENTER

Private Sub Command2_Click()

Text1.SetFocus

Text1 = “”

TXTNPM = “”

TXTJURUSAN = “”

TXTPRODI = “”

TXTTM = “”

TXTNU = “”

End Sub

Private Sub Command3_Click()

Text1.SetFocus

Text1 = “”

TXTNPM = “”

TXTJURUSAN = “”

TXTPRODI = “”

TXTTM = “”

TXTNU = “”

End Sub

Private Sub Command4_Click()

Unload Me

End Sub

Private Sub Text1_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

TXTNPM.SetFocus

End If

End Sub

Private Sub TXTNPM_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

Dim k, j, p As String

k = Mid(TXTNPM.Text, 3, 1)

If k = “1″ Then

j = “SISTEM INFORMASI”

p = “STRATA SATU”

ElseIf k = “2″ Then

j = “MANAJEMEN INFORMATIKA”

p = “DIPLOMA TIGA”

ElseIf k = “3″ Then

j = “TEKNIK INFORMATIKA”

p = “DIPLOMA DUA”

ElseIf k = “4″ Then

j = “KOMPUTER AKUNTASI”

p = “DIPLOMA EMPAT”

End If

TXTJURUSAN.Text = j

TXTPRODI.Text = p

TXTTM.Text = “20″ & Left(TXTNPM.Text, 2)

TXTNU.Text = Right(TXTNPM.Text, 5)

End If

End Sub

MENGGUNAKAN PROSES

Private Sub Command1_Click()

Dim k, j, p As String

k = Mid(TXTNPM.Text, 3, 1)

If k = “1″ Then

j = “SISTEM INFORMASI”

p = “STRATA SATU”

ElseIf k = “2″ Then

j = “MANAJEMEN INFORMATIKA”

p = “DIPLOMA TIGA”

ElseIf k = “3″ Then

j = “TEKNIK INFORMATIKA”

p = “DIPLOMA DUA”

ElseIf k = “4″ Then

j = “KOMPUTER AKUNTASI”

p = “DIPLOMA EMPAT”

End If

TXTJURUSAN.Text = j

TXTPRODI.Text = p

TXTTM.Text = “20″ & Left(TXTNPM.Text, 2)

TXTNU.Text = Right(TXTNPM.Text, 5)

End Sub

Private Sub Command2_Click()

Text1.SetFocus

Text1 = “”

TXTNPM = “”

TXTJURUSAN = “”

TXTPRODI = “”

TXTTM = “”

TXTNU = “”

End Sub

Private Sub Command3_Click()

Text1.SetFocus

Text1 = “”

TXTNPM = “”

TXTJURUSAN = “”

TXTPRODI = “”

TXTTM = “”

TXTNU = “”

End Sub

Private Sub Command4_Click()

Unload Me

End Sub

Private Sub Text1_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

TXTNPM.SetFocus

End If

End Sub

SCRIPT 1 : PROSES & ENTER

Private Sub Command1_Click()

Dim K, J, P, H, G As String

K = Left(Text1.Text, 3)

If K = “SIM” Or K = “sim” Then

J = “Sistem Informasi Manajemen”

P = “Fadiya Ulfa”

H = “75900″

ElseIf K = “EDP” Or K = “edp” Then

J = “Elektronik Data Procesing”

P = “Nurul Agustina”

H = “62000″

ElseIf K = “MNJ” Or K = “mnj” Then

J = “Manajemen”

P = “Rian Hidayat”

H = “42000″

ElseIf K = “cdr” Or K = “CDR” Then

J = “Corel Draw”

P = “Siti Nur Khotimah”

H = “53000″

ElseIf K = “rpl” Or K = “RPL” Then

J = “Rekayasa Perangkat Lunak”

P = “Winda Erlianti”

H = “83000″

End If

Text2.Text = J

Text3.Text = P

Text6.Text = H

K = Right(Text1.Text, 1)

If K = “A” Or K = “a” Then

G = “Andi Offset Yogyakarta”

ElseIf K = “i” Or K = “I” Then

G = “Indah Surabaya”

ElseIf K = “S” Or K = “s” Then

G = “Salemba Empat”

ElseIf K = “E” Or K = “e” Then

G = “Elek Media Komputindo”

ElseIf K = “M” Or K = “m” Then

G = “Maxikom”

End If

Text5.Text = G

Text4.Text = “20″ & Mid(Text1.Text, 5, 2)

End Sub

Private Sub Command2_Click()

Text1.SetFocus

Text1 = “”

Text2 = “”

Text3 = “”

Text4 = “”

Text5 = “”

Text6 = “”

End Sub

Private Sub Command3_Click()

Text1.SetFocus

Text1 = “”

Text2 = “”

Text3 = “”

Text4 = “”

Text5 = “”

Text6 = “”

End Sub

Private Sub Command4_Click()

Unload Me

End Sub

Private Sub Text1_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

Dim K, J, P, H, G As String

K = Left(Text1.Text, 3)

If K = “SIM” Or K = “sim” Then

J = “Sistem Informasi Manajemen”

P = “Fadiya Ulfa”

H = “75900″

ElseIf K = “EDP” Or K = “edp” Then

J = “Elektronik Data Procesing”

P = “Nurul Agustina”

H = “62000″

ElseIf K = “MNJ” Or K = “mnj” Then

J = “Manajemen”

P = “Rian Hidayat”

H = “42000″

ElseIf K = “cdr” Or K = “CDR” Then

J = “Corel Draw”

P = “Siti Nur Khotimah”

H = “53000″

ElseIf K = “rpl” Or K = “RPL” Then

J = “Rekayasa Perangkat Lunak”

P = “Winda Erlianti”

H = “83000″

End If

Text2.Text = J

Text3.Text = P

Text6.Text = H

K = Right(Text1.Text, 1)

If K = “A” Or K = “a” Then

G = “Andi Offset Yogyakarta”

ElseIf K = “i” Or K = “I” Then

G = “Indah Surabaya”

ElseIf K = “S” Or K = “s” Then

G = “Salemba Empat”

ElseIf K = “E” Or K = “e” Then

G = “Elek Media Komputindo”

ElseIf K = “M” Or K = “m” Then

G = “Maxikom”

End If

Text5.Text = G

Text4.Text = “20″ & Mid(Text1.Text, 5, 2)

End If

End Sub

v\:* {behavior:url(#default#VML);}
o\:* {behavior:url(#default#VML);}
w\:* {behavior:url(#default#VML);}
.shape {behavior:url(#default#VML);}

Normal
0

false
false
false

EN-US
X-NONE
X-NONE

/* Style Definitions */
table.MsoNormalTable
{mso-style-name:”Table Normal”;
mso-tstyle-rowband-size:0;
mso-tstyle-colband-size:0;
mso-style-noshow:yes;
mso-style-priority:99;
mso-style-qformat:yes;
mso-style-parent:””;
mso-padding-alt:0cm 5.4pt 0cm 5.4pt;
mso-para-margin-top:0cm;
mso-para-margin-right:0cm;
mso-para-margin-bottom:10.0pt;
mso-para-margin-left:0cm;
line-height:115%;
mso-pagination:widow-orphan;
font-size:11.0pt;
font-family:”Calibri”,”sans-serif”;
mso-ascii-font-family:Calibri;
mso-ascii-theme-font:minor-latin;
mso-fareast-font-family:”Times New Roman”;
mso-fareast-theme-font:minor-fareast;
mso-hansi-font-family:Calibri;
mso-hansi-theme-font:minor-latin;
mso-bidi-font-family:”Times New Roman”;
mso-bidi-theme-font:minor-bidi;}

SCRIPT 1 : PROSES & ENTER

Private Sub Command1_Click()

Dim K, J, P, H, G As String

K = Left(Text1.Text, 3)

If K = “SIM” Or K = “sim” Then

J = “Sistem Informasi Manajemen”

P = “Fadiya Ulfa”

H = “75900″

ElseIf K = “EDP” Or K = “edp” Then

J = “Elektronik Data Procesing”

P = “Nurul Agustina”

H = “62000″

ElseIf K = “MNJ” Or K = “mnj” Then

J = “Manajemen”

P = “Rian Hidayat”

H = “42000″

ElseIf K = “cdr” Or K = “CDR” Then

J = “Corel Draw”

P = “Siti Nur Khotimah”

H = “53000″

ElseIf K = “rpl” Or K = “RPL” Then

J = “Rekayasa Perangkat Lunak”

P = “Winda Erlianti”

H = “83000″

End If

Text2.Text = J

Text3.Text = P

Text6.Text = H

K = Right(Text1.Text, 1)

If K = “A” Or K = “a” Then

G = “Andi Offset Yogyakarta”

ElseIf K = “i” Or K = “I” Then

G = “Indah Surabaya”

ElseIf K = “S” Or K = “s” Then

G = “Salemba Empat”

ElseIf K = “E” Or K = “e” Then

G = “Elek Media Komputindo”

ElseIf K = “M” Or K = “m” Then

G = “Maxikom”

End If

Text5.Text = G

Text4.Text = “20″ & Mid(Text1.Text, 5, 2)

End Sub

Private Sub Command2_Click()

Text1.SetFocus

Text1 = “”

Text2 = “”

Text3 = “”

Text4 = “”

Text5 = “”

Text6 = “”

End Sub

Private Sub Command3_Click()

Text1.SetFocus

Text1 = “”

Text2 = “”

Text3 = “”

Text4 = “”

Text5 = “”

Text6 = “”

End Sub

Private Sub Command4_Click()

Unload Me

End Sub

Private Sub Text1_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

Dim K, J, P, H, G As String

K = Left(Text1.Text, 3)

If K = “SIM” Or K = “sim” Then

J = “Sistem Informasi Manajemen”

P = “Fadiya Ulfa”

H = “75900″

ElseIf K = “EDP” Or K = “edp” Then

J = “Elektronik Data Procesing”

P = “Nurul Agustina”

H = “62000″

ElseIf K = “MNJ” Or K = “mnj” Then

J = “Manajemen”

P = “Rian Hidayat”

H = “42000″

ElseIf K = “cdr” Or K = “CDR” Then

J = “Corel Draw”

P = “Siti Nur Khotimah”

H = “53000″

ElseIf K = “rpl” Or K = “RPL” Then

J = “Rekayasa Perangkat Lunak”

P = “Winda Erlianti”

H = “83000″

End If

Text2.Text = J

Text3.Text = P

Text6.Text = H

K = Right(Text1.Text, 1)

If K = “A” Or K = “a” Then

G = “Andi Offset Yogyakarta”

ElseIf K = “i” Or K = “I” Then

G = “Indah Surabaya”

ElseIf K = “S” Or K = “s” Then

G = “Salemba Empat”

ElseIf K = “E” Or K = “e” Then

G = “Elek Media Komputindo”

ElseIf K = “M” Or K = “m” Then

G = “Maxikom”

End If

Text5.Text = G

Text4.Text = “20″ & Mid(Text1.Text, 5, 2)

End If

End Sub

nh hari panas amat sich…

udah tugas kuliah pada nunggu…

Private Sub Cmd1_Click()

Text1.SetFocus

Text1 = “”

Text2 = “”

Text3 = “”

End Sub

Private Sub Cmd2_Click()

Unload Me

End Sub

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

Text3.Text = Val(Text1.Text) * Val(Text2.Text)

End If

End Sub

 

Private Sub Cmd1_Click()

Text3.Text = Val(Text1.Text) * Val(Text2.Text)

End Sub

 

Private Sub Cmd2_Click()

Text1.SetFocus

Text1 = “”

Text2 = “”

Text3 = “”

End Sub

 

Private Sub Cmd3_Click()

Unload Me

End Sub

 

Private Sub Text1_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

Text2.SetFocus

End If

End Sub

 

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

Text3.Text = Val(Text1.Text) * Val(Text2.Text)

End If

End Sub

Private Sub Cmd1_Click()

Text3.Text = Val(Text1.Text) * Val(Text2.Text)

End Sub

 

Private Sub Cmd2_Click()

Text1.SetFocus

Text1 = “”

Text2 = “”

Text3 = “”

End Sub

 

Private Sub Cmd3_Click()

Unload Me

End Sub

 

 

Private Sub Text1_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

Text2.SetFocus

End If

End Sub

Private Sub Cmd6_Click()

Text1.SetFocus

Text1 = “”

Text2 = “”

End Sub

 

Private Sub Cmd7_Click()

Text1.SetFocus

Text1 = “”

Text2 = “”

End Sub

 

Private Sub Cmd8_Click()

Unload Me

End Sub

 

 

Private Sub Cmd1_Click()

 

Text3.Text = Val(Text1.Text) + Val(Text2.Text)

Text4.Text = Val(Text1.Text) – Val(Text2.Text)

Text5.Text = Val(Text1.Text) / Val(Text2.Text)

Text6.Text = Val(Text1.Text) * Val(Text2.Text)

End Sub

Private Sub Cmd6_Click()

Text1.SetFocus

Text1 = “”

Text2 = “”

Text3 = “”

Text4 = “”

Text5 = “”

Text6 = “”

 

End Sub

 

Private Sub Cmd7_Click()

Text1.SetFocus

Text1 = “”

Text2 = “”

Text3 = “”

Text4 = “”

Text5 = “”

Text6 = “”

End Sub

 

Private Sub Cmd8_Click()

Unload Me

End Sub

 

 

Private Sub Cmd1_Click()

 

Text3.Text = Val(Text1.Text) + Val(Text2.Text)

Text4.Text = Val(Text1.Text) – Val(Text2.Text)

Text5.Text = Val(Text1.Text) / Val(Text2.Text)

Text6.Text = Val(Text1.Text) * Val(Text2.Text)

End Sub

 

Private Sub Cmd2_Click()

Text3.Text = Val(Text1.Text) + Val(Text2.Text)

End Sub

 

Private Sub Cmd3_Click()

Text4.Text = Val(Text1.Text) – Val(Text2.Text)

End Sub

 

Private Sub Cmd4_Click()

Text5.Text = Val(Text1.Text) / Val(Text2.Text)

End Sub

 

Private Sub Cmd5_Click()

Text6.Text = Val(Text1.Text) * Val(Text2.Text)

End Sub

 

Private Sub Cmd6_Click()

Text1.SetFocus

Text1 = “”

Text2 = “”

Text3 = “”

Text4 = “”

Text5 = “”

Text6 = “”

 

End Sub

 

Private Sub Cmd7_Click()

Text1.SetFocus

Text1 = “”

Text2 = “”

Text3 = “”

Text4 = “”

Text5 = “”

Text6 = “”

End Sub

 

Private Sub Cmd8_Click()

Unload Me

End Sub

 

Private Sub Text1_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

Text2.SetFocus

End If

End Sub

 

Private Sub Cmd1_Click()

Text2.Text = Val(Text1.Text) * 0.1

Text3.Text = Val(Text1.Text) – Val(Text2.Text)

End Sub

 

Private Sub Cmd2_Click()

Text1.SetFocus

Text1 = “”

Text2 = “”

Text3 = “”

End Sub

 

Private Sub Cmd3_Click()

Unload Me

End Sub

 

Private Sub Text1_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

Text2.SetFocus

Text2.Text = Val(Text1.Text) * 0.1

Text3.Text = Val(Text1.Text) – Val(Text2.Text)

End If

End Sub

 

 

Private Sub Cmd1_Click()

Text4.Text = Val(Text1.Text) + Val(Text2.Text) – Val(Text3.Text)

Text5.Text = Val(Text4.Text) * 0.1

Text6.Text = Val(Text4.Text) – Val(Text5.Text)

End Sub

 

Private Sub Cmd2_Click()

Text1.SetFocus

Text1 = “”

Text2 = “”

Text3 = “”

Text4 = “”

Text5 = “”

Text6 = “”

End Sub

 

Private Sub Cmd3_Click()

Unload Me

End Sub

 

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

TUGAS

Private Sub TxtNAMA_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

TxtALAMAT.SetFocus

End If

End Sub

 

Private Sub TxtNPM_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

TxtNAMA.SetFocus

End If

End Sub

 

Private Sub Command2_Click()

TxtNPM = “”

TxtNAMA = “”

TxtALAMAT = “”

TxtNPM.SetFocus

End Sub

Private Sub Command1_Click()

TxtNPM = “”

TxtNAMA = “”

TxtALAMAT = “”

TxtNPM.SetFocus

End Sub

Private Sub Command3_Click()

Unload Me

End Sub

Konser di Indonesia, Aerosmith Bawa 80 Ton Alat Musik

Rabu, 6 Maret 2013 18:51 wib

Aerosmith (Foto: Reuters)

JAKARTA – Berawal dengan lahirnya album “Music From Another Dimension”, Steven Tyler dkk siap menghibur penggemar Indonesia dengan menggelar Aerosmith The Global Warming World Tour di JIExpo Kemayoran, Jakarta Pusat, Sabtu 11 Mei 2013.
Di Asia, Aerosmith akan mengunjungi tiga negara, yakni Taiwan, Filipina dan Indonesia, dan Australia.
 
Tiga promotor Dyandra Entertainment, Ismaya Live dan Sound Rhythm, telah mengumumkan secara resmi melalui Twitter mengkonfirmasi kehadiran band asal Boston itu, Sabtu 11 Mei 2013, di JIEXPO Kemayoran, Jakarta Pusat.
 
Hal tersebut turut dibenarkan pihak Ismaya Live, Yudha Perdana, yang menyebutkan mereka telah mendapatkan kepastian dari Aerosmith.
 
“Kita sudah confirm 100 persen. Mereka announce juga di website mereka (Aerosmith),” ungkap Yudha perwakilan Ismaya Live saat jumpa pers di Plaza Indonesia, Jakarta Pusat, Rabu (6/3/2013).
 
Seperti yang dituturkan Yudha, pihak Aerosmith rencananya akan mengirimkan alat musik dan panggung yang beratnya mencapai 80 ton. Wow!
 
“Untuk Asia Tenggara, Indonesia, Filipina, dan Taiwan. Persiapan, tahap produksi. Mulai dapat riders dari Aerosmith, mereka kirim 70-80 ton alat musik. Persiapan kita kejar waktu karena sudah Maret,” katanya.
 
Yudha menuturkan, awalnya Jakarta baru akan mendapat kesempatan dikunjungi Aerosmith Juni mendatang, namun pihak manajemen menambah Filipina sebagai tujuan tur band legendaris itu.
 
“Dari manajemen (Aerosmith) tadinya Jakarta dapat bulan Juni, tapi ternyata ada Filipina, dari Australia ke Filipina, ke Jakarta, baru Taiwan,” tandasnya

Bursa Gubernur BI Hatta Ngotot Agus Marto Jadi Gubernur BI

Kamis, 7 Maret 2013 11:50 wib

Menko Perekonomian Hatta Rajasa. (Foto: Koran SI)

JAKARTA – Pencalonan Menteri Keuangan (Menkeu) Agus DW Martowarodjo sebagai Gubernur Bank Indonesia (BI) akhirnya mendapat lampu hijau oleh Komisi XI DPR. Namun, Komisi XI menyarankan pemerintah memberikan calon alternatif selain Agus Marto.

Menanggapi hal tersebut, Menteri Koordinator Bidang Perekonomian Hatta Rajasa mengatakan, cukup Agus Marto yang dicalonkan sebagai suksesor pengganti Darmin Nasution. “Cukup satu. satu saja sudah cukup,” kata Hatta di kantornya, Jakarta, Kamis (7/3/2013).

Sebelumnya, rapat internal calon gubernur BI yang diadakan di Komisi XI memutuskan Agus DW Martowardojo dapat menjalani fit and proper test. Namun, terdapat beberapa catatan terhadap pencaonan gubernur BI kali ini.

Anggota DPR Vera Febyanthi Rumangkang mengatakan, saat ini ada empat Fraksi yang meminta penambahan calon Gubernur BI lebih dari satu. Di antaranya dari Fraksi Golkar, PDI-P, Hanura, dan Fraksi Gerindra.

“Ada empat fraksi yang minta lebih dari satu calon, tapi bila SBY tidak mengajukan kami tetap jalan. Kami hanya lakukan imbauan, ini adalah aspirasi yang berkembang, karena adanya jadwal sidang DPR,” kata Vera, beberapa waktu lalu

Soal PPD, Menkeu Belum Balas Surat Kementerian BUMN

Kamis, 7 Maret 2013 11:53 wib

Menkeu Agus Martowardojo. (Foto: Heru Haryono/Okezone)

JAKARTA – Kementerian BUMN sampai saat ini tengah menunggu kabar dari menteri keuangan (menkeu) terkait Perum Pengangkutan Penumpang Djakarta (PPD) yang akan dihibahkan ke Pemprov DKI Jakarta.

Disampaikan Deputi bidang Restrukturisasi dan Perencanaan Strategis Kementerian BUMN Pandu Djajanto, perestuan ini berkaitan dengan aset negara.

“Surat itu belum dibalas, bukan kita tetapi karena itu aset negara. Jadi menteri keuangan yang menetapkan,” ujar Pandu Djajanto, di kantor Kementerian BUMN, Jakarta, Kamis (7/3/2013).

Sebelumnya, Gubernur DKI Joko Widodo mengaku berminat mengambil alih Perum PPD. Namun, Jokowi tidak mau mengeluarkan uang membeli Perum PPD, Nantinya, PPD akan digunakan untuk integrasi dengan TransJakarta.

Menteri BUMN Dahlan Iskan memberikan dukungannya terkait rencana Gubernur DKI Joko Widodo yang ingin mengelola Perum PPD. Bahkan, Dahlan ingin segera menyerahkan pengelolaan PPD ke Jokowi.

Dahlan pun telah menyetujui memberikan Perum PPD tersebut dan meminta Jokowi mengurusnya ke Kementerian Keuangan (Kemenkeu) jika skemanya bersifat hibah. Namun, hingga saat ini proses di Kemenkeu masih belum menemui kejelasan

Loyalis Anas Adukan Sprindik Bocor ke Komisi III Kamis, 07 Maret 2013 12:41 wib

Anas Urbaningrum (Foto: Okezone)

JAKARTA – Sejumlah loyalis mantan Ketua Umum Partai Demokrat Anas Urbaningrum, siang ini akan mengadu ke Komisi III DPR, terkait bocornya surat perintah penyidikan (sprindik) Anas beberapa waktu lalu.

“Komisi III agar membentuk Pansus skandal dari sprindik bocor dan memanggil KPK jangan sampai ada lagi kejadian sprindik bocor,” kata Ketua DPC Partai Demokrat Cilacap, Tridianto saat dihubungi wartawan di Jakarta, Kamis (7/3/2013).

Selain karena merugikan nama Anas, bocornya sprindik tersebut secara tidak langsung juga bisa mencederai kinerja KPK, yang selama ini memang menjadi harapan publik untuk bisa memberantas kasus korupsi.

“Kita ingin menyelamatkan lembaga KPK ini dari oknum-oknum KPK yang punya mental bejad yang telah membocorkan darf sprindik,” tegasnya.

Seperti diketahui, saat ini komite etik tengah menyelidiki dugaan kasus bocornya Sprindik penetapan Anas sebagai tersangka dalam kasus dugaan korupsi proyek pembangunan sport center Hambalang, Bogor, Jawa Barat.  Tim etik masih menguji keaslian Sprindik dan mencari pelaku pembocornya.

Sprindik itu sendiri bocor sekira dua pekan sebelum Anas ditetapkan secara resmi pada 22 Februari 2013 sebagai tersangka kasus senilai Rp2,5 triliun itu