TUGAS QUIS 4

Posted on by

0

Ane hari ini dikasih tugas ama dosen tuk nyelesain soal2 quis minggu kmren,, oke ayo kita kerjain….

  • Buka aplikasi visual basic
  • Buat forem sperti berikut

Image

  • Pada command proses, masukkan kode seperti berikut

Private Sub Command1_Click()

Dim JB, PN, PB As String

Dim H As Currency

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

A = Mid(Combo1, 3, 3)

If A = “SIM” Then

JB = “Sistem Informasi Manajemen”

PN = “Yati Nur Oktavia”

H = “75900”

ElseIf A = “EDP” Then

JB = “Elektronik Data Processing”

PN = “Imam Tarmizi”

H = “62000”

ElseIf A = “MNJ” Then

JB = “Manajemen”

PN = “Valentina Mariana Adiwianti”

H = “42000”

ElseIf A = “CDR” Then

JB = “Corel Draw”

PN = “Rian Suhandi”

H = “53000”

ElseIf A = “RPL” Then

JB = “Rekayasa Perangkat Lunak”

PN = “Sinta Umpu Singa”

H = “83000”

End If

Text2.Text = JB

Text3.Text = PN

Text6.Text = H

B = Left(Combo1, 1)

If B = “A” Then

Text5.Text = “Andi offset Yogyakarta”

ElseIf B = “I” Then

Text5.Text = “Indah Surabaya”

ElseIf B = “S” Then

Text5.Text = “Salemba Empat”

ElseIf B = “E” Then

Text5.Text = “Elek Media Komputindo”

ElseIf B = “M” Then

Text5.Text = “Maxicom”

End If

End Sub

 

  • Selesai. Untuk command2 yg lain,, agan2 pasti dah ngerti donk…
  • Ni hasilnya….

 

 

 

 

 

 Image

TUGAS QUIS 3

Posted on by

0

Ane hari ini dikasih tugas ama dosen tuk nyelesain soal2 quis minggu kmren,, oke ayo kita kerjain….

  • Buka aplikasi visual basic
  • Buat forem sperti berikut

Image

  • Pada command proses, masukkan kode seperti berikut

Private Sub Command1_Click()

Dim JBT, BG As String

Dim GP, TJ, TG As Currency

Text4.Text = Left(Text11.Text, 4)

G = Mid(Text11.Text, 5, 1)

If G = “A” Then

G = “A”

JBT = “Manajer”

GP = “4000000”

TJ = “1025000”

ElseIf G = “B” Then

G = “B”

JBT = “Ka. Seksi”

GP = “3500000”

TJ = “975000”

ElseIf G = “C” Then

G = “C”

JBT = “Staff”

GP = “3000000”

TJ = “925000”

End If

Text10.Text = G

Text5.Text = JBT

Text7.Text = GP

Text8.Text = TJ

KS = Mid(Text11.Text, 7, 1)

If KS = “S” Then

KS = “S”

Stat = “Single”

ElseIf KS = “M” Then

KS = “M”

Stat = “Menikah”

ElseIf KS = “J” Then

KS = “J”

Stat = “Janda”

ElseIf KS = “D” Then

KS = “D”

Stat = “Duda”

End If

Text2.Text = KS

Text3.Text = Stat

B = Right(Text11.Text, 3)

If B = “KEU” Then

Text6.Text = “Accounting”

ElseIf B = “ADM” Then

Text6.Text = “Administrasi”

ElseIf B = “SDM” Then

Text6.Text = “General Affair”

ElseIf B = “EDP” Then

Text6.Text = “IT Unit”

ElseIf B = “SPM” Then

Text6.Text = “Security”

End If

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

End Sub

 

  • Selesai. Untuk command2 yg lain,, agan2 pasti dah ngerti donk…
  • Ni hasilnya….

 

 

 

 Image

TUGAS QUIS 2

Posted on by

0

Ane hari ini dikasih tugas ama dosen tuk nyelesain soal2 quis minggu kmren,, oke ayo kita kerjain….

  • Buka aplikasi visual basic
  • Buat forem sperti berikut

Image

  • Pada command proses, masukkan kode seperti berikut

Private Sub Command1_Click()

Dim JB, PN, PB As String

Dim H As Currency

Text4.Text = “20” & Mid(Text1.Text, 5, 2)

A = Left(Text1.Text, 3)

If A = “SIM” Then

JB = “Sistem Informasi Manajemen”

