penjualan komputer

 

 

 

 

 

 

 

 

 

 

Private Sub coKode_Click()

Dim Jk, Hk As String

Select Case coKode.Text

Case “P205”

Jk = “Pentium II 500 Mega Hz”

Hk = “1500000”

Case “P308”

Jk = “Pentium III 800 Mega Hz”

Hk = “2100000”

Case “P310”

Jk = “Pentium III 1.0 Giga Hz”

Hk = “3500000”

Case “P415”

Jk = “Pentium IV 1.5 Giga Hz”

Hk = “4000000”

Case “P417”

Jk = “Pentium IV 1.7 Giga Hz”

Hk = “4200000”

Case “P419”

Jk = “Pentium IV 1.9 Giga Hz”

Hk = “5500000”

End Select

txtJk.Text = Jk

txtHk.Text = Hk

txtJp.SetFocus

End Sub

Private Sub CmdProses_Click()

txtHp.Text = Val(txtJp.Text) * Val(txtHk.Text)

If txtHp.Text > 30000000 Then

txtDs.Text = Val(txtHp.Text) * 0.15

ElseIf txtHp.Text > 25000000 Then

txtDs.Text = Val(txtHp.Text) * 0.1

ElseIf txtHp.Text > 20000000 Then

txtDs.Text = Val(txtHp.Text) * 0.05

ElseIf txtHp.Text > 15000000 Then

txtDs.Text = Val(txtHp.Text) * 0.02

End If

txtHb.Text = Val(txtHp.Text) – Val(txtDs.Text)

End Sub

 

Private Sub Command2_Click()

coKode = “”

txtJk = “”

txtHk = “”

txtJp = “”

txtHp = “”

txtDs = “”

txtHb = “”

coKode.SetFocus

End Sub

 

Private Sub Command3_Click()

End

End Sub

 

Private Sub Form_Load()

coKode.AddItem “P205”

coKode.AddItem “P308”

coKode.AddItem “P310”

coKode.AddItem “P415”

coKode.AddItem “P417”

coKode.AddItem “P419”

End Sub

TUGAS VB

1
Private Sub chkBold_Click()
‘Font Tebal
If chkBold.Value = 1 Then
lblTeks.FontBold = True
Else
lblTeks.FontBold = False
End If
End Sub

Private Sub chkItalic_Click()
‘Font Italic
If chkItalic.Value = 1 Then
lblTeks.FontItalic = True
Else
lblTeks.FontItalic = False
End If
End Sub

Private Sub chkStrikeout_Click()
‘Font Strikeout
If chkStrikeout.Value = 1 Then
lblTeks.FontStrikethru = True
Else
lblTeks.FontStrikethru = False
End If
End Sub

Private Sub chkUnderline_Click()
‘Font Underline
If chkUnderline.Value = 1 Then
lblTeks.FontUnderline = True
Else
lblTeks.FontUnderline = False
End If
End Sub

Private Sub optBlue_Click()
‘Font Biru
lblTeks.ForeColor = vbBlue

End Sub

Private Sub optGreen_Click()
‘Font Hijau
lblTeks.ForeColor = vbGreen
End Sub

Private Sub optRed_Click()
‘Font Merah
lblTeks.ForeColor = vbRed
End Sub

Private Sub optYellow_Click()
‘Font Kuning
lblTeks.ForeColor = vbYellow

End Sub

 

2

Private Sub Cmd_oke_Click()
‘oke edit by benk2
Label_hrf.Caption = Text_tna.Text
End Sub

Private Sub Cmd_sls_Click()
End
End Sub

Private Sub Option_bru_Click()
Label_hrf.ForeColor = vbBlue
End Sub

Private Sub Option_mrh_Click()
Label_hrf.ForeColor = vbRed
End Sub

Private Sub Check_tbl_Click()
Label_hrf.FontBold = Check_tbl.Value
End Sub

Private Sub Check_mrg_Click()
Label_hrf.FontItalic = Check_mrg.Value
End Sub

3

Private Sub cmdHit_Click()
Dim A, B, C As Double
A = txtHgawal.Text
B = (txtHgawal) * 0.1
Hasil = A – B
txtDisk.Text = B
txtHgakhir.Text = Hasil
End Sub

Private Sub cmdKlr_Click()
End
End Sub

