Penulis: fatmawati3287

TUGAS 5

/ fatmawati3287 / Tinggalkan komentar

TUGAS 5
5
Source Code

Private Sub Combo1_Click()
Select Case Combo1.Text
Case “Apple MC965 Macbook Air”
Text1.Text = “Apple Macbook Air MC965”
Text2.Text = “12800000”
Case “Apple MC966 Macbook Air”
Text1.Text = “Apple Macbook Air MC966”
Text2.Text = “15800000”
Case “Apple MC968 Macbook Air”
Text1.Text = “Apple Macbook Air MC968”
Text2.Text = “9900000”
Case “Apple MC969 Macbook Air”
Text1.Text = “Apple Macbook Air MC969”
Text2.Text = “11900000”
Case “Apple MC700 Macbook Pro”
Text1.Text = “Apple Macbook Pro MC700”
Text2.Text = “10800000”
Case “Apple MC721 Macbook Pro”
Text1.Text = “Apple Macbook Pro MC721”
Text2.Text = “15900000”
Case “Apple MC723 Macbook Pro”
Text1.Text = “Apple Macbook Pro MC723”
Text2.Text = “19300000”
Case “Apple MC724 Macbook Pro”
Text1.Text = “Apple Macbook Pro MC724”
Text2.Text = “13700000”
Case “Apple MC311 Macbook Pro”
Text1.Text = “Apple Macbook Pro MC311”
Text2.Text = “24200000”
Case “Apple Macbook Pro MC313”
Text1.Text = “Apple Macbook Pro MC313”
Text2.Text = “11900000”
Case “Apple Macbook Pro MC314”
Text1.Text = “Apple Macbook Pro MC314”
Text2.Text = “14700000”
Case “Apple Macbook Pro MC318”
Text1.Text = “Apple Macbook Pro MC318”
Text2.Text = “17600000”
Case “Apple Macbook Pro MC322”
Text1.Text = “Apple Macbook Pro MC322”
Text2.Text = “21300000”
Case “Apple MC965 Macbook Air”
Text1.Text = “Apple Macbook Air MC965”
Text2.Text = “12800000”
Case “Apple MC966 Macbook Air”
Text1.Text = “Apple Macbook Air MC966”
Text2.Text = “15800000”
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 = “”
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

TUGAS 6
6
Source Code

Private Sub Combo1_Click()
Select Case Combo1.Text
Case “P205”
Text1.Text = “Pentium II 500 Mega Hz”
Text2.Text = “1500000”
Case “P308”
Text1.Text = “Pentium III 800 Mega Hz”
Text2.Text = “2100000”
Case “310”
Text1.Text = “Pentium III 1.0 Giga Hz”
Text2.Text = “3500000”
Case “P415”
Text1.Text = “Pentium IV 1.5 Giga Hz”
Text2.Text = “4000000”
Case “417”
Text1.Text = “Pentium IV 1.7 Giga Hz”
Text2.Text = “4200000”
Case “419”
Text1.Text = “Pentium IV 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
TUGAS 7
7
Source Code
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 = “ELEKTRONIK 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 SINAGA”
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-O1”
Combo1.AddItem “I-EDP-O2”
Combo1.AddItem “S-MNJ-O3”
Combo1.AddItem “E-CDR-O4”
Combo1.AddItem “M-RPL-O5”

End Sub

