TUGAS 4

gambar 1

1.1 KLIK PROSES

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

gambar 1

1.2 KLIK PROSES DAN ENTER

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

gambar 2

2. GOLONGAN PEGAWAI

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

SUSI

3.1 IKUTIN BAPAK

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

gambar 5

3.2 NPM SENDIRI

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

EKA

4. PENJUALAN APPLE

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

gambar 7

5. PENJUALAN KOMPUTER

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

gambar 8

6. DATA BUKU COMBO

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

gambar 9

7. PENJUALAN TIKET

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

gambar 10

8. DATA BUKU KODE

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

gambar 1

1.1 KLICK TOMBOL “HITUNG”

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

1.2 KETIKA “CLICK HITUNG” ATAU “ENTER” HASIL MUNCUL

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

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

gambar 2

2.1 Ketika di klik tombol “PROSES” hasil muncul

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 Ketika “di click PROSES” atau “ENTER” hasil muncul

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

gambar 3

  1. MERUBAH FONT COLOR and FONT STYLE

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

‘membuatteksberwarnamerah

Label1.ForeColor = vbRed

End Sub

Private Sub Option2_Click()

‘membuatteksberwarnahijau

Label1.ForeColor = vbGreen

End Sub

Private Sub Option3_Click()

‘membuatteksberwarnabiru

Label1.ForeColor = vbBlue

End Sub

Private Sub Option4_Click()

‘membuatteksberwarnakuning

Label1.ForeColor = vbYellow

End Sub

gambar 4

  1. MENAMPILKAN DAN MEMBUAT EFEK TULISAN

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 biru

Label2.ForeColor = vbBlue

End Sub

Private Sub Option2_Click()

‘membuat warna berwarna merah

Label2.ForeColor = vbRed

End Sub

End Sub

 

TUGAS 2

DATA MAHASISWA

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 Ifs

End Sub

PERKALIAN 2 BILANGAN

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

KALKULATOR MINI

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

Besar, Peluang Chelsea Jadi Juara EPL

Kamis, 18 Desember 2014 | 17:35 WIB

KOMPAS.com – Menurut kiper Chelsea Petr Cech, peluang klubnya memenangi trofi Liga Primer Inggris (EPL) besar. Cech, kiper tim nasional Repoblik Ceko itu memuji kelengkapan skuad Chelsea musim ini, tulis laman goal.com pada Kamis (18/12/2014).

Chelsea masih memuncaki klasemen Liga Primer Inggris saat ini. Anak asuh Jose Mourinho juga masih berpartisipasi di babak 16-Besar Liga Champions, Piala FA, dan semifinal Piala Liga.

Meski demikian, Cech berharap rekan-rekan setimnya tidak besar kepala dan tetap fokus hingga akhir musim demi meraih juara. “Tim ini (Chelsea) memiliki potensi dan kualitas untuk menjadi salah satu tim terbaik dalam sejarah Chelsea juga itu dibuktikan dengan memenangi trofi,” tutur Cech kepada Mirror.

“Tetapi, saya mengatakan bahwa anda baru bisa menilai tim ini pada akhir musim saat melihat berapa banyak yang tim ini raih,” katanya menegaskan.

“Saat ini, kami tampil cukup baik tetapi belum meraih gelar apa pun. Jadi kita lihat apa yang akan terjadi pada akhir musim,” pungkas Cech.


Editor : Josephus Primus

Dunia Mengakui Arkeologi Indonesia, tetapi Pemerintah Berdiam Diri

Rabu, 17 Desember 2014 | 21:04 WIB

KOMPAS.com –  Hingga sekarang, penemuan manusia Liang Bua atau Homo floresiensis di Flores, Nusa Tenggara Timur, 11 tahun lalu, menjadi sorotan para peneliti dunia. Karena temuan ini, empat ilmuwan Indonesia dari Pusat Arkeologi Nasional, yaitu Rokus Awe Due, E Wahyu Saptomo, Jatmiko, dan Thomas Sutikna, masuk dalam jajaran ilmuwan dengan pemikiran ilmiah paling berpengaruh sedunia tahun 2014 menurut versi Thomson Reuters, di London, Inggris. Namun, diskursus dan perhatian dalam negeri terhadap temuan spektakuler ini justru tidak menggema.

