TUGAS 4

FITRI

1.1

Private Sub cboNPM_Click()

Dim NM, JR As String

Select Case cboNPM.Text

Case “14201007”

NM = “UMI UMAYAH”

JR = “MANAJEMEN INFORMATIKA”

Case “14100061”

NM = “FITRI SARASWATI”

JR = “SISTEM INFORMASI”

Case “14100060”

NM = “EKA SUSI SURANTI”

JR = “SISTEM INFORMASI”

Case “14100142”

NM = “WULAN KURNIA SARASWATI”

JR = “SISTEM INFORMASI”

Case “14100153”

NM = “SITI NURROHMAH”

JR = “SISTEM INFORMASI”

Case “14100132”

NM = “YENI LESTARI”

JR = “SISTEM INFORMASI”

Case “14100124”

NM = “NANDA SUCI ADISETIA”

JR = “SISTEM INFORMASI”

Case “14201012”

NM = “M. HERVIN MARDANI”

JR = “MANAJEMEN INFORMATIKA”

Case “14100127”

NM = “SEPTIA RIASTUTI”

JR = “SISTEM INFORMASI”

Case “14201002”

NM = “FITRIANA”

JR = “MANAJEMEN INFORMATIKA”

End Select

txtnama = NM

txtjur = JR

txtquis.SetFocus

End Sub

Private Sub cmdbatal_Click()

txtnama.Text = “”

txtjur.Text = “”

txtquis.Text = “”

txttugas.Text = “”

txtuts.Text = “”

txtuas.Text = “”

txtna.Text = “”

txtmutu.Text = “”

cmbnpm.Text = “”

cmbnpm.SetFocus

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

txtmutu.Text = HM

End Sub

Private Sub Form_Load()

cboNPM.AddItem “14201007”

cboNPM.AddItem “14100061”

cboNPM.AddItem “14100060”

cboNPM.AddItem “14100142”

cboNPM.AddItem “14100153”

cboNPM.AddItem “14100132”

cboNPM.AddItem “14100124”

cboNPM.AddItem “14201012”

cboNPM.AddItem “14100127”

cboNPM.AddItem “14201002”

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

FITRI

 

1.2

Private Sub cboNPM_Click()

Dim NM, JR As String

Select Case cboNPM.Text

Case “14201007”

NM = “UMI UMAYAH”

JR = “MANAJEMEN INFORMATIKA”

Case “14100061”

NM = “FITRI SARASWATI”

JR = “SISTEM INFORMASI”

Case “14100060”

NM = “EKA SUSI SURANTI”

JR = “SISTEM INFORMASI”

Case “14100142”

NM = “WULAN KURNIA SARASWATI”

JR = “SISTEM INFORMASI”

Case “14100153”

NM = “SITI NURROHMAH”

JR = “SISTEM INFORMASI”

Case “14100132”

NM = “YENI LESTARI”

JR = “SISTEM INFORMASI”

Case “14100124”

NM = “NANDA SUCI ADISETIA”

JR = “SISTEM INFORMASI”

Case “14201012”

NM = “M. HERVIN MARDANI”

JR = “MANAJEMEN INFORMATIKA”

Case “14100127”

NM = “SEPTIA RIASTUTI”

JR = “SISTEM INFORMASI”

Case “14201002”

NM = “FITRIANA”

JR = “MANAJEMEN INFORMATIKA”

End Select

txtnama = NM

txtjur = JR

txtquis.SetFocus

End Sub

Private Sub cmdbatal_Click()

txtnama.Text = “”

txtjur.Text = “”

txtquis.Text = “”

txttugas.Text = “”

txtuts.Text = “”

txtuas.Text = “”

txtna.Text = “”

txtmutu.Text = “”

cmbnpm.Text = “”

cmbnpm.SetFocus

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

txtmutu.Text = HM

End Sub

 

 

Private Sub Form_Load()

cboNPM.AddItem “14201007”

cboNPM.AddItem “14100061”

cboNPM.AddItem “14100060”

cboNPM.AddItem “14100142”

cboNPM.AddItem “14100153”