TUGAS  8
8
Source Code
Private Sub Command1_Click()
Dim JK As String
Dim HT, JB As Variant
A = Left(Text1.Text, 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 = “15000”
JB = “20.00”
End If
Text2.Text = HT
Text3.Text = JK
Text4.Text = JB

End Sub

Private Sub Command2_Click()
Text1.SetFocus
Text1.Text = “”
Text2.Text = “”
Text3.Text = “”
Text4.Text = “”
Text5.Text = “”
Text6.Text = “”

End Sub

Private Sub Command3_Click()
End

End Sub
Private Sub Text1_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.Text = Val(Text2.Text) * Val(Text5.Text)
End If

End Sub

TUGAS 9
9
Source Code
Private Sub Command1_Click()
Dim JB, PG, PR As String
Dim TT, HR As Variant
A = Left(Text1.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 Aguatina”
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
Text2.Text = JB
Text3.Text = PG
Text6.Text = HR
Text4.Text = “20” & Mid(Text1.Text, 5, 2)
B = Right(Text1.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
Text5.Text = PR

End Sub

Private Sub Command2_Click()
Text1.SetFocus
Text1.Text = “”
Text2.Text = “”
Text3.Text = “”
Text4.Text = “”
Text5.Text = “”
Text6.Text = “”

End Sub

Private Sub Command3_Click()
Text1.SetFocus
Text1.Text = “”
Text2.Text = “”
Text3.Text = “”
Text4.Text = “”
Text5.Text = “”
Text6.Text = “”

End Sub

Private Sub Command4_Click()
End

End Sub

TUGAS 10
10
Source Code
Private Sub Cmdbatal_Click()
txtnama.SetFocus
txtnama.Text = “”
txtnpm.Text = “”
txtkelas.Text = “”
txtjur.Text = “”
txtprodi.Text = “”
txttm.Text = “”
txtnu.Text = “”
txtup.Text = “”
txtbps.Text = “”
txtub.Text = “”
txtbp.Text = “”
txttotal.Text = “”
End Sub

Private Sub Cmdkeluar_Click()
End
End Sub

Private Sub Cmdlagi_Click()
txtnama.SetFocus
txtnama.Text = “”
txtnpm.Text = “”
txtkelas.Text = “”
txtjur.Text = “”
txtprodi.Text = “”
txttm.Text = “”
txtnu.Text = “”
txtup.Text = “”
txtbps.Text = “”
txtub.Text = “”
txtbp.Text = “”
txttotal.Text = “”
End Sub

Private Sub Cmdproses_Click()
Dim S As String

S = Left(txtnpm, 1)
If S = “E” Then
txtkelas.Text = “Eksekutif”
txtub.Text = “1250000”
ElseIf S = “R” Then
txtkelas.Text = “Reguler”
txtub.Text = “1000000”
End If
S = Mid(txtnpm, 6, 2)
If S = “00” Then
txtprodi.Text = “Strata Satu”
If txtkelas.Text = “Reguler” Then
txtbps.Text = “1500000”
Else
txtbps.Text = “1900000”
End If
ElseIf S = “01” Then
txtprodi.Text = “Diploma Tiga”
If txtkelas.Text = “Reguler” Then
txtbps.Text = “1250000”
Else
txtbps.Text = “1650000”
End If
ElseIf S = “02” Then
txtprodi.Text = “Diploma Satu”
If txtkelas.Text = “Reguler” Then
txtbps.Text = “1250000”
Else
txtbps.Text = “1350000”
End If
End If

S = Mid(txtnpm, 5, 1)
If S = “1” Then
txtjur.Text = “Sistem Informasi”
ElseIf S = “2” Then
txtjur.Text = “Manajemen Informatika”
ElseIf S = “3” Then
txtjur.Text = “Manajemendan Komp. Akuntansi”
End If

txttm.Text = “20” & Mid(txtnpm.Text, 3, 2)
txtnu.Text = Right(txtnpm, 3)
If txtprodi.Text = “Strata Satu” Then
txtup.Text = “200000”
txtbp.Text = “600000”
Else
If txtprodi.Text = “Diploma Tiga” Then
txtup.Text = “150000”
txtbp.Text = “600000”
Else
If txtprodi.Text = “Diploma Satu” Then
txtup.Text = “150000”
txtbp.Text = “600000”
End If
End If
End If
txttotal.Text = Val(txtup.Text) + Val(txtbps.Text) + Val(txtub.Text) + Val(txtbp.Text)
End Sub

Private Sub Txtnama_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
txtnpm.SetFocus
End If
End Sub

TUGAS 11
11
Source Code

Private Sub Cmdbatal_Click()
Txtnama.SetFocus
Txtnama.Text = “”
txtnpm.Text = “”
txtjur.Text = “”
txtprodi.Text = “”
txttm.Text = “”
txtnu.Text = “”
Txtbp.Text = “”
End Sub

Private Sub Cmdkeluar_Click()
End
End Sub

Private Sub Cmdlagi_Click()
Txtnama.SetFocus
Txtnama.Text = “”
txtnpm.Text = “”
txtjur.Text = “”
txtprodi.Text = “”
txttm.Text = “”
txtnu.Text = “”
Txtbp.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 = “Teknik Informatika”
ElseIf S = “3” Then
txtjur.Text = “Manajemen Informatika”
ElseIf S = “4” Then
txtjur.Text = “Manajemen & Komp. Akuntansi”
End If
S = Mid(txtnpm.Text, 4, 2)
If S = “00” Then
txtprodi.Text = “Strata Satu”
Txtbp.Text = “1950000”
ElseIf S = “01” Then
txtprodi.Text = “Diploma Empat”
Txtbp.Text = “1750000”
ElseIf S = “02” Then
txtprodi.Text = “Diploma Tiga”
Txtbp.Text = “1650000”
ElseIf S = “03” Then
txtprodi.Text = “Diploma Dua”
Txtbp.Text = “1450000”
End If
txtnu.Text = Right(txtnpm.Text, 3)

End Sub

Private Sub Txtnama_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
txtnpm.SetFocus
End If
End Sub

TUGAS 12
12
Source Code
Private Sub Cbokode_Click()
Dim kk, jk, hs As String
Select Case Cbokode.Text
Case “Asus A43SA”
txtjk.Text = “Asus A53SA-VX090D”
txths.Text = “5500000”
Case “Asus A43SD”
txtjk.Text = “Asus A43SD-VX052D”
txths.Text = “4500000”
Case “Asus A43SJ”
txtjk.Text = “Asus A43SJ-VX792D”
txths.Text = “4300000”
Case “Asus A43TA”
txtjk.Text = “Asus A43TA-VX034D ”
txths.Text = “4900000”
Case “Asus A43SL”
txtjk.Text = “Asus A43SL-VX264SL”
txths.Text = “4300000”
Case “Apple MD311”
txtjk.Text = “Apple MacBook Pro MD311”
txths.Text = “19300000”
Case “Apple MD313”
txtjk.Text = “Apple MacBook Pro MD313”
txths.Text = “24200000”
Case “Apple MD314”
txtjk.Text = “Apple MacBook Pro MD314”
txths.Text = “11900000”
Case “Apple MD322”
txtjk.Text = “Apple MacBook Pro MD322”
txths.Text = “14700000”
Case “Apple MC965”
txtjk.Text = “Apple MacBook Air MC965”
txths.Text = “19300000”
End Select
End Sub

Private Sub Cmdhitunglagi_Click()
Cbokode.SetFocus
Cbokode.Text = “”
txtjk.Text = “”
txths.Text = “”
txtjj.Text = “”
txthp.Text = “”
txtdiscn.Text = “”
txttotal.Text = “”
End Sub

Private Sub Cmdkeluar_Click()
End
End Sub

Private Sub Cmdproses_Click()
txthp.Text = Val(txtjj.Text) * Val(txths.Text)
If txthp.Text > 40000000 Then
txtdiscn.Text = Val(txthp.Text) * 0.15
ElseIf txthp.Text > 35000000 Then
txtdiscn.Text = Val(txthp.Text) * 0.1
ElseIf txthp.Text > 30000000 Then
txtdiscn.Text = Val(txthp.Text) * 0.5
ElseIf txthp.Text > 25000000 Then
txtdiscn.Text = Val(txthp.Text) * 0.2
End If
txttotal.Text = Val(txthp.Text) – Val(txtdiscn.Text)
End Sub

Private Sub Form_Load()

Cbokode.AddItem “Asus A43SA”
Cbokode.AddItem “Asus A43SD”
Cbokode.AddItem “Asus A43SJ”
Cbokode.AddItem “Asus A43TA”
Cbokode.AddItem “Asus A43SL”
Cbokode.AddItem “Apple MD311”
Cbokode.AddItem “Apple MD313”
Cbokode.AddItem “Apple MD314”
Cbokode.AddItem “Apple MD322”
Cbokode.AddItem “Apple MC965”
End Sub

TUGAS 13
13
Source Code
Private Sub Cmdbatal_Click()
txtkode.SetFocus
txtkode.Text = “”
txtjb.Text = “”
txtpeng.Text = “”
txttt.Text = “”
txtpenerbit.Text = “”
txtharga.Text = “”
End Sub

Private Sub Cmdkeluar_Click()
End
End Sub

Private Sub Cmdlagi_Click()
txtkode.SetFocus
txtkode.Text = “”
txtjb.Text = “”
txtpeng.Text = “”
txttt.Text = “”
txtpenerbit.Text = “”
txtharga.Text = “”
End Sub
Private Sub Cmdproses_Click()
Dim S As String
txttt.Text = “20” & Right(txtkode, 2)
S = Mid(txtkode, 3, 3)
If S = “SIM” Then
txtjb.Text = “Sistem Informasi Manajemen”
txtpeng.Text = “Andra Setiawan”
txtharga.Text = “75900”

ElseIf S = “EDP” Then
txtjb.Text = “Elektronik Data Processing”
txtpeng.Text = “Desi Istiqomah”
txtharga.Text = “62000”

ElseIf S = “MNJ” Then
txtjb.Text = “Manajemen”
txtpeng.Text = “Sandy Fitra jaya”
txtharga.Text = “42000”

ElseIf S = “CDR” Then
txtjb.Text = “Corel Draw”
txtpeng.Text = “Tri Indah Sari”
txtharga.Text = “53000”

ElseIf S = “RPL” Then
txtjb.Text = “Rekayasa Perangkat Lunak”
txtpeng.Text = “Ernita Sari”
txtharga.Text = “83000”
End If
S = Left(txtkode, 1)
If S = “A” Then
txtpenerbit.Text = “Andi Offset Yogyakarta”
ElseIf S = “I” Then
txtpenerbit.Text = “Indah Surabaya”
ElseIf S = “S” Then
txtpenerbit.Text = “Salemba Empat”
ElseIf S = “E” Then
txtpenerbit.Text = “Elek Media Komputindo”
ElseIf S = “M” Then
txtpenerbit.Text = “Maxicom”
End If
End Sub
TUGAS 14
14
Source Code
Private Sub cmdkeluar_Click()
End
End Sub

Private Sub cmdlagi_Click()
txtmnk.SetFocus
txtmnk.Text = “”
txtmn.Text = “”
txtgol.Text = “”
txtks.Text = “”
txts.Text = “”
txtt.Text = “”
txtj.Text = “”
txtb.Text = “”
txtgapok.Text = “”
txttnj.Text = “”
txttotal.Text = “”
End Sub

Private Sub cmdproses_Click()
Dim r As String

r = Mid(txtmn.Text, 5, 1)
If r = “A” Then
txtgol = “A”
txtj.Text = “MANAGER”
txtgapok.Text = “4000000”
txttnj.Text = “1025000”
ElseIf r = “B” Then
txtgol.Text = “B”
txtj.Text = “Ka.SEKSI”
txtgapok.Text = “3500000”
txttnj.Text = “975000”
ElseIf r = “C” Then
txtgol.Text = “C”
txtj.Text = “STAFF”
txtgapok.Text = “3000000”
txttnj.Text = “925000”
End If
r = Right(txtmn.Text, 3)
If r = “KEU” Then
txtb.Text = “ACCOUNTING”
ElseIf r = “ADM” Then
txtb.Text = “ADMINISTRASI”
ElseIf r = “SDM” Then
txtb.Text = “GENERAL AFFAIR”
ElseIf r = “EDP” Then
txtb.Text = “IT UNIT”
ElseIf r = “SPM” Then
txtb.Text = “SECURITY”
End If
r = Mid(txtmn.Text, 7, 1)
If r = “S” Then
kode = “S”
Status = “SINGEL”
ElseIf r = “M” Then
kode = “M”
Status = “MENIKAH”
ElseIf r = “J” Then
kode = “J”
Status = “JANDA”
ElseIf r = “D” Then
kode = “D”
Status = “DUDA”
End If
txtks.Text = kode
txts.Text = Status
txtt.Text = Left(txtmn.Text, 4)
txttotal.Text = Val(txtgapok.Text) + Val(txttnj.Text)
End Sub

Private Sub Form_Activate()
txtmnk.SetFocus
End Sub

Private Sub txtmnk_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
txtmn.SetFocus
End If
End Sub

Private Sub cmdbatal_Click()
txtmnk.SetFocus
txtmnk.Text = “”
txtmn.Text = “”
txtgol.Text = “”
txtks.Text = “”
txts.Text = “”
txtt.Text = “”
txtj.Text = “”
txtb.Text = “”
txtgapok.Text = “”
txttnj.Text = “”
txttotal.Text = “”
End Sub

/ fatmawati3287 / Tinggalkan komentar

NPM NAMA ENTER

4

Private Sub Cmdbatal_Click()
Txtnama.SetFocus
Txtnama.Text = “”
txtnpm.Text = “”
txtjur.Text = “”
txtps.Text = “”
txttm.Text = “”
txturut.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 = “”
txturut.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, 3, 1)
If S = “1” Then
txtps.Text = “Strata Satu”
ElseIf S = “2” Then
txtps.Text = “Diploma Tiga”
ElseIf S = “3” Then
txtps.Text = “Diploma Empat”
ElseIf S = “4” Then
txtps.Text = “Diploma Dua”
End If
txturut.Text = Right(txtnpm.Text, 3)
End Sub
Private Sub Txtnama_Keypress(KeyAscii As Integer)
If KeyAscii = 13 Then
txtnpm.SetFocus
End If
End Sub
Private Sub txtnpm_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
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, 3, 1)
If S = “1” Then
txtps.Text = “Strata Satu”
ElseIf S = “2” Then
txtps.Text = “Diploma Tiga”
ElseIf S = “0” Then
txtps.Text = “Diploma Empat”
ElseIf S = “4” Then
txtps.Text = “Diploma Dua”
End If
txturut.Text = Right(txtnpm.Text, 3)
End If
End Sub

/ fatmawati3287 / Tinggalkan komentar

NPM NAMA PROSES

3

Private Sub Cmdbatal_Click()

Txtnama.SetFocus

Txtnama.Text = “”

txtnpm.Text = “”

txtjur.Text = “”

txtps.Text = “”

txttm.Text = “”

txturut.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 = “”

txturut.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, 3, 1)