PN = “Fadiya Ulfa”

H = “75900”

ElseIf A = “EDP” Then

JB = “Elektronik Data Processing”

PN = “Nurul Agustina”

H = “62000”

ElseIf A = “MNJ” Then

JB = “Manajemen”

PN = “Rian Hidayat”

H = “42000”

ElseIf A = “CDR” Then

JB = “Corel Draw”

PN = “Siti Nur Khotimah”

H = “53000”

ElseIf A = “RPL” Then

JB = “Rekayasa Perangkat Lunak”

PN = “Winda Erlianti”

H = “83000”

End If

Text2.Text = JB

Text3.Text = PN

Text6.Text = H

B = Right(Text1.Text, 1)

If B = “A” Then

Text5.Text = “Andi offset Yogyakarta”

ElseIf B = “I” Then

Text5.Text = “Indah Surabaya”

ElseIf B = “S” Then

Text5.Text = “Salemba Empat”

ElseIf B = “E” Then

Text5.Text = “Elek Media Komputindo”

ElseIf B = “M” Then

Text5.Text = “Maxicom”

End If

End Sub

 

  • Selesai. Untuk command2 yg lain,, agan2 pasti dah ngerti donk…
  • Ni hasilnya….

 

Image

TUGAS QUIS 1

Posted on by

0

Ane hari ini dikasih tugas ama dosen tuk nyelesain soal2 quis minggu kmren,, oke ayo kita kerjain….

  • Buka aplikasi visual basic
  • Buat forem sperti berikut

Image

  • Pada command proses, masukkan kode seperti berikut

Private Sub Command1_Click()

Dim JB, PN, PB As String

Dim H As Currency

Text4.Text = “20” & Right(Text1.Text, 2)

A = Mid(Text1.Text, 3, 3)

If A = “SIM” Then

JB = “Sistem Informasi Manajemen”

PN = “Andra setiawan”

H = “75900”

ElseIf A = “EDP” Then

JB = “Elektronik Data Processing”

PN = “Desi Istiqomah”

H = “62000”

ElseIf A = “MNJ” Then

JB = “Manajemen”

PN = “Sandi fitrajaya”

H = “42000”

ElseIf A = “CDR” Then

JB = “Corel Draw”

PN = “Ernita Sari”

H = “53000”

ElseIf A = “RPL” Then

JB = “Rekayasa Perangkat Lunak”

PN = “Winda Erlianti”

H = “83000”

End If

Text2.Text = JB

Text3.Text = PN

Text6.Text = H

B = Left(Text1.Text, 1)

If B = “A” Then

Text5.Text = “Andi offset Yogyakarta”

ElseIf B = “I” Then

Text5.Text = “Indah Surabaya”

ElseIf B = “S” Then

Text5.Text = “Salemba Empat”

ElseIf B = “E” Then

Text5.Text = “Elek Media Komputindo”

ElseIf B = “M” Then

Text5.Text = “Maxicom”

End If

End Sub

  • Selesai. Untuk command2 yg lain,, agan2 pasti dah ngerti donk…
  • Ni hasilnya….

Image

Tugas Visual Basic

Posted on by

0

1. membuat program 2 bilangan

Private Sub Text1_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

Text2.SetFocus

End If

End Sub

 

Private Sub Command1_Click()

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

End Sub

 

Private Sub Command2_Click()

Text1.SetFocus

Text1 = ” “

Text2 = ” “

Text3 = ” “

End Sub

 

Private Sub Command3_Click()

End

End Sub

 

2. membuat program 2 bilangan (part 2)

Private Sub Text1_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

Text2.SetFocus

End If

End Sub

 

Private Sub Command1_Click()

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

End Sub

 

Private Sub Command2_Click()

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

End Sub

 

 

 

 

 

 

 

Private Sub Command3_Click()

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

End Sub

 

Private Sub Command4_Click()

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

End Sub

 

 

 

Private Sub Command5_Click()

Text1.SetFocus

Text1 = ” “

Text2 = ” “

Text3 = ” “

End Sub

 

Private Sub Command6_Click()

End

End Sub

 

3. membuat font style dan font colot

Private Sub Option1_Click()

lbljudul.ForeColor = vbRed

End Sub

Private Sub Option2_Click()

lbljudul.ForeColor = vbBlue

End Sub

Private Sub Option3_Click()

lbljudul.ForeColor = vbGreen

End Sub

Private Sub Option4_Click()

