TUGAS 4

1 DAN 2

NANDA

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

 

3

NANDA

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

 

4

NANDa

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

 

5

NANDA

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

 

6

NANDA

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

 

7

NANDA

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

 

8

TUGAS 8

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

 

9

NANDA

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

 

10

NANDA

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

TUGAS 3

NANDA

1.1

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

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

Private Sub Command3_Click()
End
End Sub

NANDA

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 Command1_Click()
Text4.Text = Val(Text1) + Val(Text2) – Val(Text3)
Text5.Text = Val(Text4) * 0.1
Text6.Text = Val(Text4) – Val(Text5)
End Sub

2.2

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 Command2_Click()
Text1.SetFocus
Text1 = ” “
Text2 = ” “
Text3 = ” “
Text4 = ” “
Text5 = ” “
Text6 = ” “
End Sub

Private Sub Command3_Click()
End
End Sub

NANDA

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

Private Sub Command1_Click()
End
End Sub

NANDA

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

nanda

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

 

nanda 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

 

 

nanda 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

 

 

 

 

 

 

 

CEO OnePlus: Tunggu Kejutan Smartphone Baru Kami

Liputan6.com, Jakarta – Vendor smartphone asal Tiongkok, OnePlus, sejak akhir tahun lalu dikabarkan tengah menyiapkan suksesor handset One. Sang Chief Executive Officer (CEO), Carl Pei, mengklaim bahwa smartphone itu akan menjadi kejutan bagi orang-orang.

Penjualan smartphone terbaru OnePlus dijadwalkan dimulai pada pertengahan 2015. Pei mengatakan bahwa OnePlus sekitar 4 atau 5 kali berubah pikiran mengenai waktu peluncuran.

Hingga akhirnya, perusahaan sepakat bahwa peluncuran OnePlus Two akan digelar pada kuartal II atau III tahun ini. Ternyata OnePlus tidak hanya pernah ragu soal waktu peluncuran, tapi juga ukuran layar.