If S = “1” Then

txtps.Text = “Strata Satu”

ElseIf S = “2” Then

txtps.Text = “Diploma Tiga”

ElseIf S = “3” Then

txtps.Text = “Diploma Empat”

ElseIf S = “4” Then

txtps.Text = “Diploma Dua”

End If

txturut.Text = Right(txtnpm.Text, 3)

End Sub

Private Sub Txtnama_Keypress(KeyAscii As Integer)

If KeyAscii = 13 Then

txtnpm.SetFocus

End If

End Sub

 

 

 

 

 

 

 

 

 

 

TUGAS5

/ fatmawati3287 / Tinggalkan komentar

RUMUS ENTER

2

Private Sub Cmdbatal_Click()
Txtnama.SetFocus
Txtnama.Text = “”
txtnpm.Text = “”
txtjur.Text = “”
txtps.Text = “”
txttm.Text = “”
txturut.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 = “”
txturut.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, 3, 1)
If S = “1” Then
txtps.Text = “Strata Satu”
ElseIf S = “2” Then
txtps.Text = “Diploma Tiga”
ElseIf S = “3” Then
txtps.Text = “Diploma Empat”
ElseIf S = “4” Then
txtps.Text = “Diploma Dua”
End If
txturut.Text = Right(txtnpm.Text, 3)
End Sub
Private Sub Txtnama_Keypress(KeyAscii As Integer)
If KeyAscii = 13 Then
txtnpm.SetFocus
End If
End Sub
Private Sub txtnpm_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
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, 3, 1)
If S = “1” Then
txtps.Text = “Strata Satu”
ElseIf S = “2” Then
txtps.Text = “Diploma Tiga”
ElseIf S = “0” Then
txtps.Text = “Diploma Empat”
ElseIf S = “4” Then
txtps.Text = “Diploma Dua”
End If
txturut.Text = Right(txtnpm.Text, 3)
End If
End Sub

