TUGAS 4

01

1

  • SOURCE CODE

Private Sub cmdkeluar_Click()

End

End Sub

Private Sub cmdlagi_Click()

Txtmnk.SetFocus

Txtmnk.Text = “”

Txtmn.Text = “”

Txtgol.Text = “”

Txtks.Text = “”

Txts.Text = “”

Txtt.Text = “”

Txtj.Text = “”

Txtb.Text = “”

Txtgapok.Text = “”

Txttnj.Text = “”

Txttotal.Text = “”

End Sub

Private Sub cmdproses_Click()

Dim r As String

r = Mid(Txtmn.Text, 5, 1)

If r = “A” Then

Txtgol = “A”

Txtj.Text = “MANAGER”

Txtgapok.Text = “4000000”

Txttnj.Text = “1025000”

ElseIf r = “B” Then

Txtgol.Text = “B”

Txtj.Text = “Ka.SEKSI”

Txtgapok.Text = “3500000”

Txttnj.Text = “975000”

ElseIf r = “C” Then

Txtgol.Text = “C”

Txtj.Text = “STAFF”

Txtgapok.Text = “3000000”

Txttnj.Text = “925000”

End If

r = Right(Txtmn.Text, 3)

If r = “KEU” Then

Txtb.Text = “ACCOUNTING”

ElseIf r = “ADM” Then

Txtb.Text = “ADMINISTRASI”

ElseIf r = “SDM” Then

Txtb.Text = “GENERAL AFFAIR”

ElseIf r = “EDP” Then

Txtb.Text = “IT UNIT”

ElseIf r = “SPM” Then

Txtb.Text = “SECURITY”

End If

r = Mid(Txtmn.Text, 7, 1)

If r = “S” Then

kode = “S”

Status = “SINGEL”

ElseIf r = “M” Then

kode = “M”

Status = “MENIKAH”

ElseIf r = “J” Then

kode = “J”

Status = “JANDA”

ElseIf r = “D” Then

kode = “D”

Status = “DUDA”

End If

Txtks.Text = kode

Txts.Text = Status

Txtt.Text = Left(Txtmn.Text, 4)

Txttotal.Text = Val(Txtgapok.Text) + Val(Txttnj.Text)

End Sub

Private Sub Form_Activate()

Txtmnk.SetFocus

End Sub

Private Sub Picture1_Click()

End Sub

Private Sub txtmnk_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

Txtmn.SetFocus

End If

End Sub

Private Sub cmdbatal_Click()

Txtmnk.SetFocus

Txtmnk.Text = “”

Txtmn.Text = “”

Txtgol.Text = “”

Txtks.Text = “”

Txts.Text = “”

Txtt.Text = “”

Txtj.Text = “”

Txtb.Text = “”

Txtgapok.Text = “”

Txttnj.Text = “”

Txttotal.Text = “”

End Sub

02

1

  • SOURCE CODE

Private Sub Cbokode_Click()

Dim mt, hs, TB As Integer

Select Case Cbokode.Text

Case “Apple MC965 MacBook Air”

mt = “Apple MacBook Air MC965”

hs = “12800000”

Case “Apple MC966 MacBook Air”

mt = “Apple MacBook Air MC966”

hs = “15800000”

Case “Apple MC968 MacBook Air”

mt = “Apple MacBook Air MC968”

hs = “9900000”

Case “Apple MC969 MacBook Air”

mt = “Apple MacBook Air MC969”

hs = “11900000”

Case “Apple MC700 MacBook Pro”

mt = “Apple MacBook Pro MC700”

hs = “10800000”

Case “Apple MC721 MacBook Pro”

mt = “Apple MacBook Pro MC721”

hs = “15900000”

Case “Apple MC723 MacBook Pro”

mt = “Apple MacBook Pro MC723”

hs = “19300000”

Case “Apple MC724 MacBook Pro”

mt = “Apple MacBook Pro MC724”

hs = “13700000”

Case “Apple MC311 MacBook Pro”

mt = “Apple MacBook Pro MC311”

hs = “24200000”

Case “Apple MC313 MacBook Pro”

mt = “Apple MacBook Pro MC313”

hs = “11900000”

Case “Apple MC314 MacBook Pro”

mt = “Apple MacBook Pro MC314”

hs = “14700000”

Case “Apple MC318 MacBook Pro”

mt = “Apple MacBook Pro MC318”

hs = “17600000”

Case “Apple MC322 MacBook Pro”

mt = “Apple MacBook Pro MC322”

hs = “21300000”

Case “Apple MC965 MacBook Air”

mt = “Apple MacBook Air MC965”

hs = “12800000”

Case “Apple MC966 MacBook Air”

mt = “Apple MacBook Air MC966”

hs = “15800000”

End Select

Txtmerk.Text = mt

Txths.Text = hs

Txtjj.SetFocus

End Sub

Private Sub Cmdkeluar_Click()

End

End Sub

Private Sub Cmdlagi_Click()

Cbokode.SetFocus

Cbokode.Text = “”

Txtmerk.Text = “”

Txths.Text = “”

Txtjj.Text = “”

