berharap dalam lelap

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

Iklan

Naruto Shippuden Episode 365 Bahasa Indonesia – Naruto Shippuden Episode Terakhir 2014

Membuat Animasi menggunakan Movie Maker

Proses Pembuatan Film Animasi

Tutorial Panduan Lengkap mengetik 10 jari

sahabat,…YOUR IS THE BASE

sahabat,...YOUR IS THE BASE

ingatlah saat kita bersama, …..
dan saling berbagi suka duka di kota jogja,…..

TUGAS VB DATABASE 4

Gambar

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

ADISTA BAND

Paste a Video URL

Kawasaki ZX-6R Proyek Percontohan

 

  • Sumber : – | Author : donny apriliananda

    Tampangnya seperti standar, tapi siapa sangka sudah menelan biaya Rp 70-an juta.

  • Sumber : – | Author : donny apriliananda

    Semua aksesori yang dibenamkan adalah proyek uji coba untuk dipasarkan.

  • Sumber : – | Author : donny apriliananda

    Ada peranti yang setelah dicoba tak layak untuk dipasarkan, seperti jok berisi gel di dalamnya. Empuk tapi tak presisi.

  • Sumber : – | Author : donny apriliananda

    Tampangnya seperti standar, tapi siapa sangka sudah menelan biaya Rp 70-an juta.

TERKAIT

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.

TUGAS VISUAL BASIC.2 nomor selanjutnya

GambarPrivate 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

« Older entries