Private Sub cmdUlg_Click()
txtHgawal.SetFocus
txtHgawal.Text = “”
txtDisk.Text = “”
txtHgakhir.Text = “”
End Sub

4

Private Sub cmdKeluar_Click()
End
End Sub

Private Sub cmdProses_Click()
Dim Gapok, Tj, Pt, Gk, Pjk, Gjtrm As Double
txtGk.Text = Val(txtgapok.Text) + Val(txtTj.Text) – Val(txtPt.Text)
txtPjk.Text = Val(txtGk.Text) * (0.1)
TxtGjtrm.Text = Val(txtGk.Text) – (txtPjk.Text)
End Sub
Private Sub cmdUlang_Click()
txtgapok.SetFocus
txtgapok.Text = “”
txtTj.Text = “”
txtPt.Text = “”
txtGk.Text = “”
txtPjk.Text = “”
TxtGjtrm.Text = “”
End Sub

Private Sub txtgapok_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
txtTj.SetFocus
End If
End Sub

Private Sub txtTj_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
txtPt.SetFocus
End If

End Sub

5
Private Sub CboNpm_Click()
Dim Mhs, Jrs, HM As String
Select Case CboNpm.Text
Case “11100042”
Mhs = “FITRIYANI”
Jrs = “SISTEM INFORMASI”
Case “11200077”
Mhs = “PUSPITA DESI”
Jrs = “MANAJEMEN INFORMATIKA”
Case “11300078”
Mhs = “SEPTIANA”
Jrs = “TEHNIK INFORMATIKA”
Case “11100079”
Mhs = “TOTO ISWANTO”
Jrs = “SISTEM INFORMATIKA”
Case “11200081”
Mhs = “SUPRAPTO”
Jrs = “MANAJEMEN INFORMATIKA”
Case “11300082”
Mhs = “NOVI SUSANTI”
Jrs = “TEHNIK INFORMATIKA”
Case “11100084”
Mhs = “SUKMAWATI”
Jrs = “SISTEM INFORMATIKA”
Case “11200085”
Mhs = “LENI APRIYANI”
Jrs = “MANAJEMEN INFORMATIKA”
Case “11300086”
Mhs = “NURMALITA SARI”
Jrs = “TEHNIK INFORMATIKA”
Case “11100087”
Mhs = “HENI LESTARI”
Jrs = “SISTEM INFORMATIKA”
End Select
txtMhs.Text = Mhs
txtJrs.Text = Jrs
txtQs.SetFocus
End Sub

Private Sub cmdBatal_Click()
CboNpm.SetFocus
CboNpm.Text = “”
txtMhs.Text = “”
txtJrs.Text = “”
txtQs.Text = “”
txtTgs.Text = “”
txtUts.Text = “”
txtUas.Text = “”
txtAkhir.Text = “”
txtHm.Text = “”
End Sub

Private Sub cmdKeluar_Click()
End
End Sub

Private Sub cmdProses_Click()
Dim NA As Integer
Dim HM As String
QUIS = Val(txtQs.Text)
TUGAS = Val(txtTgs.Text)
UTS = Val(txtUts.Text)
UAS = Val(txtUas.Text)
NA = (QUIS + TUGAS + UTS + UAS) / 4
txtAkhir.Text = NA

Select Case txtAkhir.Text
Case Is >= 80
HM = “A”
Case Is >= 70
HM = “B”
Case Is >= 60
HM = “C”
Case Is >= 50
HM = “D”
Case Is < 49
HM = “E”
End Select
txtHm.Text = HM
End Sub

Private Sub Form_Load()
CboNpm.AddItem “11100042”
CboNpm.AddItem “11200077”
CboNpm.AddItem “11300078”
CboNpm.AddItem “11100079”
CboNpm.AddItem “11200081”
CboNpm.AddItem “11300082”
CboNpm.AddItem “11100084”
CboNpm.AddItem “11200085”
CboNpm.AddItem “11300086”
CboNpm.AddItem “11100087”
End Sub

Private Sub txtQs_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
txtTgs.SetFocus
End If
End Sub

Private Sub txtTgs_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

6
Private Sub cmdKeluar_Click()
‘keluar
End
End Sub

Private Sub cmdLagi_Click()
‘kosongkan semua isi by benk2
txtKt.Text = “”
txtHt.Text = “”
txtJk.Text = “”
txtJb.Text = “”
txtJt.Text = “”
txtTp.Text = “”
txtTerbilang.Text= “”
txtKt.SetFocus
End Sub