Txthp.Text = “”

Txtdis.Text = “”

Txttb.Text = “”

End Sub

Private Sub Cmdproses_Click()

Txthp.Text = Val(Txths) * Val(Txtjj)

Select Case Txthp.Text

Case Is > 140000000

Txtdis.Text = Val(Txthp) * 0.15

Case Is > 135000000

Txtdis.Text = Val(Txthp) * 0.1

Case Is > 130000000

Txtdis.Text = Val(Txthp) * 0.05

Case Is > 125000000

Txtdis.Text = Val(Txthp) * 0.02

End Select

Txttb.Text = Val(Txthp) – Val(Txtdis)

End Sub

Private Sub Form_Load()

Cbokode.AddItem “Apple MC965 MacBook Air”

Cbokode.AddItem “Apple MC966 MacBook Air”

Cbokode.AddItem “Apple MC968 MacBook Air”

Cbokode.AddItem “Apple MC969 MacBook Air”

Cbokode.AddItem “Apple MC700 MacBook Pro”

Cbokode.AddItem “Apple MC721 MacBook Pro”

Cbokode.AddItem “Apple MC723 MacBook Pro”

Cbokode.AddItem “Apple MC724 MacBook Pro”

Cbokode.AddItem “Apple MC311 MacBook Pro”

Cbokode.AddItem “Apple MC313 MacBook Pro”

Cbokode.AddItem “Apple MC314 MacBook Pro”

Cbokode.AddItem “Apple MC318 MacBook Pro”

Cbokode.AddItem “Apple MC322 MacBook Pro”

Cbokode.AddItem “Apple MC965 MacBook Air”

Cbokode.AddItem “Apple MC966 MacBook Air”

End Sub

Private Sub Txtjj_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

Txthp.Text = Val(Txths) * Val(Txtjj)

Select Case Txthp.Text

Case Is > 140000000

Txtdis.Text = Val(Txthp) * 0.15

Case Is > 135000000

Txtdis.Text = Val(Txthp) * 0.1

Case Is > 130000000

Txtdis.Text = Val(Txthp) * 0.05

Case Is > 125000000

Txtdis.Text = Val(Txthp) * 0.02

End Select

Txttb.Text = Val(Txthp) – Val(Txtdis)

End If

End Sub

03

1

  • SOURCE CODE

Private Sub Combo1_Click()

Dim jk, hs, HB As Integer

Select Case Combo1.Text

Case “P205”

jk = “Pentium II 500 Mega Hz”

hs = “1500000”

Case “P308”

jk = “Pentium III 800 Mega Hz”

hs = “2100000”

Case “P310”

jk = “Pentium III 1.0 Giga Hz”

hs = “3500000”

Case “P415”

jk = “Pentium IV 1.5 Giga Hz”

hs = “4000000”

Case “P417”

jk = “Pentium IV 1.7 Giga Hz”

hs = “4200000”

Case “P419”

jk = “Pentium IV 1.9 Giga Hz”

hs = “5500000”

End Select

txtjenis.Text = jk

txtharga.Text = hs

txtjumlah.SetFocus

End Sub

Private Sub cmdkeluar_Click()

End

End Sub

Private Sub cmdlagi_Click()

Combo1.SetFocus

Combo1.Text = “”

txtjenis.Text = “”

txtharga.Text = “”

txtjumlah.Text = “”

Txtharpen.Text = “”

Txtdiskon.Text = “”

Txtbayar.Text = “”

End Sub

Private Sub cmdproses_Click()

Txtharpen.Text = Val(txtharga) * Val(txtjumlah)

Select Case Txtharpen.Text

Case Is > 30000000

Txtdiskon.Text = Val(Txtharpen) * 0.15

Case Is > 25000000

Txtdiskon.Text = Val(Txtharpen) * 0.1

Case Is > 20000000

Txtdiskon.Text = Val(Txtharpen) * 0.05

Case Is > 15000000

Txtdiskon.Text = Val(Txtharpen) * 0.02

End Select

Txtbayar.Text = Val(Txtharpen) – Val(Txtdiskon)

End Sub

Private Sub Form_Load()

Combo1.AddItem “P205”

Combo1.AddItem “P308”

Combo1.AddItem “P310”

Combo1.AddItem “P415”

Combo1.AddItem “P417”

Combo1.AddItem “P419”

End Sub

Private Sub txtjumlah_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

Txtharpen.Text = Val(txtharga) * Val(txtjumlah)

Select Case Txtharpen.Text

Case Is > 30000000

Txtdiskon.Text = Val(Txtharpen) * 0.15

Case Is > 25000000

Txtdiskon.Text = Val(Txtharpen) * 0.1

Case Is > 20000000

Txtdiskon.Text = Val(Txtharpen) * 0.05

Case Is > 15000000

Txtdiskon.Text = Val(Txtharpen) * 0.02

End Select

Txtbayar.Text = Val(Txtharpen) – Val(Txtdiskon)

End If

End Sub

04

1

Private Sub Command2_Click()

Text1 = “”

Text2 = “”

Text3 = “”

Text4 = “”