cboNPM.AddItem “14100132”

cboNPM.AddItem “14100124”

cboNPM.AddItem “14201012”

cboNPM.AddItem “14100127”

cboNPM.AddItem “14201002”

End Sub

Private Sub txtuas_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

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

txtmutu.Text = HM

End If

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

FITRIANA

2.

Private Sub cmbbatal_Click()

txtnpm.SetFocus

txtnpm = “”

txtnama = “”

cbogolongan = “”

txtgapok = “”

txttunjangan = “”

txtpajak = “”

txttotal = “”

End Sub

 

Private Sub cmbkeluar_Click()

End

End Sub

 

Private Sub cmblagi_Click()

txtnpm.SetFocus

txtnpm = “”

txtnama = “”

cbogolongan = “”

txtgapok = “”

txttunjangan = “”

txtpajak = “”

txttotal = “”

End Sub

Private Sub Form_load()

cbogolongan.AddItem “I”

cbogolongan.AddItem “II”

cbogolongan.AddItem “III”

cbogolongan.AddItem “IV”

End Sub

Private Sub cbogolongan_Click()

Dim gapok, pajak, tunjangan, total As Variant

Select Case cbogolongan.Text

Case “I”

gapok = 1500000

tunjangan = 150000

Case “II”

gapok = 2000000

tunjangan = 200000

Case “III”

gapok = 2500000

tunjangan = 250000

Case “IV”

gapok = 3000000

tunjangan = 300000

Case Else

gapok = 0

tunjangan = 0

End Select

total = gapok + tunjangan

pajak = total * 0.1

txtgapok.Text = gapok

txttunjangan.Text = tunjangan

txtpajak.Text = pajak

txttotal.Text = total – pajak

End Sub

Private Sub txtnpm_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

txtnama.SetFocus

End If

End Sub

FITRIANA

3.1

Private Sub Cmdbatal_Click()

txtnama.SetFocus

txtnama.Text = “”

txtnpm.Text = “”

txtjur.Text = “”

txtps.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 = “”

txtps.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, 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 = “Manajemen & Komp. Akuntansi”

End If

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

If S = “01” Then

txtps.Text = “Strata Satu”

ElseIf S = “02” Then

txtps.Text = “Diploma Tiga”

ElseIf S = “03” Then

txtps.Text = “Diploma Empat”

ElseIf S = “04” Then

txtps.Text = “Diploma Dua”

End If

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

End Sub

Private Sub Form_activate()

txtnama.SetFocus

txtnama.Text = “”

txtnpm.Text = “”

txtjur.Text = “”

txtps.Text = “”

txttm.Text = “”

txtnu.Text = “”

End Sub

 

Private Sub Txtnama_Keypress(Keyascii As Integer)

If Keyascii = 13 Then

txtnpm.SetFocus

End If

End Sub

FITRIANA

3.2

Private Sub Cmdbatal_Click()

txtnama.SetFocus

txtnama.Text = “”

txtnpm.Text = “”

txtjur.Text = “”

txtprogram.Text = “”

txttahun.Text = “”

txturut.Text = “”

End Sub

Private Sub Cmdkeluar_Click()

End

End Sub

Private Sub Cmdlagi_Click()

txtnama.SetFocus

txtnama.Text = “”

txtnpm.Text = “”

txtjur.Text = “”

txtprogram.Text = “”

txttahun.Text = “”

txturut.Text = “”

End Sub

Private Sub Cmdproses_Click()

Dim S As String

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

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

If S = “1” Then

txtjur.Text = “Sistem Informasi”

txtprogram.Text = “Strata Satu”

ElseIf S = “2” Then

txtjur.Text = “Manajemen Informatika”

txtprogram.Text = “Diploma Tiga”

ElseIf S = “3” Then

txtjur.Text = “Tehnik Informatika”

txtprogram.Text = “Diploma Empat”

ElseIf S = “4” Then

txtjur.Text = “Manajemen & Komp. Akuntansi”

txtprogram.Text = “Diploma Dua”

End If

txturut.Text = Right(txtnpm.Text, 5)