Arkeolog senior Universitas Indonesia (UI) Prof Mundardjito mengungkapkan, sama sekali tak ada perhatian pemerintah terhadap peneliti yang benar-benar bekerja serius dan menghasilkan temuan luar biasa. ”Para peneliti kita ini dikenal sangat jago dalam penelitian di lapangan. Pak Rokus, misalnya, adalah ahli tulang yang paham betul detail seluk-beluk tulang belulang. Mereka sungguh-sungguh bekerja, tetapi tidak pernah mendapat perhatian dari negara,” katanya, di Jakarta, Selasa (16/12/2014).

Menurut Mundardjito, selain Homo floresiensis, banyak temuan luar biasa yang berhasil diungkap para arkeolog dalam negeri. Namun, tak banyak yang diperhatikan, apalagi didukung optimal oleh pemerintah.

”Selain temuan Liang Bua, di Sumatera Prof Truman Simanjuntak juga menemukan hunian Homo sapiens massal di Goa Harimau. Begitu juga Sugeng Riyanto dan para arkeolog Balai Arkeologi Yogyakarta yang menemukan hunian Mataram Kuno yang lengkap di Situs Liyangan, Temanggung,” ungkap Mundardjito.

Situs lengkap

Temuan di Liang Bua mendapat perhatian dunia karena menyajikan sejarah manusia secara berulang-ulang dari masa ke masa sejak masa Plestosen hingga Holosen. Di dalam goa, arkeolog menemukan sisa-sisa kehidupan mulai dari 450 tahun lalu hingga 18.000 tahun lalu.

”Pada lapisan Holosen, ditemukan tinggalan-tinggalan berciri budaya neolitik berupa 14 kubur manusia dengan bekal kubur periuk serta beliung persegi. Di antara lapisan Holosen dan Plestosen, ditemukan lapisan abu vulkanik dari umur 12.000 dan 17.600 tahun lalu yang menjadi pembatas antara lapisan Holosen dan Plestosen. Homo floresiensis setinggi 106 sentimeter dengan volume otak 417 sentimeter kubik ditemukan di lapisan Plestosen pada kedalaman 5,9 meter,” kata Jatmiko, salah satu peneliti Situs Liang Bua.

Yang menarik, di atas lapisan abu vulkanik (lapisan Holosen) ditemukan tulang-tulang fauna yang berbeda dengan lapisan Plestosen. Tulang-tulang hewan yang ditemukan di lapisan Holosen antara lain tikus, belut, katak, kura-kura, dan kelelawar. Tulang-tulang hewan di lapisan Plestosen berupa gajah purba kecil, komodo, kura-kura besar, dan bangau.

Pada saat Homo floresiensis ditemukan, para arkeolog dalam negeri sempat berbeda pendapat. Sebagian arkeolog menilai manusia Liang Bua adalah spesies baru, sementara arkeolog lain berpendapat bahwa individu ini berkepala kecil karena mengalami kelainan mikrokefali atau kepala kecil.

”Kami masih sangat terbuka akan adanya diskusi dalam seminar besar untuk membedah temuan ini. Para arkeolog yang ahli di bidangnya masing-masing perlu berkumpul untuk membahasnya,” kata salah satu penemu Homo floresiensis, E Wahyu Saptomo.

Menurut Wahyu, temuan-temuan di Liang Bua yang sangat beragam itu mendesak untuk dipelajari secara mendalam dan dikonservasi secara profesional. Pemerintah perlu membangun museum untuk menyimpan dan melestarikan berbagai macam artefak Liang Bua yang meliputi masa sangat panjang mulai dari masa Plestosen hingga Holosen. (ABK)


Editor : Yunanto Wiji Utomo
Sumber : KOMPAS

Yamaha Exciter 150, Calon Jupiter MX Baru?

Hanoi, KompasOtomotif – Yamaha Vietnam meluncurkan Exciter 150 terbaru, (18/12/2014). Inilah versi 2015 Exciter 135cc yang di Indonesia disebut Jupiter MX. Kemungkinan besar, model ini juga akan diadopsi Yamaha Indonesia yang memang sudah berancang-ancang mengenalkan Jupiter MX versi 2015 dalam waktu dekat.

Seperti diulas autopro.com.vn, model ini mendapatkan ubahan sangat banyak, termasuk sasis dan desain mesin. Sasis disebut lebih solid dan jauh lebih ringan ketimbang versi 135cc. Desain wajah masih mengalir darah sporty, namun Yamaha mengurangi sudut-sudut tajam dan membuatnya lebih dinamis.

Yang menarik adalah lampu-lampu pada tameng yang didesain cukup unik dengan beberapa tarikan garis. Lampu-lampu ini terintegrasi dengan lampu sein. Panel inikator lebih lengkap, menampilkan rpm meter secara analog dan kecepatan dalam versi digital.