Text5 = “”

Text6 = “”

Text1.SetFocus

End Sub

Private Sub Command3_Click()

Unload Me

End Sub

Private Sub Command1_Click()

If Text1.Text = “BIM” Then

Text2.Text = 50000

Text3.Text = “BIMA”

Text4.Text = “16.00 WIB”

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

ElseIf Text1.Text = “EKO” Then

Text2.Text = 35000

Text3.Text = “EKONOMI”

Text4.Text = “19.00 WIB”

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

ElseIf Text1.Text = “MUT” Then

Text2.Text = 23000

Text3.Text = “MUTIARA”

Text4.Text = “17.00 WIB”

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

ElseIf Text1.Text = “SEN” Then

Text2.Text = 35000

Text3.Text = “SENJA”

Text4.Text = “20.00 WIB”

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

End If

End Sub

05

1

Private Sub cmdbatal_Click()

Cbokb.SetFocus

Cbokb.Text = “”

Txtjb.Text = “”

Txtpeng.Text = “”

Txttt.Text = “”

Txtpen.Text = “”

Txth.Text = “”

End Sub

Private Sub cmdkeluar_Click()

End

End Sub

Private Sub cmdlagi_Click()

Cbokb.SetFocus

Cbokb.Text = “”

Txtjb.Text = “”

Txtpeng.Text = “”

Txttt.Text = “”

Txtpen.Text = “”

Txth.Text = “”

End Sub

Private Sub cmdproses_Click()

Dim a, b, c, d As String

Dim h As Double

Txttt.Text = “20” & Right(Cbokb.Text, 2)

a = Mid(Cbokb.Text, 3, 3)

If a = “SIM” Then

b = “SISTEM INFORMASI MANAJEMEN”

c = “YATI NUR OKTAVIA”

h = “75900”

ElseIf a = “MNJ” Then

b = “MANAJEMEN”

c = “VALENTINA MARIANA ADIWIANTI”

h = “42000”

ElseIf a = “EDP” Then

b = “ELECTRONIK DATA PROCESSING”

c = “IMAM TARMIZI”

h = “62000”

ElseIf a = “CDR” Then

b = “COREL DRAW”

c = “RIYAN SUHANDI”

h = “53000”

ElseIf a = “RPL” Then

b = “REKAYASA PERANGKAT LUNAK”

c = “SINTA UMPUL SINGA”

h = “83000”

End If

Txtjb.Text = b

Txtpeng.Text = c

Txth.Text = h

d = Left(Cbokb.Text, 1)

If d = “A” Then

Txtpen.Text = “ANDI OFFSET YOGYAKARTA”

ElseIf d = “I” Then

Txtpen.Text = “INDAH SURABAYA”

ElseIf d = “M” Then

Txtpen.Text = “MAXICOM”

ElseIf d = “S” Then

Txtpen.Text = “SURYA PERMAI”

ElseIf d = “E” Then

Txtpen.Text = “ELEK MEDIA KOMPUTINDO”

End If

End Sub

Private Sub Form_Load()

Cbokb.AddItem “A-SIM-01”

Cbokb.AddItem “I-EDP-02”

Cbokb.AddItem “S-MNJ-03”

Cbokb.AddItem “E-CDR-04”

Cbokb.AddItem “M-RPL-05”

End Sub

06

1

Private Sub Cmdbatal_Click()

Txtnama.SetFocus

Txtnama.Text = “”

Txtnpm.Text = “”

txtkelas.Text = “”

txtjur.Text = “”

txtprodi.Text = “”

txttm.Text = “”

txtnu.Text = “”

txtup.Text = “”

txtbps.Text = “”

txtub.Text = “”

txtbp.Text = “”

txttotal.Text = “”

End Sub

Private Sub Cmdkeluar_Click()

End

End Sub

Private Sub Cmdlagi_Click()

Txtnama.SetFocus

Txtnama.Text = “”

Txtnpm.Text = “”

txtkelas.Text = “”

txtjur.Text = “”

txtprodi.Text = “”

txttm.Text = “”

txtnu.Text = “”

txtup.Text = “”

txtbps.Text = “”

txtub.Text = “”

txtbp.Text = “”

txttotal.Text = “”

End Sub

Private Sub Cmdproses_Click()

Dim S As String

S = Left(Txtnpm, 1)

If S = “E” Then

txtkelas.Text = “Eksekutif”

txtub.Text = “1250000”

ElseIf S = “R” Then

txtkelas.Text = “Reguler”

txtub.Text = “1000000”

End If

S = Mid(Txtnpm, 6, 2)

If S = “00” Then

txtprodi.Text = “Strata Satu”

If txtkelas.Text = “Reguler” Then

txtbps.Text = “1500000”

Else

txtbps.Text = “1900000”

End If

ElseIf S = “01” Then

txtprodi.Text = “Diploma Tiga”

If txtkelas.Text = “Reguler” Then

txtbps.Text = “1250000”

Else

txtbps.Text = “1650000”

End If

ElseIf S = “02” Then

txtprodi.Text = “Diploma Satu”

If txtkelas.Text = “Reguler” Then