Private Sub cmdProses_Click()
Dim Kt As String
Kt = Left(txtKt, 3)
If Kt = “BIM” Then
txtHt.Text = “50000”
txtJk.Text = “BIMA”
txtJb.Text = “16.00”
ElseIf Kt = “EKO” Then
txtHt.Text = “35000”
txtJk.Text = “EKONOMI”
txtJb.Text = “19.00”
ElseIf Kt = “MUT” Then
txtHt.Text = “23000”
txtJk.Text = “MUTIARA”
txtJb.Text = “17.00”
ElseIf Kt = “SEN” Then
txtHt.Text = “15000”
txtJk.Text = “SENJA”
txtJb.Text = “20.00”
End If
txtJt.SetFocus
End Sub

Private Sub txtJt_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
txtTp.Text = Val(txtJt.Text) * Val(txtHt.Text)
End If
txtTerbilang.Text = terbilang(Val(txtTp.Text))
End Sub

Private Function baca(X As Integer) As String
Dim i As Long
Dim ratus(9) As String
Dim belas(9) As String
Dim puluh(9) As String
Dim satuan(9) As String
Dim sbaca As String
satuan(1) = “satu”
satuan(2) = “dua”
satuan(3) = “tiga”
satuan(4) = “empat”
satuan(5) = “lima”
satuan(6) = “enam”
satuan(7) = “tujuh”
satuan(8) = “delapan”
satuan(9) = “sembilan”
For i = 1 To 9
If i = 1 Then
puluh(i) = “sepuluh”
Else
puluh(i) = satuan(i) & ” puluh”
End If
Next
For i = 1 To 9
If i = 1 Then
belas(i) = “sebelas”
Else
belas(i) = satuan(i) & ” belas”
End If
Next
For i = 1 To 9
If i = 1 Then
ratus(i) = “seratus”
Else
ratus(i) = satuan(i) & ” ratus”
End If
Next
If X >= 100 Then
sbaca = ratus(Val(Mid(Str(X), 2, 1)))
X = Val(Mid(Str(X), 3, 2))
End If
If X >= 20 Or X = 10 Then
sbaca = sbaca & ” ” & puluh(Val(Mid(Str(X), 2, 1)))
X = Val(Mid(Str(X), 3, 1))
Else
If X > 10 Then
sbaca = sbaca & ” ” & belas(Val(Mid(Str(X), 3, 1)))
X = -1
End If
End If
If X >= 1 Then
sbaca = sbaca & ” ” & satuan(Val((Str(X))))
End If
baca = sbaca
End Function
Function terbilang(X As Currency) As String
Dim ribu, juta, milyar, trilyun, ratusan As Integer
Dim sterbilang As String
Dim ptext As Byte
sterbilang = “”
If Val(X) = 1000000000000# Then
ptext = Len(Str(X)) – 13
trilyun = Val(Mid(Str(X), 2, ptext))
sterbilang = sterbilang & ” ” & baca(Val(trilyun)) & ” trilyun”
X = Val(Mid(Str(X), ptext + 2, 12))
End If
If X >= 1000000000 Then
ptext = Len(Str(X)) – 10
milyar = Val(Mid(Str(X), 2, ptext))
sterbilang = sterbilang & ” ” & baca(Val(milyar)) & ” milyar”
X = Val(Mid(Str(X), ptext + 2, 9))
End If
If X >= 1000000 Then
ptext = Len(Str(X)) – 7
juta = Val(Mid(Str(X), 2, ptext))
sterbilang = sterbilang & ” ” & baca(Val(juta)) & ” juta”
X = Val(Mid(Str(X), ptext + 2, 6))
End If
If X >= 1000 Then
ptext = Len(Str(X)) – 4
ribu = Val(Mid(Str(X), 2, ptext))
If ribu = 1 Then
sterbilang = “seribu”
Else
sterbilang = sterbilang & ” ” & baca(Val(ribu)) & ” ribu”
End If
X = Val(Mid(Str(X), ptext + 2, 3))
End If
sterbilang = sterbilang & ” ” & baca(Val(X))
terbilang = Trim(sterbilang) & ” rupiah”
End Function

7
Private Sub cmdBatal_Click()
‘Kosongkan Semua
txtKb.Text = “”
txtNb.Text = “”
txtJs.Text = “”
txtSs.Text = “”
txtTj.Text = “”
txtHj.Text = “”
txtTh.Text = “”
txtTerbilang.Text=””
txtKb.SetFocus
End Sub