Perubahan di belakang adalah lampu stop yang mirip Yamaha R25. Lampu sein tak lagi terintegrasi dengan lampu belakang, tapi diletakkan terpisah, sedikit di atas tempat pelat nomor.

Dimensi panjang, lebar, dan tingginya 1970 x 670 x 1080 (mm). Ketinggian jok 780 mm. Jarak sumbu roda 1.290mm. Kapasitas tangki bahan bakar 4,2 liter.

Mesin menggunakan tipe silinder tunggal 149,7cc injeksi. Mesin baru ini sanggup memproduksi tenaga 15 tk @8.500 rpm dan torsi maksimum 13,8 Nm @7.000 rpm. Mesin itu dipadu dengan transmisi manual 5-percepatan.

Yamaha Vietnam menawarkan model ini dalam empat opsi warna, biru-silver, putih-merah, hitam-emas, dan hitam-merah. Harga yang dipatok mencapai 44.99 juta Dong Vietnam (Rp 26,4 juta). Untuk tipe GP Edition dijual 45,49 juta Dong Vietnam (Rp 26,7 juta).

Editor : Donny Apriliananda

Wapres Berkelakar Akan Jual Gedung Kementan jika Gagal Swasembada Beras

Kamis, 18 Desember 2014 | 19:00 WIB

JAKARTA, KOMPAS.com — Wakil Presiden Jusuf Kalla optimistis Indonesia dapat mencapai swasembada pangan dalam beberapa tahun ke depan. Ia bahkan berkelakar akan menjual Gedung Kementerian Pertanian apabila target swasembada pangan tak tercapai.

“Seperti yang dikatakan Presiden, kita perlu ada prioritas. Kita bicara tentang pangan. Tak ada negara hebat tanpa swasembada pangan. Kebutuhan tak pernah turun dan ini kebutuhan mutlak,” kata Kalla di acara penutupan Musyawarah Perencanaan Pembangunan (Musrenbang) Nasional RPJMN 2015-2019, di Hotel Bidakara, Jakarta, Kamis (18/12/2014).

Kalla menjelaskan, menjadi hal yang memalukan saat Indonesia sebagai negara besar tetapi terus melakukan impor beras sekitar tiga juta ton setiap tahun. Dengan alasan itu, ia meminta Kementerian Pertanian (Kementan) bekerja keras mewujudkan swasembada pangan.

Terlebih, kata Kalla, Kementan memiliki lahan kantor seluas 15 hektar dan bisa jadi merupakan lembaga pertanian terluas di dunia. Maka, Kalla merasa pantas meminta lebih agar Kementan bekerja optimal mewujudkan swasembada pangan.

“Semua yang ahli kembali ke ladang, jangan di kantor. Kalau tidak, kita jual kantornya,” kata Kalla berkelakar.

Secara terpisah, Presiden Joko Widodo juga memberikan target kepada Menteri Pertanian Amran Sulaiman untuk mewujudkan swasembada beras dalam tiga tahun masa kerjanya. Target yang sama akan dilakukan pada tahun berikutnya untuk mewujudkan swasembada gula, jagung, dan lainnya.

“Mentan saya beri target dua tahun, paling tidak dalam tiga tahun berasnya sudah selesai, tidak ada impor lagi yang namanya beras. Saya dan Pak JK senang, ketika kita mutar ke semua provinsi, semangat mewujudkan itu besar,” ucap Jokowi.

Microsoft Touch Mouse bekerja dengan kemampuan gesture multitouch

JAKARTA, KOMPAS.com – Microsoft, Senin (31/10/2011) hari ini, merilis produk mouse dengan inovasi terbaru, Touch Mouse, untuk pasar Indonesia. Mouse jenis baru ini digadang lebih intuitif dan mudah digunakan dengan penggunaan sapuan jari untuk melakukan beberapa perintah.

“Kami tidak pernah berhenti menciptakan inovasi dan teknologi baru bagi para konsumen. Kini kami memperkenalkan teknologi multitouch yang dapat membantu konsumen melakukan hal-hal inovatif yang tidak biasa mereka lakukan dengan mouse,” ujar Harry Kartono, Retail, Sales & Marketing Lead, PT Microsoft Indonesia.

Microsoft Touch Mouse bekerja dengan mengombinasikan kemampuan standar mouse dengan gesture multitouch. Dengan kemampuan multitouch, Touch Mouse memungkinkan penggunanya bernavigasi lebih mudah dan cepat hanya dengan sebuah sapuan/jentikan jari mereka.