End Sub

Private Sub Form_activate()

txtnama.SetFocus

txtnama.Text = “”

txtnpm.Text = “”

txtjur.Text = “”

txtprogram.Text = “”

txttahun.Text = “”

txturut.Text = “”

End Sub

 

Private Sub Txtnama_Keypress(Keyascii As Integer)

If Keyascii = 13 Then

txtnpm.SetFocus

End If

End Sub

FITRIANA

4.

Private Sub Combo1_Click()

Select Case Combo1.Text

Case “Apple MC965 Macbook Air”

Text1.Text = “Apple Macbook Air MC965”

Text2.Text = “128000000”

Case “Apple MC966 Macbook Air”

Text1.Text = “Apple Macbook Air MC966”

Text2.Text = “158000000”

Case “Apple MC968 Macbook Air”

Text1.Text = “Apple Macbook Air MC968”

Text2.Text = “99000000”

Case “Apple MC969 Macbook Air”

Text1.Text = “Apple Macbook Air MC969”

Text2.Text = “119000000”

Case “Apple MC700 Macbook Pro”

Text1.Text = “Apple Macbook Pro MC700”

Text2.Text = “108000000”

Case “Apple MC721 Macbook Pro”

Text1.Text = “Apple Macbook Pro MC721”

Text2.Text = “159000000”

Case “Apple MC723 Macbook Pro”

Text1.Text = “Apple Macbook Pro MC723”

Text2.Text = “193000000”

Case “Apple MC724 Macbook Pro”

Text1.Text = “Apple Macbook Pro MC724”

Text2.Text = “137000000”

Case “Apple MC311 Macbook Pro”

Text1.Text = “Apple Macbook Pro MC311”

Text2.Text = “242000000”

Case “Apple MC313 Macbook Pro”

Text1.Text = “Apple Macbook Pro MC313”

Text2.Text = “119000000”

Case “Apple MC314 Macbook Pro”

Text1.Text = “Apple Macbook Pro MC314”

Text2.Text = “147000000”

Case “Apple MC318 Macbook Pro”

Text1.Text = “Apple Macbook Pro MC318”

Text2.Text = “176000000”

Case “Apple MC322 Macbook Pro”

Text1.Text = “Apple Macbook Pro MC322”

Text2.Text = “213000000”

Case “Apple MC965 Macbook Air”

Text1.Text = “Apple Macbook Air MC965”

Text2.Text = “128000000”

Case “Apple MC966 Macbook Air”

Text1.Text = “Apple Macbook Air MC966”

Text2.Text = “158000000”

End Select

End Sub

 

 

Private Sub Command1_Click()

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

If Text4.Text > 140000000 Then

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

ElseIf Text4.Text > 135000000 Then

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

ElseIf Text4.Text > 130000000 Then

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

ElseIf Text4.Text > 125000000 Then

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

End If

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

End Sub

 

Private Sub Command2_Click()

Combo1.SetFocus

Combo1.Text = “”

Text1.Text = “”

Text2.Text = “”

Text3.Text = “”

Text4.Text = “”

Text5.Text = “”

Text6.Text = “”

End Sub

 

Private Sub Command3_Click()

End

End Sub

 

Private Sub Form_Load()

Combo1.AddItem “Apple MC965 Macbook Air”

Combo1.AddItem “Apple MC966 Macbook Air”

Combo1.AddItem “Apple MC968 Macbook Air”

Combo1.AddItem “Apple MC969 Macbook Air”

Combo1.AddItem “Apple MC700 Macbook Pro”

Combo1.AddItem “Apple MC721 Macbook Pro”

Combo1.AddItem “Apple MC723 Macbook Pro”

Combo1.AddItem “Apple MC724 Macbook Pro”

Combo1.AddItem “Apple MC311 Macbook Pro”

Combo1.AddItem “Apple MC313 Macbook Pro”

Combo1.AddItem “Apple MC314 Macbook Pro”

Combo1.AddItem “Apple MC318 Macbook Pro”

Combo1.AddItem “Apple MC322 Macbook Pro”