tugas 5

/ fatmawati3287 / Tinggalkan komentar

TUGAS NPM PROSES DAN ENTER

1

Source Code

Private Sub Cmdbatal_Click()

Txtnama.SetFocus

Txtnama.Text = “”

txtnpm.Text = “”

txtjur.Text = “”

txtps.Text = “”

txttm.Text = “”

txturut.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 = “”

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

txturut.Text = Right(txtnpm.Text, 3)

End Sub

Private Sub Txtnama_Keypress(KeyAscii As Integer)

If KeyAscii = 13 Then

txtnpm.SetFocus

End If

End Sub

 

 

TUGAS 3

/ fatmawati3287 / Tinggalkan komentar

1.Tugas FontColor Dan FontStyle

1

Source Code

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
lblteks.FontUnderline = False
End If

End Sub

Private Sub Check4_Click()
If Check4.Value = 1 Then
Label1.FontStrikethru = True
Else
lblteks.FontStrikethru = False
End If

End Sub

Private Sub Command1_Click()
End

End Sub

Private Sub Option1_Click()
‘membuat teks berwarna merah
Label1.ForeColor = vbRed

End Sub

Private Sub Option2_Click()
‘membuat teks berwarna hijau
Label1.ForeColor = vbGreen

End Sub

Private Sub Option3_Click()
‘membuat teks berwarna biru
Label1.ForeColor = vbBlue