txtbps.Text = “1250000”

Else

txtbps.Text = “1350000”

End If

End If

S = Mid(Txtnpm, 5, 1)

If S = “1” Then

txtjur.Text = “Sistem Informasi”

ElseIf S = “2” Then

txtjur.Text = “Manajemen Informatika”

ElseIf S = “3” Then

txtjur.Text = “Manajemendan Komp. Akuntansi”

End If

txttm.Text = “20” & Mid(Txtnpm.Text, 3, 2)

txtnu.Text = Right(Txtnpm, 3)

If txtprodi.Text = “Strata Satu” Then

txtup.Text = “200000”

txtbp.Text = “600000”

Else

If txtprodi.Text = “Diploma Tiga” Then

txtup.Text = “150000”

txtbp.Text = “600000”

Else

If txtprodi.Text = “Diploma Satu” Then

txtup.Text = “150000”

txtbp.Text = “600000”

End If

End If

End If

txttotal.Text = Val(txtup.Text) + Val(txtbps.Text) + Val(txtub.Text) + Val(txtbp.Text)

End Sub

Private Sub Txtnama_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

Txtnpm.SetFocus

End If

End Sub

07

1

Private Sub Cmdbatal_Click()

txtnama.SetFocus

txtnama.Text = “”

txtnpm.Text = “”

txtjur.Text = “”

txtprodi.Text = “”

txttm.Text = “”

txtnu.Text = “”

txtbp.Text = “”

End Sub

Private Sub Cmdkeluar_Click()

End

End Sub

Private Sub Cmdlagi_Click()

txtnama.SetFocus

txtnama.Text = “”

txtnpm.Text = “”

txtjur.Text = “”

txtprodi.Text = “”

txttm.Text = “”

txtnu.Text = “”

txtbp.Text = “”

End Sub

Private Sub Cmdproses_Click()

Dim S As String

txttm.Text = “20” & Left(txtnpm.Text, 2)

S = Mid(txtnpm.Text, 3, 1)

If S = “1” Then

txtjur.Text = “Sistem Informasi”

ElseIf S = “2” Then

txtjur.Text = “Teknik Informatika”

ElseIf S = “3” Then

txtjur.Text = “Manajemen Informatika”

ElseIf S = “4” Then

txtjur.Text = “Manajemen & Komp. Akuntansi”

End If

S = Mid(txtnpm.Text, 4, 2)

If S = “00” Then

txtprodi.Text = “Strata Satu”

txtbp.Text = “1950000”

ElseIf S = “01” Then

txtprodi.Text = “Diploma Empat”

txtbp.Text = “1750000”

ElseIf S = “02” Then

txtprodi.Text = “Diploma Tiga”

txtbp.Text = “1650000”

ElseIf S = “03” Then

txtprodi.Text = “Diploma Dua”

txtbp.Text = “1450000”

End If

txtnu.Text = Right(txtnpm.Text, 3)

End Sub

Private Sub Txtnama_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

txtnpm.SetFocus

End If

End Sub

08

1

Private Sub Cbokode_Click()

Dim kk, jk, hs As String

Select Case Cbokode.Text

Case “Asus A43SA”

Txtjk.Text = “Asus A53SA-VX090D”

Txths.Text = “5500000”

Case “Asus A43SD”

Txtjk.Text = “Asus A43SD-VX052D”

Txths.Text = “4500000”

Case “Asus A43SJ”

Txtjk.Text = “Asus A43SJ-VX792D”

Txths.Text = “4300000”

Case “Asus A43TA”

Txtjk.Text = “Asus A43TA-VX034D ”

Txths.Text = “4900000”

Case “Asus A43SL”

Txtjk.Text = “Asus A43SL-VX264SL”

Txths.Text = “4300000”

Case “Apple MD311”

Txtjk.Text = “Apple MacBook Pro MD311”

Txths.Text = “19300000”

Case “Apple MD313”

Txtjk.Text = “Apple MacBook Pro MD313”

Txths.Text = “24200000”

Case “Apple MD314”

Txtjk.Text = “Apple MacBook Pro MD314”

Txths.Text = “11900000”

Case “Apple MD322”

Txtjk.Text = “Apple MacBook Pro MD322”

Txths.Text = “14700000”

Case “Apple MC965”

Txtjk.Text = “Apple MacBook Air MC965”

Txths.Text = “19300000”

End Select

End Sub

Private Sub Cmdhitunglagi_Click()

Cbokode.SetFocus

Cbokode.Text = “”

Txtjk.Text = “”

Txths.Text = “”

Txtjj.Text = “”

Txthp.Text = “”

Txtdiscn.Text = “”

Txttotal.Text = “”

End Sub

Private Sub Cmdkeluar_Click()

End

End Sub

Private Sub Cmdproses_Click()

Txthp.Text = Val(Txtjj.Text) * Val(Txths.Text)

If Txthp.Text > 40000000 Then

Txtdiscn.Text = Val(Txthp.Text) * 0.15

ElseIf Txthp.Text > 35000000 Then

Txtdiscn.Text = Val(Txthp.Text) * 0.1

