tugas 4

WULAN

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

WULAN

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

WULAN

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

WULAN

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

WULAN

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

WULAN

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

WULAN

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

WLAN

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

WULAN copy

7. tiket kereta

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

WULAN

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 KLIK “HITUNG” hasil keluar

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 klik HITUNG” atau “ENTER”

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”

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 Saat “diklik PROSES” atau “ENTER”

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. MEMBUAT FONT COLOR dan 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

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

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

Bambang Pamungkas Kapten Persija

 

KOMPAS.com – Pelatih Persija Jakarta, Rahmad Darmawan, mengatakan kembali menunjuk penyerang Macan Kemayoran, Bambang Pamungkas sebagai kapten tim.

“Ya, yang pasti Bambang Pamungkas akan menjadi kapten tim bila ia mengisi starting line-up,” ujar RD kepada Tribunnews.com di Mako Brimob, Depok, Kamis (18/12/2014).

Mantan pelatih Persebaya Surabaya ini menjelaskan bahwa Bepe, merupakan pemain yang pernah mengemban tugas menjadi kapten Persija, sangat layak mendapatkan kembali ban kaptennya. Tetapi, jika Bepe berhalangan untuk memperkuat tim, RD memastikan bakal memilih Ismed Sofyan yang memegang kepemimpinan skuad.

“Kemungkinan peluang kapten kedua akan diberikan kepada Ismed sebagai pemain paling senior di Persija,” tuturnya.

Timnas U-23 Batal Lawan Qatar

JAKARTA, KOMPAS.com – Timnas Indonesia U-23 batal melakoni uji coba melawan Qatar di Australia pada 5 Januari 2015 mendatang. Hal ini membuat pelatih Timnas U-23 Aji Santoso bakal mengubah program latihan anak asuhnya.

“Sedikit perubahan program latihan setelah saya tahu agenda pembatalan uji coba melawan Qatar di Australia. Sebenarnya hanya satu uji coba lokal dan satu uji coba internasional,” kata Aji.

Timnas U-23 melakukan pemusatan latihan di Sawangan, Depok, hingga 6 Januari 2015. Pemusatan latihan ini merupakan persiapan Evan  Dimas dan kawan-kawan jelang tampil di Kualifikasi AFC Cup U-22.

Indonesia sebagai tuan rumah dan bakal menantang Brunei Darussalam, Timor Leste dan Korea Selatan.

Batalnya laga uji coba tersebut membuat PSSI melakukan pendekatan dengan Federasi Sepak Bola Suriah untuk menggelar pertandingan persahabatan. Namun, hingga saat ini kepastian tanggal pertandingan Timnas U-23 melawan Suriah belum dipublikasikan.

“Hingga saat ini, kami selaku tim pelatih masih berkomunikasi untuk masalah itu. Yang jelas dalam pemusatan latihan kali ini harus ada sebuah uji coba,” ungkap Aji.

Sementara itu Evan Dimas kembali mengikuti TC Timnas. Kali ini, mantan anak asuh Indra Sjafri itu melakukan pemusatan latihan bersama Timnas Indonesia U-23.

Pemain asal Persebaya masuk dalam 30 pemain yang dipilih pelatih Aji Santoso untuk mengikuti pemusatan latihan pertama jelang Kualifilasi AFC Cup U-22.

“Ini pertama kalinya saya latihan bersama Timnas U-23, persaingan sangat berat dan saya harus profesional, harus lolos seleksi,” ujar Evan.

Evan merupakan satu-satunya pemain di bawah usia 20 tahun yang sudah tampil memperkuat Timnas Senior Indonesia.

“Lupakan pertandingan bersama Timnas Senior di AFF. Sekarang saya bersaing dengan pemain lain di Timnas U-23. Semua pemain, termasuk saya punya kesempatan yang sama. Kalau membela Timnas U-23 tentu saja saya ingin meloloskan skuat ini ke AFC Cup. Intinya kami harus bekerja keras” bebernya.

Akhir Tahun, Hotel di Bali Mulai Penuh

JAKARTA, KOMPAS.com – Akhir tahun, Bali selalu menjadi destinasi favorit. Sebagian besar hotel-hotel di Bali sudah penuh. Seperti diungkapkan Marketing and Communications Manager Padma Resort Bali at Legian Yohanes Hutauruk, di hotel Padma Legian sudah penuh untuk liburan akhir tahun.