End Sub

Private Sub Option4_Click()
‘membuat teks berwarna kuning
Label1.ForeColor = vbYellow

End Sub

2.
2

Source Code

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 Check3_Click()
If Check3.Value = 1 Then
Label2.FontUnderline = True
Else
Label2.FontUnderline = False
End If

End Sub

Private Sub Check4_Click()
If Check4.Value = 1 Then
Label2.FontStrikethru = Value
Else
Label2.FontStrikethru = 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 teks berwarna merah
Label2.ForeColor = vbRed

End Sub

Private Sub Option3_Click()
‘membuat teks berwarna hijau
Label2.ForeColor = vbGreen

End Sub

Private Sub Option4_Click()
‘membuat teks berwarna kuning
Label2.ForeColor = vbYellow

End Sub

3 DAN 4
3

Source code

Private Sub Combo1_Click()
Dim Nama, Jurusan, HM As String

Select Case Combo1.Text
Case “14100413”
Nama = “Agung Triawan”
Jurusan = “Sistem Informasi”
Case “14100412”
Nama = “Heni Kartika Sari”
Jurusan = “Sistem Informasi”
Case “14100411”
Nama = “Ovitria Ningsih”
Jurusan = “Sistem Informasi”
Case “14100421”
Nama = “Dwi Astuti”
Jurusan = “Sistem Informasi”
Case “14100416”
Nama = “Fatmawati”
Jurusan = “Sistem Informasi”
Case “14100417”
Nama = “Indah Aria Novi”
Jurusan = “Sistem Informasi”
Case “14100410”
Nama = “Indriani”
Jurusan = “Sistem Informasi”
Case “14201053”
Nama = “Rahmawati”
Jurusan = “Manajemen Informatika”
Case “14201052”
Nama = “Tia Aliana”
Jurusan = “Manajemen Informatika”
Case “14100409”
Nama = “Kharisma Riyanti”
Jurusan = “Sistem Informasi”
End Select
Text1.Text = Nama
Text2.Text = Jurusan
Text3.SetFocus