lbljudul.ForeColor = vbYellow

End Sub

Private Sub Option5_Click()

lbljudul.ForeColor = vbWhite

End Sub

Private Sub Option6_Click()

lbljudul.ForeColor = vbBlack

End Sub

 

Private Sub Check1_Click()

If Check1.Value = 1 Then

lbljudul.FontBold = True

Else

lbljudul.FontBold = False

End If

End Sub

Private Sub Check2_Click()

If Check2.Value = 1 Then

lbljudul.FontItalic = True

Else

lbljudul.FontItalic = False

End If

End Sub

Private Sub Check3_Click()

If Check3.Value = 1 Then

lbljudul.FontUnderline = True

Else

lbljudul.FontUnderline = False

End If

End Sub

 

4. membuat program perhitungan diskon

Private Sub Text1_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

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

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

End If

End Sub

 

Private Sub Command1_Click()

Text1.SetFocus

Text1 = ” “

Text2 = ” “

Text3 = ” “

End Sub

 

Private Sub Command2_Click()

End

End Sub

 

5. membuat program perhitungan gaji

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.Text) + Val(Text2.Text) – Val(Text3.Text)

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

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

End If

End Sub

 

Private Sub Command1_Click()

Text1.SetFocus

Text1 = ” “

Text2 = ” “

Text3 = ” “

Text4 = ” “

Text5 = ” “

Text6 = ” “

End Sub

 

Private Sub Command2_Click()

End

End Sub

 

 

 

Konser Agnes Monica Ramai Diperbincangkan

Posted on by

0

Ghiboo.com – Konser Agnes Monica bertajuk Make It Happen yang merupakan perayaan 20 tahun kiprahnya di dunia musik tidak disangka menjadi trending topic nomor satu dunia di Twitter.

Ditanyai mengenai hal itu Agnes mengaku tidak menyangka. ” Saya tidak menyangka, misi saya membahagiakan orang tua dengan cara apapun,” ujar Agnes kepada wartawan, termasuk Ghiboo, selepas konsernya di Djakarta Theatre, Kamis (20/12) malam.

Saat ditanyai apakah puas dengan konsernya semalam, Agnes mengungkapkan belum puas dengan hasil lantaran belum melihat penayangannya.

Mengenai konsep konsernya yang relatif kecil sedangkan ini adalah perayaan 20 tahun kiprahnya bermusik, pelantun Matahariku ini mengaku bahwa ini adalah konsepnya bersama tim.

“Kita sengaja pilih di tempat ini, dan konsepnya seperti ini. Soal penonton mengapa tak terlalu banyak lantaran saya tak ingin mereka hanya datang, tetapi juga menonton,” tutup Agnes.

SBY Tinggalkan Rumah Sakit

Posted on by

0

Ghiboo.com – Presiden Susilo Bambang Yudhoyono (SBY) bersama istri, Ibu Ani diikuti Agus Harimukti Yudhoyono dan menantunya Annisa Pohan meninggalkan Rumah Sakit Pondok Indah, Jakarta.

Seusai menjenguk Edhie Baskoro Yudhoyono (Ibas) dan Siti Rubi Aliya Rajasa yang sedang menunggu kelahiran putra pertamanya, Pak SBY dan Ibu Ani yang terlihat senang, namun tetap tidak bisa menutupi kecemasannya.

“Belum, lihat besok pagi. Rencananya melahirkan normal, tapi belum tahu kapan, bisa malam bisa subuh,” ucap Ibu Ani saat ditanya mengenai kapan waktu kelahiran Aliya, Minggu (23/12).

Ibas dan Aliya sendiri sudah tiba di Rumah Sakit Pondok Indah, Jakarta, sejak siang tadi (23/12) sekitar pukul 12.00 WIB.

Komedian Pandji Berhenti Jadi Penyiar Radio

Posted on by

0

Jakarta, C&R Digital – Pandji Pragiwaksono, penyiar Hard Rock FMJakarta ini memutuskan untuk berhenti menjadi penyiar radio. Melalui akun Twitter pribadinya, ia bercerita mengenai alasan keputusannya tersebut.

“Sebagai orang yang doyan mencoba hal baru, gue cuma ingin tahu apa rasanya kalau sesuatu yg selalu gue lakukan selama 11 tahun gue tinggalkan. Malam ini, siaran terakhir menutup perjalanan selama 11 tahun. 11 tahun memainkan musik dan menemani hardrockers. Wonderful years,” tulis Pandji sebelum membawakan program Provocative Proactive, Rabu, 26 Desember.