ElseIf Txthp.Text > 30000000 Then

Txtdiscn.Text = Val(Txthp.Text) * 0.5

ElseIf Txthp.Text > 25000000 Then

Txtdiscn.Text = Val(Txthp.Text) * 0.2

End If

Txttotal.Text = Val(Txthp.Text) – Val(Txtdiscn.Text)

End Sub

Private Sub Form_Load()

Cbokode.AddItem “Asus A43SA”

Cbokode.AddItem “Asus A43SD”

Cbokode.AddItem “Asus A43SJ”

Cbokode.AddItem “Asus A43TA”

Cbokode.AddItem “Asus A43SL”

Cbokode.AddItem “Apple MD311”

Cbokode.AddItem “Apple MD313”

Cbokode.AddItem “Apple MD314”

Cbokode.AddItem “Apple MD322”

Cbokode.AddItem “Apple MC965”

End Sub

09

1

Private Sub Cmdbatal_Click()

txtkode.SetFocus

txtkode.Text = “”

txtjb.Text = “”

txtpeng.Text = “”

txttt.Text = “”

txtpenerbit.Text = “”

txtharga.Text = “”

End Sub

Private Sub Cmdkeluar_Click()

End

End Sub

Private Sub Cmdlagi_Click()

txtkode.SetFocus

txtkode.Text = “”

txtjb.Text = “”

txtpeng.Text = “”

txttt.Text = “”

txtpenerbit.Text = “”

txtharga.Text = “”

End Sub

Private Sub Cmdproses_Click()

Dim S As String

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

S = Mid(txtkode, 3, 3)

If S = “SIM” Then

txtjb.Text = “Sistem Informasi Manajemen”

txtpeng.Text = “Andra Setiawan”

txtharga.Text = “75900”

ElseIf S = “EDP” Then

txtjb.Text = “Elektronik Data Processing”

txtpeng.Text = “Desi Istiqomah”

txtharga.Text = “62000”

ElseIf S = “MNJ” Then

txtjb.Text = “Manajemen”

txtpeng.Text = “YAZID BAROKATULLOH”

txtharga.Text = “42000”

ElseIf S = “CDR” Then

txtjb.Text = “Corel Draw”

txtpeng.Text = “AGUNG YATNOOBI”

txtharga.Text = “53000”

ElseIf S = “RPL” Then

txtjb.Text = “NAkIBA ZAMZAM”

txtpeng.Text = “Ernita Sari”

txtharga.Text = “83000”

End If

S = Left(txtkode, 1)

If S = “A” Then

txtpenerbit.Text = “yazid barokatulloh lampung”

ElseIf S = “I” Then

txtpenerbit.Text = “aji jakarta”

ElseIf S = “S” Then

txtpenerbit.Text = “Salemba Empat”

ElseIf S = “E” Then

txtpenerbit.Text = “erik Media Komputindo”

ElseIf S = “M” Then

txtpenerbit.Text = “Maxicom”

End If

End Sub

10

1

  • SOURCE CODE

Private Sub Cmdbatal_Click()

Txtnama.SetFocus

Txtnama.Text = “”

Txtnpm.Text = “”

Txtjur.Text = “”

Txtprodi.Text = “”

Txttm.Text = “”

Txtnu.Text = “”

End Sub

Private Sub Cmdkeluar_Click()

End

End Sub

Private Sub Cmdlagi_Click()

Txtnama.SetFocus

Txtnama.Text = “”

Txtnpm.Text = “”

Txtjur.Text = “”

Txtprodi.Text = “”

Txttm.Text = “”

Txtnu.Text = “”

End Sub

Private Sub Cmdproses_Click()

Dim S As String

Txttm.Text = “20” & Left(Txtnpm.Text, 2)

S = Mid(Txtnpm.Text, 4, 2)

If S = “00” Then

Txtprodi.Text = “Strata Satu”

ElseIf S = “01” Then

Txtprodi.Text = “Diploma Tiga”

ElseIf S = “03” Then

Txtprodi.Text = “Diploma Dua”

End If

S = Mid(Txtnpm.Text, 3, 1)

If S = “1” Then

Txtjur.Text = “Sistem Informasi”

ElseIf S = “2” Then

Txtjur.Text = “Manajemen Informatika”

ElseIf S = “3” Then

Txtjur.Text = “Tehnik Informatika”

ElseIf S = “4” Then

Txtjur.Text = “Komputer Akuntansi”

End If

Txtnu.Text = Right(Txtnpm.Text, 3)

S = Txtnpm.Text

End Sub

Private Sub Form_Load()

End Sub

Private Sub txtnama_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

Txtjur.SetFocus

Dim S As String

Txttm.Text = “20” & Left(Txtnpm.Text, 2)

S = Mid(Txtnpm.Text, 3, 1)

If S = “1” Then

Txtjur.Text = “Sistem Informasi”

ElseIf S = “2” Then

Txtjur.Text = “Manajemen Informatika”

ElseIf S = “3” Then

Txtjur.Text = “Tehnik Informatika”

ElseIf S = “4” Then