End Sub

Private Sub Command1_Click()
Dim NA As Integer
Dim HM As String
QUIS = Val(Text3.Text)
TUGAS = Val(Text4.Text)
UTS = Val(Text5.Text)
UAS = Val(Text6.Text)
NA = (QUIS + TUGAS + UTS + UAS) / 4
Text7.Text = NA

Select Case Text7.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
Text8.Text = HM

End Sub

Private Sub Command2_Click()
Combo1.SetFocus
Combo1.Text = “”
Text1.Text = “”
Text2.Text = “”
Text3.Text = “”
Text4.Text = “”
Text5.Text = “”
Text6.Text = “”
Text7.Text = “”
Text8.Text = “”

End Sub

Private Sub Command3_Click()
Unload Me

End Sub

Private Sub Form_Load()
Combo1.AddItem “14100413”
Combo1.AddItem “14100412”
Combo1.AddItem “14100411”
Combo1.AddItem “14100421”
Combo1.AddItem “14100416”
Combo1.AddItem “14100417”
Combo1.AddItem “14100410”
Combo1.AddItem “14201053”
Combo1.AddItem “14201052”
Combo1.AddItem “14100409”

End Sub

Private Sub Text3_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
Text4.SetFocus
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
End If

End Sub

5
4

Source Code
Private Sub Combo1_Click()
Dim gapok, pajak, tunjangan, total As Variant
Select Case Combo1.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
Text3.Text = gapok
Text4.Text = tunjangan
Text5.Text = pajak
Text6.Text = total – pajak

End Sub

Private Sub Command1_Click()
Text1.SetFocus
Text1.Text = “”
Text2.Text = “”
Text3.Text = “”
Text4.Text = “”
Text5.Text = “”
Text6.Text = “”

End Sub

Private Sub Command2_Click()
Text1.SetFocus
Text1.Text = “”
Text2.Text = “”
Text3.Text = “”
Text4.Text = “”
Text5.Text = “”
Text6.Text = “”

End Sub

Private Sub Command3_Click()
Unload Me

End Sub

Private Sub Form_Load()
Combo1.AddItem “I”
Combo1.AddItem “II”
Combo1.AddItem “III”
Combo1.AddItem “IV”

End Sub

Private Sub Text1_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
Text2.SetFocus
End If

End Sub

TUGAS 2