Misalnya, untuk melakukan minimize jendela (window) yang aktif, pengguna cukup membuat sapuan dua jari ke arah bawah dan sebaliknya untuk maximize jendela, tinggal membuat sapuan dua jari ke arah atas. Tak hanya itu, ada beberapa perintah lain yang dapat diakses dengan sapuan jari Anda.

Kemampuan yang paling istimewa dari Touch Mouse ini adalah saat Anda menggerakkan tiga jari di mouse ke arah atas, akan muncul tampilan preview semua window yang aktif dalam satu layar. “Perintah ini tidak akan Anda dapatkan bila Anda tidak menggunakan Microsoft Touch Mouse dan Windows 7,” demikian dikatakan Hermawan Sutanto, Director Central Marketing Organization, PT Microsoft Indonesia.

Untuk memaksimalkan penggunaan mouse yang menggunakan teknologi Blue Track ini, pengguna disarankan menggunakan sistem operasi Microsoft terbaru, Windows 7.

Teknologi BlueTrack sendiri merupakan teknologi yang eksklusif dimiliki oleh Microsoft, yang memungkinkan pengguna ‘menjelajah’ dengan mouse di atas berbagai permukaan termasuk kayu, batu granit atau batu marmer – tidak lagi tergantung pada permukaan mouse pad yang datar dan halus.

Touch Mouse akan tersedia di toko-toko elektronik mulai hari dan akan dipasarkan dengan harga Rp 749.000.

Ulama Iran, Facebook Haram Digunakan

TEHERAN – Ayatullah Iran menfatwakan bahwa layanan jejaring sosial Facebook itu tidak Islami dan menjadi anggota dari situs tersebut termasuk dosa besar.Pengumuman ini disampaikan oleh ulama senior yang biasa menjawan isu-isu sosial tertentu dan apakah isu tersebut kompatibel dengan norma-norma Islam.

“Pada dasarnya, pergi ke setiap situs web yang menyebar amoral dan bisa melemahkan keyakinan agama tidak Islami dan tidak diperbolehkan, dan keanggotaan dalam oleh karena itu haram (dosa),” tukas Ayatullah Lotfollah Safi-Golpaygani, yang dikutip Haaretz dari Kantor Berita ISNA, Selasa (10/1/2012).

“Hanya menggunakan situs menyebarkan kriteria agama dan tidak menyebabkan apapun terkait amoral etika adalah tidak ada masalah,” tambahnya.

Menurut angka resmi yang dirilis Oktober lalu, 17 juta orang Iran memiliki akun Facebook, meskipun pembatasan dan penyaringan cukup ketat yang diberlakukan oleh pemerintah. Karena popularitas Facebook identik dengan generasi muda, pengamat percaya bahwa jumlah pengguna Facebook yang sebenarnya Iran bisa jauh lebih tinggi dari 17 juta.

Iran memiliki penduduk 70 juta, dimana dari 60 persen di bawah usia 30. Lebih dari 5 juta website yang dilaporkan diblokir di Iran, tapi Iran menggunakan perangkat lunak proxy dan VPN untuk mengaksesnya.

Apalagi para pejabat Iran, selama lebih dari tiga dekade, telah melancarkan apa yang mereka sebut “perang melawan invasi budaya Barat.”

FBI Selidiki Pencurian 1,2 Miliar Kata Sandi

FBI Selidiki Pencurian 1,2 Miliar Kata Sandi

Minggu, 24 Agustus 2014 13:49:05 – oleh : admin

JAKARTA–Biro investigasi AS sedang menyelidiki laporan perusahaan keamanan siber AS yang menemukan 1,2 miliar login dan kata sandi internet dikumpulkan oleh sebuah organisasi kejahatan Rusia.

Hold Security (perusahaan keamanan dan investigasi) wilayah Milwaukee, Wisconsin, awal bulan ini mengungkapkan telah menemukan identitas login dan password yang telah dikumpulkan selama beberapa tahun dari sekitar 420.000 situs dan server lainnya.

“FBI sedang menyelidiki insiden yang baru-baru ini dilaporkan melibatkan berbagai nama pengguna dan password, dan akan memberikan informasi tambahan seperti jenis dan ruang lingkup insiden lebih jelas,” kata juru bicara lembaga tersebut, Josh Campbell, melalui email seperti dikutip Reuters.

Hold Security menyebut  insiden ini ulah kelompok kriminal ‘CyberVor’ yang fokus pada pencurian data login, demikian Reuters.

Source : REPUBLIKA.CO.ID