“Dari pertengahan Desember sampai awal Januari sudah penuh. Rata-rata hotel di Bali sudah penuh. Biasanya kami struggling di bulan November sampai awal Desember, karena orang lihatnya nanggung sudah dekat dengan akhir tahun,” ungkap Yohanes saat kunjungan ke kantor Kompas.com, Kamis (18/12/2014).

Ia mengungkapkan wisatawan yang akan menghabiskan akhir tahun di Padma Legian terbanyak berasal dari Australia. Sisanya beragam dari turis domestik maupun mancanegara.

“Memang market kami di Australia. Akhir tahun 80 persen Australia. Sisanya ada lokal, Jepang, China, Eropa, dan Amerika,” kata Yohanes.

KOMPAS.com/Ni Luh Made Pertiwi F. Kunjungan Padma Hotels & Resorts ke kantor Kompas.com, Kamis (18/12/2014).

Sebaliknya, ungkap Yohanes, Bali akan mulai mengalami musim sepi pengunjung pada pertengahan Januari hingga bulan Maret. Setelah itu, akan ramai lagi di mulai bulan Maret terutama bertepatan liburan musim panas di Australia.

Padma Hotels & Resorts juga berencana membuka hotel baru di Bali yaitu Padma Ubud yang akan berlokasi di Desa Puhu. Hotel ini akan buka pada Juni 2015. Yohanes juga mengungkapkan lokasi lainnya yang akan “digarap” Padma Hotels & Resorts di Bali antara lain Tegalalang dan Payangan, keduanya berada di Gianyar.

Hotel baru di Karawang

Masih dikelola Padma Hotels & Resorts, hotel bintang empat segera hadir di Karawang, Jawa Barat. Hotel tersebut akan bernama Resinda Hotel Karawang. Yohanes menuturkan bahwa daerah Karawang saat ini tengah tumbuh pesat karena semakin banyaknya industri-industri di daerah ini. General Manager Resinda Hotel Karawang Ruth Hutapea menambahkan bahwa 80 persen pangsa pasarnya adalah orang Jepang.

“Kami punya Japanese bath, seperti onsen atau pemandian umum,” kata Ruth di kesempatan yang sama.

Selain itu, hotel ini juga akan memilliki ballroom terbesar di kawasan Cikarang, Bekasi, dan Karawang. Luasnya mencapai 1500 meter persegi dan bisa memuat hingga 1000 orang. Hotel ini rencananya akan buka di Juni 2015.

Menelusuri Sungai Bawah Tanah Puerto Princesa

“MAU tinggal di Fillipina 2 bulan, makan, minum, dan tidur ditanggung pemerintah?” tanya teman saya saat di gerbang sungai bawah tanah, Palawan. Siapa tidak senang ditawari oleh teman saya, lantas saya bertanya, “Bagaimana caranya?“. “Buang saja sampah sembarangan dan sampai ketahuan petugas,” jawab teman saya sambil tertawa. Walau hanya bercanda, di sinilah bagaimana lingkungan benar-benar mendapat perhatian utama untuk sebuah tempat wisata. Saya hanya bersendikan, “Bagaimana kalau ini diterapkan di Indonesia“.

Dua jam dari Puerto Princesa saya dibawa ke arah utara Palawan. Jalan berkelok, berbukit naik turun ditambah lagi sopir yang mengemudikan kendaraan begitu lihainya. Perut serasa diaduk-aduk, karena saya duduk di kursi belakang. Sepanjang perjalanan pemandu terus saja mencerocos demi menjelaskan ada apa saja di sana. Ibarat jalan menuju gedung bioskop, ada orang yang menceritakan rentetan cerita film. Bagi mereka yang suka merapa dan menebak-nebak seperti saya pasti akan gusar, tetapi ada juga yang rasa ingin tahunya tinggi sehingga terus bertanya dan semakin gusar saja.

Mata saya selalu jelalatan melihat keluar jendela. Di balik kaca mata hitam ini saya benar-benar mengagumi pesona alam Pulau Palawan. Bukit-bukit gamping menonjol di mana-mana. Hutan lebat hingga semak belukar menjadi sajian di sisi kanan kiri jalan. Hampir sepanjang perjalanan jarang ditemukan perkampungan, sehingga benar-benar seperti berjalan di tengah-tengah belantara. Udara sejuk dan suasana teduh benar-benar membuat betah di perjalanan ini, kecuali pemandu yang tak henti-hentinya berceloteh.

Dhanang Dhave Suasana di dalam lorong sungai bawah tanah Puerto Princesa, Filipina.