Private Sub cmdKeluar_Click()
End
End Sub

Private Sub cmdProses_Click()
Dim Kb As String
Kb = Right(txtKb.Text, 1)
If Kb = “T” Then
txtNb.Text = “Tape”
txtHj.Text = “275000”
ElseIf Kb = “S” Then
txtNb.Text = “Sound Sistem”
txtHj.Text = “350000”
ElseIf Kb = “C” Then
txtNb.Text = “Compact”
txtHj.Text = “480000”
End If
txtJs.SetFocus
End Sub

Private Sub txtJs_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
txtTj.SetFocus
End If
End Sub

Private Sub txtTj_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
txtSs.Text = Val(txtJs.Text) – Val(txtTj.Text)
txtTh.Text = Val(txtTj.Text) * Val(txtHj.Text)
txtTerbilang.Text = terbilang(Val(txtTh.Text))
End If
End Sub

Private Function baca(X As Integer) As String
Dim i As Long
Dim ratus(9) As String
Dim belas(9) As String
Dim puluh(9) As String
Dim satuan(9) As String
Dim sbaca As String
satuan(1) = “satu”
satuan(2) = “dua”
satuan(3) = “tiga”
satuan(4) = “empat”
satuan(5) = “lima”
satuan(6) = “enam”
satuan(7) = “tujuh”
satuan(8) = “delapan”
satuan(9) = “sembilan”
For i = 1 To 9
If i = 1 Then
puluh(i) = “sepuluh”
Else
puluh(i) = satuan(i) & ” puluh”
End If
Next
For i = 1 To 9
If i = 1 Then
belas(i) = “sebelas”
Else
belas(i) = satuan(i) & ” belas”
End If
Next
For i = 1 To 9
If i = 1 Then
ratus(i) = “seratus”
Else
ratus(i) = satuan(i) & ” ratus”
End If
Next
If X >= 100 Then
sbaca = ratus(Val(Mid(Str(X), 2, 1)))
X = Val(Mid(Str(X), 3, 2))
End If
If X >= 20 Or X = 10 Then
sbaca = sbaca & ” ” & puluh(Val(Mid(Str(X), 2, 1)))
X = Val(Mid(Str(X), 3, 1))
Else
If X > 10 Then
sbaca = sbaca & ” ” & belas(Val(Mid(Str(X), 3, 1)))
X = -1
End If
End If
If X >= 1 Then
sbaca = sbaca & ” ” & satuan(Val((Str(X))))
End If
baca = sbaca
End Function
Function terbilang(X As Currency) As String
Dim ribu, juta, milyar, trilyun, ratusan As Integer
Dim sterbilang As String
Dim ptext As Byte
sterbilang = “”
If Val(X) = 1000000000000# Then
ptext = Len(Str(X)) – 13
trilyun = Val(Mid(Str(X), 2, ptext))
sterbilang = sterbilang & ” ” & baca(Val(trilyun)) & ” trilyun”
X = Val(Mid(Str(X), ptext + 2, 12))
End If
If X >= 1000000000 Then
ptext = Len(Str(X)) – 10
milyar = Val(Mid(Str(X), 2, ptext))
sterbilang = sterbilang & ” ” & baca(Val(milyar)) & ” milyar”
X = Val(Mid(Str(X), ptext + 2, 9))
End If
If X >= 1000000 Then
ptext = Len(Str(X)) – 7
juta = Val(Mid(Str(X), 2, ptext))
sterbilang = sterbilang & ” ” & baca(Val(juta)) & ” juta”
X = Val(Mid(Str(X), ptext + 2, 6))
End If
If X >= 1000 Then
ptext = Len(Str(X)) – 4
ribu = Val(Mid(Str(X), 2, ptext))
If ribu = 1 Then
sterbilang = “seribu”
Else
sterbilang = sterbilang & ” ” & baca(Val(ribu)) & ” ribu”
End If
X = Val(Mid(Str(X), ptext + 2, 3))
End If
sterbilang = sterbilang & ” ” & baca(Val(X))
terbilang = Trim(sterbilang) & ” rupiah”
End Function

8