Txtjur.Text = “Komputer Akuntansi”

End If

S = Mid(Txtnpm.Text, 4, 2)

If S = “01” Then

Txtprodi.Text = “Strata Satu”

ElseIf S = “02” Then

Txtprodi.Text = “Diploma Tiga”

ElseIf S = “03” Then

Txtprodi.Text = “Diploma Empat”

ElseIf S = “04” Then

Txtprodi.Text = “Diploma Dua”

End If

Txtnu.Text = Right(Txtnpm.Text, 3)

End If

End Sub

Iklan

tugas 3 pemrograman

 

 

 

tugas 1

uuuuuuu

code

Private Sub Check1_Click()

If Check1.Value = 1 Then

Label1.FontBold = True

Else

LBLTEXT.FontBold = False

End If

End Sub

 

Private Sub Check2_Click()

If Check2.Value = 1 Then

Label1.FontItalic = True

Else

LBLTEXT.FontItalic = False

End If

End Sub

 

Private Sub Check3_Click()

If Check3.Value = 1 Then

Label1.FontUnderline = True

Else

Label1.FontUnderline = False

End If

End Sub

 

Private Sub Check4_Click()

If Check4.Value = 1 Then

Label1.FontStrikethru = True

Else

Label1.FontStrikethru = False

End If

End Sub

Private Sub Option1_Click()

Label1.ForeColor = vbRed

End Sub

 

Private Sub Option2_Click()

Label1.ForeColor = vbGreen

End Sub

 

Private Sub Option3_Click()

Label1.ForeColor = vbBlue

End Sub

 

Private Sub Option4_Click()

Label1.ForeColor = vbYellow

End Sub

tugas 2.1 dan 2.2

hhhhhhh

Private Sub Check1_Click()

If Check1.Value = 1 Then

Label2.FontBold = True

Else

Label2.FontBold = False

End If

End Sub

 

Private Sub Check2_Click()

If Check1.Value = 1 Then

Label2.FontItalic = True

Else

Label2.FontItalic = False

End If

End Sub

 

Private Sub Check3_Click()

If Check1.Value = 1 Then

Label2.FontUnderline = True

Else

Label2.FontUnderline = False

End If

End Sub

 

Private Sub Check4_click()

If Check1.Value = 1 Then

Else

Label2.FontStrikethru = True

End If

End Sub

 

Private Sub Command1_Click()

Label2.Caption = Text1.Text

End Sub

 

Private Sub Command2_Click()

End

End Sub

 

Private Sub Option1_Click()

‘membuat teks berwarna biru

Label2.ForeColor = vbBlue

End Sub

 

Private Sub Option2_Click()

‘membuat teks berwarna merah

Label2.ForeColor = vbRed

End Sub

 

Private Sub Option3_Click()

‘membuat teks berwarna hijau

Label2.ForeColor = vbGreen

End Sub

 

Private Sub Option4_Click()

‘membuat teks berwarna kuning

Label2.ForeColor = vbYellow

End Sub

tugas 3 dan 4

gggggggggg

 

Private Sub Combo1_Click()

Dim NAMA, JURUSAN, HM As String

Select Case Combo1.Text

Case “14100417”

NAMA = “INDAH ARIA NOVI”

JURUSAN = “SISTEM INFORMASI”

Case “14100410”

NAMA = “INDRIANI”

JURUSAN = “SISTEM INFORMASI”

Case “14100419”

NAMA = “KHARISMA RIANTI”

JURUSAN = “SISTEM INFORMASI”

Case “14201053”

NAMA = “RAHMAWATI”

JURUSAN = “SISTEM INFORMASI”

Case “14100416”

NAMA = “FATMAWATI”

JURUSAN = “SISTEM INFORMASI”

Case “14100420”

NAMA = “JIMMI BERNANDO SINAGA”

JURUSAN = “SISTEM INFORMASI”

Case “14100427”

NAMA = “RANA ANHARI”

JURUSAN = “SISTEM INFORMASI”

Case “14100408”

NAMA = “NIKEN MARSELIYONA”

JURUSAN = “SISTEM INFORMASI”

Case “14100411”

NAMA = “OVITRIA”

JURUSAN = “SISTEM INFORMASI”

Case “14100413”

NAMA = “AGUNG TRIAWAN”

JURUSAN = “SISTEM INFORMASI”

End Select

Text1.Text = NAMA

Text2.Text = JURUSAN

Text3.SetFocus

End Sub

 

Private Sub Command1_Click()

Dim NA As Integer

Dim HM As String

QUIS = Val(Text3.Text)

TUGAS = Val(Text4.Text)

UTS = Val(Text5.Text)

UAS = Val(Text6.Text)

NA = (Val(Text3.Text) + Val(Text4.Text) + Val(Text5.Text) + Val(Text7.Text)) / 4

Text6.Text = NA

Select Case Text7.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

Text8.Text = HM

End Sub

 

Private Sub Command2_Click()

Combo1.SetFocus

Combo1.Text = “”

Text1.Text = “”

Text2.Text = “”

Text3.Text = “”

Text4.Text = “”

