TUGAS QUIS 4

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

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

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

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

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

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

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.