November 26, 2014 pada 6:44 am (Uncategorized)
berharap dalam lelap
Lelapkan Lah Tidurmu
Biar kujaga kamu
bermimpilah tentangku
yang slalu disampingmu
hanya saat kau tertidur
ku bisa merasakan indahnya wajahmu
wajah yang selalu membayangi langkahku
jika kau terbangun hanya bisa kusimpan semua rasa
rasa yang selalu membuat ku terluka
karena dirinya telah berada disana
di hatimu yang ingin kupunya
menjadi sahabat dekatmu
itulah caraku menjagamu dan merasakan cinta darimu
Agustus 26, 2014 pada 1:26 pm (Uncategorized)
Agustus 26, 2014 pada 12:37 pm (Uncategorized)
Juni 2, 2013 pada 9:08 am (Uncategorized)
ingatlah saat kita bersama, …..
dan saling berbagi suka duka di kota jogja,…..
Maret 6, 2013 pada 8:58 am (Uncategorized)
Private Sub cmndbaru_Click()
Data1.Recordset.AddNew
txtnama.SetFocus
End Sub
Private Sub cmndhapus_Click()
Data1.Recordset.Delete
End Sub
Private Sub cmndkeluar_Click()
Unload Me
End Sub
Private Sub cmndproses_Click()
Dim s As String
Txttahun.Text = “20” & Left(Txtnpm.Text, 2)
s = Mid(Txtnpm.Text, 3, 1)
If s = “1” Then
txtjurusan.Text = “SistemInformasi”
ElseIf s = “2” Then
txtjurusan.Text = “tekhnikInformasi”
ElseIf s = “3” Then
txtjurusan.Text = “ManajemenInformatika”
ElseIf s = “4” Then
txtjurusan.Text = “komputerakutansi”
End If
s = Mid(Txtnpm.Text, 4, 2)
If s = “01” Then
txtps.Text = “Strata Satu”
ElseIf s = “02” Then
txtps.Text = “Diploma empat”
ElseIf s = “03” Then
txtps.Text = “Diploma Tiga”
ElseIf s = “04” Then
txtps.Text = “Diploma Dua”
End If
txtnourut.Text = Right(Txtnpm.Text, 3)
End Sub
Private Sub cmndsimpan_Click()
Data1.Recordset.Update
End Sub
Januari 30, 2013 pada 5:59 am (Uncategorized)
Tags: http://www.youtube.com/watch?v=3k-XR9CuOvI
Paste a Video URL
Januari 27, 2013 pada 3:16 pm (Uncategorized)
Tags: http://otomotif.kompas.com/read/2013/01/22/6275/Kawasaki.ZX-6R.Proyek.Percontohan
Tampangnya seperti standar, tapi siapa sangka sudah menelan biaya Rp 70-an juta.
Semua aksesori yang dibenamkan adalah proyek uji coba untuk dipasarkan.
Ada peranti yang setelah dicoba tak layak untuk dipasarkan, seperti jok berisi gel di dalamnya. Empuk tapi tak presisi.
Tampangnya seperti standar, tapi siapa sangka sudah menelan biaya Rp 70-an juta.
Jakarta, KompasOtomotif – Sebagai pengusaha di bidang aksesori moge, Andy Setiawan merasa harus punya konsep yang diterjemahkan dalam benda riil agar konsumen lebih memahami apa saja yang dipasarkannya. Direktur Dunia Moge itu pun mempermanis tampilan Kawasaki ZX-6R dengan pernik aftermarket untuk proyek percontohan.
Untuk menginstal puluhan aksesori, tentu tidak main asal tempel. Ada perhitungan yang harus dipikirkan agar penampilan tidak fals. ”Atau paling tidak, saya berusaha mencoba dulu apa yang akan Dunia Moge pasarkan. Terus terang saya tidak berani ngomong ke konsumen kelebihan-kelebihan berbagai aksesori yang diklaim produsen, sebelum dicoba sendiri,” tegas Andy.
Saddlemen
Jika dilihat fotonya, sekilas mirip tampilan standar. Tapi siapa yang sangka, aksesori yang melekat di tubuh moge Jepang bernilai lebih dari Rp 70 juta. Wajah cakep ZX-6R semakin gahar dengan penambahan tameng angin Sportech tipe Carbon Windshield. Lampu depan diganti bohlam HID Nine 4300K.
Peranti berbahan karbon fiber diyakini menambah nilai penampilan. Itulah kenapa Andy mengganti beberapa bagian dengan bahan tersebut, di antaranya spakbor depan dan belakang merek PUIG, dan beberapa bodi samping. Selanjutnya, perombakan kaki-kaki dengan mengandalkan pelek futuristik Carrozzeria Aluminium V-TRACK. Ban masih standar, Battlax BT 06 yang dirasa sangat kompeten bersanding bareng pelek premium seharga lebih dari Rp 20 juta itu.
Lalu, peranti rem harus diperbaiki untuk menunjang penampilan dan performa. Kaliper Brembo M4 108mm dan Brembo silinder RCS19 dipadukan dengan piringan Braketech AXIS Iron Full Floater. Beranjak ke atas lagi dengan adanya pelindung tangki merek Techspec Snake.
Yang unik, sadel diganti merek Saddlemen dari AS. Peranti ini ikut dalam tahap ”pengujian” oleh sang pemilik sebelum dijual. ”Isinya gel, membuat pantat dalam posisi sempurna untuk berkendara jarak jauh. Tidak sakit dan sempurna, cuma setelah dipasang ada jarak yang membuatnya goyang dan tidak presisi. Katanya plug and play, tapi kurang sempurna. Makanya tidak jadi saya pasarkan,” beber Andy.
Rizoma, sebagai aksesori yang ikut dijual di Dunia Moge bertebaran di sekujur tubuh sepeda motor. Pemakaian merek ini padatabung minyak rem, pegangan gas, slider ban depan, penutup tangki bensin, hingga buntut belakang lengkap dengan wadah minyak rem belakang.
Sebagai sepeda motor berteknologi tinggi yang kadang dipakai ngantor, tak lupa Andy menyertakan USB port 3BR anti air yang dipasang di dekat setang. Fungsinya jelas, membantu mengisi baterai gadget atau untuk suplai listrik pemutar musik. ”Akinya sudah menggunakan Shorai yang ringan dan cukup energi. Klop,” sahutnya.
Soal mesin, Andy mengaku masih standar. Dan performanya sudah sangat luar biasa. Hanya saja, karena dipakai sehari-hari, tenaga besar kadang tidak nyaman dipakai di dalam kota. Untuk itu ditambahkan peranti elektronik bermerek Healtech X-TRE (XT-K01) yang disambungkan ke ECU. Tujuannya, menjinakkan hentakan awal untuk membuat nyaman perjalanan di kemacetan.
”Bodi saya biarkan standar, karena modelnya sudah sangat pas. Kalau ditambahi bodi-bodi kustom malah kelihatan gambot dan menurut saya kurang proporsional. Jadi saya memutuskan untuk menjadikan ZX-6R ini sebagai etalase berjalan,” ujar Andy.
Januari 25, 2013 pada 3:23 am (Uncategorized)
Private Sub Command1_Click()
Dim s, gol, ks, stt, jbt, bgn, gp, tjng, tg As String
Text4.Text = Left(Text11.Text, 4)
s = Mid(Text11.Text, 3, 2)
If s = “12” Then
gol = “A”
ElseIf s = “11” Then
gol = “B”
ElseIf s = “10” Then
gol = “C”
End If
s = Mid(Text11.Text, 5, 1)
If s = “S” Then
ks = “L”
ElseIf s = “D” Then
ks = “D”
ElseIf s = “J” Then
ks = “J”
End If
s = Right(Text11.Text, 1)
If s = “L” Then
stt = “Lajang”
ElseIf s = “D” Then
stt = “Duda”
ElseIf s = “J” Then
stt = “Janda”
End If
s = Mid(Text11.Text, 7, 1)
If s = “M” Then
jbt = “Manajer”
ElseIf s = “B” Then
jbt = “Bendahara”
ElseIf s = “S” Then
jbt = “Sekertaris”
End If
s = Mid(Text11.Text, 9, 1)
If s = “A” Then
bgn = “Administrasi”
ElseIf s = “K” Then
bgn = “Konsumsi”
ElseIf s = “P” Then
bgn = “Produksi”
End If
s = Right(Text11.Text, 2)
If s = “IL” Then
gp = 500000
ElseIf s = “KD” Then
gp = 650000
ElseIf s = “SJ” Then
gp = 855000
End If
s = Right(Text11.Text, 3)
If s = “BIL” Then
tjng = 300000
ElseIf s = “OKD” Then
tjng = 250000
ElseIf s = “ISJ” Then
tjng = 200000
End If
s = Right(Text11.Text, 4)
If s = “ABIL” Then
tg = Val(Text7.Text) + Val(Text8.Text)
ElseIf s = “KOKD” Then
tg = Val(Text7.Text) + Val(Text8.Text)
ElseIf s = “PISJ” Then
tg = Val(Text7.Text) + Val(Text8.Text)
End If
Text1.Text = gol
Text2.Text = ks
Text3.Text = stt
Text5.Text = jbt
Text6.Text = bgn
Text7.Text = gp
Text8.Text = tjng
Text9.Text = tg
End Sub
Private Sub Command2_Click()
TeXT10.SetFocus
Text11 = “”
Text1 = “”
Text2 = “”
Text3 = “”
Text4 = “”
Text5 = “”
Text6 = “”
Text7 = “”
Text8 = “”
Text9 = “”
TeXT10 = “”
End Sub
Private Sub Command3_Click()
TeXT10.SetFocus
Text11 = “”
Text1 = “”
Text2 = “”
Text3 = “”
Text4 = “”
Text5 = “”
Text6 = “”
Text7 = “”
Text8 = “”
Text9 = “”
TeXT10 = “”
End Sub
Private Sub Command4_Click()
Unload Me
End Sub
Private Sub Label12_Click()
End Sub
Private Sub TeXT10_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
Text11.SetFocus
End If
End Sub
mmiftahudinstmikpringsewu 