Private Sub cmdBt_Click()
txtMnk.SetFocus
txtMnk.Text = “”
txtMn.Text = “”
txtGl.Text = “”
txtKd.Text = “”
txtSt.Text = “”
txtTh.Text = “”
txtJb.Text = “”
txtBg.Text = “”
txtGp.Text = “”
txtTj.Text = “”
txtTg.Text = “”
txtTerbilang.Text = “”
End Sub

Private Sub cmdKl_Click()
End
End Sub

Private Sub cmdLg_Click()
txtMnk.SetFocus
txtMnk.Text = “”
txtMn.Text = “”
txtGl.Text = “”
txtKd.Text = “”
txtSt.Text = “”
txtTh.Text = “”
txtJb.Text = “”
txtBg.Text = “”
txtGp.Text = “”
txtTj.Text = “”
txtTg.Text = “”

End Sub

Private Sub cmdPrs_Click()
txtTh.Text = Mid(txtMn.Text, 5, 4)
Dim mn&nbsp; As String
mn = Mid(txtMn.Text, 9, 1)
If mn = “A” Then
txtGl.Text = “A”
txtJb.Text = “Manager”
txtGp.Text = “3000000”
txtTj.Text = “875000”
ElseIf mn = “B” Then
txtGl.Text = “B”
txtJb.Text = “Ka Seksi”
txtGp.Text = “2500000”
txtTj.Text = “525000”
ElseIf mn = “C” Then
txtGl.Text = “C”
txtJb.Text = “Staff”
txtGp.Text = “2000000”
txtTj.Text = “325000”
End If
mn = Right(txtMn, 1)
If mn = “M” Then
txtKd.Text = “M”
txtSt.Text = “Menikah”
ElseIf mn = “S” Then
txtKd.Text = “S”
txtSt.Text = “Single”
ElseIf mn = “D” Then
txtKd.Text = “D”
txtSt.Text = “Duda”
ElseIf mn = “J” Then
txtKd.Text = “J”
txtSt.Text = “Janda”
End If
mn = Left(txtMn.Text, 3)
If mn = “SDM” Then
txtBg.Text = “General Affair”
ElseIf mn = “KEU” Then
txtBg.Text = “Accounting”
ElseIf mn = “ADM” Then
txtBg.Text = “Administrasi”
ElseIf mn = “SPM” Then
txtBg.Text = “Security”
ElseIf mn = “EDP” Then
txtBg.Text = “IT Unit”
End If
txtTg.Text = Val(txtGp) + (txtTj)
txtTerbilang.Text = terbilang(Val(txtTg.Text))
End Sub

Private Sub txtMnk_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
txtMn.SetFocus
End If
End Sub

Private Function baca(X As Integer) As String
Dim i As Long
Dim ratus(9) As String
Dim belas(9) As String
Dim puluh(9) As String
Dim satuan(9) As String
Dim sbaca As String
satuan(1) = “satu”
satuan(2) = “dua”
satuan(3) = “tiga”
satuan(4) = “empat”
satuan(5) = “lima”
satuan(6) = “enam”
satuan(7) = “tujuh”
satuan(8) = “delapan”
satuan(9) = “sembilan”
For i = 1 To 9
If i = 1 Then
puluh(i) = “sepuluh”
Else
puluh(i) = satuan(i) & ” puluh”
End If
Next
For i = 1 To 9
If i = 1 Then
belas(i) = “sebelas”
Else
belas(i) = satuan(i) & ” belas”
End If
Next
For i = 1 To 9
If i = 1 Then
ratus(i) = “seratus”
Else
ratus(i) = satuan(i) & ” ratus”
End If
Next
If X >= 100 Then
sbaca = ratus(Val(Mid(Str(X), 2, 1)))
X = Val(Mid(Str(X), 3, 2))
End If
If X >= 20 Or X = 10 Then
sbaca = sbaca & ” ” & puluh(Val(Mid(Str(X), 2, 1)))
X = Val(Mid(Str(X), 3, 1))
Else
If X > 10 Then
sbaca = sbaca & ” ” & belas(Val(Mid(Str(X), 3, 1)))
X = -1
End If
End If
If X >= 1 Then
sbaca = sbaca & ” ” & satuan(Val((Str(X))))
End If
baca = sbaca
End Function
Function terbilang(X As Currency) As String
Dim ribu, juta, milyar, trilyun, ratusan As Integer
Dim sterbilang As String
Dim ptext As Byte
sterbilang = “”
If Val(X) = 1000000000000# Then
ptext = Len(Str(X)) – 13
trilyun = Val(Mid(Str(X), 2, ptext))
sterbilang = sterbilang & ” ” & baca(Val(trilyun)) & ” trilyun”
X = Val(Mid(Str(X), ptext + 2, 12))
End If
If X >= 1000000000 Then
ptext = Len(Str(X)) – 10
milyar = Val(Mid(Str(X), 2, ptext))
sterbilang = sterbilang & ” ” & baca(Val(milyar)) & ” milyar”
X = Val(Mid(Str(X), ptext + 2, 9))
End If
If X >= 1000000 Then
ptext = Len(Str(X)) – 7
juta = Val(Mid(Str(X), 2, ptext))
sterbilang = sterbilang & ” ” & baca(Val(juta)) & ” juta”
X = Val(Mid(Str(X), ptext + 2, 6))
End If
If X >= 1000 Then
ptext = Len(Str(X)) – 4
ribu = Val(Mid(Str(X), 2, ptext))
If ribu = 1 Then
sterbilang = “seribu”
Else
sterbilang = sterbilang & ” ” & baca(Val(ribu)) & ” ribu”
End If
X = Val(Mid(Str(X), ptext + 2, 3))
End If
sterbilang = sterbilang & ” ” & baca(Val(X))
terbilang = Trim(sterbilang) & ” rupiah”
End Function