Text5.Text = “”

Text6.Text = “”

Text7.Text = “”

Text8.Text = “”

End Sub

 

Private Sub Command3_Click()

Unload Me

End Sub

 

Private Sub Form_Load()

Combo1.AddItem “14100417”

Combo1.AddItem “1410041O”

Combo1.AddItem “14100419”

Combo1.AddItem “14201053”

Combo1.AddItem “14100416”

Combo1.AddItem “14100420”

Combo1.AddItem “14100427”

Combo1.AddItem “14100408”

Combo1.AddItem “14100411”

Combo1.AddItem “14100413”

End Sub

Private Sub Text3_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

Text4.SetFocus

End If

End Sub

Private Sub Text4_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

Text5.SetFocus

End If

End Sub

 

 

Private Sub Text5_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

Text6.SetFocus

End If

End Sub

 

tugas 5

u

 

Private Sub Combo1_Click()

Dim GAPOK, PAJAK, TUNJANGAN, TOTAL As Variant

Select Case Combo1.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

Text3.Text = GAPOK

Text4.Text = TUNJANGAN

Text5.Text = PAJAK

Text6.Text = TOTAL – PAJAK

End Sub

 

Private Sub Command1_Click()

Text1.SetFocus

Text1.Text = “”

Text2.Text = “”

Text3.Text = “”

Text4.Text = “”

Text5.Text = “”

Text6.Text = “”

 

End Sub

 

Private Sub Command2_Click()

Text1.SetFocus

Text1.Text = “”

Text2.Text = “”

Text3.Text = “”

Text4.Text = “”

Text5.Text = “”

Text6.Text = “”

End Sub

 

Private Sub Command3_Click()

Unload Me

End Sub

 

Private Sub Form_Load()

Combo1.AddItem “I”

Combo1.AddItem “II”

Combo1.AddItem “III”

Combo1.AddItem “IV”

End Sub

 

 

Private Sub Text1_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

Text2.SetFocus

End If

End Sub

tugas2

555

TUGAS 1.
Private Sub Command1_Click()
Text1.SetFocus
Text1 = “”
Text2 = “”
Text3 = “”
End Sub

Private Sub Command2_Click()
Text1.SetFocus
Text1 = “”
Text2 = “”
Text3 = “”
End Sub

Private Sub Command3_Click()
Unload Me
End Sub

INDAG

2.1
Private Sub Text1_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
Text2.SetFocus
End If
End sub
2.2
Private Sub Text2_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
Text3.SetFocus
End If
End SubPrivate Sub Command2_Click()
Text1.SetFocus
Text1 = “”
Text2 = “”
Text3 = “”
End Sub

Private Sub Command3_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)
Text3.Text = Val(Text1) * Val(Text2)
End Sub

untitled5

JHGFG

4.1
Private Sub Command1_Click()
Text2.Text = Val(Text1) * 0.1
Text3.Text = Val(Text1) – Val(Text2)
End Sub

Private Sub Command2_Click()
Text1.SetFocus
Text1 = “”
Text2 = “”
Text3 = “”
End Sub

Private Sub Command3_Click()
Unload Me
End Sub
4.2
Private Sub Text1_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
Text2.Text = Val(Text1) * 0.1
Text3.Text = Val(Text1) – Val(Text2)
End If
End Sub
DDDD
5.
Private Sub Command1_Click()
Text4.Text = Val(Text1) + Val(Text2) – Val(Text3)
Text5.Text = Val(Text4) * 0.1
Text6.Text = Val(Text1) + Val(Text4) – Val(Text5)
End Sub

Private Sub Command2_Click()
Text1.SetFocus
Text1 = “”
Text2 = “”
Text3 = “”
Text4 = “”
Text5 = “”
Text6 = “”
End Sub

Private Sub Command3_Click()
End
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

Private Sub Text3_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
Text4.Text = Val(Text1) + Val(Text2) – Val(Text3)
Text5.Text = Val(Text4) * 0.1
Text6.Text = Val(Text1) + Val(Text4) – Val(Text5)
End If
End Sub

tugas1

Wanita Kota Ini Pakai Hak Sepatu Paling Tinggi di Dunia

Bukan di New York atau Paris.
Rabu, 14 Januari 2015 | 13:27 WIB
Oleh : Lesthia Kertopati
Wanita di Arkansas, Amerika Serikat, adalah pengguna hak sepatu tertinggi di dunia ( REUTERS/Yves Herman)

VIVAlife – Sebuah survei yang dilakukan situs belanja mode Gilt menemukan bahwa para wanita pengguna stiletto tertinggi bukanlah di pusat-pusat mode seperti New York, Paris, atau London. Dilansir Good Morning America, kota dengan pengguna hak sepatu tertinggi adalah Arkansas, Amerika Serikat.

Dari hasil survei tersebut diketahui bahwa rata-rata wanita di kota-kota tersebut menggunakan hak sepatu setinggi 7 cm, kontras dengan para wanita di New York yang menggunakan hak sepatu setinggi 5 cm dan Paris yang rata-rata menggunakan kitten heels atau sepatu berhak 3 cm.