“Gue siaran sejak 2001 dan nggak pernah putus siaran sampai 2012. Lots of memories & lesson learned. It’s time to leave this thing behind,” sambung Pandji.

Program Provocative Proactive di Hard Rock FM merupakan program unggulan stasiun radio tersebut yang hadir setiap Rabu pukul 21.00 WIB. Acara tersebut merupakan gagasan dari Pandji sendiri, dan telah mengudara sejak 2008 silam.

Pria 33 tahun yang juga dikenal sebagai host televisi dan Comic Stand Up Comedy ini mengaku masih menikmati sebagai penyiar radio. Titik jenuh yang biasa dipakai seseorang sebagai alasan untuk mengakhiri rutinitasnya dibantah Pandji.

“Jenuh justru belum, tapi menuju ke sana. Makanya mending berhenti karena keinginan, bukan karena keadaan. Ada kemungkinan gue akan kembali siaran, tapi untuk sekarang gue sudahi dulu. Mending berhenti sekarang di saat masih nikmat daripada berhenti pas udah pahit,” jelasnya.

Tahun ini merupakan tahun yang berarti buat Pandji. Ia eksis sebagai penyiar, ia juga tetap eksis sebagai host program televisi. Dua program Kompas TV, yakni 180 Derajat dan Stand Up Comedy Indonesia dibawakan oleh dirinya.

Kemudian pada 6 Desember lalu, Pandji berhasil mengakhiri tur Merdeka dalam Bercanda di Taman Ismail Marzuki. Ia berhasil melewati 15 kota sejak Juni  dalam tur Stand Up Comedy-nya tersebut.

Sebagai rapper, di akhir tahun ini Pandji berhasil menggelar konser tunggal yang bertajuk INDONESIA  di Museum Nasional Jakarta 8 Desember lalu. Sekitar 500 orang memadati konser yang juga berbarengan dengan peluncuran buku Berani Mengubah karya Pandji.

Di tahun depan, Pandji sepertinya terus mengembangkan karir sebagai Comic Stand Up Comedy. Sebuah tur tengah disiapkan olehnya. “Gue dan manajemen sudah memastikan bahwa tahun 2013 gue akan jalan tur lagi. Mulai kapan dan ke mana akan diumumkan lagi,” katanya di Twitter.

Pesan Terakhir Cecil Semua Orang Jaga Ibunya

Posted on by

0

TRIBUNNEWS.COM, JAKARTA – Sejak Jumat (21/12/2012) pekan lalu, kondisi artis Cecillia Putty Vickend yang dirawat di Rumah Sakit Pusat Pertamina (RSPP) terus menurun. Bahkan Rabu (26/12/2012) kemarin sempat drop dan mengalami pendarahan.

Gadis yang sempat membintangi beberapa sinetron dan FTV itu menghembuskan nafas terakhir di Rumah Sakit Pusat Pertamina (RSPP), Rabu (26/12/2012) pada pukul 19.20 WIB.

Sebelum kepergiannya, teman dekat Cecil, Amo mengaku melihat gadis periang itu dalam keadaan drop pascapendarahan Rabu pagi. Sehingga mata Cecil pun terus tertutup.

Melihat hal itu, penuh haru Amo pun mengatakan bakal ikut menjaga ibunda Cecil, Devie Brigida. Begitu kalimat itu terlontar, Cecil perlahan membuka mata. Lantas melihat beberapa orang yang menemaninya.

“Cecil ingin semua orang ikut menjaga sang ibunda. Oleh sebab itu, Cecil tampak tenang usai kalimat itu terlontar,” ungkap Kerabat Cecil, Katarina menirukan kalimat Amo.

Kepergian Cecil memang berat bagi sang ibunda, begitu juga dengan sang ayah, Dhipa Arkhend. Keduanya terus menemani Cecil hingga menghembuskan nafas terakhir kemarin.

Hal itu membuat keduanya cukup kuat dan ikhlas. Mereka merelakan putri satu-satunya dipanggil Yang Maha Kuasa.

Jelang pemakaman, pelayat terus berdatangan di rumah duka, Joglo, Jakarta Barat. Tampak juga presenter Ferry Ardiansyah, beserta istri yang juga satu sahabat mendiang Cecil.

Jenazah Cecil dikebumikan di TPU Karet siang ini, sekitar pukul 10.00 WIB.