love of my love

Love of my life – you hurt me,

You broken my heart and now you leave me.

Love of my life can’t you see,

Bring it back, bring it back,

Don’t take it away from me, because you don’t know, what it means to
me.

Love of my life don’t leave me,

You’ve stolen my love, you now desert me,

Love of my life can’t you see,

Bring it back, bring it back,

Don’t take it away from me because you don’t know – what it means to
me.

You won’t remember –

When this is blown over

And everything’s all by the way –

When I get older

I will be there by your side to remind you how I still love you –
still love
you.

Back – hurry back,

Don’t take it away from me,

because you don’t know what it means to me – Love of my life

Love of my life…

Terry Holdbrooks

TERKAIT :

Refleksi Mualaf Lucy Bushill-Mathews: Kita Tak Bisa Memaksa Orang untuk Masuk atau Keluar dari Islam

Hasrat Sejak Kecil dan Lingkungan, Membawa Amarico Pada Islam

Derita Mualaf: Disiksa, Dicampakkan dari Keluarga dan Diseret ke Pengadilan

Subhanallah…Melalui Internet, Mereka Belajar Islam, Lalu Menjadi Mualaf

Awalnya Bagi Carole Sturm Agama adalah Misteri dan Tuhan Sulit Dipahami, Hingga ia Mengenal Islam

Dari Guantanamo ke Makkah, Kisah Mualaf Penjaga Penjara yang Berumrah

Jumat, 17 Juni 2011 01:00 WIB

REPUBLIKA.CO.ID, JEDDAH – Masjidil Haram di Makkah adalah jarak yang sangat jauh, jika disandingkan dengan Kamp Delta milik Angkatan Laut AS, yang  terkenal sebagai pusat tahanan di pangkalan di Teluk Guantanamo. Tetapi, menjadi dekat ketika hati sudah berniat. Begitulah yang dirasakan  mantan penjaga penjara Guantanamo,  Terry Holdbrooks.

Terry, sekarang dikenal sebagai Mustafa, memeluk Islam pada tahun 2003. Berita dia bersyahadat segera menyebar di kalangan para prajurit di Guantanamo, apalagi tugasnya saat itu adalah mengawasi tahanan terorisme.

Namun ia bertekad menghadapi segala risiko, dan tak akan berbalik ke belakang, mengingkari syahadatnya. Ia diberhentikan tak lama kemudian.

Darimana Terry menerima cahaya Islam? Seorang tahanan dari Maroko, andil memberikan pengetahuan keislaman padanya. Sebelumnya, ia telah terpesona pada peran  Morgan Freeman memainkan karakter Muslim di film Robin Hood: Prince of Thieves. Meski bukan cerita utama, namun Muslim dalam film itu tergambar secara semestinya.

Interaksi dengan para tahanan mendorongnya untuk melihat  Islam lebih dalam dan mempelajarinya untuk dirinya sendiri. “Semakin banyak membaca semakin saya yakin akan kebenaran Islam,” akunya.