Hal mengejutkan lainnya adalah karena Arkansas yang berada di kawasan tengah Amerika Serikat, tidak dikenal sebagai kota modis yang cepat terpapar tren mode terbaru layaknya New York atau Los Angeles.

Survei tersebut juga menunjukkan bahwa para wanita Alaska, negara bagian yang terkenal dingin dan bersalju, juga lebih menyukai hak tinggi dibanding sepatu praktis. Mereka rata-rata mengenakan sepatu berhak 5 cm.

Sementara itu, soal warna sepatu, mayoritas wanita di kota yang disurvei memilih hitam sebagai warna favorit, disusul cokelat dan krem. (art)

sumber vivalifestyle

tugas 1

Bergaya dengan Kebaya

Tampil modis sambil bangga dengan budaya Indonesia.
Rabu, 14 Januari 2015 | 21:11 WIB
Oleh : Maya Sofia, Tasya Paramitha
Komunitas kebaya tengah berkumpul. (Dok. Rahmi Hidayati )

VIVAlife – Empat perempuan asyik menyesap secangkir teh dengan sepiring pisang goreng hangat sebagai teman kudapan. Tak henti-hentinya mereka bertukar cerita dan sesekali tertawa, tak peduli walau jadi pusat perhatian orang-orang sekitar.

Pemandangan ini bukan di warung, tapi di kafe sebuah mal Ibu Kota. Menariknya, sekelompok wanita itu adalah pekerja kantoran, tetapi sama-sama mengenakan kebaya lengkap dengan kain tradisional.

Empat sahabat itu mengaku selama bertahun-tahun kompak mengenakan kebaya di tengah aktivitas sehari-hari. Mereka bahkan tak risih tetap berkebaya ketika naik angkutan umum saat pergi bekerja.

Dengan berkebaya setiap hari, mereka tampak melontarkan fashion statement: menjadi cantik dan anggun sambil cinta budaya Indonesia dengan berpakaian tradisional di era modern. Ini yang tengah menjadi tren bagi sebagian kaum hawa di Ibu Kota.

sumber vivalifestyle

tugas 1

Pencarian Kapal Karam Berusia 170 Tahun Terungkap

Arkeolog membantu dengan ke bawah laut selama 7 kali selama 2 hari.
Rabu, 14 Januari 2015 | 09:10 WIB
Oleh : Dian Lestari Ningsihmahessarey
Bel Kapal HMS. (U-Report)

VIVAlog – Pada tahun 1845, perwira angkatan laut Inggris yang juga seorang penjelajah, John Franklin memimpin lebih dari 100 pria pada sebuah pencarian, untuk menemukan jalur barat laut yang mengubungkan antara Samudera Atlantik dengan Lautan Pasifik.

Tetapi mereka tidak pernah menyelesaikan misi mereka dan tak pernah kembali lagi, dikarenakan kapal mereka HMS Erebus dan HMS Terror terperangkap di laut es dekat pulau King William di utara Kanada. Banyak awak kapal yang meninggal, karena bencana kelaparan, penyakit kudis dan keracunan timah.

Beberapa dari mereka mungkin dikanibalisasi oleh sesamanya. Pencarian yang dilakukan tetap tidak membuahkan hasil, walaupun beberapa tahun kemudian kuburan mereka dapat ditemukan. Pencarian yang bertajuk “Ekspedisi Selat Victoria 2014” menerjunkan para arkeolog ke bawah laut ke kapal karam tersebut, selama 7 kali selama 2 hari. Mereka mengambil photo dan meneliti penyebab kecelakaan itu.

sumber vivanews

tugas 1

Benarkah Ibrahim adalah Brahma dari India?

Beberapa bukti telah ditulis dalam paper berjudul ‘Who Was Abraham’.
Kamis, 15 Januari 2015 | 10:25 WIB
Oleh : Sumiyatibuzsian
Abraham, Sarah dan Hagar, ilustrasi dari 1897. (http://www.isains.com/)

VIVAlog – Sejarawan terus berusaha membuka tabir kebenaran tentang asal-usul Ibrahim atau Abraham, apakah dia sosok yang sama dengan Brahma dari India? Beberapa bukti ditulis Gene D Matlock B.A., M.A. dalam paper berjudul ‘Who Was Abraham’.

Karya ini berdasarkan studi linguistik mengundang berbagai perdebatan di kalangan sejarawan, meskipun bukti yang dilampirkan sangat mendekati kebenaran. Ram atau Rama juga dari klan Yadava, jika Ibrahim, Abraham, Brahma dan Ram adalah orang yang sama, maka Ibrahim pergi ke Yerusalem bersama rakyatnya sendiri.

Pengikut Ram yang memisahkan diri dalam komunitas mereka yang disebut Ayodhya, dalam bahasa Sansekerta berarti ‘terkalahkan’. Kata Sansekerta untuk menyebut ‘tempur’ adalah Yuddha atau Yudh. Abraham dan kelompoknya berasal dari Ayodhya (Yehudiya, Yudea) umat Amalek yang tetap jauh dari kekafiran.

sumber vivaberia