Tiang-tiang listrik dengan panel surya di atasnya mulai terlihat. Sawah-sawah dengan petak yang unik berjejalan di bukit-bukit kapur yang menjulang tinggi. Pemandu mengatakan sebentar lagi akan sampai di Sabang. Sabang adalah kota kecil di selatan Palawan yang menjadi pintu masuk pada salah satu keajaiban dunia, yakni sungai bawah tanah. Sopir mengarahkan kendaraan di pelataran tempat parkir di sebuah rumah makan.

Usai makan siang, saatnya menuju sungai bawah tanah di dermaga Sabang. Di sini saya benar-benar kagum pada pengelola wisata. Peraturan dan hukuman ditulis besar-besar agar benar-benar ditaati oleh pengunjung dan operator. Pantai yang bersih dan rapi. Panas yang terik, memaksa kami harus menunggu antrian perahu yang akan mengantar ke mulut sungai.

Jaket pelampung wajib dikenakan oleh pengunjung yang ingin mengunjungi sungai bawah tanah. Berjarak hampir tiga kilometer dengan waktu tempuh sekitar 20 menit, perahu yang kami tumpangi terombang-ambing oleh ombak Laut Tiongkok Selatan. Sebuah tebing karang terlihat dengan jelas yang menandakan sebentar lagi sampai di pantai yang menjadi pintu masuknya.

Setelah perahu merapat papan nama bertuliskan selamat datang di Taman Nasional Subterranean River Puerto Princesa terpasang di pintu masuk. Beberapa aturan dan semua informasi ada di sana. Jalan menuju pintu masuk berupa jalan panggung yang terbuat dari kayu. Hutan alami yang benar-benar masih terjaga keberadaannya. Suara burung hingga biawak yang berkeliaran dengan mudah ditemui di sepanjang jalan.

Sungai bawah tanah Puerto Princesa ditetapkan oleh Unesco sebagai warisan dunia. Dunia sudah mengakuinya dan tak sabar rasanya segera masuk ke dalam guanya. Sebuah perahu dengan cadik di sisi kanan-kiri sudah menunggu kami. Kapasitas perahu adalah 8 orang ditambah seorang pendayung sekaligus pemandu wisata. Para pengunjung diwajibkan mengenakan jaket pelampung dan helm pelindung. (Dhanang Dhave)

Baca kisah selengkapnya di Kompasiana: “Menelusuri Sungai Bawah Tanah Puerto Princesa“.


Editor : Ni Luh Made Pertiwi F
Sumber : Kompasiana

Lamborghini “Roda Dua” Muncul di Georgia

Alpharetta, KompasOtomotif – Salah satu esensi supercar asal Italia Lamborghini adalah jantung pacu yang sanggup menyemburkan ratusan tenaga kuda ke keempat roda. Namun cara kerja konvensional seperti itu tidak berlaku buat seseorang asal Georgia, dengan berbagai modifikasi dia berhasil menyematkan mesin V12 lamborghini ke kuda besi beroda dua yang dibuat custom.

Seperti diceritakan Bold Ride, pekan lalu, nama pemilik ataupun rumah modifikasinya memang tidak disebutkan, tapi kehadiran sepeda motor dengan penampakan enam leher knalpot di setiap sisi ini telah ditemukan di gelaran Cars and Coffee di Alpharetta, Georgia.

Dalam video yang disiarkan di You Tube, sang pemilik sempat menyalakan mesin lalu mulai membuka gas. Raungan mesin bernada berat khas Lamborghini terdengar keras bahkan saat masih dalam kondisi idle.

Sepeda motor dengan mesin Lamborghini ini berfungsi normal, dikatakan sanggup dipakai sehari-hari meski tidak dijelaskan telah memenuhi regulasi kelayakan di jalan raya atau tidak. Karena dimensi mesin terlalu besar bodi sepeda motor juga terlihat lebih panjang dan pasti lebih berat.

Masih banyak pertanyaan yang belum terjawab, seperti berapa tenaga kuda yang dihasilkan atau berapa kecepatan maksimalnya. Namun ada satu modifikasi yang menarik, posisi setang berada di tengah. Sengaja dibuat demikian menyesuaikan dimensi mesin, selain itu agar posisi pengemudi menjauhi mesin yang bisa menjadi sangat panas. Saksikan video di bawah untuk cerita lebih lengkap.

Pabrik Toyota Paling Ramah Lingkungan