Sebagai anggota militer, ia tak merasa berat dengan ajaran disiplin dalam Islam. “Aku menikmati militer, dan aku menikmati Islam; keduanya memerlukan kedisiplinan.”

Berhenti dari sipir penjara, ia menangani urusan sipil. Tak masalah baginya. Yang jadi masalah: ia ingin segera bertamu ke Tanah Suci, berhaji atau berumrah. Namun jarak dan biaya tidaklah sedikit.

Pucuk dicinta ulam tiba. Suatu hari, ia mendapatkan surat dari Canadian Dawah Association (CDA). Isinya: undangan untuk menunaikan umrah.

Ia diundang oleh Shazaad Muhammad, presiden dan pendiri Kanada dakwah Association (CDA), untuk melakukan ibadah haji kecil, umrah. Dia terlonjak girang. “Kegiatan ini terinspirasi oleh Nabi Muhammad SAW yang mengirimkan undangan kepada para pemimpin daerah dan mengundang mereka untuk memeluk Islam,” kata Shazaad Mohammed, pimpinan CDA Celebrity Relations Program, yang juga Duta Besar PBB.

Terry tak menyia-nyiakan kesempatan. Ketika izin atasan sudah di tangan, ia segera berangkat.

“Ketika saya pertama kali melihat Mekah dan melihat Ka’bah, saya sedikit terkejut,” katanya. “Saya  terpesona dan menyadari bahwa ini adalah pusat dunia saya sekarang. Mungkin bukan pusat dunia semua orang,  tetapi itu adalah pusat dunia saya. Saya ingin hidup berguna dalam Islam.”

Selama kunjungannya ke Tanah Suci, ia  bertemu dengan Sheikh Faisal Al-Ghazzawi, salah satu imam Masjidil Haram. Ia mengungkapkan kegembiraannya menerima nasihat cara menjaga iman dari sang imam.

Ia juga mengunjungi pabrik kiswah, penutup  Ka’bah di Makkah dan mendapat kehormatan meletakkan beberapa jahitan di kiswah baru yang akan ditempatkan di Ka’bah di musim haji pada akhir tahun ini. Hanya sepekan dia di sana dan “Waktu terlalu singkat. Saya ingin tinggal lebih lama,” ujarnya, yang mengaku nyaman berdoa di Makkah dan Madinah.

Pulang umrah, ia menemukan batinnya makin kaya. “Batin saya seperti diremajakan kembali,” ujarnya

Tunggangi Motor Baru, Rossi Kian Optimis Foto : Getty Images Oleh: Reza Adi Surya Olahraga – Rabu, 1 Februari 2012 | 05:45 WIB TERKAIT Inilah Ducati Valentino Rossi untuk Musim 2012 Motor Honda Baru, Stoner Pakai Nomor Satu Gantikan Petronas, Yamaha Ikat Sponsor Anyar Rossi Remehkan Kemampuan Stoner Inilah Rival Utama Stoner Musim Depan Powered by Translate INILAH.COM, Sepang – Valentino Rossi merasa puas dengatunggangan barunya bersama Ducati. Motor barunya, Desmosedici GP12 membuat Rossi optimis

Tunggangi Motor Baru, Rossi Kian Optimis

Foto : Getty Images

Oleh: Reza Adi Surya

Olahraga – Rabu, 1 Februari 2012 | 05:45 WIB

TERKAIT

• Inilah Ducati Valentino Rossi untuk Musim 2012
• Motor Honda Baru, Stoner Pakai Nomor Satu
• Gantikan Petronas, Yamaha Ikat Sponsor Anyar
• Rossi Remehkan Kemampuan Stoner
• Inilah Rival Utama Stoner Musim Depan

Select LanguageEnglishAfrikaansAlbanianArabicBelarusianBulgarianCatalanChinese (Simplified)Chinese (Traditional)CroatianCzechDanishDutchEstonianFilipinoFinnishFrenchGalicianGermanGreekHaitian CreoleHebrewHindiHungarianIcelandicIrishItalianJapaneseKoreanLatvianLithuanianMacedonianMalayMalteseNorwegianPersianPolishPortugueseRomanianRussianSerbianSlovakSlovenianSpanishSwahiliSwedishThaiTurkishUkrainianVietnameseWelshYiddish

Powered by Translate

