tugas vb 4

Gambar

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

Gambar

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

Gambar

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

Gambar

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

Gambar

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

Gambar

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

Gambar

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

Gambar

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

Gambar

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

Gambar

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

Gambar

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

Gambar

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

Gambar

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

:D

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

Gambar

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

 

Gambar

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

 

Gambar

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

 

Gambar

 

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

 

Gambar

 

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

 

Gambar

 

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

 

Gambar

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

 

Gambar

 

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

Gambar

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)
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