Combo1.AddItem “Apple MC965 Macbook Air”

Combo1.AddItem “Apple MC966 Macbook Air”

End Sub

 

Private Sub text3_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

JUAL LAPTOP

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

If Text4.Text > 140000000 Then

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

ElseIf Text4.Text > 135000000 Then

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

ElseIf Text4.Text > 130000000 Then

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

ElseIf Text4.Text > 125000000 Then

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

End If

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

End If

End Sub

fitriana

5.

Private Sub Combo1_Click()

Select Case Combo1.Text

Case “P205”

Text1.Text = “pentiumII 500 Mega Hz”

Text2.Text = “1500000”

Case “P308”

Text1.Text = “pentiumIII 800 Mega Hz”

Text2.Text = “2100000”

Case “P310”

Text1.Text = “pentiumIII 1.0 Giga Hz”

Text2.Text = “3500000”

Case “P415”

Text1.Text = “pentiumIV 1.5 Giga Hz”

Text2.Text = “4000000”

Case “P417”

Text1.Text = “pentiumIV 1.7 Giga Hz”

Text2.Text = “4200000”

Case “P419”

Text1.Text = “pentiumIV 1.9 Giga Hz”

Text2.Text = “5500000”

End Select

End Sub

Private Sub Command1_Click()

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

If Text4.Text > 30000000 Then

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

ElseIf Text4.Text > 25000000 Then

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

ElseIf Text4.Text > 20000000 Then

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

ElseIf Text4.Text > 15000000 Then

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

End If

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

End Sub

 

Private Sub Command2_Click()

Combo1.SetFocus

Combo1.Text = “”

Text1.Text = “”

Text2.Text = “”

Text3.Text = “”

Text4.Text = “”

Text5.Text = “”

Text6.Text = “”

End Sub

 

Private Sub Command3_Click()

End

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 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.SetFocus

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

If Text4.Text > 30000000 Then

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

ElseIf Text4.Text > 25000000 Then

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

ElseIf Text4.Text > 20000000 Then

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

ElseIf Text4.Text > 15000000 Then

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

End If

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

End If

End Sub

FITRIANA

Private Sub Command1_Click()

Dim A, B, C, D As String

Dim H As Double

Text3.Text = “20” & Right(Combo1.Text, 2)