/ fatmawati3287 / Tinggalkan komentar

TUGAS 2

NO.1.Data Mahasiswa
untitled

Source code
Private Sub Command1_Click()
Text1.SetFocus
Text1 = “”
Text2 = “”
Text3 = “”

End Sub

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

End Sub

Private Sub Command3_Click()
Unload Me

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

NO.2.Perkalian Dua Bilangan Dengan Fungsi Enter dan Fungsi Hitung
2.1 dan 2.2

JJ

Source Code

Private Sub Command1_Click()
Text3.Text = Val(Text1) * Val(Text2)

End Sub

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

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.Text = Val(Text1) * Val(Text2)
End If

End Sub

NO.3. KALKULATOR MINI Dengan Fungsi Enter dan Fungsi Hitung
3.1 dan 3.2

untitled5

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.SetFocus
Text1 = “”
Text2 = “”
Text3 = “”
Text4 = “”
Text5 = “”
Text6 = “”
Text7 = “”
Text8 = “”
Text9 = “”
Text10 = “”
Text11 = “”
Text12 = “”

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

End Sub

Private Sub Text2_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
Text4.SetFocus
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
Text7.SetFocus
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
Text10.SetFocus
End If

End Sub

4.1.Perhitungan Harga Setelah Diskon 10% dengan Fungsi Hitung dan Fungsi Enter
4.1 dan 4.2

DDDD

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 = “”
Text2 = “”
Text3 = “”
End Sub

Private Sub Command3_Click()
End

End Sub

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

Private Sub Command3_Click()
End
End Sub

Private Sub Text1_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
Text2.Text = Val(Text1) * 0.1
Text3.Text = Val(Text1) – Val(Text2)
End If
End Sub

5.Aplikasi Perhitungan Gaji

DDDD6

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

tugas 1

/ fatmawati3287 / Tinggalkan komentar

Gaya Joshua Suherman Pacari Pesinetron Cantik

Di depan awak media, Joshua malu-malu.
Kamis, 15 Januari 2015 | 11:50 WIB
Oleh : Beno Junianto, Ichsan Suhendra
Joshua Suherman (Ichsan/ VIVAlife)

VIVAlife – Joshua Suherman berjalan tegap saat menghadiri gala premier film Hijab baru-baru ini. Di tangannya juga melingkar lengan wanita cantik, Agatha Valerie namanya, pesinetron Ganteng-Ganteng Srigala.

Keduanya mengaku telah menjadi sepasang kekasih. Baru dua bulan mereka berstatus seperti itu dan butuh waktu satu tahun untuk mantan artis cilik menaklukkan hati Agatha.

“Dekat sudah lama, setahun. Tapi jadian baru kok, sudah ah, gue jadi malu nih,” kata Joshua dengan wajah tertunduk dan terus tersenyum.

Perbedaan usia keduanya pun tak jadi masalah. Joshua berusia 22 tahun, sedangkan Agatha 7 tahun lebih muda. Pelantun “Obok-obok” itu pun lebih banyak mengalah dan bersifat lebih dewasa untuk Agatha.

“Iya begitu, tapi ini dia yang muda ya, bukan gue yang tua. Lagian juga kan nggak terlalu keliatan bedanya,” kata Joshua.

Agatha lebih banyak terdiam saat sesi wawancara. Hanya senyum dan sedikit gambaran yang ia ucapkan mengapa bisa jatuh hati kepada Joshua.

“Jojo baik. Dia suka becanda. Terus ya dia sayang sama aku, pokoknya gitu deh,” ujar Agatha. (art)

Gaya Joshua Suherman Pacari Pesinetron Cantik

Di depan awak media, Joshua malu-malu.
Kamis, 15 Januari 2015 | 11:50 WIB
Oleh : Beno Junianto, Ichsan Suhendra
Joshua Suherman (Ichsan/ VIVAlife)

VIVAlife – Joshua Suherman berjalan tegap saat menghadiri gala premier film Hijab baru-baru ini. Di tangannya juga melingkar lengan wanita cantik, Agatha Valerie namanya, pesinetron Ganteng-Ganteng Srigala.

Keduanya mengaku telah menjadi sepasang kekasih. Baru dua bulan mereka berstatus seperti itu dan butuh waktu satu tahun untuk mantan artis cilik menaklukkan hati Agatha.