INILAH.COM, Sepang – Valentino Rossi merasa puas dengan tunggangan barunya bersama Ducati. Motor barunya, Desmosedici GP12 membuat Rossi optimis jelang musim baru MotoGP.

Seperti diberitakan sebelumya bahwa Rossi sudah memberikan bocoran kepada para fans setianya mengenai motor baru yang akan ia kenakan di musim ini. Ia mengunggah foto GP12 itu dalam akun Twitter resmi miliknya, @ValeYello46. “Nyonya dan tuan, motor baru telah siap!” tulisnya antusias.

Ini menjadi musim kedua Rossi bersama Ducati. Ia berharap bisa meraih prestasi yang lebih baik dibandingkan musim lalu. Setidaknya rasa optimis bisa dirasakan ‘The Doctor’ setelah melakukan sesi tes pra-musim di Sepang.

Dalam sesi tes tersebut, Rossi mencatakan waktu kelima terbaik atau berada 0,375 detik di belakang Jorge Lorenzo yang keluar sebagai pembalap tercepat.

“Hasil ini lebih baik dari tahun lalu dimana selisih dengan Lorenzo hanya 0,7 detik. Padahal, musim lalu jaraknya mencapat 1,5 detik,” katas Rossi seperti dilansir Crash.

“Senang rasanya bisa membenahi segala kekurangan yang tidak bisa ditanggulangi di musim 2011 lalu. Ini baru hari pertama dan kami masih harus bekerja keras. Masih ada beberapa kekurangan di mesin, elektronik dan sasis. Namun, kami pasti bisa memperbaikinya,” tukasnya.

BERITA OLAHRAGA

Madrid – Masa depan Jose Mourinho di Real Madrid jadi spekulasi menyusul pemberitaan yang menyebut dirinya sudah tak lagi betah. Hal itu sekaligus memunculkan nama Manajer Arsenal Arsene Wenger.

Di bawah arahan Mourinho, Madrid saat ini masih memimpin klasemen La Liga Primera dengan keunggulan tujuh poin atas sang seteru berat sekaligus juara bertahan Barcelona.

Akan tetapi, itu tak meredam adanya rumor mengenai masa depan Mourinho di Santiago Bernabeu. Kritikan terhadap dirinya, politik di tubuh klub dan perseteruan internal kabarnya sudah bikin si pria Portugal muak.

Walhasil, Mourinho yang mulai menukangi Madrid sejak 31 Mei 2010 pun dilaporlan sudah tak lagi betah di tempatnya saat ini. Ia disebut-sebut ingin kembali ke Inggris yang pernah diarunginya bersama Chelsea.

“Jose sudah muak dan lelah dengan situasi di Marid. Takkan ada bedanya apa ia bisa memenangi musim ini atau tidak. Itu bukan perkara uang,” ujar seorang sumber yang dekat dengan Mourinho kepada The Sunday Times yang dikutip ESPN.

“Ia sudah memutuskan kembali ke Inggris dan ia akan pergi musim panas ini,” lanjut si sumber.

Belum jelas klub mana yang tengah diincar atau sudah mengincar pria yang juga pernah membesut Benfica, Uniao de Leiria, FC Porto, dan Inter Milan itu.

Sehubungan dengan rumor tersebut, sejumlah nama kandidat pun bermunculan untuk menggantikan Mourinho di Madrid. Independent berspekulasi kalau Rafael Benitez dan Joachim Loew akan jadi kandidat terkuat.

Benitez, yang belum lagi menangani klub usai hijrah dari Inter Milan, disebut punya hubungan baik dengan Florentino Perez, presiden Madrid yang juga tengah bersiap untuk pencalonan ulang dirinya. Sementara Loew diyakini akan meletakkan jabatan sebagai pelatih timnas Jerman pasca Piala Eropa 2012 nanti.

Selain dua nama itu, muncul pula nama Wenger. Setelah sekian tahun menukangi Arsenal, posisi Wenger belakangan mulai goyang karena belum kembali bisa membawa timnya meraih trofi.

Yang luar biasa, Madrid dan Arsenal bahkan dispekulasikan bisa saja akan bertukar manajer; Mourinho ke Arsenal dan Wenger ke Madrid.

“Pertukaran Wenger-Mourinho, sebagai manajer Arsenal-Real Madrid tampaknya menjadi hal yang paling mungkin,” nilai Emirates 24/7, sebuah wacana yang juga dicetuskan oleh media Inggris The Sun.