Namun OnePlus memastikan hasil akhirnya akan mengejutkan. “Kami sebenarnya mengubah ukuran layar beberapa kali. Tapi produk akhirnya akan mengejutkan orang-orang,” ungkap Pei, seperti dilansir Neowin, Jumat (8//1/2015).

Sayangnya Pei tidak mengungkapkan lebih lanjut soal smartphone tersebut. Termasuk soal ukuran layar, apakah akan lebih kecil atau berukuran sama dengan pendahulunya yaitu 5,5 inci.

Lebih lanjut, Pei dalam kesempatan sama menyinggung soal rumor tablet OnePlus yang selama ini beredar. Dia menegaskan OnePlus tidak memiliki rencana meluncurkan sebuah tablet. (din/dew)

9 Kandidat Bertarung Rebut Partai Pengusung Pilkada Bengkulu

Liputan6.com, Bengkulu – Sebanyak 9 kandidat gubernur Bengkulu mulai berupaya merebut perahu partai politik untuk diusung dalam Pilkada Gubernur Bengkulu pada akhir 2015 ini.

Mereka adalah Gubernur Incumbent Junaidi Hamsyah, wakil gubernur Sultan Bachtiar Nadjamuddin, Wabendum DPP Partai Golkar yang juga bupati Musirawas Ridwan Mukti, Bupati Mukomuko Ihwan Yunus, Bupati Kepahiang Bando Amin C Kader, Bupati Bengkulu Utara Imron Rosyadi, Bupati Rejang Lebong Suheman dan Advokat Dwi Anggraini, Fungsionaris DPP PDI Perjuangan Mishal Yofti Suud.

Pantauan Liputan6.com, kesembilan kandidat itu sudah mendaftar ke sejumlah partai politik. Yang sudah membuka pendaftaran bakal calon gubernur di antaranya PDIP, Partai Demokrat, partai Gerindra, PKB, PPP, Partai Nasdem, dan Partai Gerindra. Bahkan PDIP saat ini sudah melakukan tes uji kelayakan (fit and proper test).

Sekretaris DPD PDIP Bengkulu Ismail Saleh mengatakan, uji kelayakan untuk menyatukan visi dan misi kandidat dengan visi misi PDIP sebagai partai wong cilik.

“Ideologi kita adalah nasionalis dan mengusung konsep ekonomi kerakyatan, ini yang akan kita gali dari para kandidat,” ujar Ismail di Bengkulu (10/1/2015).

Sementara itu, ketua Bapilu Partai Nasdem Asmawi Saidina mengatakan, proses yang dilakukan saat ini baru tahap pendaftaran. Uji kelayakan akan dilakukan setelah DPP menyeleksi seluruh Curiculum Vitae yang masuk dan menyetujui wakil gubernur berasal dari internal Partai Nasdem.

Salah seorang kandidat Imron Rosyadi mengatakan, siap membangun komitmen politik terutama kepada partai yang siap mengusungnya.

“Komitmen sudah pasti harus disepakati, termasuk figur yang diusung menjadi wakil gubernur,” demikian Imron.

Basarnas Fokus Cari Korban AirAsia Usai Ekor Pesawat Ditemukan

Liputan6.com, Jakarta – Memasuki hari ke-15, Basarnas kembali menggelar operasi pencarian AirAsia. Pada hari ini, Basarnas akan fokus mencari korban AirAsia setelah berhasil mengangkat ekor pesawat QZ8501 kemarin.

“‎Untuk besok (Minggu 11 Januari 2015) kita tetap terus fokus mencari korban dengan dugaan masih adanya saudara kita yang menjadi korban, kemudian masih terjebak di bagian pesawat yang besar,” ujar Bambang Soelistyo di Kantor Basarnas, kawasan Kemayoran, Jakarta Pusat, Sabtu 10 Januari 2015.

Dalam pencarian korban AirAsia, Basarnas mengerahkan kapal-kapal yang memiliki sistem untuk mencari. Selain itu pencarian hari ini akan didukung kapal-kapal yang membawa penyelam.

Dengan begitu, ia yakin operasi pencarian dan pemindahan jenazah penumpang AirAsia QZ8501 dapat selesai lebih cepat dari waktu yang diperkirakan. Walau bagian ekor yang selama beberapa hari ini menjadi fokus operasi, menurut Bambang yang tetap menjadi prioritas utama adalah mencari korban yang masih berada di dasar laut.

“Harapan saya, kita bisa mempersembahkan cita-cita kita dari awal. Jadi bukan ekor, bukan badan pesawat, kita kembali pada korban, saya kembalikan atmosfer ini supaya kita kembali pada rencana operasi yang sudah kita atur tahapannya,” ujar Bambang.

Hingga operasi pencarian hari ke-14, tim gabungan SAR telah menemukan 48 jenazah. Sementara itu Tim Disaster Victim Identification (DVI) berhasil mengidentifikasi 2 jenazah korban jatuhnya pesawat AirAsia QZ8501 rute Surabaya-Singapura pada Minggu 28 Desember 2015. Dengan demikian, sudah 29 penumpang teridentifikasi. Sedangkan 19 korban lainnya masih menjalani identifikasi oleh tim DVI Polda Jatim.

Pesawat jenis Airbus A320-200 dengan register PK-AXC itu dipiloti Kapten Iriyanto dan kopilot Kapten Remi Emmanuel Plesel, serta 4 awak kabin, yakni Wanti Setiawati, Khairunisa Haidar Fauzi, Oscar Desano, Wismoyo Ari Prambudi, dan 1 teknisi bernama Saiful Rakhmad.

Pesawat AirAsia QZ8501 berpenumpang 155 orang, terdiri atas 138 penumpang dewasa, 16 penumpang anak-anak, dan 1 bayi. Penumpang didominasi warga negara Indonesia, 1 WN Singapura, 1 WN Inggris, 1 WN Malaysia, dan 3 WN Korea Selatan.

Wagub Djarot: PNS Terbukti Narkoba Langsung Dipecat

Liputan6.com, Jakarta – Hasil tes urine terhadap ribuan PNS DKI yang baru dilantik secara massal pekan lalu menunjukkan 13 pejabat eselon II dan III mengonsumsi bahan kimia atau obat. Di antaranya ditemukan ada yang mengandung morfin.

Terkait itu, Wakil Gubernur DKI Jakarta Djarot Saiful Hidayat menegaskan jika mereka terbukti mengonsumsi morfin jenis narkoba, ia akan memecatnya sebagai PNS.

“Kalau terlibat, positif narkoba? Tidak tunggu lama. Langsung pecat,” tegas Djarot usai menghadiri pagelaran Wayang Kulit Ultah PDI P ke-42 tahun di Tugu Proklamasi, Sabtu (10/1/2015).

Namun tentu, pihaknya terlebih dulu melakukan investigasi. PNS yang mengonsumsi obat dengan kandungan morfin akan dipanggil dan diperiksa. Sebab, dirinya mengakui morfin memang ada di beberapa jenis obat tertentu yang berfungsi untuk medis.

Apabila terbukti penggunaan obat itu bukan untuk kesehatan melainkan sebagai narkoba, Djarot menegaskan tak akan memberi toleransi.

“Langsung berhentikan dari jabatannya kalau terbukti. Karena ada banyak faktor, kita telusuri,” tutur mantan Walikota Blitar itu.

Sanksi senada juga digaungkan Ketua DPRD DKI Prasetyo Edi Marsudi. Menurut dia, toleransi tak boleh diberikan bagi PNS yang terbukti menggunakan narkoba. Pemecatan adalah sanksi paling pantas bagi mereka yang terbukti mengonsumsi obat-obatan terlarang itu.

“Pecat. Yang namanya siapapun terindikasi narkoba apalagi pejabat PNS, harus ada tindakan tegas dari BKD. Kalau kena kencing manis parah, pakai insulin ya nggak apa-apa. Tapi kalau memang itu betul-betul dipergunakan sebagai narkoba, ya pecat,” tegas dia.

Sekretaris Daerah (Sekda) Provinsi DKI Saefullah sebelumnya mengungkapkan ada dari 13 PNS DKI Eselon II dan III yang terindikasi mengonsumsi obat sebelum pelantikan ribuan PNS DKI di kawasan Monas pekan lalu, beberapa di antaranya memiliki kandungan morfin.

Hal itu berdasarkan hasil tes yang dilakukan Badan Narkotika Nasional Provinsi (BNNP) DKI Jakarta, sesuai instruksi Gubernur DKI Basuki Tjahaja Purnama.

“Ada juga obat yang kandungannya morfin,” tutur Saefullah.

Untuk mengetahui apakah obat mengandung morfin itu berjenis narkoba atau tidak, BNNP DKI dan Pemprov DKI tengah melakukan pendalaman dan penelusuran. Sebab, diakuinya memang dalam beberapa obat-obatan seperti obat sakit kepala, terkadang mengandung morfin.

“Nah teknisnya saya nggak tahu, itu kesehatan. Kan ada yang apa tuh, yang bisa melekat dalam obat pusing dan segala macam,” jelas Saefullah. (Ali)

Tak Bisa Cari Korban AirAsia, Adi Bantu Pijat Gratis Relawan

Liputan6.com, Palangkaraya – Niat tulus Adi, warga Pangkalan Bun, Kalimantan Tengah membantu petugas, para relawan, maupun wartawan yang sedang melaksanakan tugas terkait jatuhnya pesawat AirAsia QZ8501, layak diapresiasi. Tak bisa membantu mencari korban dan serpihan pesawat AirAsia di laut, Adi membantu dengan cara lain.

Seperti ditayangkan Liputan 6 Pagi SCTV, Minggu (11/1/2015), dengan keahliannya memijat, Adi memberikan jasa pijat secara gratis bagi para petugas, relawan dan wartawan. Tentu saja bantuan Adi disambut gembira.

Tiap harinya tidak kurang 20 orang yang menjadi pasien sang juru pijat. Dengan senyum ikhlas, Adi merasa senang dan bangga bisa membantu walau hanya dengan memijat.

Adi hanyalah salah satu contoh simpati dan perhatian warga sekitar Pangkalan Bun terhadap kecelakaan pesawat AirAsia. Walau dengan bantuan kecil, solidaritas dan semangat gotong-royong ternyata masih ada dan terasa di Indonesia. (Dan/Mut)

 

 

Bahaya Bahan Kimia dalam Kolam Renang

Liputan6.com, Amerika Serikat Sebuah penelitian baru yang dilansir dari HuffingtonPostUK, Jumat (9/1/2015), menemukan bahwa air seni tidak lebih membahayakan dibanding bahan kimia yang terkandung dalam kolam renang. Bahan kimia ini memiliki potensi untuk diserap oleh perenang sehingga membahayakan kesehatannya.

Sementara penelitian terdahulu menunjukkan bahwa klorin yang bercampur dengan air seni dapat membentuk bahan kimia yang membahayakan, studi yang dilakukan oleh Purdue University, Amerika Serikat, menunjukkan bahwa klorin yang bercampur dengan produk perawatan tubuh bisa menciptakan efek yang sama.

Menggunakan teknik yang dikembangkan oleh profesor Ching-Hua Huang, dari Georgia Institute of Technology, studi dilakukan dengan mengidentifikasi dan menghitung jumlah kandungan bahan kimia dan produk perawatan dari sampel air yang diambil dari berbagai kolam renang indoor di Amerika Serikat.

Para peneliti menemukan terdapat 32 bahan kimia yang terinvestiga dengan 3 bahan yang paling sering ditemukan adalah Deet (semacam pengusir serangga), Caffeine, dan tri(2-chloroethyl)-phosphate (TCEP).

“Para perenang terpapar bahan kimia dengan tiga cara, yaitu saat menarik napas, menyelam, atau melalui kulit mereka,” Kata Ernest Blatchley, profesor dari Divisi Lingkungan dan Teknik Ekologi.

PDIP Ajak Masyarakat Awasi Calon Kapolri Komjen Pol Budi Gunawan

Liputan6.com, Jakarta – Penunjukan Komisaris Jenderal Polisi (Komjen Pol) Budi Gunawan sebagai calon tunggal Kapolri oleh Presiden Jokowi menuai kontroversi. Sebab, penunjukkan itu tidak melibatkan Komisi Pemberantasan Korupsi (KPK) dan Pusat Pelaporan dan Analisis Transaksi Keuangan (PPATK) seperti saat Jokowi memilih menteri.

Namun, politisi PDIP TB Hasanuddin menegaskan, pemilihan calon Kapolri tersebut telah sesuai prosedur karena melibatkan Kompolnas sebagaimana diatur Undang-Undang Nomor 2 tahun 2002 tentang Kepolisian.

“Pemilihan calon Kapolri Komjen Pol Budi Gunawan sudah sesuai prosedur yang berlaku, tak ada yang perlu dipermasalahkan lagi. Komjen Pol Budi Gunawan merupakan salah satu dari 5 calon yang diajukan Kompolnas. Dipastikan Kompolnas tidak asal-asalan mengajukannya,” ujar dia saat dihubungi di Jakarta, Minggu (11/1/2014).

Anggota Komisi I DPR itu menjelaskan, berdasarkan rekomendasi Kompolnas, Presiden Jokowi kemudian menggunakan hak prerogatifnya memilih Budi Gunawan sebagai Kapolri.

“Ini kan nggak salah karena sudah diatur dalam UU nomor 2 tahun 2002 tentang kepolisian. Presiden Jokowi tidak salah. Malah jika tidak menjalankan prosedur Kompolnas, itu yang salah,” jelas Hasanuddin.

Terkait rekening gendut yang diduga dimiliki Budi Gunawan, Ketua DPD Jabar itu menyatakan, isu tersebut sudah lama diklarifikasi Polri termasuk Kompolnas. Karena itu dirinya meminta agar memberikan kesempatan kepada Budi Gunawan melewati prosesnya dan masyarakat bisa ikut mengawasi.

“Sekarang proses pemilihan Kapolri sedang berjalan. Beri kesempatan Komjen Pol Budi Gunawan menjadi Kapolri yang baru dan mari kita awasi kinerjanya langsung oleh rakyat demi kepentingan masyarakat, negara dan bangsa. Jangan ragu-ragu untuk mengkritisinya,” tandas Hasanuddin.

Sebelumnya, Presiden Jokowi telah memberikan klarifikasi terkait pengajuan nama Kepala Lembaga Pendidikan Polri (Lemdikpol) Komisaris Jenderal (Komjen) Pol Budi Gunawan sebagai calon Kapolri, melalui surat yang dikirimkannya kepada pimpinan DPR-RI. Jokowi menjelaskan nama Budi Gunawan itu merupakan nama yang diusulkan oleh Komisi Kepolisian Nasional (Kompolnas).

“Yang jelas itu kan usulan Kompolnas sudah masuk nama-nama itu. Ya sudah,” kata Jokowi di Bandara Juanda, Sidoarjo, Jawa Timur, Sabtu 10 Januari.