Cecil meninggal Rabu (26/12/2012) setelah berjuang selama dua tahun melawan kanker lidah yang menggerogoti tubuhnya sudah mencapai stadium 4.

Di mata keluarga dan kerabatnya lulusan London School of Public Relation (LSPR) angkatan 2004 ini dikenal ramah dan ceria.

Tak hanya itu pribadinya yang supel membuatnya punya banyak sahabat. Hingga kini pelayat terus berdatangan ke rumah duka, baik kerabat dan sahabat Cecil. (Cr10)

Kantor PSSI Dijaga Ketat

Posted on by

0

TRIBUNNEWS.COM,JAKARTA– Rencana Komite Penyelamat Sepakbola Indonesia (KPSI) mengambilalih kantor PSSI di Stadion Gelora Bung Karno, dikesampingkan pengurus PSSI. Mereka tak yakin pemerintah membiarkan pengambilalihan aset negara itu.

Pengambilaliahan kantor PSSI oleh KPSI itu tertuang dalam butir kelima keputusan Kongres KPSI yang digelar di Hotel The Sultan Jakarta, Senin (10/12).
Intinya, diamanatkan mengambilalih tanggungjawab hukum dan finansial PSSI serta menjalankan roda organisasi PSSI, dan kembali berkantor di kantor PSSI Pintu XI dan XI Stadion Gelora Bung Karno.

“Organisasi yang mana (yang mau ambil alih)? PSSI, kan lembaga sah. Ada yang melindungi kita, lho. Tuhan juga melindungi,” kata Sekjen PSSI Halim Mahfudz di Aquarius Boutique Hotel, Palangkaraya, Kalimantan Tengah, kemarin sore.
Ia yakin pemerintah tak akan membiarkan tindakan itu.

“Tapi, terserah saja kalau dibiarkan negara ini menjadi chaos. Saya kira tidak, dan saya tidak yakin. Pada akhirnya apapun akan kelihatan,” kata Halim.

PSSI kubu Djohar Arifin Husin tetap melaksanakan kongres luar biasa (KLB) di di loby Hotel Aquarius, Palangkaraya, Kalimantan Tengah, kemarin. Kongres ini mengklaim diikuti sebanyak 97 peserta dari 103 voter (pemilik hak suara). Hasil kongres telah diserahkan ke FIFA dan AFC dan akan diumumkan tanggal 14 Desember mendatang.

“Hasilnya sudah diserahkan ke FIFA dan akan dibawa ke Swiss. Dan FIFA akan mengumumkan hasil kongres kita tanggal 14 Desember. Apakah (PSSI) akan mendapatkan sanksi atau tidak,” kata Viktor Yuan, Ketua Pengurus Provinsi Kaltim versi Djohar Arifin, kemarin.

KLB PSS memutuskan membatalkan MoU dengan KPSI dan membubarkan Joint Committee (JC). MoU yang dibatalkan KLB PSSI Palangkaraya itu berisi kesepakatan untuk penyelesaian tiga hal utama, yaitu perubahan statuta, pengembalian empat anggota komite eksekutif PSSI yang dipecat dengan syarat meminta maaf dan diberi waktu satu bulan, serta penyatuan liga.

Kendati demikian, pengurus PSSI minta satu kelompok massa di Jakarta yang dipimpin Abdurrahman Assegaf untuk menjaga kantor PSSI. “Saya datang ke sini atas permintaan langsung Djohar Arifin Husin. PSSI minta saya untuk menjaga kantor PSSI,” aku Abdurrahman Assegaf di kantor PSSI.

Menurut Abdurrahman, kantor PSSI merupakan fasilitas negara yang dimiliki pemerintah, sehingga harus dijaga dan diamankan. “Tindakan mengambil hak milik orang lain, seharusnya tak boleh dilakukan. Ini kantor PSSI bukan KPSI, jadi harus diselesaikan secara bermartabat,” tegasnya.

Selain kelompok Abdurrahman, ada personel Polsek Tanah Abang di-back up Brimob Polda Metro Jaya berjaga-jaga di kantor PSSI. Langkah itu mengantisipasi hal yang tak terduga, menyusul agenda pengambil-alihan kantor oleh KPSI.

Kongres KPSI memberi amanat La Nyalla Mahmud Matalitti untuk mengambil alih tanggungjawab hukum dan finansial PSSI pimpinan Djohar Arifin Husin yang tak diakui para anggota PSSI, khususnya para voters.