“Dekat sudah lama, setahun. Tapi jadian baru kok, sudah ah, gue jadi malu nih,” kata Joshua dengan wajah tertunduk dan terus tersenyum.

Perbedaan usia keduanya pun tak jadi masalah. Joshua berusia 22 tahun, sedangkan Agatha 7 tahun lebih muda. Pelantun “Obok-obok” itu pun lebih banyak mengalah dan bersifat lebih dewasa untuk Agatha.

“Iya begitu, tapi ini dia yang muda ya, bukan gue yang tua. Lagian juga kan nggak terlalu keliatan bedanya,” kata Joshua.

Agatha lebih banyak terdiam saat sesi wawancara. Hanya senyum dan sedikit gambaran yang ia ucapkan mengapa bisa jatuh hati kepada Joshua.

“Jojo baik. Dia suka becanda. Terus ya dia sayang sama aku, pokoknya gitu deh,” ujar Agatha. (art)

tugas 1

/ fatmawati3287 / Tinggalkan komentar

Raih Ballon d’Or, Ronaldo Kehilangan Sang Kekasih

Masih ada fakta-fakta menarik lainnya dalam Ballon d’Or kali ini.

Kamis, 15 Januari 2015 | 05:32 WIB

Oleh : Muhammad Indra Nugraha

Cristiano Ronaldo dan Irina Shayk.

VIVAbola – Keberhasilan Cristiano Ronaldo dalam meraih gelar Ballon d’Or 2014, menyisakan satu kisah yang kurang mengenakkan. Bintang Real Madrid itu dikabarkan telah mengakhiri hubungan asmaranya dengan model ternama, Irina Shayk.

Pada malam pengumuman pemenang Ballon d’Or di Zurich, Senin 13 Januari 2015 dini hari WIB, para insan sepakbola termasuk finalis hadir bersama pasangannya. Seperti Lionel Messi yang datang dengan sang pacar Antonella Roccuzzo.

Sang pemenang FIFA puskas award 2014, James Rodriguez pun ditemani kekasih Daniela Ospina. Namun tidak bagi Ronaldo, Irina tak terlihat menemaninya sepanjang acara tersebut berlangsung.

Banyak yang heran dengan ketidakhadiran gadis cantik berusia 29 tahun itu, terlebih malam itu Ronaldo sukses meraih gelar Ballon d’Or untuk yang ketiga kalinya. Hanya, Ronaldo Jr yang setia mendampinginya.

“Ya, saya tidak bisa membuat semuanya seperti yang diharapkan. Irina tidak datang karena ada sesi pemotretan. Jadi, Anda bisa memahaminya,” kata Ronaldo seperti dikutip Haberler, saat ditanya

Sumber vivanews

tugas 1

/ fatmawati3287 / Tinggalkan komentar

Fans Liverpool Berupaya Suap Jovetic

“Tolong jangan mencetak gol lagi ke gawang Liverpool.”

Kamis, 15 Januari 2015 | 12:37 WIB

Oleh : Marco Tampubolon

Striker ManCity, Stevan Jovetic, merayakan gol ke gawang Liverpool. (REUTERS/Andrew Yates)

VIVAbola – Fans Liverpool mulai tak sabar menanti perkembangan tim kesayangannya. Salah seorang pendukung The Reds bahkan nekat menyuap salah seorang striker Manchester City, Stevan Jovetic, agar mengalah saat bertemu tim Merseyside tersebut.

Seperti dilansir Metro.co.uk, usai memperkuat ManCity menghadapi Everton, 10 Januari lalu, Jovetic menyempatkan diri untuk makan malam di salah satu restoran mewah di London, Jaks. Namun, tanpa diduga, seorang pengunjung bernama Basri diam-diam membayar makanan Jovetic dan menitipkan pesan agar pemain 25 tahun itu, tidak menjebol gawang Liverpool lagi.

Jovetic masih menyimpan nota pembayaran tersebut. Dia lalu mengunggahnya lewat akun Istagram tanpa memberi pernyataan apapun terkait upaya suap tersebut.

“Tolong jangan mencetak gol lagi ke gawang Liverpool,” tulis fans tersebut pada nota pembayaran.

Liverpool baru bertemu Manchester City dalam lanjutan Premier League, Maret mendatang. Pertandingan ini akan digelar di Anfield, 1 Maret 2015.

Pada putaran pertama, ManCity menang 3-2 saat menjamu Liverpool di Etihad dan Jovetic mencetak 2 gol. (one)

Sumber vivabola