A = Mid(Combo1.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 UMPU SINGA”

H = “83000”

End If

Text1.Text = B

Text2.Text = C

Text5.Text = H

D = Left(Combo1.Text, 1)

If D = “A” Then

Text4.Text = “ANDY OFFSET YOGYAKARTA”

ElseIf D = “I” Then

Text4.Text = “INDAH SURABAYA”

ElseIf D = “M” Then

Text4.Text = “MAXICOM”

ElseIf D = “S” Then

Text4.Text = “SALEMBA EMPAT”

ElseIf D = “E” Then

Text4.Text = “ELEK MEDIA KOMPUTINDO”

End If

End Sub

 

 

 

Private Sub Command2_Click()

Combo1.SetFocus

Combo1.Text = “”

Text1.Text = “”

Text2.Text = “”

Text3.Text = “”

Text4.Text = “”

Text5.Text = “”

End Sub

 

Private Sub Command3_Click()

Combo1.SetFocus

Combo1.Text = “”

Text1.Text = “”

Text2.Text = “”

Text3.Text = “”

Text4.Text = “”

Text5.Text = “”

End Sub

 

Private Sub Command4_Click()

End

End Sub

 

Private Sub Form_Load()

Combo1.AddItem “A-SIM-01”

Combo1.AddItem “I-EDP-02”

Combo1.AddItem “S-MNJ-03”

Combo1.AddItem “E-CDR-04”

Combo1.AddItem “M-RPL-05”

End Sub

FITRIANA

7.

Private Sub cmdkeluar_Click()

End

End Sub

 

Private Sub cmdlagi_Click()

txtkt.SetFocus

txtkt.Text = “”

txtht.Text = “”

txtjk.Text = “”

txtjb.Text = “”

txtjt.Text = “”

txttotalp.Text = “”

End Sub

 

Private Sub cmdproses_Click()

Dim JK As String

Dim HT, JB As Variant

A = Left(txtkt, 3)

If A = “BIM” Then

JK = “BIMA”

HT = “50000”

JB = “16.00”

ElseIf A = “EKO” Then

JK = “EKONOMI”

HT = “35000”

JB = “19.00”

ElseIf A = “MUT” Then

JK = “MUTIARA”

HT = “23000”

JB = “17.00”

ElseIf A = “SEN” Then

JK = “SENJA”

HT = “15.000”

JB = “20.00”

End If

txtht.Text = HT

txtjk.Text = JK

txtjb.Text = JB

End Sub

 

Private Sub txtjt_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

txttotalp = Val(txtht) * Val(txtjt)

End If

End Sub

 

Private Sub txtkt_KeyPress(KeyAscii As Integer)

If keyascci = 13 Then

txtjt.SetFocus

End If

End Sub

FITRI

8.

Private Sub cmdbatal_Click()

txtkode.SetFocus

txtkode = “”

txtjudul = “”

txtpengarang = “”

txttahun = “”

txtpenerbit = “”

txtharga = “”

End Sub

Private Sub cmdkeluar_Click()

End

End Sub

Private Sub cmdlagi_Click()

txtkode.SetFocus

txtkode = “”

txtjudul = “”

txtpengarang = “”

txttahun = “”

txtpenerbit = “”

txtharga = “”

End Sub

Private Sub cmdproses_Click()

Dim JB, PG, PR As String

Dim TT, HR As Variant

A = Left(txtkode.Text, 3)

If A = “SIM” Then

JB = “Sistem Informasi Manajemen”

PG = “Fadiya Ulfa”

HR = “75900”

ElseIf A = “EDP” Then

JB = “Elektronik Data Processing”

PG = “Nurul Agustina”

HR = “62000”

ElseIf A = “MNJ” Then

JB = “Manajemen”

PG = “Rina Hidayat”

HR = “42000”

ElseIf A = “CDR” Then

JB = “Corel Draw”

PG = “Siti Nur Khotimah”

HR = “53000”

ElseIf A = “RPL” Then

JB = “Rekayasa Perangkat Lunak”

PG = “Winda Erlianti”

HR = “83000”

End If

txtjudul.Text = JB

txtpengarang.Text = PG

txtharga.Text = HR

txttahun.Text = “20” & Mid(txtkode.Text, 5, 2)

B = Right(txtkode.Text, 1)

If B = “A” Then

PR = “Andi Offset Yogyakarta”

ElseIf B = “I” Then

PR = “Indah Surabaya”

ElseIf B = “S” Then

PR = “Salemba Empat”

ElseIf B = “E” Then

PR = “Elek Media Koputindo”

ElseIf B = “M” Then

PR = “Maxicom”

End If

txtpenerbit.Text = PR

End Sub

 

 

 

Iklan

TUGAS 3

 

FITRIANA 1

 

1.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.Text = “”

Text2.Text = “”

Text3.Text = “”

End Sub

Private Sub Command3_Click()

End

End Sub

 

1.2

Private Sub Text1_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

Text2.SetFocus

Text2.Text = Val(Text1) * 0.1

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

End If

End Sub

Private Sub Text2_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

Text3.SetFocus

End If

End Sub

FITRIANA

2.1

Private Sub Command1_Click()

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

Text5.Text = Val(Text4) * 0.1

Text6.Text = 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

 

2.2

Private Sub Command1_Click()

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

Text5.Text = Val(Text4) * 0.1

Text6.Text = 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(Text4) – Val(Text5)

End If

End Sub

 

fitriana

Private Sub Check1_Click()

If Check1.Value = 1 Then

Label1.FontBold = True

Else                                                                                              lblteks.FontBold = False

End If

End Sub

 

Private Sub Check2_Click()

If Check2.Value = 1 Then

Label1.FontItalic = True

Else

lblteks.FontItalic = False

End If

End Sub

 

Private Sub Check3_Click()

If Check3.Value = 1 Then

Label1.FontUnderline = True

Else

Label1teks.FontUnderline = False

End If

End Sub

 

Private Sub Check4_Click()

If Check4.Value = 1 Then

Label1.FontStrikethru = True

Else

Label1teks.FontStrikethru = False

End If

End Sub

 

Private Sub Command1_Click()

End

End Sub

 

Private Sub Option2_Click()

‘membuat teks berwarna hijau

Label1.ForeColor = vbGreen

End Sub

 

Private Sub Option3_Click()

‘membuat teks berwarna biru

Label1.ForeColor = vbBlue

End Sub

 

Private Sub Option4_Click()

‘membuat teks berwarna kuning

Label1.ForeColor = vbYellow

End Sub

 

Private Sub optred_Click()

‘membuat teks berwarna merah

Label1.ForeColor = vbRed

End Sub

 

FITRIANA

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 Check2.Value = 1 Then

Label2.FontItalic = True

Else

Label2.FontItalic = False

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 merah

Label2.ForeColor = vbRed

End Sub

 

Private Sub Option2_Click()

‘membuat warna berwarna biru

Label2.ForeColor = vbBlue

End Sub

TUGAS 2

 

fitri 1

Private Sub Command1_Click()

Text1.SetFocus

Text1.Text = “”

Text2.Text = “”

Text3.Text = “”

End Sub

 

Private Sub Command2_Click()

Text1.SetFocus

Text1.Text = “”

Text2.Text = “”

Text3.Text = “”

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

 

 

fitri 3

Private Sub Command1_Click()

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

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

Text9.Text = Val(Text7.Text) / Val(Text8.Text)

Text12.Text = Val(Text10.Text) – Val(Text11.Text)

End Sub

 

Private Sub Command2_Click()

Text1.Text = “”

Text2.Text = “”

Text3.Text = “”

Text4.Text = “”

Text5.Text = “”

Text6.Text = “”

Text7.Text = “”

Text8.Text = “”

Text9.Text = “”

Text10.Text = “”

Text11.Text = “”

Text12.Text = “”

End Sub

 

Private Sub Command3_Click()

Text1.Text = “”

Text2.Text = “”

Text3.Text = “”

Text4.Text = “”

Text5.Text = “”

Text6.Text = “”

Text7.Text = “”

Text8.Text = “”

Text9.Text = “”

Text10.Text = “”

Text11.Text = “”

Text12.Text = “”

End Sub

 

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

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

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

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

End If

End Sub

 

 

Private Sub Text7_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

Text8.SetFocus

End If

End Sub

 

Private Sub Text8_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

Text9.SetFocus

Text9.Text = Val(Text7.Text) / Val(Text8.Text)

End If

End Sub

Private Sub Text10_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

Text11.SetFocus

End If

End Sub

 

Private Sub Text11_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

Text12.SetFocus

Text12.Text = Val(Text10.Text) – Val(Text11.Text)

End If

End Sub

fitri 2

Private Sub Command1_Click()

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

 

End Sub

 

Private Sub Command2_Click()

Text1.Text = “”

Text2.Text = “”

Text3.Text = “”

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

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

End If

End Sub

 

 

PLN Diminta Jangan Ikut Naikkan Tarif Listrik

Ads by Google

JAKARTA – Sekretaris Eksekutif Pusaka Trisakti Fahmi Habsyi mengingatkan, kenaikan BBM bersubsdi sebaiknya tak diikuti dengan naiknya harga tarif dasar listrik. Dia menegaskan, PLN jangan menjadikan alasan solar naik untuk menaikkan harga listrik.

“Please, kenaikan harga solar bersubsidi jangan jadi alasan PLN beberapa waktu ke depan untuk ikut latah minta pemerintah menaikkan Tarif Dasar Listrik khususnya bagi masyarakat yang perlu disubsidi pengguna 450 VA dan 900VA,” kata Fahmi, Rabu (19/11).

Dia menegaskan, pemerintah harus ada keputusan tegas dan mengikat terhadap penggunaan solar bagi PLN.

Salah satu inisiator PDIP Projo ini juga menjelaskan harus ada audit penggunaan solar pada PLN yang membedakan penggunaan BBM solar bagi kelompok pengguna dengan daya 450 va dan 900 va, dan dengan kelompok pelanggan mampu termasuk industri.

Ia juga meminta pemerintah agar memberi kesempatan rakyat di bawah ‘bernafas’ dulu dan memastikan jaring pengaman sosial benar dirasakan rakyat pascakenaikan BBM.

“Bukan rakyat kecil yang dipaksa menerima kenaikan TDL tapi PLN yang harus dipaksa segera beralih ke gas dan batubara yang diikuti proteksi pada PLN agar dapatkan jaminan pasokan batubara Indonesia dibanding pembangkit di Cina dan India,” ungkapnya. (boy/jpnn)

Bandar Sabu Dihukum 13 Tahun

PANCURBATU – PM
Sepandai-pandainya tupai melompat pasti jatuh juga. Peribahasa itulah yang pantas ditujukan kepada Samaruddin (43). Meski dirinya menyimpan sabu hingga ke kandang kambing, akhirnya tercium polisi juga.

Karena barang terlarang itu pula, Samaruddin pun mendapat ganjaran 13 tahun penjara, dua tahun lebih ringan dari tuntutan jaksa penuntut umum (JPU) Sonang Simanjutak SH sebelumnya. Itu terungkap Senin (15/12) siang, majelis hakim Pengadilan Negeri Lubukpakam yang bersidang di Pancurbatu, diketuai Hendri Agus Jaya SH menyatakan, Samaruddin terbukti bersalah atas kepemilikan sabu seberat 90,12 gram. Samaruddin yang dipersalahkan melanggar pasal 114 ayat (2) UU RI No.35 Tahun 2009 tentang narkotika golongan satu itu, juga diwajibkan membayar denda Rp1 miliar.

Sebelum menjatuhkan vonis, majelis hakim membacakan hal-hal yang meringan dan memberatkan terhadap Samaruddin. Hal yang memberatkan karena perbuatan Samaruddin tidak mendukung program pemerintah dalam memerangi narkotika dan merusak generasi bangsa. Sedangkan hal yang meringankan, Samaruddin selama dalam persidangan bersikap sopan dan belum pernah dihukum.

Pada kesempatan itu, majelis hakim juga memberikan kesempatan kepada Samaruddin untuk menentukan sikap selama 7 hari, apakah mengajukan banding atau menerima putusan tersebut.

Dipersidangan sebelumnya terungkap, Samaruddin diringkus polisi pada Kamis 8 Mei 2014. Diawali saat polisi mendapat kabar, bahwa Samaruddin sering melakukan transaksi narkoba di seputaran kediamannya di Desa Mekar Sari, Delitua.

Setelah dilakukan penyelidikan, Samaruddin pun diringkus. Dan polisi pun berhasil mengamankan sabu 90, 12 gram serta timbangan elektrik yang disimpan Samaruddin di kandang kambing yang berada di belakang rumahnya.

Pada polisi, Samaruddin pun mengaku sabu tersebut diperolehnya dari kenalannya bernama Fadli (DPO), yang berpesan untuk dijual kembali kepada pembeli dengan upah sebesar Rp5 juta. (cr2/han)

Curi Senjata M16, Briptu Cico Diadili

Seorang oknum Brimob Polda Sumut, Briptu Cico Valangi Monti didudukkan di kursi pesakitan di ruang Chandra I Pengadilan Negeri Medan, Selasa (16/12) siang. Briptu Cico didakwa Jaksa Penuntut Umum (JPU), Sabrina karena mencuri senjata api jenis M16 dari gudang dan menguasai senjata api ilegal lainnya.

“Terdakwa Briptu Cico telah mencuri senapan serbu M16 dan alat observasi atau teropong bidik night vision dilengkapi dengan infrared. Perangkat itu dicurinya dari gudang penyimpanan senjata api Brimob Polda Sumut sekitar bulan Agustus 2014,” kata jaksa dihadapan majelis hakim yang diketuai Firman,SH.

Lanjutnya terdakwa berhasil masuk ke gudang Brimob Polda Sumut karena mengaku ingin membuat surat tentang senjata rusak yang akan diantarkan ke Polda Sumut. Saat itu, terdakwa memang bertugas di bagian pendataan aset, setelah dipindah dari Tebing Tinggi. Perbuatan terdakwa tersebut, kata jaksa, bersalah melanggar Undang-Undang Darurat Nomor 12/1951 jo Pasal 365 KUHPidana.

Usai mendengarkan dakwaan jaksa, persidangan kemudian dilanjutkan dengan agenda pemeriksaan saksi-saksi.

Sejumlah personel Brimob Polda Sumut dan ibu terdakwa pun dihadirkan jaksa untuk menjadi saksi. Berdasarkan keterangan saksi Aiptu M Saleh, mengatakan terdakwa hampir tertangkap tangan mengambil teropong infrared di dalam gudang. Bintara itu ternyata telah mengantongi perangkat seharga Rp192 juta. Terdakwa sempat lolos karena menjatuhkan onderdil M16 ke lantai saat didatangi petugas.

“Sekitar dua pekan berselang, petugas gudang melakukan pemeriksaan. Ternyata teropong bidik dan sepucuk M16 hilang dari tempatnya,” kata Aiptu Saleh.

Aksi pencurian yang dilakukan terdakwa akhirnya ketahuan. Menurut saksi, terdakwa tertangkap saat menjual kembali senapan M16 itu kepada personel Brimob lainnya, yakni Bripka Abdul Kadir Nasution. Dia mematok harga Rp8 juta untuk senapan serbu itu.

Dijelaskan saksi, Bripka Abdul Kadir, kemudian membayar Rp 4 juta dulu untuk mendapatkan senjata itu. Namun tanpa diketahui terdakwa, ternyata Abdul kadir hanya ingin mengecek nomor seri senjata api tersebut. Akhirnya, mereka pun membuktikan senjata itu milik Brimob Polda Sumut karena tidak seluruh nomor serinya terhapus.

Selain Bripka Abdul Kadir, dua rekan terdakwa yang bertugas di bagian intelijen juga dihadirkan untuk menyampaikan kesaksian yang meringankan. Menurut kedua saksi tersebut, terdakwa memang hobi mengoleksi senjata dan punya prestasi menembak. (bay/bd)

Tak Sengaja Ditransfer Duit Triliunan

Ads by Google

BAK kejatuhan durian runtuh, perempuan 51 tahun asal Sichuan, Tiongkok, tiba-tiba mendapat SMS banking. Kabarnya sungguh menggembirakan. Cair!

Tak tanggung-tanggung, Kamis (11/12) itu Wu, perempuan tersebut, mendapatkan transfer tiba-tiba sebesar 496 juta yuan. Kalau dirupiahkan, jumlah itu nyaris Rp 1,1 triliun. Wow!

SMS gembira tersebut diterimanya saat makan siang. Awalnya dia tak terlampau menghiraukan. ”Saya pikir kabar penipuan,” katanya kepada Xinhua.

Tapi, begitu mengecek lewat ATM sorenya, Wu terlonjak. Rekeningnya berisi duit ribuan kali lipat ketimbang saldo aslinya. ”Saya cek tiga kali dan hasilnya tetap: 496 juta yuan,” ujar Wu.

Yang dilakukan Wu berikutnya mungkin bikin orang tercengang. Bukannya menguras tabungan itu, dia justru pergi ke bank dan mengabarkan transfer ganjil tersebut.

Betul juga, dalam waktu 10 menit, duit itu kembali lenyap. ”Melihat uang begitu banyak. Tekad saya kuat. Ini bukan uang saya,” katanya.

Bank pun berterima kasih atas kejujuran Wu. Meski, seandainya Wu tidak jujur pun, perubahan saldo drastis itu pasti juga bakal diketahui bank. Kalau Wu menuai pujian, karyawan bank yang keliru menjalankan sistem transfer justru dipecat. (Xinhua/c10/dos)