Sumber : – | Author : Agung Kurniawan
Jakarta, KompasOtomotif – PT Toyota Motor Manufacturing Indonesia (TMMIN) mendapatkan apresiasi terkait pengelolaan kegiatan usaha dari Kementerian Lingkungan Hidup dan Kehutanan, dengan mendapatkan penghargaan PROPER HijauProgram Penilaian Peringkat Kinerja Perusahaan dalam pengelolaan lingkungan hidup yang diluncurkan pemerintah sejak dua dekade yang lalu. Program ini bertujuan untuk meningkatkan peran perusahaan dalam melakukan pengelolaan lingkungan.

“Penghargaan ini memberikan semangat lebih besar lagi kepada keluarga Toyota Indonesia untuk  menekankan aspek lingkungan atau environment concern dalam berbagai kegiatan produksi, termasuk meningkatkan optimalitas progam corporate social responsibility (CSR),” kata Wakil Presiden Direktur TMMIN Warih Andang Tjahjono dalam siaran persnya, Jumat (19/12/2014).

Predikat PROPER Hijau seperti yang diterima TMMIN diberikan kepada perusahaan yang kualitas manajemen pengelolaan lingkungannya dan hasilnya yang dilihat dari indikator tertentu telah melebihi standar yang ditentukan.

Menurut Warih, sebagai bagian pusat basis produksi global Toyota, aspek lingkungan hidup sudah menjadi keharusan bagi TMMIN agar produk yang dihasilkan bisa memenuhi standar kualitas dunia, baik dalam proses produksi maupun produk yang dihasilkan.

“Komitmen Toyota dalam pengelolaan lingkungan diwujudkan dengan memenuhi persyaratan pemerintah, standar global serta internal di bidang lingkungan, mengembangkan proses manufaktur yang ramah lingkungan, penghematan energi melalui peningkatan efisiensi dan penggunaan sumber energi ramah lingkungan serta menerapkan aktivitas reduce, reuse dan recycle,” tutup Warih.

Dyandra Bertahan dengan IIMS 2015

Jakarta, KompasOtomotif – Seiring terus melemahnya hembusan angin dari Gaikindo untuk menghelat Indonesia International Motor Show (IIMS) 2015, PT Dyandra Promosindo selaku perusahaan penyelenggara tetap berkomitmen melaksanakan event tersebut.

“Sebagai satu-satunya anak perusahaan KG yang Go Public, tentu ada tanggung jawab sosial pada masyarakat dan stake holder yang ada. Sudah dirapatkan, tetap kami akan tetap komitmen melaksanakan IIMS tahun depan,” jelas Hendra Noor Saleh, Direktur PT Dyandra Promosindo kepada KompasOtomotif, Kamis (18/12/2014).

Hingga kini, pihak Dyandra mengaku masih menunggu pengumuman resmi Gaikindo apakah keputusannya soal IIMS 2015. Meskipun, Hendra tak menampik mendengar berbagai rumor mengatakan, Gaikindo sudah beralih menggunakan perusahaan penyelenggara lain.

“Bagi kita, ada dua pameran (otomotif) sebuah peristiwa normal, di Thailand juga ada dua kan. Sekarang, kita ikuti tahapannya saja dulu, kalau sudah ada keputusan Gaikindo, itu hak dia. Kita menanti keputusan Gaikindo dan tentu berharap kerjasama yang sudah terjalin belasan tahun ini terus berlanjut. Tim Dyandra saat ini sudah melakukan konsolidasi dengan melengkapi tim kerja dan tim ini yakin mampu melaksanakan motorshow sesuai dengan kualitas yang diharapkan,” tukas pria yang juga akrab dipanggil Kohen itu.

Konsep baru
Hendra melanjutkan, pihaknya sudah menyiapkan konsep yang lebih menarik dan lebih kreatif. Salah satu opsinya, adalah dengan menggabungkan konsep perhelatan Oto Bursa Tumplek-Blek jadi satu dengan IIMS 2015.

“Tapi, ini hanya salah satu pemikiran. Semuanya masih dirumuskan, lihat nanti mana yang menarik, jadi lebih value for money, konsepnya akan selesai awal Januari 2015,” lanjut Hendra. Pastinya, IIMS 2015 sampai saat ini tetap milih JIExpo, Kemayoran, Jakarta Pusat sebagai diselenggarakannya acara tahun ini. Hanya, konsep yang coba digunakan masih belum final disampaikan seperti apa jadinya.

 

Editor : Azwar Ferdian