tag:blogger.com,1999:blog-12651320708474720152024-03-13T13:30:40.032+07:00Manusia CerdasKemudian daripada itu untuk membentuk suatu Pemerintahan Negara Indonesia yang melindungi segenap bangsa Indonesia dan seluruh tumpah darah Indonesia dan untuk memajukan kesejahteraan umum, mencerdaskan kehidupan bangsa, dan ikut melaksanakan ketertiban dunia yang berdasarkan kemerdekaan, perdamaian abadi dan keadilan sosial, maka dibuatlah blog ini.Anonymoushttp://www.blogger.com/profile/15770591473098831090noreply@blogger.comBlogger17125tag:blogger.com,1999:blog-1265132070847472015.post-37912297710033342962016-11-30T23:33:00.000+07:002016-12-01T20:02:29.227+07:00CINTA MONYET MASA SMP? Bagian 2 : Pesantren<div style="text-align: justify;">
Nama Bidadari itu.... aku ga tau bro... belum masuk sesi perkenalan soalnya... hehehehe....</div>
<div style="text-align: justify;">
Nah pas masuk sesi perkenalan, kenalanlah kita di depan kelas, atu-atu, aku grogi bro. Aku inget dulu pas lagi ikut lomba baca puisi di pendopo kecamatan pas jaman aku SD, kakiku gemeteran, saban ikut lomba mesti gemeteran, gara-gara itu kali ya aku ga menang. Tapi jangan salah, pas aku ikut buat yang terakhir kalinya yaitu pas kelas 6, aku menang bro, jurinya sampe bingung, soalnya lawanku juga bagus bro, kita sampe tanding ulang, saking bingungnya itu juri. Jurinya ga tau kali ya, kakiku rasanya mau copot pas disuruh baca lagi... Nerpes bro!!! tapi alhamdulillah aku yang menang,hehehehe... jangan tanya pialanya, ada di sekolah!!! kirain buat aku...</div>
<div style="text-align: justify;">
<br /></div>
<a name='more'></a><div style="text-align: justify;">
Balik lagi ke SMP, majulah aku ke depan kelas, dengan kaki gemeteran, pahaku gempa 10.0 skala paha ( kalo skala richter aku tak tau, hehehehe..). singkat kata kenalanlah aku, pas aku bilang kalo aku dapet nick name cacing, pada ketawa semua satu kelas, guruku ikut senyum-senyum, bukannya dia yang masukin jenis hewan itu ke gulungan!!! merah deh muka ini...</div>
<div style="text-align: justify;">
Nah tibalah saatnya pas si "dia" memperkenalkan diri... Pas dia maju nih, udah di cuit2tin sama temen-temennya, maklum temen SDnya dia banyak yang masuk SMP itu, tdak seperti diriku, yang cuma satu-satunya satu kecamatanpun, ada di kelas lain, itupun aku belom akrab, cuma tau doank, eh dari kecamatan tetangga dink, hehehe...</div>
<div style="text-align: justify;">
Emang nasib kali ya, bukannya sombong siy, tapi di SD aku tuh aku paling penter bro, mulai kelas 1 sampe kelas 6 aku selalu rangking 1, ga pernah turun tahta, padahal aku ga pernah belajar, tapi aku baru sadar pas SMP ini bro, ternyata aku jadi rangking 1 terus cos sainganku yang kurang "menggigit", nah pas rapotan pertama, aku rangking 1 juga siy, tapi ada "0" dibelakang, hiks... Tapi aku ga sedih-sedih amat siy... Bodo amat mau rangking berapa... hehehe...</div>
<div style="text-align: justify;">
Eh, aku belom nyebutin namanya ya? lupa... namanya itu sama persis kayak nama salah satu produk kebersihan yang akrab banget sama ibu-ibu... asli, aku pas denger nama itu, kirain aku salah denger bro... Namanya RINSO!!!! GILAAAAAA!!!!! masak cantik-cantik namanya kayak sabun cuci!!!!!! syok abis diriku dibuatnya. tapi, mari kita pikirkan dengan jernih,</div>
<div style="text-align: justify;">
1. itu merek sabun yang ikut nama dia, ato dia yang ikut nama itu sabun y? kalo diliat dari tahu pendiriannya, itu sabun adanya mulai kapan aku ga tau, jadi untuk masalah ini aku angkat kaki deh... 2. kalo diliat dari segi kebersihan, kalo sama-sama bersih sih, dia bajunya bersih, roknya bersih, sepatunya bersih, kaos kakinya juga bersih, mukanya pun bersih, tapi tidak membersihkan hehehe... kalo sabun mah udah jelas buat nyuci kan? hehehe....</div>
<div style="text-align: justify;">
3. kalo diliat dari segi doa ortu? ga tau deh....</div>
<div style="text-align: justify;">
Yang jelas buat aku waktu itu dia cantik... sampe kebayang kemana-mana... Tapi bro, punya perasaan kayak gini, menurutku waktu itu ya salah, sebab, doktrin yang aku terima adalah, pacaran itu ga boleh, jadi kesimpulanku, jatuh cinta juga ga boleh donk, kan katanya pacaran itu karena ada dua manuasia beda jenis kelamin yang saling jatuh cinta? kalo gitu, yang hombreng itu namanya apa y? hehehehehe......</div>
<div style="text-align: justify;">
Kalo dilukiskan perasaan aku waktu itu, gimana ya, kayak minder, sebab dirku kan anak kampung, muka biasa aja siy menurutku, kalo kata emak mah guanteng coy ( ya iya lah emak sendiri, sejelek-jeleknya anak kalo kata emaknya mah ganteng!!! ), kalo mau diliat dari prestasi, waktu itu kan baru masuk jadi aku ga tau juga, kalo dari segi temen, aku kuper...</div>
<div style="text-align: justify;">
Beneran namanya Rinso? <span style="font-family: "times new roman" , serif; font-size: 12pt; text-align: justify; text-indent: 1cm;">Becanda ding, hehehehe… Tapi beneran namanya Rins, ga tau juga sih kenapa dikasih nama begitu sama ortunya, biar bersih kali ya. Menurutku (waktu itu) dia adalah gadis paling manis yang pernah kuliah dalam hidupku (cie-cie, kayak pernah liat cewek lain ajah, hahahaha). Beneran sob, buktinya aku ga berani kenalan sampe laaaaaaaaammmmmaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa…….. dan akhirnya kenal-kenal sendiri, dan hilanglah kesempatan untuk berkenalan dengan cewek macam di pilm-pilm romantis, yang terjadi hanyalah hal biasa saja, tak ada yang luar biasa. Dan yang kuingat hanyalah aku melangkah pulang dengan gontai kerena malu yang luaaaaaar binasa.</span></div>
<div class="MsoNormal" style="text-align: justify; text-indent: 1.0cm;">
<span lang="EN-US" style="font-family: "times new roman" , "serif"; font-size: 12.0pt; line-height: 115%;">Sesampai di kamar aku ganti baju, sholat dhuhur (pesantren bro, ga boleh lupa sholat) dan makan siang dengan lauk ote-ote. Maklumlah, seorang santri juga harus bisa hidup hemat cenderung kere, sebab untuk mensyukuri nikmat yang diberikan oleh Allah sang maha pencipta kita tidak diperbolehkan hidup foya-foya, begitu kata pak kiai. Uang saku tidak boleh lebih dari 100 ribu selama 1 bulan, dan boleh bawa beras sendiri. Lumayan lah, kan waktu itu, tahun 2000an kali aku ga salah, tempe 1000 udah dapet banyak, minyak tanah masih murah, bahkan kalo aku ga salah inget ada penjual mie pangsit yang harganya 1500, nambah 500 kalo mau tambahan ceker ayam.<o:p></o:p></span></div>
<div class="MsoNormal" style="text-align: justify; text-indent: 1.0cm;">
<span lang="EN-US" style="font-family: "times new roman" , "serif"; font-size: 12.0pt; line-height: 115%;">Santri itu saban hari harus sholat subuh, ashar, maghrib, dan isya’ berjama’ah. Dhuhur boleh ga jama’ah karena emang masih pada sekolah, dan biasanya juga sholat dhuhur di sekolah, kecuali hari pertama masuk sekolah, karena ga bawa sarung hehehehe…. Yang paling aku tunggu tiap minggu itu adalah malem jum’at, sebab setelah sholat maghrib dan tahlilan dapet makan dari Bu Nyai, makan di dapurnya Kiai, dan menurutku menu yang ada di situ adalah menu yang paling enak. Bukan karena lauknya mewah, atau apapun, yang paling aku inget itu lauknya tempe plus kuah lodeh sama sambel, sambelnya cuma garam sama cabe saja. Tapi rasanya bro, uueeeennnaaaak banget, suer dikewer-kewer. Jangan Tanya kenapa kok enak, sebab akupun tak tahu, karena gratis kali ya. Aku ga sempet nanya sih kenapa, tapi rata-rata temen-temenpun bilang enak.<o:p></o:p></span></div>
<div class="MsoNormal" style="text-align: justify; text-indent: 1.0cm;">
<span lang="EN-US" style="font-family: "times new roman" , "serif"; font-size: 12.0pt; line-height: 115%;">Kalo masak sendiri biasanya sih masak tempe saja, kalo mau sayur ya cari kangkung di sungai belakang pesntren, masak deh. Kalo pengen makannya jadi nikmat biasanya temen-temen masak bareng, semua bahan mentah dimasak jadi satu, termasuk kangkung yang dapet dari sungai belakang itu. Setelah itu hampatkan daun pisang, taruh semua nasi beserta lauknya di situ, dan seeerrbbuuuuuuuuuuu…. Dijamin nikmaat banget itu rasanya makanan. Konon kata para senior, makan macam itu yang bikin enak adalah kebersamaannya. Kalo menurutku sih, yang bikin enak itu rebutannya, hehehehe… gimana ga mau rebutan, jatah makan sudah ada di situ, kalo kurang gesit ya ga kebagian, dan perut masih setengah kosong. Cobalah kau bayangkan udah sebulan jatah Cuma 100 ribu, apakah dikau akan merelakan makananmu dimakan orang? Kan mending ayo gesit-gesitan, daripada perut masih lapar dan akhirnya jajan, dan uangpun berkurang. Betul tidak? (bacanya ala Aa Gym ya).<o:p></o:p></span></div>
<div class="MsoNormal" style="text-align: justify; text-indent: 1.0cm;">
<span lang="EN-US" style="font-family: "times new roman" , "serif"; font-size: 12.0pt; line-height: 115%;">Kegiatan malam dipesantren biasanya selepas sholat isya’ ada pengajian kitab akhlak, yang bikin nguaaantuk bange kalo lagi ngaji, dan kalo sudah selesai itu ngantuk juga ikutan selesai, aneh ya? Lepas itu kadang ada acara cerita seram yang ada disekitar pesantren oleh santri senior, contohya kalo pergi ke jamban dibelakang gedung hati-hati ntar ada tangan yang bakalan ngelus-ngelus bokong kamu, gitu katanya. Kalo dipikir-pikir sih, pas cebok kan itu pantat kena sentuh, jadilah dielus-elus. Nah, malam itu ada yang ga ikutan, karena siang tadi doi ketiduran jadi ga sempet nyuci baju, jadilah doi nyuci. Pas lagi cerita soal hantu yang ada di kamar mandi, yang katanya sih mbak kunti, doi dateng, cuciannya udah kelar, trus dia nyrocos aja sama bagian keamanan, ngomel-ngomel “ eh kamu gimana sih, itu ada mbak-mbak nyuci di kamar mandi sebelahku, kamu jadi keaman mbok ya kerja situ, duduk-duduk aja, katanya keamanan, tapi kok ada cewek sampe masuk ke tempat santri putra, tak laporin ke pak kiai lho kamu, biar kena marah, tapi ga sih ini kan pelanggaran berat paling kamu kena pukul, hahahahaha”, katanya. Aku yang udah dengerin cerita seremnya jadi berpandang-pandangan sama temen sebelahku. “Anu, kamu liat siapa yang nyuci?” kata bagian keamanan. “ ga sih, cuciankku kan banyak jadi ga sempet liat”, kata si doi. “trus kamu kok tau itu cewek?”, “ iya soalnya dia nyuci sambil berdendang”, katanya. Setelah itu kembalilah diceritakan bahwa di kamar mandi itu emang kadang ada mbak-mbak yang biasanya nyuci sambil berdendang. Doipun megap-megap sambil mangap merasa tak percaya. Masak sih,katanya. Dan diapun diminta untuk ngeliat sendiri kalo ga percaya, sayangnya doi ga mau ngeliat, udah merinding semua bulu kuduknya katanya, dan berakhirlah acara cerita malam, mengantarkan santri baru tidur dengan cerita menyeramkan, ga sanggup dengerin lagi soalnya.<o:p></o:p></span></div>
<span lang="EN-US" style="font-family: "times new roman" , "serif"; font-size: 12.0pt; line-height: 115%;"></span><br />
<div style="text-align: justify;">
<span lang="EN-US" style="font-family: "times new roman" , "serif"; font-size: 12.0pt; line-height: 115%;"><span style="font-family: "times new roman" , serif; font-size: 12pt;"> Berangkatlah aku tidur, doa sebelum tidur lupa kubaca sebab terlalu takut yang ada dipikiran, kutarik selimut menutui muka. Kemudian pas lagi enak-enak tidur, tiba-tiba aku ditindih oleh sesosok makhluk seperti manusia, mukanya hitam legam bibirnya putih mengeringai menampakkan gigi taring yang panjang, lampu 10 watt yang tadinya menyala kini sudah padam, tangan dan kakiku terasa seperti dipegangi olah tangan-tangan kekar yang begitu kuat, aku mencoba untuk meronta sekuat tenaga, namun tak kuasa aku menggerakan tubuhku barang sedikit. Tapi aku tak mau menyerah, kukumpulkan tenagaku, kumeronta, meronta dan meronta, apa ini pikirku, apakah ini yang katanya sebangsa jin yang suka menindih anak manusia yang lupa baca doa sebelum tidur? Tapi ini kan pesantren, masak iya ada makhluk yang kayak gitu, dan akupun teringat pada cerita seram sebelumya. Akupun membaca surat Al-Ikhlas, tak mempan, kubaca surat An-Nas, tak mempan juga, kubaca ayat kursi, masih tetap tak ada perubahan, kubaca awal surat Al-Baqoroh ini setan sakti amat, dibaacain ayat Al-Qur’an kok ga ada takut-takutnya. Kemudian kutarik napas dalam-dalam, baunya, ya aku kenal bau ini, bau pasta gigi!! Dan tahulah aku kanapa ayat Al-Qur’an tak mempan, akhirnya kudiamkan badanku, kugerakkan dalam satu gerakan kejut. Lepaslah aku dari genggamannya…..</span></span><br />
<span lang="EN-US" style="font-family: "times new roman" , "serif"; font-size: 12.0pt; line-height: 115%;"><span style="font-family: "times new roman" , serif; font-size: 12pt;"><br /></span></span>
<span lang="EN-US" style="font-family: "times new roman" , "serif"; font-size: 12.0pt; line-height: 115%;"><span style="font-family: "times new roman" , serif; font-size: 12pt;">Bersambung....</span></span></div>
<span lang="EN-US" style="font-family: "times new roman" , "serif"; font-size: 12.0pt; line-height: 115%;"> </span> <br />
<div style="text-align: justify;">
<br /></div>
<div style="text-align: justify;">
<a href="http://makhlukcerdas.blogspot.co.id/2013/09/cinta-monyet-masa-smp-bagian-1-gua-anak.html"><b><span style="color: cyan; font-size: large;">Cerita Sebelumnya</span></b></a></div>
<div style="text-align: justify;">
<br /></div>
Anonymoushttp://www.blogger.com/profile/15770591473098831090noreply@blogger.com0tag:blogger.com,1999:blog-1265132070847472015.post-48557968030722458812013-09-04T19:14:00.003+07:002016-11-30T23:40:38.612+07:00CINTA MONYET MASA SMP? Bagian 1 : Aku Anak SMP Coy!<div style="text-align: justify;">
<span style="font-family: "times new roman" , serif; font-size: 12pt; line-height: 115%;">Panggil </span><span lang="EN-US" style="font-family: "times new roman" , serif; font-size: 12pt; line-height: 115%;">s</span><span style="font-family: "times new roman" , serif; font-size: 12pt; line-height: 115%;">aja aku
Cacing, nama yang sebenarnya ga ada sangkut pautnya sama nama asliku, coz nama
ini dijadiin panggilan sama temenku gara-garanya baca aja deh ceritanya, aku
ceritain kok di bawah. hehehe.. Kalo dipikir-pikir, cacing kan biasanya buat
umpan mancing, aku heran kok ikan suka banget ya sama cacing. Enak kali ya? aku
sih belum pernah nyicipin</span><span lang="EN-US" style="font-family: "times new roman" , serif; font-size: 12pt; line-height: 115%;">, hehehehe…</span><span style="font-family: "times new roman" , serif; font-size: 12pt; line-height: 115%;">.</span></div>
<a name='more'></a><br />
<div style="text-align: justify;">
<div class="MsoNormal">
<span style="font-family: "times new roman" , "serif"; font-size: 12.0pt; line-height: 115%;"> Kisah ini dimulai saat aku</span><span lang="EN-US" style="font-family: "times new roman" , "serif"; font-size: 12.0pt; line-height: 115%;">,</span><span style="font-family: "times new roman" , "serif"; font-size: 12.0pt; line-height: 115%;">
yang kata</span><span lang="EN-US" style="font-family: "times new roman" , "serif"; font-size: 12.0pt; line-height: 115%;">nya</span><span style="font-family: "times new roman" , "serif"; font-size: 12.0pt; line-height: 115%;"> mak aku pinter ini, masuk ke salah
satu sekolah SMP favorit di kotaku. Sebagai anak kampung, tentu aku bangga don</span><span lang="EN-US" style="font-family: "times new roman" , "serif"; font-size: 12.0pt; line-height: 115%;">g</span><span style="font-family: "times new roman" , "serif"; font-size: 12.0pt; line-height: 115%;">
bisa masuk ke sekolah favorit yang masuknya aja susah. Ternyata ga sesusah itu
kok, lagian pas aku masuk itu sistemnya masih pake sistem NUN (ato apalah, aku
udah lupa). Jadi, ceritanya NUN aku dari tiga mata pelajaran rata-rata 7,9 sob.
Bangga donk ortuku. Sayangnya, menurut ortu aku emang udah kewajiban buat jadi
pinter, so woles aja, itu mah biasa.<o:p></o:p></span></div>
<div class="MsoNormal">
<span style="font-family: "times new roman" , "serif"; font-size: 12.0pt; line-height: 115%;"> Ortuku tipe orang yang taat banget
beragama, jadi pas aku SMP tu aku sambil mondok disalah satu pesantren deket
sekolahku. Nah, kalo pesantren yang udah gede kayak di Gontor misalnya,
sekolahnya kan udah ada di dalem, jadi ga perlu keluar. Berhubung pesantrenku
tergolong kecil, jadi aku sekolah diluar. Letak SMPku tuh pas banget disamping
jalan provinsi, jadi kalo pagi banyak banget kendaran lewat situ, mulai dari
motor sampe truk tronton, mulai dari kendaraan yang knalpotnya ga ngluarin asep
sampe truk kuno yang asepnya bisa jadi satu jalan sampe yang naik motor ga bisa
liat gara-gara asepnya itu truk.<o:p></o:p></span></div>
<div class="MsoNormal">
<span style="font-family: "times new roman" , "serif"; font-size: 12.0pt; line-height: 115%;"> Waktu pertamakali aku pisah sama ortu,
sumpah rasanya ga enak banget. Apalagi aku doyan banget nonton TV, di pesantren
kan ga ada, rasanya tersiksa banget bro. Kalo lu tanya lebih berat mana, antara
ninggalin ortu ato ninggalin TV, itu pertanyaan yang sangat sulit buat dijawab
bro. Soalnya, aku sendiri ga yakin lebih berat mana.<o:p></o:p></span></div>
<div class="MsoNormal">
<span style="font-family: "times new roman" , "serif"; font-size: 12.0pt; line-height: 115%;"> Tibalah saatnya aku masuk sekolah sebagai
siswa SMP, berhubung aku adalah siswa yang baru aja lulus dari sekolah dasar
yang notabene buat anak kecil, dan sekarang aku udah masuk buat sekolah anak
yang lebih gede. Pas aku masuk gerbang, aku berhenti dulu coy, aku hirup
dalem-dalem aroma halaman sekolah aku. Celakanya, pas aku lagi menikmati
sejuknya udara perbedaan sama SD aku dulu, lewatlah seekor truk tua yang baru
aja nyalip becak, itu asepnya bro, bikin aku jadi batuk gak brenti-brenti. Itu
sopir kayaknya gak kira-kira kalo nginjek padal gas, masak aku sampe sesek
napas gara-gara ngisep asep knalpotnya. Ya maklum juga siy, aku kan anak
kampung yang udaranya sejuk segar minim polusi. Buktinya kali di deket rumahku
airnya bening banget, sampe ikan dan ibu-ibu kalo lagi mandi keliatan. Hayo,
jangan perpikiran yang iya-iya lho ya. Di kampung mah itu biasa bro.<o:p></o:p></span></div>
<div class="MsoNormal">
<span style="font-family: "times new roman" , "serif"; font-size: 12.0pt; line-height: 115%;"> Kembali ke inti cerita, pas aku udah
selesai batuk-batuk tibalah seorang anak yang penampilannya culun (mirip kayak aku
sih tapi lebih culun dia, soalnya kancing baju bagian atasnya dikancingin). Dia
yang kelak jadi sohib aku di SMP ini. Kenalanlah aku sama dia, namanya Deni</span><span lang="EN-US" style="font-family: "times new roman" , "serif"; font-size: 12.0pt; line-height: 115%;">,</span><span lang="EN-US" style="font-family: "times new roman" , "serif"; font-size: 12.0pt; line-height: 115%;"> </span><span style="font-family: "times new roman" , "serif"; font-size: 12.0pt; line-height: 115%;">ku kira dia juga anak kampung bro, soalnya dari segi penampilan,
dia ga jauh-jauh amat dari aku. Eh, ternyata rumahnya pas di sebrang jalan SMPku.
Salah deh aku. Setelah itu masuklah kita ke kelas khusus anak baru, gak ada
yang menarik pas aku masuk, jadi ga aku critain ya.<o:p></o:p></span></div>
<div class="MsoNormal">
<span style="font-family: "times new roman" , "serif"; font-size: 12.0pt; line-height: 115%;"> Pas udah di kelas, ada guru yang jelasin
tentang peraturan sekolah, yang paling aku inget ya kalo pulang itu jam satu
siang. Alamak batinku, siang amat!!! maklum bro, pas SD kelas enam, jam
sebelasan aku udah pulang, semakin kecil kelasnya semakin cepet pulangnya. Hal
kedua yang aku inget adalah kalo besok itu MOS, singkatan dari Masa Orientasi
Siswa. Aku kirain itu kayak semacem perkenalan aja, kan aku baru masuk bro,
jadi gak mungkin lah kalo ada pelajaran. Ternyata aku bener bro, tapi
setengahnya aja. Sebab pas mau pulang, sama guru aku (dan teman-teman yang lain
tentunya) disuruh bikin keplek dari kertas karton dan topi kerucut. Aku pikir
itu buat apa ya? ya maklum bro, pas aku SD aku ga suka baca koran, n ga suka
nonton berita, jadi aku gak pernah tau perpeloncoan pas MOS kayak gitu.<o:p></o:p></span></div>
<div class="MsoNormal">
<span style="font-family: "times new roman" , "serif"; font-size: 12.0pt; line-height: 115%;"> Besoknya, aku bawalah barang-barang yang
diminta sama guruku kemari, trus aku diminta buat pake itu keplek di dada, trus
ngambil kertas yang udah digulung kayak punya ibu-ibu arisan buat ngundi
pemenang. Nah disitulah aku dapet nama Cacing, nama yang paling gak keren.
Disitu ada nama Harimau, Serigala, Kucing, nama hewan lain yang lebih keren,
dan juga, ya... meski gak keren ada nama pohon</span><span lang="EN-US" style="font-family: "times new roman" , "serif"; font-size: 12.0pt; line-height: 115%;">lah</span><span style="font-family: "times new roman" , "serif"; font-size: 12.0pt; line-height: 115%;">. </span><span lang="EN-US" style="font-family: "times new roman" , "serif"; font-size: 12.0pt; line-height: 115%;">N</span><span style="font-family: "times new roman" , "serif"; font-size: 12.0pt; line-height: 115%;">ah
kenapa aku yang harus dapet yang Cacing? kenapa juga itu guru pake nambahin
nama Cacing segala? itu kan meruntuhkan rasa banggaku karena aku udah anak
SMP!!!. Ya sudahlah, emang udah nasibku kali ya.<o:p></o:p></span></div>
<span style="font-family: "times new roman" , "serif"; font-size: 12.0pt; line-height: 115%;"> Pas acara pertama dimulai bro, itu udah jam
sepuluh pagi, dan acaranya apel pagi. Apanya yang apel pagi, masak apel pagi jm
10? tapi bro, pas pembagian kelas nih, aku kan masuk kelas 1c, masuklah juga ke
kelas aku seorang cewek yang menurut ukuran aku saat itu bagai bidadari bro.
Namanya......</span><br />
<span style="font-family: "times new roman" , "serif"; font-size: 12.0pt; line-height: 115%;"><br /></span></div>
<div style="text-align: justify;">
Bersambung....<br />
<br />
<div style="text-align: right;">
<a href="http://makhlukcerdas.blogspot.co.id/2016/11/cinta-monyet-masa-smp-bagian-2-pesantren.html"><span style="color: cyan; font-size: large;">Cerita Selanjutnya</span></a></div>
</div>
Anonymoushttp://www.blogger.com/profile/15770591473098831090noreply@blogger.com0tag:blogger.com,1999:blog-1265132070847472015.post-68774704446269881622012-11-27T00:21:00.000+07:002012-11-27T00:46:43.805+07:00Mengolah data serial dengan VB 6.0<b>Pendahuluan</b><br />
<br />
<div style="text-align: justify;">
Pada post sebelumnya saya menggunakan komunikasi serial dari Mikroprosesor yang terhubung langsung dengan VB, dan mengalami cukup banyak kesulitan dalam koneksi serialnya. Permasalahan lain yang timbul adalah saya tidak bisa menyimpan data yang didapat dalam bentuk *.txt tanpa kahilangan data. Maka kemudian saya mencari cara yang lain, yaitu dengan menyimpan dahulu data yang didapat, kemudian <b> </b>saya mengolah data tersebut dengan memenggil data yang sudah ada. Pada project kali ini saya juga menambahkan Skin VB sehingga tampilan VB tidak klasik, tetapi sedikit lebih berbeda.</div>
<div style="text-align: justify;">
<br />
<a name='more'></a><br /></div>
<div style="text-align: justify;">
<b>Tujuan</b></div>
<div style="text-align: justify;">
<br /></div>
<div style="text-align: justify;">
Memudahkan pekerjaan, dan mengatasi hilangnya data saat penyimpan. (Saya juga tidak bisa menyimpan dengan jumlah yang banyak serta berkelanjutan hehehe...)<b> </b></div>
<div style="text-align: justify;">
<br /></div>
<div style="text-align: justify;">
<b>Peralatan</b></div>
<div style="text-align: justify;">
<br /></div>
<div style="text-align: justify;">
1. Laptop dengan OS win 7 (saya punyanya ini hehe...) <b><br /></b></div>
<div style="text-align: justify;">
2. Software VB 6.0</div>
<div style="text-align: left;">
3. Software komunikasi serial (bisa Hyperterm, teraterm, CVAVR, atau lainnya yang mendukung penyimpanan data dalam bentuk text)</div>
<div style="text-align: justify;">
<br /></div>
<div style="text-align: justify;">
<b>Prosedur</b></div>
<div style="text-align: justify;">
<br /></div>
<div style="text-align: left;">
1. instal program VB dan komunikasi serial.</div>
<div style="text-align: left;">
2. jalankan program dari hardware dan simpan dalam bentuk *.txt (saya berasumsi bahwa pembaca sudah tahu caranya sehingga tidak saya bahas disini).</div>
<div style="text-align: left;">
4. buat program untuk interface seperti pada post <a href="http://makhlukcerdas.blogspot.com/2012/04/komunikasi-serial-dengan-vb-60.html" target="_blank">sebelumnya</a>. saat ini anda tidak perlu menambahkan mscomm. tampilannya bisa seperti dibawah ini.<br />
<div class="separator" style="clear: both; text-align: center;">
<a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEhaG1KH8AuXybCKeEtcL1KYBZFleILjpMY3ut4UOF2HRwGubXmpY7Azdhcwt052wY3SbohMKE8sk3Fh3kFg19LtuJRvZGi_-evrh3YDWFyW6Mg3Fj0nhzsPtz4x9OSD1jrV3lexe0BgVQ5-/s1600/VB2.jpg" imageanchor="1" style="margin-left: 1em; margin-right: 1em;"><img border="0" height="194" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEhaG1KH8AuXybCKeEtcL1KYBZFleILjpMY3ut4UOF2HRwGubXmpY7Azdhcwt052wY3SbohMKE8sk3Fh3kFg19LtuJRvZGi_-evrh3YDWFyW6Mg3Fj0nhzsPtz4x9OSD1jrV3lexe0BgVQ5-/s320/VB2.jpg" width="320" /></a></div>
<br />
<div class="separator" style="clear: both; text-align: center;">
</div>
5. buat program seperti dibawah ini<br />
<br />
Dim sMaLlDaTa, bIgDaTa As Long<br />
Dim dAtA(20), aDc(4), sudUt, ADCdengan, pEmBagi As Double<br />
Dim waKtu, dAtaADc, JaRak, OutputKontroler, kEcePatan, SelisihSP, SP As Double<br />
Const pi = 3.14159265358979, DataADCmAX = 1023, Vref = 5.08, SetPoin = 512<br />
Dim BufFer(400), buFFer1(400), m, n(10000), oUt(10000), kEc(10000), yMax, yMin, oMax As Double<br />
Dim DaTa1, Data2, dAta3, dATa4, DaTa5, DaTa6, DaTa7, DaTa8, DaTa9, DaTa10, DaTa11, ReloAd As Boolean<br />
<br />
Private Sub Command1_Click()<br />
bIgDaTa = 0<br />
End Sub<br />
<br />
Private Sub Command10_Click()<br />
<br />
List1.Clear<br />
tmptfile = App.Path & "\Data\Respon data jarak 7000 kp 90 kd 70 beban 5Kg sudut awal 812.txt"<br />
Open tmptfile For Input As #1<br />
'If tmptfile.EOF Then<br />
While Not EOF(1)<br />
Timer1.Enabled = False<br />
'membaca data<br />
Input #1, datatamu<br />
'Menampilkan data di listbox<br />
kalimat = datatamu<br />
List1.AddItem kalimat<br />
<br />
Wend<br />
'Menutup file<br />
Close #1<br />
SP = 557<br />
Label13.Caption = "Data8 : Respon sudut Kp 90 Kd 70"<br />
bIgDaTa = 0<br />
<br />
End Sub<br />
<br />
Private Sub Command11_Click()<br />
<br />
List1.Clear<br />
tmptfile = App.Path & "\Data\Respon data jarak 7000 kp 90 kd 80 beban 5Kg sudut awal 812.txt"<br />
Open tmptfile For Input As #1<br />
'If tmptfile.EOF Then<br />
While Not EOF(1)<br />
'membaca data<br />
Input #1, datatamu<br />
'Menampilkan data di listbox<br />
kalimat = datatamu<br />
List1.AddItem kalimat<br />
<br />
Wend<br />
'Menutup file<br />
Close #1<br />
SP = 557<br />
Label13.Caption = "Data9 : Respon sudut Kp 90 Kd 80"<br />
bIgDaTa = 0<br />
End Sub<br />
<br />
Private Sub Command12_Click()<br />
<br />
List1.Clear<br />
tmptfile = App.Path & "\Data\Jarak 250cm Kp 80 Kd 70 sp552 beban 5Kg.txt"<br />
Open tmptfile For Input As #1<br />
'If tmptfile.EOF Then<br />
While Not EOF(1)<br />
'membaca data<br />
Input #1, datatamu<br />
'Menampilkan data di listbox<br />
kalimat = datatamu<br />
List1.AddItem kalimat<br />
<br />
Wend<br />
'Menutup file<br />
Close #1<br />
SP = 552<br />
Label13.Caption = "Data10 : Respon pergerakan crane beban 5Kg"<br />
bIgDaTa = 0<br />
<br />
End Sub<br />
<br />
Private Sub Command13_Click()<br />
List1.Clear<br />
tmptfile = App.Path & "\Data\Jarak 250cm Kp 80 Kd 70 sp557 beban 5Kg mundur disturbance.txt"<br />
Open tmptfile For Input As #1<br />
'If tmptfile.EOF Then<br />
While Not EOF(1)<br />
'membaca data<br />
Input #1, datatamu<br />
'Menampilkan data di listbox<br />
kalimat = datatamu<br />
List1.AddItem kalimat<br />
<br />
Wend<br />
'Menutup file<br />
Close #1<br />
SP = 552<br />
Label13.Caption = "Data11 : Respon pergerakan Crane dengan gangguan"<br />
bIgDaTa = 0<br />
<br />
End Sub<br />
<br />
Private Sub Command2_Click()<br />
End<br />
End Sub<br />
<br />
Private Sub Command3_Click()<br />
<br />
List1.Clear<br />
tmptfile = App.Path & "\Data\Respon data jarak 7000 kp 70 kd 60 beban 5Kg sudut awal 812.txt"<br />
Open tmptfile For Input As #1<br />
'If tmptfile.EOF Then<br />
While Not EOF(1)<br />
'membaca data<br />
Input #1, datatamu<br />
'Menampilkan data di listbox<br />
kalimat = datatamu<br />
List1.AddItem kalimat<br />
<br />
Wend<br />
'Menutup file<br />
Close #1<br />
SP = 557<br />
Label13.Caption = "Data1 : Respon sudut Kp 70 Kd 60"<br />
bIgDaTa = 0<br />
<br />
End Sub<br />
<br />
Private Sub Command4_Click()<br />
<br />
List1.Clear<br />
tmptfile = App.Path & "\Data\Respon data jarak 7000 kp 70 kd 70 beban 5Kg sudut awal 812.txt"<br />
Open tmptfile For Input As #1<br />
'If tmptfile.EOF Then<br />
While Not EOF(1)<br />
'membaca data<br />
Input #1, datatamu<br />
'Menampilkan data di listbox<br />
kalimat = datatamu<br />
List1.AddItem kalimat<br />
<br />
Wend<br />
'Menutup file<br />
Close #1<br />
SP = 557<br />
Label13.Caption = "Data2 : Respon sudut Kp 70 Kd 70 "<br />
bIgDaTa = 0<br />
End Sub<br />
<br />
Private Sub Command5_Click()<br />
<br />
List1.Clear<br />
tmptfile = App.Path & "\Data\Respon data jarak 7000 kp 70 kd 80 beban 5Kg sudut awal 812.txt"<br />
Open tmptfile For Input As #1<br />
'If tmptfile.EOF Then<br />
While Not EOF(1)<br />
'membaca data<br />
Input #1, datatamu<br />
'Menampilkan data di listbox<br />
kalimat = datatamu<br />
List1.AddItem kalimat<br />
<br />
Wend<br />
'Menutup file<br />
Close #1<br />
SP = 557<br />
Label13.Caption = "Data3 : Respon sudut Kp 70 Kd 80"<br />
bIgDaTa = 0<br />
<br />
End Sub<br />
<br />
Private Sub Command6_Click()<br />
<br />
List1.Clear<br />
tmptfile = App.Path & "\Data\Respon data jarak 7000 kp 80 kd 60 beban 5Kg sudut awal 812.txt"<br />
Open tmptfile For Input As #1<br />
'If tmptfile.EOF Then<br />
While Not EOF(1)<br />
'membaca data<br />
Input #1, datatamu<br />
'Menampilkan data di listbox<br />
kalimat = datatamu<br />
List1.AddItem kalimat<br />
<br />
Wend<br />
'Menutup file<br />
Close #1<br />
SP = 557<br />
Label13.Caption = "Data4 : Respon sudut Kp 80 Kd 60"<br />
bIgDaTa = 0<br />
<br />
End Sub<br />
<br />
Private Sub Command7_Click()<br />
<br />
List1.Clear<br />
tmptfile = App.Path & "\Data\Respon data jarak 7000 kp 80 kd 70 beban 5Kg sudut awal 812.txt"<br />
Open tmptfile For Input As #1<br />
'If tmptfile.EOF Then<br />
While Not EOF(1)<br />
'membaca data<br />
Input #1, datatamu<br />
'Menampilkan data di listbox<br />
kalimat = datatamu<br />
List1.AddItem kalimat<br />
<br />
Wend<br />
'Menutup file<br />
Close #1<br />
SP = 557<br />
Label13.Caption = "Data5 : Respon sudut Kp 80 Kd 70"<br />
bIgDaTa = 0<br />
<br />
End Sub<br />
<br />
Private Sub Command8_Click()<br />
<br />
List1.Clear<br />
tmptfile = App.Path & "\Data\Respon data jarak 7000 kp 80 kd 80 beban 5Kg sudut awal 812.txt"<br />
Open tmptfile For Input As #1<br />
'If tmptfile.EOF Then<br />
While Not EOF(1)<br />
'membaca data<br />
Input #1, datatamu<br />
'Menampilkan data di listbox<br />
kalimat = datatamu<br />
List1.AddItem kalimat<br />
<br />
Wend<br />
'Menutup file<br />
Close #1<br />
SP = 557<br />
Label13.Caption = "Data6 : Respon sudut Kp 80 Kd 80"<br />
bIgDaTa = 0<br />
End Sub<br />
<br />
Private Sub Command9_Click()<br />
<br />
List1.Clear<br />
tmptfile = App.Path & "\Data\Respon data jarak 7000 kp 90 kd 60 beban 5Kg sudut awal 812.txt"<br />
Open tmptfile For Input As #1<br />
'If tmptfile.EOF Then<br />
While Not EOF(1)<br />
'membaca data<br />
Input #1, datatamu<br />
'Menampilkan data di listbox<br />
kalimat = datatamu<br />
List1.AddItem kalimat<br />
<br />
Wend<br />
'Menutup file<br />
Close #1<br />
SP = 557<br />
Label13.Caption = "Data7 : Respon sudut Kp 90 Kd 60"<br />
bIgDaTa = 0<br />
<br />
End Sub<br />
<br />
Private Sub Form_Load()<br />
SkinFramework1.LoadSkin App.Path & "\" & "Office2007.cjstyles", "" '*<br />
SkinFramework1.ApplyWindow Me.hWnd '*<br />
SkinFramework1.ApplyOptions = SkinFramework1.ApplyOptions Or xtpSkinApplyMetrics '*<br />
<br />
'* jika ingin menggunakan feature ini anda harus telah menginstal Xtreme suite pro activeX.<br />
<br />
<br />
If ReLoadData = True Then<br />
Timer2.Enabled = True<br />
Else<br />
Timer2.Enabled = False<br />
End If<br />
<br />
''''''''''''''membuka file '''''''''''<br />
List1.Clear<br />
tmptfile = App.Path & "\Data\Respon data jarak 7000 kp 70 kd 60 beban 5Kg sudut awal 812.txt"<br />
Open tmptfile For Input As #1<br />
'If tmptfile.EOF Then<br />
While Not EOF(1)<br />
<br />
'membaca data<br />
Input #1, datatamu<br />
'Menampilkan data di listbox<br />
kalimat = datatamu<br />
List1.AddItem kalimat<br />
<br />
Wend<br />
'Menutup file<br />
Close #1<br />
SP = 557<br />
Label13.Caption = "Data1 : Respon sudut Kp 70 Kd 60"<br />
DaTa1 = False<br />
Data2 = True<br />
dAta3 = False<br />
dATa4 = False<br />
DaTa5 = False<br />
DaTa6 = False<br />
DaTa7 = False<br />
DaTa8 = False<br />
DaTa9 = False<br />
DaTa10 = False<br />
DaTa11 = False<br />
<br />
'''''''''''''''''''''''''''''''''''<br />
End Sub<br />
<br />
Private Sub Timer1_Timer()<br />
Dim datAmAsuk, kiRi, head As String<br />
<br />
bIgDaTa = bIgDaTa + 1<br />
sMaLlDaTa = CLng(List1.ListCount)<br />
<br />
If bIgDaTa = sMaLlDaTa Or sMaLlDaTa = 0 Then<br />
ReloAd = True<br />
Label2.Caption = "Memuat Ulang"<br />
bIgDaTa = bIgDaTa - 2<br />
Else<br />
ReloAd = False<br />
'Label2.Caption = "Membaca " & List1.ListIndex & " data dari total " & sMaLlDaTa & " data "<br />
End If<br />
<br />
If ReloAd = True Then<br />
Timer2.Enabled = True<br />
Else<br />
Timer2.Enabled = False<br />
End If<br />
<br />
List1.ListIndex = bIgDaTa - 1<br />
datAmAsuk = List1.Text<br />
<br />
<br />
ProgressBar1.Max = sMaLlDaTa<br />
ProgressBar1.Value = List1.ListIndex<br />
<br />
<br />
SelisihSP = SP - SetPoin<br />
Label2.Caption = "Membaca " & List1.ListIndex & " Dari total " & sMaLlDaTa & " data"<br />
Label3.Caption = "Masuk " & datAmAsuk<br />
kiRi = datAmAsuk<br />
head = InStr(kiRi, "S")<br />
If Left(kiRi, 1) = "S" Then<br />
dAtA(0) = Mid(kiRi, head + 2, 1)<br />
dAtA(1) = Mid(kiRi, head + 3, 1)<br />
dAtA(2) = Mid(kiRi, head + 4, 1)<br />
dAtA(3) = Mid(kiRi, head + 5, 1)<br />
<br />
dAtA(4) = Mid(kiRi, head + 7, 1)<br />
dAtA(5) = Mid(kiRi, head + 8, 1)<br />
dAtA(6) = Mid(kiRi, head + 9, 1)<br />
<br />
dAtA(7) = Mid(kiRi, head + 11, 1)<br />
dAtA(8) = Mid(kiRi, head + 12, 1)<br />
dAtA(9) = Mid(kiRi, head + 13, 1)<br />
<br />
dAtA(10) = Mid(kiRi, head + 15, 1)<br />
dAtA(11) = Mid(kiRi, head + 16, 1)<br />
dAtA(12) = Mid(kiRi, head + 17, 1)<br />
dAtA(13) = Mid(kiRi, head + 18, 1)<br />
dAtA(14) = Mid(kiRi, head + 19, 1)<br />
dAtA(15) = Mid(kiRi, head + 20, 1)<br />
<br />
dAtA(16) = Mid(kiRi, head + 22, 1)<br />
dAtA(17) = Mid(kiRi, head + 23, 1)<br />
dAtA(18) = Mid(kiRi, head + 24, 1)<br />
dAtA(19) = Mid(kiRi, head + 25, 1)<br />
dAtA(20) = Mid(kiRi, head + 26, 1)<br />
<br />
<br />
<br />
<br />
End If<br />
<br />
aDc(0) = dAtA(0) & dAtA(1) & dAtA(2) & dAtA(3)<br />
aDc(1) = dAtA(4) & dAtA(5) & dAtA(6)<br />
aDc(2) = dAtA(7) & dAtA(8) & dAtA(9)<br />
aDc(3) = dAtA(10) & dAtA(11) & dAtA(12) & dAtA(13) & dAtA(14) & dAtA(15)<br />
aDc(4) = dAtA(16) & dAtA(17) & dAtA(18) & dAtA(19) & dAtA(20)<br />
<br />
On Error Resume Next<br />
waKtu = aDc(0) / 10<br />
dAtaADc = aDc(1) - SelisihSP<br />
kEcePatan = aDc(2)<br />
JaRak = aDc(3)<br />
OutputKontroler = aDc(4) / 100<br />
HScroll1.Value = 16000 - JaRak<br />
MSChart1.dAtA = OutputKontroler<br />
<br />
Label5.Caption = "Waktu : " & waKtu & " s"<br />
Label6.Caption = "Data ADC : " & dAtaADc<br />
Label7.Caption = "Kecepatan : " & kEcePatan<br />
Label8.Caption = "Jarak : " & JaRak<br />
Label9.Caption = "Output kontroller : " & OutputKontroler<br />
Label10.Caption = "SP : " & SP<br />
<br />
<br />
<br />
Label4.Caption = "Baca " & aDc(0) & " " & aDc(1) & " " & aDc(2) & " " & aDc(3) & " " & aDc(4)<br />
<br />
pEmBagi = 11.3777777777778<br />
<br />
sudUt = dAtaADc / pEmBagi - 45<br />
<br />
Label1.Caption = "Sudut " & sudUt<br />
Line1.X1 = 3000<br />
Line1.Y1 = 3000<br />
Line1.X2 = 3000 + (3000 * (Sin(sudUt / 180 * pi)))<br />
Line1.Y2 = 3000 + (3000 * (Cos(sudUt / 180 * pi)))<br />
Label16.Caption = sudUt<br />
Label16.Top = Line1.Y2<br />
Label16.Left = Line1.X2<br />
<br />
<br />
m = m + 1<br />
If m >= 400 Then<br />
m = 0<br />
End If<br />
<br />
BufFer(m) = (sudUt + 45)<br />
buFFer1(m) = kEcePatan<br />
<br />
n(m) = (sudUt + 45)<br />
kEc(m) = kEcePatan + 30<br />
<br />
yMax = 0<br />
yMin = 45<br />
oMax = 0<br />
For i = 1 To m<br />
If BufFer(i) >= yMax Then<br />
yMax = BufFer(i)<br />
Else<br />
yMax = yMax<br />
End If<br />
Next i<br />
<br />
For j = 1 To 400<br />
If buFFer1(j) >= oMax Then<br />
oMax = buFFer1(j)<br />
Else<br />
oMax = oMax<br />
End If<br />
Next j<br />
<br />
If BufFer(m) <= yMin Then<br />
yMin = BufFer(m)<br />
Else<br />
yMin = yMin<br />
End If<br />
<br />
<br />
<br />
<br />
<br />
Label11.Caption = " Sudut max : " & (yMax - 45)<br />
Label12.Caption = " Sudut Min : " & (yMin - 45)<br />
Call grafik(bIgDaTa)<br />
<br />
<br />
<br />
End Sub<br />
<br />
Function trans(gr) As Double<br />
skala = ((Picture3.Height) / (yMax + 1)) / 2<br />
trans = Picture3.Height - (skala * gr)<br />
<br />
End Function<br />
Function trans1(gp) As Double<br />
skala1 = (Picture5.Height / (oMax + 1)) / 2<br />
trans1 = Picture5.Height - skala1 * gp<br />
<br />
End Function<br />
<br />
Sub grafik(cuk)<br />
Picture3.BackColor = &H8000000F<br />
Picture3.DrawWidth = 1<br />
Picture5.BackColor = &H8000000F<br />
Picture5.DrawWidth = 1<br />
<br />
<br />
For i = 1 To cuk<br />
' untuk menggambar garis : picture3.line (x1,y1)-(x2,y2)<br />
Form1.Picture3.Line ((i - 1) * 20, trans(n(i - 1)))-((i) * 20, trans(n(i))), vbYellow<br />
Form1.Picture3.Line ((i - 1) * 20, trans(45))-(i * 20, trans(45)), vbRed<br />
Form1.Picture5.Line ((i - 1) * 20, trans1(kEc(i - 1)))-(i * 20, trans1(kEc(i))), vbRed<br />
<br />
Next i<br />
<br />
End Sub<br />
<br />
Private Sub Timer2_Timer()<br />
<br />
If DaTa11 = True And ReloAd = True Then<br />
<br />
List1.Clear<br />
tmptfile = App.Path & "\Data\Jarak 250cm Kp 80 Kd 70 sp557 beban 5Kg mundur disturbance.txt"<br />
Open tmptfile For Input As #1<br />
'If tmptfile.EOF Then<br />
While Not EOF(1)<br />
Timer1.Enabled = False<br />
'membaca data<br />
Input #1, datatamu<br />
'Menampilkan data di listbox<br />
kalimat = datatamu<br />
List1.AddItem kalimat<br />
<br />
Wend<br />
'Menutup file<br />
Close #1<br />
SP = 552<br />
Label13.Caption = "Data11 : Respon pergerakan Crane dengan gangguan"<br />
DaTa1 = True<br />
Data2 = False<br />
dAta3 = False<br />
dATa4 = False<br />
DaTa5 = False<br />
DaTa6 = False<br />
DaTa7 = False<br />
DaTa8 = False<br />
DaTa9 = False<br />
DaTa10 = False<br />
DaTa11 = False<br />
bIgDaTa = 0<br />
Timer1.Enabled = True<br />
End If<br />
<br />
If DaTa10 = True And ReloAd = True Then<br />
<br />
List1.Clear<br />
tmptfile = App.Path & "\Data\Jarak 250cm Kp 80 Kd 70 sp552 beban 5Kg.txt"<br />
Open tmptfile For Input As #1<br />
'If tmptfile.EOF Then<br />
While Not EOF(1)<br />
Timer1.Enabled = False<br />
'membaca data<br />
Input #1, datatamu<br />
'Menampilkan data di listbox<br />
kalimat = datatamu<br />
List1.AddItem kalimat<br />
<br />
Wend<br />
'Menutup file<br />
Close #1<br />
SP = 552<br />
Label13.Caption = "Data10 : Respon pergerakan crane beban 5Kg"<br />
DaTa1 = False<br />
Data2 = False<br />
dAta3 = False<br />
dATa4 = False<br />
DaTa5 = False<br />
DaTa6 = False<br />
DaTa7 = False<br />
DaTa8 = False<br />
DaTa9 = False<br />
DaTa10 = False<br />
DaTa11 = True<br />
bIgDaTa = 0<br />
Timer1.Enabled = True<br />
End If<br />
<br />
If DaTa9 = True And ReloAd = True Then<br />
<br />
List1.Clear<br />
tmptfile = App.Path & "\Data\Respon data jarak 7000 kp 90 kd 80 beban 5Kg sudut awal 812.txt"<br />
Open tmptfile For Input As #1<br />
'If tmptfile.EOF Then<br />
While Not EOF(1)<br />
Timer1.Enabled = False<br />
'membaca data<br />
Input #1, datatamu<br />
'Menampilkan data di listbox<br />
kalimat = datatamu<br />
List1.AddItem kalimat<br />
<br />
Wend<br />
'Menutup file<br />
Close #1<br />
SP = 557<br />
Label13.Caption = "Data9 : Respon sudut Kp 90 Kd 80"<br />
DaTa1 = False<br />
Data2 = False<br />
dAta3 = False<br />
dATa4 = False<br />
DaTa5 = False<br />
DaTa6 = False<br />
DaTa7 = False<br />
DaTa8 = False<br />
DaTa9 = False<br />
DaTa10 = True<br />
DaTa11 = False<br />
bIgDaTa = 0<br />
Timer1.Enabled = True<br />
End If<br />
<br />
If DaTa8 = True And ReloAd = True Then<br />
<br />
List1.Clear<br />
tmptfile = App.Path & "\Data\Respon data jarak 7000 kp 90 kd 70 beban 5Kg sudut awal 812.txt"<br />
Open tmptfile For Input As #1<br />
'If tmptfile.EOF Then<br />
While Not EOF(1)<br />
Timer1.Enabled = False<br />
'membaca data<br />
Input #1, datatamu<br />
'Menampilkan data di listbox<br />
kalimat = datatamu<br />
List1.AddItem kalimat<br />
<br />
Wend<br />
'Menutup file<br />
Close #1<br />
SP = 557<br />
Label13.Caption = "Data8 : Respon sudut Kp 90 Kd 70"<br />
DaTa1 = False<br />
Data2 = False<br />
dAta3 = False<br />
dATa4 = False<br />
DaTa5 = False<br />
DaTa6 = False<br />
DaTa7 = False<br />
DaTa8 = False<br />
DaTa9 = True<br />
DaTa10 = False<br />
DaTa11 = False<br />
bIgDaTa = 0<br />
Timer1.Enabled = True<br />
End If<br />
<br />
If DaTa7 = True And ReloAd = True Then<br />
<br />
List1.Clear<br />
tmptfile = App.Path & "\Data\Respon data jarak 7000 kp 90 kd 60 beban 5Kg sudut awal 812.txt"<br />
Open tmptfile For Input As #1<br />
'If tmptfile.EOF Then<br />
While Not EOF(1)<br />
Timer1.Enabled = False<br />
'membaca data<br />
Input #1, datatamu<br />
'Menampilkan data di listbox<br />
kalimat = datatamu<br />
List1.AddItem kalimat<br />
<br />
Wend<br />
'Menutup file<br />
Close #1<br />
SP = 557<br />
Label13.Caption = "Data7 : Respon sudut Kp 90 Kd 60"<br />
DaTa1 = False<br />
Data2 = False<br />
dAta3 = False<br />
dATa4 = False<br />
DaTa5 = False<br />
DaTa6 = False<br />
DaTa7 = False<br />
DaTa8 = True<br />
DaTa9 = False<br />
DaTa10 = False<br />
DaTa11 = False<br />
bIgDaTa = 0<br />
Timer1.Enabled = True<br />
End If<br />
<br />
If DaTa6 = True And ReloAd = True Then<br />
<br />
List1.Clear<br />
tmptfile = App.Path & "\Data\Respon data jarak 7000 kp 80 kd 80 beban 5Kg sudut awal 812.txt"<br />
Open tmptfile For Input As #1<br />
'If tmptfile.EOF Then<br />
While Not EOF(1)<br />
Timer1.Enabled = False<br />
'membaca data<br />
Input #1, datatamu<br />
'Menampilkan data di listbox<br />
kalimat = datatamu<br />
List1.AddItem kalimat<br />
<br />
Wend<br />
'Menutup file<br />
Close #1<br />
SP = 557<br />
Label13.Caption = "Data6 : Respon sudut Kp 80 Kd 80"<br />
DaTa1 = False<br />
Data2 = False<br />
dAta3 = False<br />
dATa4 = False<br />
DaTa5 = False<br />
DaTa6 = False<br />
DaTa7 = True<br />
DaTa8 = False<br />
DaTa9 = False<br />
DaTa10 = False<br />
DaTa11 = False<br />
bIgDaTa = 0<br />
Timer1.Enabled = True<br />
End If<br />
<br />
If DaTa5 = True And ReloAd = True Then<br />
<br />
List1.Clear<br />
tmptfile = App.Path & "\Data\Respon data jarak 7000 kp 80 kd 70 beban 5Kg sudut awal 812.txt"<br />
Open tmptfile For Input As #1<br />
'If tmptfile.EOF Then<br />
While Not EOF(1)<br />
Timer1.Enabled = False<br />
'membaca data<br />
Input #1, datatamu<br />
'Menampilkan data di listbox<br />
kalimat = datatamu<br />
List1.AddItem kalimat<br />
<br />
Wend<br />
'Menutup file<br />
Close #1<br />
SP = 557<br />
Label13.Caption = "Data5 : Respon sudut Kp 80 Kd 70"<br />
DaTa1 = False<br />
Data2 = False<br />
dAta3 = False<br />
dATa4 = False<br />
DaTa5 = False<br />
DaTa6 = True<br />
DaTa7 = False<br />
DaTa8 = False<br />
DaTa9 = False<br />
DaTa10 = False<br />
DaTa11 = False<br />
bIgDaTa = 0<br />
Timer1.Enabled = True<br />
End If<br />
<br />
If dATa4 = True And ReloAd = True Then<br />
<br />
List1.Clear<br />
tmptfile = App.Path & "\Data\Respon data jarak 7000 kp 80 kd 60 beban 5Kg sudut awal 812.txt"<br />
Open tmptfile For Input As #1<br />
'If tmptfile.EOF Then<br />
While Not EOF(1)<br />
Timer1.Enabled = False<br />
'membaca data<br />
Input #1, datatamu<br />
'Menampilkan data di listbox<br />
kalimat = datatamu<br />
List1.AddItem kalimat<br />
<br />
Wend<br />
'Menutup file<br />
Close #1<br />
SP = 557<br />
Label13.Caption = "Data4 : Respon sudut Kp 80 Kd 60"<br />
DaTa1 = False<br />
Data2 = False<br />
dAta3 = False<br />
dATa4 = False<br />
DaTa5 = True<br />
DaTa6 = False<br />
DaTa7 = False<br />
DaTa8 = False<br />
DaTa9 = False<br />
DaTa10 = False<br />
DaTa11 = False<br />
bIgDaTa = 0<br />
Timer1.Enabled = True<br />
End If<br />
<br />
<br />
If dAta3 = True And ReloAd = True Then<br />
<br />
List1.Clear<br />
tmptfile = App.Path & "\Data\Respon data jarak 7000 kp 70 kd 80 beban 5Kg sudut awal 812.txt"<br />
Open tmptfile For Input As #1<br />
'If tmptfile.EOF Then<br />
While Not EOF(1)<br />
Timer1.Enabled = False<br />
'membaca data<br />
Input #1, datatamu<br />
'Menampilkan data di listbox<br />
kalimat = datatamu<br />
List1.AddItem kalimat<br />
<br />
Wend<br />
'Menutup file<br />
Close #1<br />
SP = 557<br />
Label13.Caption = "Data3 : Respon sudut Kp 70 Kd 80"<br />
DaTa1 = False<br />
Data2 = False<br />
dAta3 = False<br />
dATa4 = True<br />
DaTa5 = False<br />
DaTa6 = False<br />
DaTa7 = False<br />
DaTa8 = False<br />
DaTa9 = False<br />
DaTa10 = False<br />
DaTa11 = False<br />
bIgDaTa = 0<br />
Timer1.Enabled = True<br />
End If<br />
<br />
<br />
If Data2 = True And ReloAd = True Then<br />
<br />
List1.Clear<br />
tmptfile = App.Path & "\Data\Respon data jarak 7000 kp 70 kd 70 beban 5Kg sudut awal 812.txt"<br />
Open tmptfile For Input As #1<br />
'If tmptfile.EOF Then<br />
While Not EOF(1)<br />
Timer1.Enabled = False<br />
'membaca data<br />
Input #1, datatamu<br />
'Menampilkan data di listbox<br />
kalimat = datatamu<br />
List1.AddItem kalimat<br />
<br />
Wend<br />
'Menutup file<br />
Close #1<br />
SP = 557<br />
Label13.Caption = "Data2 : Respon sudut Kp 70 Kd 70 "<br />
DaTa1 = False<br />
Data2 = False<br />
dAta3 = True<br />
dATa4 = False<br />
DaTa5 = False<br />
DaTa6 = False<br />
DaTa7 = False<br />
DaTa8 = False<br />
DaTa9 = False<br />
DaTa10 = False<br />
DaTa11 = False<br />
bIgDaTa = 0<br />
Timer1.Enabled = True<br />
End If<br />
<br />
If DaTa1 = True And ReloAd = True Then<br />
<br />
List1.Clear<br />
tmptfile = App.Path & "\Data\Respon data jarak 7000 kp 70 kd 60 beban 5Kg sudut awal 812.txt"<br />
Open tmptfile For Input As #1<br />
'If tmptfile.EOF Then<br />
While Not EOF(1)<br />
Timer1.Enabled = False<br />
'membaca data<br />
Input #1, datatamu<br />
'Menampilkan data di listbox<br />
kalimat = datatamu<br />
List1.AddItem kalimat<br />
<br />
Wend<br />
'Menutup file<br />
Close #1<br />
SP = 557<br />
Label13.Caption = "Data1 : Respon sudut Kp 70 Kd 60"<br />
DaTa1 = False<br />
Data2 = True<br />
dAta3 = False<br />
dATa4 = False<br />
DaTa5 = False<br />
DaTa6 = False<br />
DaTa7 = False<br />
DaTa8 = False<br />
DaTa9 = False<br />
DaTa10 = False<br />
DaTa11 = False<br />
bIgDaTa = 0<br />
Timer1.Enabled = True<br />
End If<br />
<br />
End Sub<br />
<br />
hasilnya kurang lebih seperti video dibawah ini.<br />
<br />
<div class="separator" style="clear: both; text-align: center;">
<iframe allowfullscreen='allowfullscreen' webkitallowfullscreen='webkitallowfullscreen' mozallowfullscreen='mozallowfullscreen' width='320' height='266' src='https://www.youtube.com/embed/dBA1aPIJPzg?feature=player_embedded' frameborder='0'></iframe></div>
<br />
<br />
<br />
<br />
Demikian update saya untuk kali ini, mohon maaf jika ada banyak kekurangan. jika ada yang ingin ditanyakan silahkan hubungi saya.<br />
<br /></div>
<div style="text-align: justify;">
<br /></div>
<div style="text-align: justify;">
<br /></div>
Anonymoushttp://www.blogger.com/profile/15770591473098831090noreply@blogger.com5tag:blogger.com,1999:blog-1265132070847472015.post-65642584082095406522012-04-06T16:24:00.000+07:002018-08-31T21:43:49.911+07:00Komunikasi Serial Dengan VB 6.0<!DOCTYPE html><br />
<html><br />
<head><br />
<meta charset="utf-8"><br />
<meta http-equiv="X-UA-Compatible" content="IE=edge"><br />
<title>Hasil Join</title><br />
<link rel="stylesheet" href=""><br />
<style type="text/css" media="screen">
a[class|=me]:link , a[class|=me]:visited{ background-color: #f44336; color: white; padding: 5px 5px; text-align: center; text-decoration: none; display: inline-block; font-family: Arial, Helvetica, sans-serif; text-shadow: 2px 2px 3px green; box-shadow: 2px 2px 4px grey; }
a[class|=me]:hover, a[class|=me]:active{ background-color: lightgreen;}
</style><br />
</head><br />
<body><br />
<br />
<a class="me" href="http://zpag.es/9Veb" >Beranda</a><br />
<br />
<b>Pendahuluan</b> <br />
<br />
Untuk melengkapi Tugas Akhir, saya diminta untuk mengkomunikasikan hardware saya dengan Komputer, perangkat yang bisa digunakan untuk komnikasi ini yang saya ketahui adalah dengan menggunakan komunikasi serial. Pada artikel ini perangkat konputer yang digunakan adalah komputer jinjing yang tidak memiliki perangkat komunikasi serial seperti pada komputer duduk. Dengan demikian maka agar dapat komunikasi serial dapat digunakan maka diperlukan perangkat komunikasi tambahan, yaitu perangkat yang dapat menterjemahkan data dari serial ke USB yang dikenal dengan USB to Serial konverter. Perangkat USB to Serial Converter yang saya gunakan adalah prolific 2303. Kemudian hasil komunikasi ini dibaca oleh Visual Basic (VB), VB yang saya gunakan adalah VB 6.0 dengan OS Windows7 Ultimate.<br />
<br />
<a name='more'></a><br />
<br />
Pada project ini data serial dikirimkan oleh IC ATMega 16 melalui IC MAX232. Data yang dikirimkan adalah data yang belum dikuatkan dan data yang telah dikuatkan oleh IC LF351. IC LF 351 ini difungsikan untuk memaksimalkan tegangan yang dihasilkan oleh potensio menjadi tegangan yang sama dengan tegangan referensi pada ADC ATMega 16.<br />
<br />
<b>Tujuan</b><br />
<b><br />
</b> Tujuan Project ini adalah untuk menganimasikan pada Visual basic data sudut yang diterima oleh ADC pada ATMega 16, yang mana sensor yang digunakan untuk mengukur sudut adalah potensiometer. <br />
<br />
<b>Peralatan</b><br />
<br />
Peralatan yang dibutuhkan untuk project yang saya buat ini antaralain adalah :<br />
1. Komputer (saya menggunakan Komputer jinjing / Laptop).<br />
2. Minsis ATMega 16, dengan tambahan MAX232<br />
3. USB to Serial Converter<br />
4. Potensiometer Linear.<br />
5. Power Supply.<br />
6. Rangkaian Penguat menggunakan IC LF 351.<br />
<br />
<b>Prosedur</b><br />
<br />
<br />
Langkah yang perlu dilakukan pada project ini yaitu,<br />
<br />
1. Rangkai peralatan diatas sesui dengan blog diagram dibawah ini.<br />
<br />
<div class="separator" style="clear: both; text-align: center;"><a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEilzCCLiAFyM4sn8Kv7ZoN-iO7x8NYFP_UaM0qRjSQA3dWuID41Id9LYK1jKtsJirE3xvSsB3CyNPG_amH-9oXBE6VBl_EMNfzgb4Q6y_apKgIhhr332ymNo75eORIE7KW-aIL7eLf8aYzI/s1600/Serial.jpg" imageanchor="1" style="margin-left: 1em; margin-right: 1em;"><img border="0" height="202" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEilzCCLiAFyM4sn8Kv7ZoN-iO7x8NYFP_UaM0qRjSQA3dWuID41Id9LYK1jKtsJirE3xvSsB3CyNPG_amH-9oXBE6VBl_EMNfzgb4Q6y_apKgIhhr332ymNo75eORIE7KW-aIL7eLf8aYzI/s320/Serial.jpg" width="320" /></a></div>2. Setelah dihubungkan buat Project pada VB, Seperti pada gambar dibawah ini.<br />
<br />
<div class="separator" style="clear: both; text-align: center;"><a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEg-bUprkugEJZ8_LlPUZX0V8vAdyneVm5HjLNU-HWrtbk6H1FuYcVtxY4vjdaIQHNfGkFQrZR8kbVsZzQp9sbnM3OMb572n9Z2MHuDfciB0FPYcfV1FH3kNSXXTGrUbg3V6QAa47Q5G4xdo/s1600/Serial.jpg" imageanchor="1" style="margin-left: 1em; margin-right: 1em;"><img border="0" height="215" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEg-bUprkugEJZ8_LlPUZX0V8vAdyneVm5HjLNU-HWrtbk6H1FuYcVtxY4vjdaIQHNfGkFQrZR8kbVsZzQp9sbnM3OMb572n9Z2MHuDfciB0FPYcfV1FH3kNSXXTGrUbg3V6QAa47Q5G4xdo/s320/Serial.jpg" width="320" /></a></div><br />
3. Tambahkan Mictrosft Comm Control 6.0 (SP6) pada Components. Seperti pada gambar dibawah ini.<br />
<br />
<div class="separator" style="clear: both; text-align: center;"><a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEgfrISPdeL3suW9iPHaL6uX-NMox26jRwnwRTc2huWH5a956Vp31JeLK-S_LeVfT0xYTDZkiQAyly-fOsehKTApu36uLHkT2ow9ck_ZVJ_FLqeg89HQvauHynNLemGYSimxKrSmFhe-EKZ5/s1600/MScomm.jpg" imageanchor="1" style="margin-left: 1em; margin-right: 1em;"><img border="0" height="222" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEgfrISPdeL3suW9iPHaL6uX-NMox26jRwnwRTc2huWH5a956Vp31JeLK-S_LeVfT0xYTDZkiQAyly-fOsehKTApu36uLHkT2ow9ck_ZVJ_FLqeg89HQvauHynNLemGYSimxKrSmFhe-EKZ5/s400/MScomm.jpg" width="400" /></a></div><br />
Setelah MSComm control 6.0 di centang kemudian kllik apply, setelah muncul komponen seperti gambar yang telah dilingkari merah, kemudian klik Close.<br />
<br />
<br />
4. Tentukan Port komunikasi serial yang digunakan. Ini bisa dilakukan pada properties dari mscomm seperti pada gambar ddibawah ini.<br />
<br />
<div class="separator" style="clear: both; text-align: center;"><a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEghwEUDr82n3WQSIs41YqAApLDR0zZuLb2ZuX-HqMb2PMGo4ylC720M3lyXYPjob2BxvKrcDv8Z2UZ875rCcACAxGGPAcx9gYeBGuuBOl2dIMmQerdV3AJA1xIiQicI3xH962ggRD2hNXNI/s1600/comport.jpg" imageanchor="1" style="margin-left: 1em; margin-right: 1em;"><img border="0" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEghwEUDr82n3WQSIs41YqAApLDR0zZuLb2ZuX-HqMb2PMGo4ylC720M3lyXYPjob2BxvKrcDv8Z2UZ875rCcACAxGGPAcx9gYeBGuuBOl2dIMmQerdV3AJA1xIiQicI3xH962ggRD2hNXNI/s1600/comport.jpg" /></a></div><br />
5. Buka Port komunikasi serial. Untuk melakukan ini maka saya perlu menambahkan satu Command Button, dan membuka Portnya dari sini. Karena jika Portnya dibuka pada Form_Load() maka Laptop saya langsung Hang, Hardisknya langsung berhenti berputar, ditandai dengan matinya led indikator putaran hardisk. Programnya seperti sidabah ini.<br />
<br />
Private Sub Command1_Click()<br />
On Error Resume Next<br />
If Command1.Caption = "CONNECT" Then<br />
Command1.Caption = "DISCONNECT"<br />
Comm1.PortOpen = True<br />
Timer1.Enabled = True<br />
Label1.Caption = "Port Open"<br />
Else<br />
Command1.Caption = "CONNECT"<br />
Comm1.PortOpen = False<br />
Timer1.Enabled = False<br />
Label1.Caption = "Port Close"<br />
Shape1.BackColor = vbRed<br />
Label4 = 0<br />
Label5 = 0<br />
Label6 = 0<br />
End If<br />
<br />
End Sub<br />
<br />
6. Tentukan treshold data yang masuk. Untuk menentukan data treshold dapat diketahui dari data yang dikirimkan. Pada kasus ini saya mengirimkan 13 data, yaitu s<spasi>4data<spasi>4data<spasi>. Dengan demikian maka data yang dikirimkan sebanyak 13 data, yaitu satu karakter 's' 8data dan 3 spasi.</spasi></spasi></spasi><br />
<br />
7. Pisahkan data sesuai dengan yang dikirim. Caranya adalah dengan mengidentifiasi data yang ada di sebelah kiri kemudian identifikasi data setelahnya, dan masukkan data tersebut pada variabel yang diinginkan. Pemisahan ini dilakukan pada sub komunikasi oncomm, programnya adalah:<br />
<br />
Private Sub Comm1_OnComm()<br />
Dim datamasuk As String<br />
Dim kiri, head As String<br />
<br />
On Error Resume Next <br />
If Comm1.CommEvent = comEvReceive Then<br />
datamasuk = Comm1.Input<br />
Shape2.BackColor = vbGreen<br />
Else<br />
Shape2.BackColor = vbYellow<br />
End If<br />
<br />
Text1.Text = datamasuk<br />
Label9 = Comm1.InBufferCount<br />
<br />
kiri = datamasuk<br />
head = InStr(kiri, "s")<br />
If Left(kiri, 1) = "s" Then<br />
data1 = Mid(kiri, head + 2, 1)<br />
data2 = Mid(kiri, head + 3, 1)<br />
data3 = Mid(kiri, head + 4, 1)<br />
data4 = Mid(kiri, head + 5, 1)<br />
data5 = Mid(kiri, head + 7, 1)<br />
data6 = Mid(kiri, head + 8, 1)<br />
data7 = Mid(kiri, head + 9, 1)<br />
data8 = Mid(kiri, head + 10, 1)<br />
<br />
End If<br />
Label12.Caption = "data1 = " & data1<br />
Label13.Caption = "data2 = " & data2<br />
Label14.Caption = "data3 = " & data3<br />
Label15.Caption = "data4 = " & data4<br />
Label16.Caption = "data5 = " & data5<br />
Label17.Caption = "data6 = " & data6<br />
Label18.Caption = "data7 = " & data7<br />
Label19.Caption = "data8 = " & data8<br />
<br />
adc1 = data1 & data2 & data3 & data4<br />
adc2 = data5 & data6 & data7 & data8<br />
<br />
Text2.Text = "Data masuk = " & adc1 & " " & adc2<br />
End Sub<br />
<br />
8. Tampilkan data. Pada program diatas data telah ditampilkan pada teks2 dan pada label 12 hingga label 19<br />
<br />
9. Buat animasi untuk data yang telah diterima. Program untuk animasi ditempatkan pada sub timer. programnya adalah :<br />
<br />
Line1.X1 = 8300<br />
Line1.Y1 = 5100<br />
Line1.X2 = 8300 + (3500 * Sin(sudut1 / 180 * pi))<br />
Line1.Y2 = 5100 + (3500 * Cos(sudut1 / 180 * pi))<br />
<br />
Line2.X1 = 8300<br />
Line2.Y1 = 5100<br />
Line2.X2 = 8300 + (3500 * Sin(sudut2 / 180 * pi))<br />
Line2.Y2 = 5100 + (3500 * Cos(sudut2 / 180 * pi))<br />
<br />
Line 1 untuk data adc yang tidak dikuatkan, sedangkan line 2 untuk data adc yang telah dikuatkan.<br />
<br />
<b>Hasil Percobaan</b><br />
<b><br />
</b> Pada percobaan pertama, saya membuka Port komunikasi saat form load, dan hasilnya seperti yang telah saya utarakan diatas, Laptop saya menjadi Hang dan hardisknya berhenti berputar. Beberapa waktu kemudian saya bertanya pada teman saya Bachtiar, yang pernah melakukan project yang sama, namun dia menampilkan komunikasi dari QuadCopter. Kemudian saya mempelajari program yang telah dia buat dan berhasil membuka port, namun tidak ada data yang diterima. seperti pada Video dibawah ini.<br />
<br />
<div class="separator" style="clear: both; text-align: center;"><iframe allowfullscreen='allowfullscreen' webkitallowfullscreen='webkitallowfullscreen' mozallowfullscreen='mozallowfullscreen' width='320' height='266' src='https://www.youtube.com/embed/P7GNklJZzJQ?feature=player_embedded' frameborder='0'></iframe></div>Kemudian saya mencoba menulis kembali program yang sebelumnya dengan menghilangkan On Error Resume Next, dan membaca sumber-sumber lain. Kemudian Errornya hilang tapi data yang diterima tidak bisa dibaca, muncul error yang baru, yaitu error 8020, yang intinya error saat membaca piranti comm. seperti pada video dibawah ini. <div class="separator" style="clear: both; text-align: center;"><iframe allowfullscreen='allowfullscreen' webkitallowfullscreen='webkitallowfullscreen' mozallowfullscreen='mozallowfullscreen' width='320' height='266' src='https://www.youtube.com/embed/eGQG0FqrSUI?feature=player_embedded' frameborder='0'></iframe></div>Saya berpikiran mungkin cara membacanya yang salah, sehingga saya mengubah cara membacanya, seperti pada video dibawah ini, <div class="separator" style="clear: both; text-align: center;"><object class="BLOGGER-youtube-video" classid="clsid:D27CDB6E-AE6D-11cf-96B8-444553540000" codebase="http://download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#version=6,0,40,0" data-thumbnail-src="http://i.ytimg.com/vi/mn_w9UlBJA8/0.jpg" height="266" width="320"><param name="movie" value="https://www.youtube.com/v/mn_w9UlBJA8?version=3&f=user_uploads&c=google-webdrive-0&app=youtube_gdata"><param name="bgcolor" value="#FFFFFF" /><embed width="320" height="266" src="https://www.youtube.com/v/mn_w9UlBJA8?version=3&f=user_uploads&c=google-webdrive-0&app=youtube_gdata" type="application/x-shockwave-flash"></embed></object></div>Namun masih tetap error, kemudian saya membaca di <a class="me" href="http://answers.microsoft.com/en-us/windows/forum/windows_7-hardware/receive-runtime-error-8020-when-rs-232-usb-adaptor/ad670a83-6d3c-4f9d-8d4d-a1f5658558c4" target="_blank">Sini</a>, <a class="me" href="http://support.microsoft.com/kb/841700#appliesto" target="_blank">Sini</a>, <a class="me" href="http://support.microsoft.com/kb/318784" target="_blank">Sini</a> dan beberapa forum yang saya buka dari google dengan keyword "Run time error '8020' : Error reding comm device". Setelah membaca dari forum tersebut saya coba untuk mengupdate driver USB to Serial milik saya, saat itu drivernya versi 3.0 kemudian saya update ke versi 3.3 dan jadinya adalah sebagai berikut : <div class="separator" style="clear: both; text-align: center;"><iframe allowfullscreen='allowfullscreen' webkitallowfullscreen='webkitallowfullscreen' mozallowfullscreen='mozallowfullscreen' width='320' height='266' src='https://www.youtube.com/embed/tjeRWI0Jbqs?feature=player_embedded' frameborder='0'></iframe></div>Video diatas sudah lengkap dengan animasinya. Saya lupa untuk mendokumentasikan saat data pertama kali dapat dibaca, dan cara membacanya lebih <i>simple</i> dari contoh yang saya baca, cara untuk membaca datanya adalah : datamasuk = MSComm1.Input dan data masuk bertipe string. Pada video diatas saya juga telah memisahkan data yang diperoleh satu-persatu. Namun saat mellihat animasi saya merasa perlu untuk menambahkan nilai pada garis penanda (garis putus-putus) sehingga dapat diketahui posisi jarum berada pada posisi sudut berapa derajat. Garis berwarna merah adalah sudut dari data yang telah dikuatkan, dan garis berwarna biru adalah sudut dari data tanpa penguatan. Dibawah ini adalah Videonya. <div class="separator" style="clear: both; text-align: center;"><iframe allowfullscreen='allowfullscreen' webkitallowfullscreen='webkitallowfullscreen' mozallowfullscreen='mozallowfullscreen' width='320' height='266' src='https://www.youtube.com/embed/-72DpMY-xt4?feature=player_embedded' frameborder='0'></iframe></div>Pada Video diatas saya juga menambahkan Chart untuk data yang tidak dikuatkan. Dan penunjuk untuk mengetahui posisi jarum sekarang berada dimana. Demikian dari saya semoga bermanfaat. Jika ada pertanyaan atau anda tertarik untuk mempelajarinya silahkan komen atau silahkan kirimkan e-mail pada alamat e-mail saya diatas. Silahkan Download VBCodenya <span style=" font-size: x-large;"><b><a class="me" href="https://drive.google.com/file/d/0B8I8fm0kTiM9Znd0TzZTZ2hHQVFGWHZNM3RpMEJkSHBKRGk4/edit?usp=sharing" target="_blank"><i>Di Sini (Google Drive)</i></a></b></span> <br>Mohon maaf jika ada kekurangan. </body> </html>Anonymoushttp://www.blogger.com/profile/15770591473098831090noreply@blogger.com166tag:blogger.com,1999:blog-1265132070847472015.post-68297197143671241192012-02-03T03:03:00.001+07:002012-02-09T17:12:23.115+07:00Simulasi Pendulum Pada Visual Basic<div class="separator" style="clear: both; text-align: center;">
<a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEgMMRwUGC-kvN2jrOAqZASFYCO7vXNACTPKIsbRphrldZttPVqpnqzx3AYZP4P95oAB_RAUUdZl4o6p0jGZQ7peFO7LH1xzVhoJ670XXGITWaukAN4_tS3OFtrUOZW2C_BOIOUUZQXwh-UX/s1600/rumus+1.jpg" imageanchor="1" style="margin-left: 1em; margin-right: 1em;"><br /></a></div>
<a href="http://zpag.es/9Veb" target="_blank">Zpag</a><br />
Pendulum adalah sebuah benda dengan massa tertentu yang tergantung pada seuntas tali dengan panjang tertentu. Jika benda ini diankat sehingga membentuk sudut tertentu yang kita sebut sebagai sudut awal, yang dilambangkan dengan θ₀, kemudian dilepaskan, maka akan terjadi ayunan. Dimana perubahan sudut yang terjadi tiap satuan waktu adalah<br />
<div class="separator" style="clear: both; text-align: center;">
<a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEhQTBwcWit4eteBzgfRz2K1soE-1dLTesY5oMY4Zd9qk7YoYNumfaH9QQ9TOfEKDYSZMIYnwecp1QPNI71BQotqySsn1NJLWpURi90-Bl8w53wB3OXol7clWPcLkXPspfphDcd5HQ9NoMDT/s1600/rumus+1.jpg" imageanchor="1" style="margin-left: 1em; margin-right: 1em;"><img border="0" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEhQTBwcWit4eteBzgfRz2K1soE-1dLTesY5oMY4Zd9qk7YoYNumfaH9QQ9TOfEKDYSZMIYnwecp1QPNI71BQotqySsn1NJLWpURi90-Bl8w53wB3OXol7clWPcLkXPspfphDcd5HQ9NoMDT/s1600/rumus+1.jpg" /></a></div>
<a name='more'></a><table border="0" cellpadding="0" cellspacing="0" style="width: 171px;"><tbody>
<tr height="20"><td class="xl65" height="20" style="height: 15.0pt; width: 128pt;" width="171">dimana </td><td class="xl65" height="20" style="height: 15pt; width: 128pt;" width="171"><br /></td><td class="xl65" height="20" style="height: 15pt; width: 128pt;" width="171"><br /></td></tr>
</tbody></table>
g adalah gravitasi<br />
L adalah panjang tali<br />
<br />
Dari perubaha sudut maka juga akan didapatkan perubahan koordinat cartesian x dan y. Ini yang akan digunakan pada simulasi VB.<br />
<br />
Tapi jika hanya menggunakan rumus ini maka pertgerakan bandul tidak pernah berakhir (Endless). Nah agar bisa menjadi sedikit lebih nyata maka pasti ada faktor yang mempengaruhi yang membuat bandul akan berhenti pada satu waktu, nah fakto ini adalah faktor hambatan atau redaman, faktor ini membuat pergerakan bandul teredam dan lama-kelamaan akan berhenti.<br />
<br />
Setelah berkonsultasi dengan bapak Mariano, di <a href="http://zpag.es/9vWA" target="_blank">sini</a> dan beliau telah memberikan pencerahan pada saya sehingga saya bisa sedikit lebih memahami tentang fisika mengenai pendulum. Dari pak Mariano saya mendapatkan rumus :<br />
<br />
<div class="separator" style="clear: both; text-align: center;">
<a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEj7E9tFsNHofKu2Fzz-msD-8sPzsCPl_N-sYU9TkxJA1SLv-gtfL957yIBAbJpSlEeR1fDGCe5swL9n8M8R29ZJMaibKhMb4ESbB5h0R2gfOUfP7rvX9ESI02Qm9m685_hE7eA9LbaVPWr_/s1600/rumus+X.jpg" imageanchor="1" style="margin-left: 1em; margin-right: 1em;"><img border="0" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEj7E9tFsNHofKu2Fzz-msD-8sPzsCPl_N-sYU9TkxJA1SLv-gtfL957yIBAbJpSlEeR1fDGCe5swL9n8M8R29ZJMaibKhMb4ESbB5h0R2gfOUfP7rvX9ESI02Qm9m685_hE7eA9LbaVPWr_/s1600/rumus+X.jpg" /></a></div>
dimana<br />
<br />
x adalah perubahan nilai pada sumbu x terhadap waktu<br />
e adalah bilangan natural yang nilainya 2.718281828<br />
A adalah amplitudo<br />
π adalah sudut awal <br />
<br />
Menurut pak Mariano ini adalah Gerak Harmonis Teredam Lemah (GHT Lemah) dimana syaratnya adalah<br />
<div class="separator" style="clear: both; text-align: center;">
<a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEhFl45aYmk9XlR1m-G2Wy15yoPvvb3k8l59MzEEPKIVP7ZJnU6Sg60JoPYQ_NZQpJCRY7a_yQQ6Sjnl8ZHasq9R_SUPRPrVi87wA50PbY-syMDzNIAFB_ZzyziUE-9TB50P01dI_dNcXEtJ/s1600/syarat.jpg" imageanchor="1" style="margin-left: 1em; margin-right: 1em;"><img border="0" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEhFl45aYmk9XlR1m-G2Wy15yoPvvb3k8l59MzEEPKIVP7ZJnU6Sg60JoPYQ_NZQpJCRY7a_yQQ6Sjnl8ZHasq9R_SUPRPrVi87wA50PbY-syMDzNIAFB_ZzyziUE-9TB50P01dI_dNcXEtJ/s1600/syarat.jpg" /></a></div>
Syarat ini nantinya harus terpenuhi untuk mendapatkan GHT lemah. Dimana<br />
k adalah konstanta<br />
m adalah massa<br />
c adalah konstanta gesek <br />
<br />
Jika hanya mendapatkan keterangan seperti ini, seorang amatir seperti saya pasti bingung, nah bagi anda yang juga amatir seprti saya dibawah ini saya akan memberikan rumus lengkap untuk mendapatkan nilai-nilai yang dibutuhkan hingga programa untuk membuat aplikasinya di VB.<br />
<br />
Pertama anda harus mengetahui nilai apa yang sudah anda dapatkan. Pada kasus ini saya sudah mandapatkan nilai sudut awal, massa, gaya grafitasi dan panjang tali. Dari sini dapat kita cari nilai k dengan rumus<br />
<div class="separator" style="clear: both; text-align: center;">
<a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEjIC3mDmrRS8WDKRrXKUlcnvQaLqdGq-d0MqgnY-oIHi_xu7aa8f51AcxjN0HSx-L3DlaHu66LnB4zwbsrP6MQphfYUfWgt8OhRczNVfapucJfVFaI2FB6NSMPH2qomIX4iJFQlsmGg6lMv/s1600/rumus+k.jpg" imageanchor="1" style="margin-left: 1em; margin-right: 1em;"><img border="0" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEjIC3mDmrRS8WDKRrXKUlcnvQaLqdGq-d0MqgnY-oIHi_xu7aa8f51AcxjN0HSx-L3DlaHu66LnB4zwbsrP6MQphfYUfWgt8OhRczNVfapucJfVFaI2FB6NSMPH2qomIX4iJFQlsmGg6lMv/s1600/rumus+k.jpg" /></a></div>
Dimana L adalah panjang tali.<br />
<br />
<div class="separator" style="clear: both; text-align: center;">
</div>
Setalah mendapatkan nilai k maka nilai c bisa dicari sengan rumus <br />
<br />
<div class="separator" style="clear: both; text-align: center;">
<a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEgm9KPwyEeiaTvsDpC3CGeDdcfJL0TOsrIJz9zzOboJMHLY5iI4ClGhhgzLRVO-GlJaH9t2FO4cHwciPVGFvhABpOvVVCIQhCeId_S_zkQZcOrkJTPegzOFFsd015WiSwXObOu2IF3cZcKx/s1600/rumus+c.jpg" imageanchor="1" style="margin-left: 1em; margin-right: 1em;"><img border="0" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEgm9KPwyEeiaTvsDpC3CGeDdcfJL0TOsrIJz9zzOboJMHLY5iI4ClGhhgzLRVO-GlJaH9t2FO4cHwciPVGFvhABpOvVVCIQhCeId_S_zkQZcOrkJTPegzOFFsd015WiSwXObOu2IF3cZcKx/s1600/rumus+c.jpg" /></a></div>
dimana eta adalah nilai viskositas udara yaitu <img alt="" src="data:image/png;base64,iVBORw0KGgoAAAANSUhEUgAAAGgAAAAYCAIAAACZXC83AAABwElEQVRYhe2XwZXEIAiGrcuCrMdqrGNuc/A8dWQP6ggCjjjuri/P/+WSaBA+QBPzeL7ONXGZx/N1HSl1wE3qgJvUATepA25Se4OL3pokF/7bl0bbg9uOWNb24JZWXHDLandHcMEZY4yxPpYn0Vtw95XhVRXMgEtpFh3NYZneHFmM8VpWYlS0ZYMDRoIb8gW9860acMmF4K20BFg8yrN4scZB0CT+TqdWP6K3Y3W0lBvfqjKS6G11kngC3xNt4AHUPch6X2Vt0n2gITBx6G1q/fdUF2qOqmugE5hAlOCyY3klOqc87VhAQ3ieooaDYzsDFyIkirKcmKThzKfepGmfkqgGd3GbdzNobef9DjhFN5VqoSVfoiWk8GEj1Pm7gj/tAFpwtTWitzy8UpOCFlZcJNFVWmQPgIYHwF21V1mXdOAG4gzOWO875/7aPQ6jA9sSdIDYHQMnP7rGwAHnSEKERTqFTruzTNR8ZoFGxOcyY4DmQwWOTyfzOQJFswpntOXWYm3GWeOwTBRfC3Svr5ltFmACHwAHDXHZ3PHPYVrsUaPof41uBQ73WcIYfofbvcA1p8PC/wSqm4H7O2Vw55q4fgANhQrupKAU0gAAAABJRU5ErkJggg==" />. Nah setelah dari sini maka syarat dapat dihitung, apakah sudah terpenuhi atau belum. Kemudian untuk mencari nilai dari amplitudo dapat diketahui dengan rumus L sin π. Setelah amplitudo diketahui maka yang perlu dilakukan adalah mencari nilai gamma (γ) dan omega (ω). Gamma dapat dicari dengan rumus :<br />
<div class="separator" style="clear: both; text-align: center;">
<a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEh_PPUd6NbsaoxvDNoBYqWDWK6-JGL11SG_FTLX-Gh-Ry5ySwcqP5F3U9el-ondjCSBg31O3SOYENgG7IFLA37nD5ySEkKHv3C1lw0iaOVL28CKn7tessH-a8beZJW7So_TvzY7frzjMmXC/s1600/Rumus+gamma.jpg" imageanchor="1" style="margin-left: 1em; margin-right: 1em;"><img border="0" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEh_PPUd6NbsaoxvDNoBYqWDWK6-JGL11SG_FTLX-Gh-Ry5ySwcqP5F3U9el-ondjCSBg31O3SOYENgG7IFLA37nD5ySEkKHv3C1lw0iaOVL28CKn7tessH-a8beZJW7So_TvzY7frzjMmXC/s1600/Rumus+gamma.jpg" /></a></div>
Kemudian Omega dapat dicari dengan rumus :<br />
<div class="separator" style="clear: both; text-align: center;">
<a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEjCv4igrHNuWCiBrpI6C01Zy5fEGOeDhyphenhyphenSE-KSMRX1QVATbyvFiQZ3YoHpd0HitYb9iUQKMIeDSCJ1lfjBlmuYjmMUL_Iy8vM-mSf-UUXcG57DhtISz9OPWBXFmmH20y9GWSemcd69c1ipJ/s1600/omega.jpg" imageanchor="1" style="margin-left: 1em; margin-right: 1em;"><img border="0" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEjCv4igrHNuWCiBrpI6C01Zy5fEGOeDhyphenhyphenSE-KSMRX1QVATbyvFiQZ3YoHpd0HitYb9iUQKMIeDSCJ1lfjBlmuYjmMUL_Iy8vM-mSf-UUXcG57DhtISz9OPWBXFmmH20y9GWSemcd69c1ipJ/s1600/omega.jpg" /></a></div>
Nah, disini kita membutuhkan nilai omega nol, nilai omega nol didapat dengan rumus :<br />
<div class="separator" style="clear: both; text-align: center;">
<a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEgYdCRG8PZ86_eIn-VmgtXY09JTApK_F47RQEZW12g3iW79BQto687mUUOdZHJolZeGCj_vUijMEAFwnz6zYhCnXK0I32JL2AyAcEtRmXyGBnZoVaba_-rtjoSdM6Xa5QWLtTdy3gIzQAyV/s1600/omega+nol.jpg" imageanchor="1" style="margin-left: 1em; margin-right: 1em;"><img border="0" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEgYdCRG8PZ86_eIn-VmgtXY09JTApK_F47RQEZW12g3iW79BQto687mUUOdZHJolZeGCj_vUijMEAFwnz6zYhCnXK0I32JL2AyAcEtRmXyGBnZoVaba_-rtjoSdM6Xa5QWLtTdy3gIzQAyV/s1600/omega+nol.jpg" /></a></div>
Jadi, sekarang rumus kita sudah lengkap. Tapi sebenarnya ada satu masalah lagi, yaitu bagaimana mencari nilai perubahan pada sumbu y? Jawabannya adalah dengan menggunakan rumus segitiga siku-siku, yaitu :<br />
<div class="separator" style="clear: both; text-align: center;">
<a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEhsCthRA93HOOkFusym2zqnwoxmPm6Adpsmbq8fZy1o_OztEqLhco-V7mdIAL2qCfHFmvow5e_mtvhSuv1Q5zYZF2AOrQiMrP_lqb-3KIzrvRxZ6UTXNdN8WYHwHvv_4O1iIalDYd95HL4y/s1600/abc.jpg" imageanchor="1" style="margin-left: 1em; margin-right: 1em;"><img border="0" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEhsCthRA93HOOkFusym2zqnwoxmPm6Adpsmbq8fZy1o_OztEqLhco-V7mdIAL2qCfHFmvow5e_mtvhSuv1Q5zYZF2AOrQiMrP_lqb-3KIzrvRxZ6UTXNdN8WYHwHvv_4O1iIalDYd95HL4y/s1600/abc.jpg" /></a></div>
Kalo ga salah ya rumusnya gitu, nah dari rumus ini jika c adalah panjang tali, a dalah x, dan y adalah b, maka nilai y dapat dihitung. Setelah seian banyak rumus, apakah rumus θ(t) diatas tidak dapat digunakan? jawabannya masih, tapi ditambahkan faktor redaman, yaitu :<br />
<div class="separator" style="clear: both; text-align: center;">
<a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEgQdjldJ9EeWHB5IWyb675_0bUX3aQGJOIx5hMSSW8_O6lR7z2zhR3Nyr10zye4IpIocIlh1APVk7REv1JKtDsB6h1e971T__mQLQwtSlh_6yggp1UBbQ8dHdskxkdpsjeZdcfOBMFfI76Z/s1600/natural.jpg" imageanchor="1" style="margin-left: 1em; margin-right: 1em;"><img border="0" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEgQdjldJ9EeWHB5IWyb675_0bUX3aQGJOIx5hMSSW8_O6lR7z2zhR3Nyr10zye4IpIocIlh1APVk7REv1JKtDsB6h1e971T__mQLQwtSlh_6yggp1UBbQ8dHdskxkdpsjeZdcfOBMFfI76Z/s1600/natural.jpg" /></a></div>
Sehingga rumusnya menjadi <br />
<div class="separator" style="clear: both; text-align: center;">
<a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEjrxu4EInr1wxtQL39WaEx151d6zV8sGlIo0LinWnhPqCHeu2SH2JbYpPE5WhOOZAjCOfolAu7IGZqXATDUeSvsEFVMdnOaBVppRquP4NgVpy3QByxjEeWz6XXX8_s-vhQnEdNeuChO9xW7/s1600/teta+t.jpg" imageanchor="1" style="margin-left: 1em; margin-right: 1em;"><img border="0" height="34" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEjrxu4EInr1wxtQL39WaEx151d6zV8sGlIo0LinWnhPqCHeu2SH2JbYpPE5WhOOZAjCOfolAu7IGZqXATDUeSvsEFVMdnOaBVppRquP4NgVpy3QByxjEeWz6XXX8_s-vhQnEdNeuChO9xW7/s320/teta+t.jpg" width="320" /></a></div>
Nah, jadi, tingal pilih mau yang mana. Jika ada pertanyaan apakah antara rumus x dan rumus θ diatas berbeda, jawabannya adalah serupa tapi tak sama. Itu akan saya jelaskan di bagian lain halaman ini, sekarang kita buat dahulu animasinya, dari animasi ini anda nanti dapat menyimpulkan.<br />
<br />
Pertama, buatlah form seperti pada gambar dibawah ini.<br />
<div class="separator" style="clear: both; text-align: center;">
<a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEgU4ZHyhZER7LtaQjW2aocfZCA9AE5aGjJNh9vXThm0_FWiOSvqwY4luVHsbWwAxvgOKU3DFn9rx_pkA_-I4hSORhue2U9SBLTaD8wo4GnjKHZwPj6YA3mAt0DsR60fYUmlqN00fsjoK4iH/s1600/VB+form.jpg" imageanchor="1" style="margin-left: 1em; margin-right: 1em;"><img border="0" height="393" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEgU4ZHyhZER7LtaQjW2aocfZCA9AE5aGjJNh9vXThm0_FWiOSvqwY4luVHsbWwAxvgOKU3DFn9rx_pkA_-I4hSORhue2U9SBLTaD8wo4GnjKHZwPj6YA3mAt0DsR60fYUmlqN00fsjoK4iH/s640/VB+form.jpg" width="640" /></a></div>
<br />
<div class="separator" style="clear: both; text-align: center;">
<a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEgMMRwUGC-kvN2jrOAqZASFYCO7vXNACTPKIsbRphrldZttPVqpnqzx3AYZP4P95oAB_RAUUdZl4o6p0jGZQ7peFO7LH1xzVhoJ670XXGITWaukAN4_tS3OFtrUOZW2C_BOIOUUZQXwh-UX/s1600/rumus+1.jpg" style="margin-left: 1em; margin-right: 1em;"></a></div>
Properties yang digunakan adalah :<br />
12 Label, seperti yang terliahat pada gambar diatas, yang bertuliskan, massa, X, e, dll...<br />
Satu buah mschart untuk menunjukkan sudut(kalau mau lebih juga silahkan)<br />
Satu buah Vscroll untuk marubah panjang tali.<br />
Dua buah Hscroll untuk merubah massa dan sudut awal (π)<br />
Satu buah listbox untuk melihat perbedaan sudut <br />
Tiga buah shape, satu lingkaran besar, dan dua kotak kecil. Lingkaran digunakan untuk melihat secara visual pergerakan ujung pendulum, sedangkan kotak kecil sebagai penanda amplitudo maksimal.<br />
Enam buah Line, dua line untuk simuasi tali, dua buah line untuk simulasi perubahan kecepatan, dan sisanya untuk simulasi perubahan percepatan.<br />
Dan yang terakhir adalah satu buah timer.<br />
Dibawah ini adalah program yang saya buat.<br />
<br />
<div style="color: lime;">
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''</div>
<span style="color: lime;">'Deklarasi global</span><br />
<span style="color: blue;">Dim</span> massa <span style="color: blue;">As Integer</span><br /><span style="color: blue;">Dim </span>L <span style="color: blue;">As Double</span><br /><span style="color: blue;">Dim </span>gamma <span style="color: blue;">As Double</span><br /><span style="color: blue;">Dim</span> k <span style="color: blue;">As Double</span><br /><span style="color: blue;">Dim</span> gamma_kuadrat <span style="color: blue;">As Double</span><br /><span style="color: blue;">Dim</span> omega <span style="color: blue;">As Double</span><br /><span style="color: blue;">Dim</span> omega_nol_kuadrat <span style="color: blue;">As Double</span><br style="color: blue;" /><span style="color: blue;">Dim</span> c <span style="color: blue;">As Double</span><br style="color: blue;" /><span style="color: blue;">Dim</span> Amplitudo <span style="color: blue;">As Double</span><br style="color: blue;" /><span style="color: blue;">Dim</span> pi <span style="color: blue;">As Double</span><br style="color: blue;" /><span style="color: blue;">Dim</span> theta <span style="color: blue;">As Double</span><br style="color: blue;" /><span style="color: blue;">Dim</span> waktu <span style="color: blue;">As Double</span><br style="color: blue;" /><span style="color: blue;">Dim</span> syarat <span style="color: blue;">As Double</span><br style="color: blue;" /><span style="color: blue;">Const</span> eta <span style="color: blue;">As Double </span>= 1.8 * (10 ^ -1)<br /><span style="color: blue;">Const</span> grafitasi <span style="color: blue;">As Double</span> = 9.8<br /><span style="color: blue;">Dim</span> X As <span style="color: blue;">Double</span><br style="color: blue;" /><span style="color: blue;">Dim</span> Y As <span style="color: blue;">Double</span><br style="color: blue;" /><span style="color: blue;">Dim </span>posisiX <span style="color: blue;">As Double</span><br style="color: blue;" /><span style="color: blue;">Dim </span>posisi_sek <span style="color: blue;">As Double</span><br style="color: blue;" /><span style="color: blue;">Dim</span> posisi_sek1 <span style="color: blue;">As Double</span><br style="color: blue;" /><span style="color: blue;">Dim </span>posisi_seb <span style="color: blue;">As Double</span><br style="color: blue;" /><span style="color: blue;">Dim</span> posisi_seb1<span style="color: blue;"> As Double</span><br style="color: blue;" /><span style="color: blue;">Dim</span> kec As <span style="color: blue;">Double</span><br style="color: blue;" /><span style="color: blue;">Dim</span> kec1 As <span style="color: blue;">Double</span><br style="color: blue;" /><span style="color: blue;">Dim</span> kec_sek<span style="color: blue;"> As Double</span><br style="color: blue;" /><span style="color: blue;">Dim</span> kec_sek1 <span style="color: blue;">As Double</span><br style="color: blue;" /><span style="color: blue;">Dim</span> kec_seb <span style="color: blue;">As Double</span><br style="color: blue;" /><span style="color: blue;">Dim</span> kec_seb1<span style="color: blue;"> As Double</span><br style="color: blue;" /><span style="color: blue;">Dim</span> perc <span style="color: blue;">As Double</span><br style="color: blue;" /><span style="color: blue;">Dim</span> perc1 <span style="color: blue;">As Double</span><br /><span style="color: lime;">''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''</span><br />
<span style="color: lime;">'Private sub untuk form</span><br /><span style="color: blue;">Private Sub Form_Load()</span><br />VScroll1.Value = 200 <span style="color: lime;"> 'menentukan nilai awal panjang tali</span><br />HScroll1.Value = 90 <span style="color: lime;">'menentukan nilai awal pi</span><br />HScroll2.Value = 1000 <span style="color: lime;">'menentukan nilai awal massa (gr)</span><br /><span style="color: blue;">End Sub</span><br /><span style="color: lime;">'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''</span><br style="color: lime;" /><span style="color: lime;">'Private sub untuk timer</span><br /><span style="color: blue;">Private Sub Timer1_Timer()</span><br />
<div style="color: lime;">
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''</div>
<span style="color: lime;">'Deklarasi lokal</span><br /><span style="color: blue;">Dim</span> t <span style="color: blue;">As Double</span><br style="color: blue;" /><span style="color: blue;">Dim </span>d <span style="color: blue;">As Double</span><br style="color: blue;" /><span style="color: blue;">Dim</span> e <span style="color: blue;">As Double</span><br style="color: blue;" /><span style="color: blue;">Dim </span>sud <span style="color: blue;">As Double</span><br style="color: blue;" /><span style="color: blue;">Dim</span> sudut <span style="color: blue;">As Double</span><br style="color: blue;" /><span style="color: blue;">Dim</span> selisih <span style="color: blue;">As Double</span><br /><span style="color: lime;">''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''</span><br />pi = HScroll1.Value - 45 <span style="color: lime;"> 'menentukan nilai pi dari Hscroll1 </span> <br />Label4 = pi <span style="color: lime;">'menampilkan nilai pi pada label 4</span><br />L = VScroll1.Value * 20 <span style="color: lime;">'menentukan nilai L dari Vscroll1</span><br />Label3 = L <span style="color: lime;">'menampilkan nilai L pada label 3</span><br />massa = HScroll2.Value / 1000 <span style="color: lime;"> 'menentukan nilai massa dari Hscroll2</span><br />Label2 = massa <span style="color: lime;"> 'menampilkan nilai massa pada label 2</span><br />waktu = waktu + 1 <span style="color: lime;"> 'menentukan nilai t</span><br />k = massa * grafitasi / L <span style="color: lime;">'menghitung nilai k</span><br />c = k * eta <span style="color: lime;"> 'menghitung nilai c</span><br />syarat = (c ^ 2) - (4 * massa * k) <span style="color: lime;"> 'menghitung syarat</span><br />posisi_seb1 = posisi_sek1 <span style="color: lime;">'memasukkan nilai posisi_sek1 pada posisi_seb1</span><br /><span style="color: blue;">If </span>syarat < 0 <span style="color: blue;">Then </span> <span style="color: lime;"> 'memasukkan syarat GHT Lemah</span><br />gamma = c / (2 * massa) <span style="color: lime;"> 'menghitung nilai gamma</span><br />omega_nol_kuadrat = k / massa <span style="color: lime;"> 'menghitung nilai omega nol</span><br />gamma_kuadrat = gamma ^ 2 <span style="color: lime;"> 'menghitung nilai gamma kuadrat (mempermudah mengingat)</span><br />omega = Sqr(omega_nol_kuadrat - gamma_kuadrat) <span style="color: lime;">'menghitung nilai omega</span><br />Amplitudo = L * Sin(pi / 180 * 3.141592654) <span style="color: lime;">'menghitung nilai amplitudo</span><br />X = Exp(-gamma * waktu) * Amplitudo * Cos((omega * waktu) - (pi / 180 * 3.141592654))<span style="color: lime;">'menghitung x</span><br />Y = Sqr((L ^ 2) - (X ^ 2)) <span style="color: lime;"> 'menghitung Y</span><br />theta = Exp(-gamma * waktu) * pi * Cos(Sqr(9.8 / L) * waktu) <span style="color: lime;"> 'menghitung nilai θ</span><br /><span style="color: blue;">End If</span><br /><br />kec_seb1 = kec_sek1 <span style="color: lime;"> 'memasukkan nilai kec_sek1 pada kec_seb1</span><br />posisi_sek1 = X <span style="color: lime;"> 'memasukkan nilai X pada posisi_sek1</span><br />kec1 = posisi_seb1 - posisi_sek1 <span style="color: lime;">'menghitung nilai kecepatan1</span><br />Label9 = kec1 <span style="color: lime;"> 'memasukkan nilai kec1 pada label 9</span><br />kec_sek1 = kec1 <span style="color: lime;">'memasukkan nilai kec1 pada kec_sek_1</span><br />perc1 = kec_seb1 - kec_sek1 <span style="color: lime;"> 'menghitung nilai percepatan1</span><br />Label10 = perc1 <span style="color: lime;"> 'menampilakan nilai perc1 pada label 10</span><br /><br />d = Line1.X1 - Line1.X2 <span style="color: lime;"> 'menghitung nilai selisih sumbu X</span><br />e = Line1.Y1 - Line1.Y2 <span style="color: lime;"> 'menghitung nilai selisih sumbu Y</span><br /><span style="color: blue;">If </span>e <> 0 <span style="color: blue;">Then </span> <span style="color: lime;"> 'menghindari nilai pembagi nol</span><br />t = d / e <span style="color: lime;">' menghitung nilai t</span><br /><span style="color: blue;">End If</span><br />sud = Atn(t) * 180 / 3.141592654 <span style="color: lime;"> 'mengubah nilai t menjadi nilai sudut</span><br />Label1 = theta <span style="color: lime;"> 'menampilkan nilai sudut theta pada label 1</span><br /><br />Line1.X2 = 4340 + (4000 * Sin(theta / 180 * 3.141592654)) <span style="color: lime;"> 'nilai X dan Y pada animasi line 1</span><br />Line1.Y2 = 4000 + (4000 * Cos(theta / 180 * 3.141592654)) <span style="color: lime;"> ' (θ)</span><br /><br />posisi_seb = posisi_sek <br />posisiX = 4000 * Sin(theta / 180 * 3.141592654) <span style="color: lime;"> 'menghitung nilai posisi X dari theta</span><br />kec_seb = kec_sek<br />posisi_sek = posisiX<br />kec = posisi_seb - posisi_sek<br />Label11 = kec<br />kec_sek = kec<br />perc = kec_seb - kec_sek<br />Label12 = perc<br /><br />Shape2.Left = 4290 + (4000 * Sin(pi / 180 * 3.141592654)) <span style="color: lime;"> '</span><br />Shape2.Top = 3950 + (4000 * Cos(pi / 180 * 3.141592654)) <span style="color: lime;">'animasi nilai amplitudo</span><br />Shape3.Left = 4290 + (4000 * Sin((pi - pi * 2) / 180 * 3.141592654)) <span style="color: lime;">' maksimal</span><br />Shape3.Top = 3950 + (4000 * Cos(pi / 180 * 3.141592654)) <span style="color: lime;"> '</span><br /><br />sudut = Atn(X / Y) * 180 / 3.141592654 <span style="color: lime;"> 'menghitung nilai sudut dari X dan Y</span><br />List1.AddItem sud <span style="color: lime;"> 'memasukkan nilia sud pada list1</span><br />List1.AddItem sudut <span style="color: lime;"> 'memasukkan nilai sudut pada list1</span><br />Label7 = sudut<br />selisih = Abs(sud) - Abs(sudut) <span style="color: lime;">'menghitung nilai selisih dari sudut dan sud</span><br /><br />Line3.X1 = Line1.X2 <span style="color: lime;"> '</span><br />Line3.X2 = Line3.X1 - (kec * 10) <span style="color: lime;"> ' Animasi kecepatan</span><br />Line3.Y1 = Line1.Y2 <span style="color: lime;">'</span><br />Line3.Y2 = Line3.Y1 <span style="color: lime;">'</span><br /><br />Line4.X1 = Line2.X2 <span style="color: lime;">'</span><br />Line4.X2 = Line4.X1 - (kec1 * 10) <span style="color: lime;">' Animasi kecepatan</span><br />Line4.Y1 = Line2.Y2 <span style="color: lime;">'</span><br />Line4.Y2 = Line4.Y1 <span style="color: lime;">'</span><br /><br />Line5.X1 = 4340 + (3500 * Sin(theta / 180 * 3.141592654)) <span style="color: yellow;"> <span style="color: lime;">'</span></span><br />Line5.X2 = Line5.X1 + (perc * 100) <span style="color: lime;">'Animasi percepatan</span><br />Line5.Y1 = 4000 + (3500 * Cos(theta / 180 * 3.141592654)) <span style="color: lime;"> '</span><br />Line5.Y2 = Line5.Y1 <span style="color: lime;"> '</span><br /><br />Line6.X1 = 4340 + (3500 * Sin(sudut / 180 * 3.141592654)) <span style="color: lime;">'</span><br />Line6.X2 = Line6.X1 + (perc1 * 100) <span style="color: lime;">'Animasi percepatan</span><br />Line6.Y1 = 4000 + (3500 * Cos(sudut / 180 * 3.141592654)) <span style="color: lime;"> '</span><br />Line6.Y2 = Line6.Y1 <span style="color: lime;">'</span><br /><br />Line2.X1 = Line1.X1 <span style="color: lime;"> ' </span> <br />Line2.X2 = 4300 + X <span style="color: lime;"> ' Animasi pada line 2 (rumus x)</span><br />Line2.Y1 = Line1.Y1 <span style="color: lime;"> '</span><br />Line2.Y2 = 4000 + Y <span style="color: lime;"> ' </span><br /><br />Label8 = selisih<br />Label5 = X<br />Label6 = Exp(-gamma * waktu)<br />MSChart1.data = sudut<br /><br /><span style="color: blue;">End Sub</span><br /><br />
<br />
Dibawah ini adalah video hasilnya.<br />
<br />
<div class="separator" style="clear: both; text-align: center;">
<br /><iframe allowfullscreen='allowfullscreen' webkitallowfullscreen='webkitallowfullscreen' mozallowfullscreen='mozallowfullscreen' width='320' height='266' src='https://www.youtube.com/embed/ekbyFWij6Lw?feature=player_embedded' frameborder='0'></iframe></div>
<br />
Pada video diatas, pada list box dapat dilihat, nilai paling atas adalah nol, sedangkan nilai kedua adalah 31.6xxx kemudian nilai ketiga adalah 44.929xxx. Dua nilai teratas adalah nilai sudut pada t=0, sedangkan nilai ketiga adalah pada saat t=1. Dari sini terlihat perbedaan kedua rumus ini.<br />
<br />
Sekian dulu pembahasan dari saya, jika anda merasa bingung atau program yang saya buat kurang baik, saya dengan senang hati menerima kritik dan saran. Mohon maaf saya tidak menerima kritik yang tidak disertai saran.<br />
<br />
Maaf kalau vidoenya berkedip, Komputer saya tidak punya VGA external...<br />
Terima Kasih.<br />
<br />
<br />Anonymoushttp://www.blogger.com/profile/15770591473098831090noreply@blogger.com6tag:blogger.com,1999:blog-1265132070847472015.post-51719129875364869732012-01-06T21:27:00.000+07:002012-01-22T21:15:29.364+07:00Integrated Circuit LM2576<a href="http://zpag.es/9Veb">Beranda</a><br />
LM2576 / LM2575 adalah IC regulator tegangan monolitik yang meemberikan semua fungsi aktif untuk sebuah step-down switching regulator. National Semiconductor mengklaim bahwa IC ini mampu meggerakan beban hingga 3A dengan batasan yang sangat baik. Sedangkan tipe tegangan keluaran dari regulator ada dua jenis, yaitu fixed dan adjustable. Tipe fixed beberapa diantaranya adalah 3.3V, 5V, 12V, dan 15V. IC ini memerlukan komponen external, untuk tipe fixed komponen yang dibutuhkan adalah 2 capaditor polar, satu induktor, dan satu diode schottky. sedangkan untuk tipe adjustable selain komponen diatas juga diperlukan 2 buah resistor sebagai pembagi tegangan. IC ini memiliki kompensasi frekuensi internal dan sebuah osilator frekuensi tetap. Dibawah ini adalah gambar rangkaiannya.<br />
<a name='more'></a><br />
<div class="separator" style="clear: both; text-align: center;">
<a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEih6qMgLQZjjf35-WOOsqSYWux_rCqJ65AMvAZzzP5BrsiSazbqv1SUCN2zbIEjTBKijzZfJ8_m5JczX5QGhDlwj3LqraQY6mYHZ-LAy2FPcuPBPM1lm36pcre5Xh87EwDQ8PWR3xTAP3Ej/s1600/LM2576+fixed.jpg" imageanchor="1" style="margin-left: 1em; margin-right: 1em;"><img border="0" height="141" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEih6qMgLQZjjf35-WOOsqSYWux_rCqJ65AMvAZzzP5BrsiSazbqv1SUCN2zbIEjTBKijzZfJ8_m5JczX5QGhDlwj3LqraQY6mYHZ-LAy2FPcuPBPM1lm36pcre5Xh87EwDQ8PWR3xTAP3Ej/s320/LM2576+fixed.jpg" width="320" /></a></div>
<div class="separator" style="clear: both; text-align: center;">
<a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEjaHofxMDLhn5tqKIr5JWH9z9ZdFGbAs6AR6Q3JjcYivSWIiZ7Qhc138HC7oY1MkmnST3E00vtIA38MSrN_r575WQ4WFTzFWMBExEZiwNEr-Ma5gAM3qNMWzuOsuunzwETSIfEK645Ggeft/s1600/Lm+2576+adjust.jpg" imageanchor="1" style="margin-left: 1em; margin-right: 1em;"><img border="0" height="133" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEjaHofxMDLhn5tqKIr5JWH9z9ZdFGbAs6AR6Q3JjcYivSWIiZ7Qhc138HC7oY1MkmnST3E00vtIA38MSrN_r575WQ4WFTzFWMBExEZiwNEr-Ma5gAM3qNMWzuOsuunzwETSIfEK645Ggeft/s320/Lm+2576+adjust.jpg" width="320" /></a></div>
Nilai untuk komponen-komponen diatas adalah :<br />
CIN — 100 μF, 75V, Aluminum Electrolytic<br />
COUT — 1000 μF, 25V, Aluminum Electrolytic<br />
D1 — Schottky, MBR360<br />
L1 — 100 μH, Pulse Eng. PE-92108<br />
R1 — 2k, 0.1%<br />
R2 — 6.12k, 0.1% <br />
<br />
Cara untuk mencari Vout untuk tipe adjustable adalah sebagai berikut;<br />
<div class="separator" style="clear: both; text-align: center;">
<a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEj8_17QkQnFb_xUF1V4D-M_rF0spG507BNWMkTYdw6FKcxnIPUji7HlgXB0xnNYVAE-1qzR_mmHr_d7x93qPi11PQ_JiqQqYIIqbVJ0Ja4udv96imb0MGTmmYIdBvuQiF_rnhF0RFdjlZwL/s1600/rumus.jpg" imageanchor="1" style="margin-left: 1em; margin-right: 1em;"><img border="0" height="138" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEj8_17QkQnFb_xUF1V4D-M_rF0spG507BNWMkTYdw6FKcxnIPUji7HlgXB0xnNYVAE-1qzR_mmHr_d7x93qPi11PQ_JiqQqYIIqbVJ0Ja4udv96imb0MGTmmYIdBvuQiF_rnhF0RFdjlZwL/s200/rumus.jpg" width="200" /></a></div>
Rangkaian untuk tipe LM2575 sama dengan 2576, hanya komponen externalnya memiliki nilai yang berbeda, perbedaannya diantaranya adalah Cout 330 μF, 25V, Aluminum Electrolytic, L bernilai 330μH, diode dapat diganti dengan tipe yang memiliki beban maksimal 1A, hal ini dikarenakan arus yang mengalir pada IC tipe 2575 adalah 1A. Sedangkan untuk nilai resistor disesuikan dengan kebutuhan.<br />
<br />
IC seri 2576 menawarkan penggantian dengan efisiensi tinggi dari regulator tiga terminal yang populer. Secara substansial yang dikurangi adalah mengurangi uuran dari heat sink, dan pada kasus tertentu heat sin tidak dibutuhkan. Seri standar dari induktor yang akan digunakan pada LM2576 tersedia dari beberapa perusahaan yang berbeda. Fitur ini sangat mempermudah desain dari power supply mode switch.<br />
<br />
Fitur yang lain adalah garansi tolesansi sebesar ±4% pada tegangan keluaran pada tegangan input tertentu dan kondisi dari beban, serta ±10% garansi pada frekuensi oscillator.<br />
<br />
Meskipun IC ini jika dilihat pada datasheet sangat sediit memiliki kekurangan, dan kinerjanya memang lebih baik dari IC tiga kaki, namun anda harus berhati-hati pada pemilihan induktor, sebab ini akan mempengaruhi referensi pada IC dan akibatnya output yang terjadi akan tidak sessuai dengan yang diharapkan.<br />
<br />
<div style="color: black;">
<span style="background-color: #cfe2f3;">Selamat Mencoba.</span></div>
<div style="color: black;">
<br /></div>
<br />
<br />Anonymoushttp://www.blogger.com/profile/15770591473098831090noreply@blogger.com2Jalan Rungkut Kidul 3, Surabaya, Indonesia-7.32952302641018 112.76495933532715-7.33739752641018 112.75508883532714 -7.32164852641018 112.77482983532715tag:blogger.com,1999:blog-1265132070847472015.post-64817206720489631972012-01-06T14:05:00.000+07:002012-01-09T13:45:19.990+07:00Mencoba menampilkaan link dari youtubeIni adalah posting yang saya tujukan untuk mencoba menampilkan link dari youtube, maklum umur blog ini sudah satu tahun, tapi editornya belum bisa benar-benar menguasai dan perlu banyak belajar.<br />
<div class="separator" style="clear: both; text-align: center;">
<iframe allowfullscreen='allowfullscreen' webkitallowfullscreen='webkitallowfullscreen' mozallowfullscreen='mozallowfullscreen' width='320' height='266' src='https://www.youtube.com/embed/H79QNsWtNWE?feature=player_embedded' frameborder='0'></iframe></div>
Link ini adalah video dari seorang anak yang bernama arina, dia sedang bermain bersama ayah dan ibunya. kemudian setelah bercakap-cakap tentang beberapa hal dan juga bermain dengan ibu dan ayahnya, ibunya meminta untuk dibuatkan kopi (pura-pura tentunya), kemudian setelah kopinya jadi, arina meminum kopinya dan melenguh layakya orang dewasa yang baru saja menikmati kopi dan melepaskan beban yang dialaminya.Anonymoushttp://www.blogger.com/profile/15770591473098831090noreply@blogger.com0tag:blogger.com,1999:blog-1265132070847472015.post-23361451084368610162010-04-26T12:39:00.000+07:002012-01-09T13:45:51.350+07:00AA Gym tentang MLM“…Sesungguhnya Allah tidak merubah keadaan sesuatu kaum sehingga mereka merubah keadaannya yang ada pada diri mereka sendiri.”<br />
<br />
MLM boleh saja berasal dari barat. Namun, dalam praktek dan implementasinya, bisnis ini penuh nuansa Islam, baik silaturahmi, tolong menolong dan tawakal dalam merubah nasib.<br />
<a name='more'></a><br />
<br />
Islam, sebagai agama rahmatan lil alamin, tidak melulu mengatur hubungan antara manusia dengan pencipta-Nya (hablum minallah). Melainkan hubungan antara manusia dan sesamanya (hablum minannas). Kedua hal tersebut tak dapat dipisahkan. Lebih-lebih dalam menjalankan tugasnya sebagai khalifah untuk memakmurkan bumi, suatu tugas yangt ak dapat diemban oleh malaikat, hamba Allah yang paling taat menjalankan perintah-Nya.<br />
<br />
Dalam melaksanakan kekhalifaannya itu, Ilahi menyiapkan beberapa perangkat kepada manusia, sesuatu yang tak diberikan sempurna kepada mahluk lainnya, seperti akal, nafsu, naluri, budi, ilmu dan agama. Karena itu, manusia merupakan mahluk paling sempurna diantara mahluk ciptaan-Nya. Dan perangkat-perangkat tadi digunakan, setelah manusia menjalankan shalat (hablum minallah), seperti diamanatkan dalam Al Qur’an surat Al Jumu’ah, ayat 62: Apabila telah ditunaikan shalat, maka bertebaranlah kami di muka bumi; dan carilah karunia Allah dan ingatlah Allah sebanyak-banyaknya supaya kamu beruntung. Carilah karunia Allah pada ayat tersebut – banyak menyebut kewajiban manusia untuk bekerja dan berusaha – bukan semata-mata uang. Kata K.H Abdullah Gymnastiar, dalam tulisannya di Republika, rubrik Taushiyah, alat ukur keuntungan dalam berbisnis atau bekerja itu ada lima.<br />
<br />
Pertama, keuntungan amal shaleh.<br />
<br />
Kedua, keuntungan membangun nama baik.<br />
<br />
Ketiga, keuntungan menambah ilmu, pengalaman dan wawasan.<br />
<br />
Keempat, keuntungan membangun tali silahturahmi atau relasi yang baik.<br />
<br />
Kelima, keuntungan yang tidak sekadar mendapatkan manfaat bagi diri sendiri, melainkan bagi banyak orang dan memuaskan orang lain.<br />
<br />
Ternyata, dari lima alat ukur itu, semua terakomodir dalam bisnis MLM. Misalnya, keuntungan membangun relasi dan silaturahmi, merupakan hal pokok dalam bisnis MLM. Sebab, dalam bisnis MLM, dibangun atas dasar dua prinsip: menjual dan mensponsori orang lain ke dalam bisnis ini.<br />
<br />
Kedua hal tersebut, hanya dapat dilakukan dengan melakukan silaturahmi (dalam MLM disebut home sharing, home meeting). Dalam silaturahmi itu, pelaku bisnis ini mempresentasikan tentang keunggulan produk maupun peluang bisnisnya untuk menjadi jutawan.<br />
<br />
Silaturahmi, dalam bisnis MLM, dianjurkan dari orang-orang terdekat dahulu, seperti anggota keluarga dan sahabat. Kepada merekalah, kunjungan dilakukan untuk memperkenalkan bisnis ini. Lalu, dilanjutkan dalam aspek yang lebih luas, tetangga, relasi, maupun kenalan-kenalan baru.<br />
<br />
Lagi-lagi dalam perspektif Islam, silaturahmi dan menjual, juga dianjurkan. Silaturahmi dalam hadis nabi yang diriwayatkan oleh Bukahri, “Siapa yang ingin murah rezekinya dan panjang umurnya maka hendaklah ia mempererat hubungan silaturahmi”. Begitupun saat ditanya oleh sahabatnya tentang usaha yang terbaik, Rasullah menjawab: kerja dengan seseorang dan semua jual beli yang mabrur. Kebetulan, sebelum diangkat menjadi rasul, profesi nabi adalah berdagang yang dilakukannya sejak usia 12 tahun.<br />
<br />
Dalam berdagang, nabi dikenal jujur, sehingga dijuluki Al Amin (orang yang daoat dipercaya). Kejujuran nabi dalam berdagang –samapai ke negeri Sjam – membuat investornya konglomerat Siti Khadijah, jatuh cinta. Keduanya menikah dalam usia yang terpaut jauh: Siti Khadijah berusia 40 tahun, sedang nabi 25 tahun.<br />
<br />
Setelah berhasil mensponsori, maka peran upline selaku “orang tua” kepada downline dilakukan. Layaknya orang tua, upline memberikan pengarahan, bimbingan dan mengajarkan tentang seluk beluk bisnis ini. Ataupun mengikuti training dan pelatihan yang dilakukan perusahaan maupun para leader, yang dalam Islam, dikenal Taushyiah (saling berbuat kebaikan) Dalam kegiatan ini, seperti dikatakan oleh Aaa Gym – demikian sebutan akrab K.H Abdullah Gymnastiar – diperoleh keuntungan menambah ilmu, pengetahuan dan wawasan.<br />
<br />
Katanya, jika punya banyak uang, tapi tidak berilmu, sebentar saja uang itu bisa hangus. Tidak sedikit orang punya uang, tetapi tidak memiliki banyak pengalaman, sehingga mereka mudah tertipu. “Sebaliknya, misalkan uang kita habis dirampok, kalau kita memiliki ilmu, kita bisa mencarinya lagi dengan mudah,” demikian cuplikan dari surat kabar.<br />
<br />
Jadi, bagaimana pandangan anda? <br />
<br />
<br />
<br />
<br />
<br />
<br />
<br />
<br />
<br />
<br />
<br />
<span class="Apple-style-span" style="border-collapse: separate; color: black; font-family: 'Times New Roman'; font-size: medium; font-style: normal; font-variant: normal; font-weight: normal; letter-spacing: normal; line-height: normal; orphans: 2; text-indent: 0px; text-transform: none; white-space: normal; widows: 2; word-spacing: 0px;"><span class="Apple-style-span" style="font-family: Georgia; font-size: 13px; line-height: 15px;"><span class="Apple-converted-space">sumber : </span><a href="http://totalwellness.blogsome.com/2006/08/06/aa-gym-tentang-mlm/" rel="nofollow" style="color: #1e66ae; line-height: 1.22em;" target="_blank">http://totalwellnes s.blogsome. com/2006/ 08/06/aa- gym-tentang- mlm/</a></span></span>Anonymoushttp://www.blogger.com/profile/15770591473098831090noreply@blogger.com0tag:blogger.com,1999:blog-1265132070847472015.post-38925871978027641512010-02-01T01:16:00.001+07:002012-01-09T13:46:06.782+07:00Berpikir dan berjiwa besar : Pendahuluan<div style="text-align: justify;">
Mengapa perlu ada diskusi skala penuh tentang <i>Mukjizat Berpikir Besar?</i> puluhan ribu artikel terbit hari ini, bahkan jutaan di bulan ini. Mengapa perlu satu lagi?</div>
<div style="text-align: justify;">
Izinkan saya memberi latar belakang.</div>
<div style="text-align: justify;">
babrapa tahun yang lalu dalam sebuah rapat penjualan yang sangat mengesankan, Direktur yang bertanggung jawab atas penjualan di perusahaan tersebut sangat bergairah. Ia ingin menyampaikan suatu hal penting. Di sampingnya adalah wiraniaga terkemuka didalam organisasi tersebut, orang yang menghasilkan sedikit kurang dari 50.000 pounds pada tahun yang baru saja berakhir. Pendapatan para wiraniaga yang lain rata-rata sekitar 10.000 pounds setahun.</div>
<a name='more'></a><br />
<div style="text-align: justify;">
Sang direktur menantang rapat tersebut. Inilah yang ia katakan. "saya ingin kalian semua memperhatikan Harry baik-baik, dan tanyakan kepada diri kialian sendiri apa yang Harry miliki dan tidak kalian punyai. Harry mendapatkan lima kali lebih banyak dari rata-rata, tetapi apakah Harry lebih cerdik lima kali lipat dari kalian? Tidak, tidak demikian menurut tes personalia kami. saya sudah mengeceknya. Hasil tes memperlihatkan bahwa ia hanya berkemampuan rata-rata di departemen itu.</div>
<div style="text-align: justify;">
"Dan apakah Harry bekerja lima kali labih keras dibandingkan kalia semua? Tidak, tidak demikian menurut laporan yang saya terima. Sesungguhnya ia mempunyai lebih banyak waktu luang dibandingkan sebagian besar dari kalian.</div>
<div style="text-align: justify;">
"Apakah Harry mempunyai wilayah yang lebih baik? Kembali jawabannya tidak. Laporannya rata-rata sama. Apakah Harry berpendidikan lebih tinggi? Kesehatan lebih baik? Tidak. Harry kira-kira sama dengan rata-rata orang pada umumnya-kecuali satu hal.<br />
"Perbedaan di antara Harry dan kalian semua adalah Harry BERPIKIR lima kali lebih BESAR."</div>
<div style="text-align: justify;">
direktur tersebut kemudian melanjutkan memperlihatkan <b>keberhasilan yang ditentukan bukan oleh besarnya otak seseorang, melainkan <i>oleh besarnya cara berpikir seseorang.</i></b></div>
<div style="text-align: justify;">
Ini dalah gagasan yang membangkitkan minat, dan pikiran ini tertanam dalam benak saya. semakin diselidiki apa sebenarnya yang ada di balik keberhasilan, semakin jelas jawabannya. Riwayat kasus demi kasus membuktikan bahwa besarnya rekening bank, besarnya rekening kebahagiaan seseorang, dan bsesarnya rekening kepuasan umum seseorang, ditentukan oleh <i>besarnya cara berpikir seseorang.</i> <b>Ada mukjizat dalam berpikir besar.</b></div>
<div style="text-align: justify;">
"Jika <b> </b>Berpikir Besar menghsilkan begitu banyak mengapa tidak semua orang berpikir seperti itu?" Itu adalah pertanyaan yang sering diajukan banyak orang. Dan inilah jawabannya. <b>Kita semua, lebih dari yang kita sadari, adalah produk dari cara cara berpikir di sekeliling kita. dan kebanyakan dari cara berpikir ini adalah kecil, tidak besar</b>. Semua di sekeliling kita adalah lingkingan yang berusaha menarik anda ke bawah ke keadaan sedang-sedang saja. Anda diberitahu hampir setiap hari bahwa ada banyak peluang bagi pekerja, tetapi sedikit kesempatan untuk masuk ke tingkat atas. Jadi mengapa berusaha keras mendapaatakan lowongan yang tidak ada?</div>
<div style="text-align: justify;">
Lingkungan kecil ini mengatakan hal-hal lainpula bahwa "apapun yang akan terjadi terjadilah," bahwa takdir anda berada diluar kendali anda. bahwa "nasib" menguasai diri anda sepenuhnya. Jadi, lupakan mimpi-mimpi itu, lupakan rumah yang indah itu, lupakan pendidikan khusus yang anda rencanakan untuk anak-anak anda, lupakan kehidupan yang lebih baik. Mundurlah. Berbaringlah dan nantikan apa yang datang kepada anda.</div>
<div style="text-align: justify;">
Dan siapa yang belum pernah mendengar pernyataan bahwa "Keberhasilan tidak pernah sepadan dengan harga yang harus Anda bayar untuk itu," seolah anda harus mengorbankan segalanya-jiwa anda, kehidupan keluarga anda,, hati nurani anda, nilai-nilai yang anda anut-untuk mencapai puncak. Sebenarnya, keberhasilan tidak </div>Anonymoushttp://www.blogger.com/profile/15770591473098831090noreply@blogger.com0tag:blogger.com,1999:blog-1265132070847472015.post-20569741409068653782010-01-28T09:20:00.001+07:002012-01-09T13:46:34.252+07:00Seorang Ibu itu Bersama yang Ia CintaiOleh : asy-Syaikh Abdurrahman bin Nashir as-Sa’di rohimahulloh<br />
<br />
Dari Abu Musa al-Asy’ari rodhiyallohu anhu, ia berkata: Rasulullah shollallohu alaihi wa sallam bersabda:<br />
<br />
المَرْءُ مَعَ مَنْ أَحَبَّ<br />
<br />
“Seseorang itu bersama orang yang ia cintai.” [Muttafaqun alaihi]<br />
<a name='more'></a><br />
<br />
Dalam hadits ini terdapat anjuran untuk menguatkan cinta kepada para Rasul dan ittiba’ kepada mereka sesuai dengan tingkatan-tingkatannya, serta tahdzir (peringatan) dari cinta kepada musuh mereka. Karena sesungguhnya cinta (al-Mahabbah) merupakan tanda kuatnya hubungan antara orang yang mencintai dengan yang dicintai, dan kesesuaiannya dengan akhlak orang yang dicintai serta tanda bahwa ia mengikuti orang yang dicintainya itu. Yang demikian merupakan tanda adanya al-Mahabbah dan merupakan pembangkit al-Mahabbah.<br />
<br />
Dan juga, barangsiapa yang mencintai Alloh ta’ala maka rasa cintanya tersebut merupakan sebesar-besar hal yang mendekatkan dirinya kepada Alloh. Karena sesungguhnya Alloh ta’ala Maha Mensyukuri, Dia membalas orang yang mendekatkan diri kepada-Nya lebih besar -dengan balasan yang belipat ganda- daripada yang dilakukan orang tersebut. Dan termasuk syukur Alloh ta’ala adalah : mempertemukannya dengan orang yang dicintainya, walaupun amalan orang yang mencintai itu sedikit. Alloh berfirman :<br />
<br />
وَمَن يُطِعِ اللّهَ وَالرَّسُولَ فَأُوْلَـئِكَ مَعَ الَّذِينَ أَنْعَمَ اللّهُ عَلَيْهِم مِّنَ النَّبِيِّينَ وَالصِّدِّيقِينَ وَالشُّهَدَاء وَالصَّالِحِينَ وَحَسُنَ أُولَـئِكَ رَفِيقًا<br />
<br />
“Barangsiapa menta’ati Alloh dan Rasul, maka mereka bersama orang-orang yang telah Alloh beri nikmat kepada mereka dari para Nabi, para orang yang Shiddiq, para Syuhada’ dan orang-orang sholeh, dan mereka adalah sebaik-baik teman.” [QS an-Nisa : 69]<br />
<br />
Oleh karena itu Anas berkata :<br />
<br />
مَا فَرِحْنَا بِشَيءٍ فَرِحْنَا بِقَولِهِ صلى الله عليه وسلم : ” المَرْءُ مَعَ مَنْ أَحَبَّ. قَالَ: فَأَنَا أَحَبَّ رَسُولُ اللهِ صلى الله عليه وسلم، وَأَبَا بَكَرٍ، وَعُمَرَ، فَأَرْجُوْ أَنْ أَكُوْنَ مَعَهُمْ<br />
<br />
“Kami tidak pernah bergembira sebagaimana gembiranya kami dengan sabda beliau shollallohu alaihi wa sallam : “seseorang itu bersama orang yang ia cintai”, Anas berkata : “Aku mencintai Rasulullah shollallohu alaihi wa sallam, Abu Bakar dan Umar. Dan aku berharap dapat bersama mereka.” [1]<br />
<br />
Dan Alloh berfirman :<br />
<br />
جَنَّاتُ عَدْنٍ يَدْخُلُونَهَا وَمَنْ صَلَحَ مِنْ آبَائِهِمْ وَأَزْوَاجِهِمْ وَذُرِّيَّاتِهِمْ<br />
<br />
“Surga ‘Adn yang mereka masuk ke dalamnya bersama-sama dengan orang-orang yang sholeh dari bapak-bapaknya, isteri-isterinya dan anak cucunya, sedang malaikat-malaikat masuk ke tempat-tempat mereka dari semua pintu.” [QS. ar-Ro'du : 23]<br />
<br />
Dan Alloh berfirman :<br />
<br />
وَالَّذِينَ آمَنُوا وَاتَّبَعَتْهُمْ ذُرِّيَّتُهُم بِإِيمَانٍ أَلْحَقْنَا بِهِمْ ذُرِّيَّتَهُمْ وَمَا أَلَتْنَاهُم مِّنْ عَمَلِهِم مِّن شَيْءٍ<br />
<br />
“Dan orang-orang yang beriman, dan yang anak cucu mereka mengikuti mereka dalam keimanan, Kami hubungkan anak cucu mereka dengan mereka, dan Kami tiada mengurangi sedikitpun dari pahala amal mereka.” [QS. ath-Thur : 21]<br />
<br />
Dan ini merupakan kenyataan, jika seseorang mencintai orang-orang yang baik, engkau melihat ia termasuk golongan mereka, ia bersemangat untuk menjadi seperti mereka. Dan jika seseorang mencintai orang-orang yang buruk amalnya, ia termasuk golongan mereka, dan ia beramal seperti amalan mereka.<br />
<br />
Rosululloh shollallohu alaihi wa sallam bersabda :<br />
<br />
الْمَرْءُ عَلَى دِينِ خَلِيلِهِ فَلْيَنْظُرْ أَحَدُكُمْ مَنْ يُخَالِلْ<br />
<br />
”(Agama) seseorang itu sesuai dengan agama teman dekatnya, maka perhatikanlah dengan siapa kalian berteman dekat.” [2]<br />
<br />
ومثل الجليس الصالح، كحامل المسك: إما أن يَحْذيك وإما أن يبيعك، وإما أن تجد منه رائحة طيبة، ومثل الجليس السوء كنافخ الكِيْر: إما أن يحرق ثيابك، وإما أن تجد منه رائحة خبيثة<br />
<br />
“Permisalan teman duduk yang baik/ sholeh seperti pembawa misk, mungkin ia akan memberimu, atau menjualnya kepadamu atau mungkin engkau akan mendapati darinya bau yang wangi. Dan permisalan teman duduk yang buruk seperti peniup bara api, mungkin ia akan membakar pakaianmu dan mungkin engkau akan mendapati darinya bau yang tidak sedap.” [3]<br />
<br />
Dan jika ini adalah dalam cinta antara sesama makhluk, maka bagaimana dengan orang yang cinta kepada Alloh dan mendahulukan cinta dan takutnya di atas segala sesuatu? Sesunguhnya ia bersama Alloh, dan telah menghasilkan pendekatan yang sempurna dari-Nya. Yaitu kedekatan orang yang saling mencintai, dan Alloh bersamanya. Maka :<br />
<br />
إِنَّ اللّهَ مَعَ الَّذِينَ اتَّقَواْ وَّالَّذِينَ هُم مُّحْسِنُونَ<br />
<br />
“Sesungguhnya Alloh bersama orang-orang yang bertakwa dan orang-orang yang berbuat kebaikan.” [4]<br />
<br />
Dan macam-macam kebaikan yang paling tinggi adalah kecintaan kepada Ar-Rohim Al-Karim Ar-Rohman dengan cinta yang disertai dengan pengetahuan tentang-Nya.<br />
<br />
Maka kita memohon kepada Alloh agar memberi rizki kepada kita berupa kecintaan kepada-Nya dan kepada orang yang mencintainya serta kecintaan kepada amal yang bisa mendekatkan untuk cinta kepada-Nya. Sesungguhnya Alloh Maha Dermawan (الجواد) dan Maha Pemurah (الكريم). Dan Taufiq hanya milik Alloh semata.<br />
<br />
***<br />
<br />
[Diterjemahkan dari kitab Syarh Jawami'il Akhbar karya asy-Syaikh Abdurrahman bin Nashir as-Sa'di, hadits ke-84, sumber : http://sahab.org. Catatan kaki oleh Abu Hammad]<br />
<br />
——————————-<br />
<br />
Catatan Kaki :<br />
<br />
[1] HR. al-Bukhori (3485), Muslim (2639), Ahmad (13395), Abd bin Humaid dalam Musnad-nya (1336) dan Ibnu Mandah dalam Kitabul Iman (1/439).<br />
<br />
[2] HR. Ahmad (8398), Abu Dawud (4833), at-Tirmidzi (2378), Ahmad (8389), al-Hakim (7319), ath-Thoyalisi (2573), al-Baihaqi dalam Syu’abul Iman (9436, 9438, ), Abu Nu’aim dalam al-Hilyah (3/165), Ishaq bin Rohawaih dalam Musnad-nya (351), Abd bin Humaid dalam Musnad-nya (1431), dll.<br />
<br />
[3] Kami belum menemukan hadits ini dengan lafadz ini -Wallahu A’lam-, akan tetapi banyak riwayat-riwayat lain yang semakna dengan lafadz ini, seperti :<br />
<br />
مَثَلُ الْجَلِيسِ الصَّالِحِ وَالسَّوْءِ كَحَامِلِ الْمِسْكِ وَنَافِخِ الْكِيرِ فَحَامِلُ الْمِسْكِ إِمَّا أَنْ يُحْذِيَكَ وَإِمَّا أَنْ تَبْتَاعَ مِنْهُ وَإِمَّا أَنْ تَجِدَ مِنْهُ رِيحًا طَيِّبَةً وَنَافِخُ الْكِيرِ إِمَّا أَنْ يُحْرِقَ ثِيَابَكَ وَإِمَّا أَنْ تَجِدَ رِيحًا خَبِيثَةً<br />
<br />
“Permisalan teman duduk yang sholeh dan teman duduk yang buruk adalah seperti pembawa misk (sejenis minyak wangi, pent) dan peniup bara api. Orang yang membawa misk, mungkin ia akan memberimu (misk) atau engkau membeli darinya atau engkau akan mendapatkan darinya bau wangi. Adapun peniup bara api, mungkin ia akan membakar bajumu atau engkau akan mendapatkan bau yang tidak sedap.”<br />
<br />
[HR. al-Bukhori (5214), Muslim (2628), dll]<br />
<br />
[4] QS an-Nahl : 128.<br />
<br />
*** <br />
<br />
diposting ulang dari ummushilah.0fees.net.Anonymoushttp://www.blogger.com/profile/15770591473098831090noreply@blogger.com0tag:blogger.com,1999:blog-1265132070847472015.post-41543165232749053322010-01-27T21:11:00.000+07:002012-01-09T13:46:50.656+07:007 Quick Ideas Anybody Can Use to Make Beautiful Scrapbooks1. Vellum<br />
<br />
Vellum is a transparent, translucent material. Vellum can be used to create a slight shadow or shade change to background or embellishment colors. This can be used as a softening agent for baby scrapbooks, as a touch of elegance to gift scrapbooks, or to create dimension in a boring flat page.<br />
<a name='more'></a><br />
<br />
To reduce the cloudiness effect caused by gluing, apply only a thin line of glue along the edges of the vellum. In this way, you will see a slight shadow only along the very edge. This will look like a border to the vellum. Vellum is available in both acidic and non acidic forms.<br />
<br />
2. Shadow Boxes<br />
<br />
A great way to add depth to your scrapbook page is to add shadow boxes. Basically shadow boxes add a shadow to your images. Shadow boxes are also a great way to make your most important photographs or text boxes stand out form the rest of the page. Shadow boxes can also be to emphasis dedications.<br />
<br />
To make a shadow box, simply cut a box shape out of paper. Next, put your embellishment on a larger square of cardstock. Then, add glue to all four sides of the cardstock square and attach it to the back of your paper. The embellishment will show through, adding greater dimension to your page.<br />
<br />
3. Patterned Paper<br />
<br />
Patterned paper can be used for backgrounds, borders, and embellishments. Often plain white backgrounds look rather boring and dull. Patterned backgrounds add a touch of excitement to your page. The right pattern tailored to your theme and purpose can also increase that professional look.<br />
<br />
Colors and patterns can be used to coordinate with your photographs or to add dramatic effects. Paper with various themes and patterns is widely available. For instance, a birthday scrapbook could have a background made of your favorite gift wrap. This could add a touch of elegance or a touch of humor depending upon the patterned paper you choose.<br />
<br />
4. Textured Paper<br />
<br />
Textured paper can add extra dimension to your scrapbooking page. Textured paper can be used to highlight focus items on your scrapbook page. Textured paper can also be used as a backgrounds or border to give your page an interesting fresh look.<br />
<br />
Textured paper is available in a variety of textures and colors and is available in most craft and office supply stores.<br />
<br />
5. Book Jacket Backgrounds<br />
<br />
For an added personal touch and artist flair use a book jacket as a background. This scrapbook technique looks especially nice when the book jacket is the reader's favorite book or author, adding a wonderful personalized touch.<br />
<br />
Be aware, however, that the glossy coating on the book jacket creates an added challenge to sticking objects to this background. Alternative attachment methods include sewing and eyelets.<br />
<br />
6. Adding Dimension<br />
<br />
One good way to add dimension to images is to use double stick foam tape. Double stick foam tape literally allows items to pop out at your reader adding realism to items. This technique is especially useful in children's art and educational scrapbooks.<br />
<br />
Simply, cut the foam tape into whatever shape and size you want. Then, attach to shape onto your scrapbook page. Double stick foam tape is available at most craft stores in various colors and thicknesses.<br />
<br />
7. Ribbons and Lace<br />
<br />
Ribbon and lace are by far the most common, and most beautiful, border embellishment. The flowing nature of both materials encourages a touch of softness and elegance. Ribbon and lace are especially popular in gift and memory scrapbooks.<br />
<br />
Moreover, ribbon is easy to glue and attach. Lace requires a bit more patience.<br />
<br />
For an interesting change from ribbon and lace, try using jute or raffia.Anonymoushttp://www.blogger.com/profile/15770591473098831090noreply@blogger.com2tag:blogger.com,1999:blog-1265132070847472015.post-89633521880525949162010-01-22T18:52:00.000+07:002012-01-09T13:47:10.593+07:00Link1. Copy Paste from {Start Copy Here} to {End Copy Here}<br />
2. Please Link Back to the person who tagged you and PASS this tag to many of your friends.<br />
3. If you have more the one Blog, please post this to all of your Blogs, the more the merrier<br />
4. The use of NO FOLLOW on links is not allowed, Let's all be fair!<br />
5. Remember to come back here at JENNY TALKS (pls don't change this link) and leave the exact post url so i can add you to the master list to help increase our rankings and improve our Technorati Authority<br />
6. Spread the Virus.. oooooops i mean the VIRAL LINKING and happy blogging<br />
<a name='more'></a><br />
<a href="http://jennysaidso.com/">#1. Scraps & Shots</a> <a href="http://jennyscorner.bravejournal.com/">#2. Simply Jen</a> <a href="http://thisandthat-online.com/">3. This and That </a>4.<a href="http://bargainsalesdeals.com/"> Fab & Chic Finds</a> <a href="http://jennys-corner.com/">5.A Slice of Life</a> 6. <a href="http://jennytalks.com/">Jenny Talks</a> 7.<a href="http://techstuffplus.com/">Tech Stuff Plus</a> <a href="http://recipesforpinoys.blogspot.com/">8. Food on the Table</a> 9. <a href="http://aussietalks.com/">Aussie Talks </a>10. <a href="http://whenmomtalks.com/">When Mom Talks</a> 11. <a href="http://racelyn.com/">Moments of My Life </a>12. <a href="http://my-crossroad.com/">My Crossroads</a> 13. <a href="http://alifeinbloom.blogspot.com/">A Life in Bloom</a> 14. <a href="http://becauselifeisablessing.com/">Because Life is a Blessing</a> 15. <a href="http://digiscraptology.com/">Digiscraptology</a> 16. <a href="http://www.blogsilog.com/">BLOGSILOG</a> 14.<a href="http://www.mycomfyzone.com/">Cherry's Comfort Zone</a> 15. <a href="http://www.digitalscrapz.com/">DigiScrapz: Captured Memories</a> 16. <a href="http://www.buzzyme.com/">Buzzy Me</a> 17. <a href="http://www.fabfinds.info/">Fab Finds, Etc.</a> 18. <a href="http://chikai.bravejournal.com/">Thinking Out Loud</a> 19. <a href="http://blogsilog.i.ph/">Wishing and Hoping</a> 20. <a href="http://prc-exam-results.blogspot.com/">PRC Board Exam Results</a> 21. <a href="http://jobs4abroad.blogspot.com/">Jobs Abroad</a> 22. <a href="http://www.myblogportfolio.com/">My Blog Portfolio</a>17.<a href="http://www.racecorner.bravejournal.com/">Race Corner</a> 18. <a href="http://www.mbaviso.com/aggie">Mommy Talks.</a> 19. <a href="http://www.mbaviso.com/homeandhealth">Home and Health</a> 20.<a href="http://www.aggiedil.blogspot.com/"> All Kinds of Me Stuff</a> 21. <a href="http://www.inkbabystudios.com/">Ink Baby Studios</a> 22.<a href="http://thesaladcaper.com/">The Salad Caper</a> 23. <a href="http://windingcreekcircle.com/">Winding Creek Circle</a> 24. <a href="http://www.aggietha.com/">Aggie Scraps</a> 25. <a href="http://www.mommastuff.com/">Momma Stuff </a>26. <a href="http://www.nicemorning.net/">We Are Family</a> 27.<a href="http://www.gandacious.com/">Gandacious</a> 28. <a href="http://www.busynessworld.com/">Busynessworld</a> 29. <a href="http://www.folcreative.com/">Folcreative</a> 30. <a href="http://www.swanportraits.com/">Swanportraits</a> 31. <a href="http://www.gandacious.blogspot.com/">Rumination Under The Clouds</a> 32.<a href="http://www.consciouslythink.com/">Consciously Think</a> 33. <a href="http://www.sprawt.com/">Sprawt</a> 34. <a href="http://www.healthyskinny.com/">Healthy Skinny</a> 35. <a href="http://www.geekyology.com/">Geekyology</a> 36. <a href="http://whenmomspeaks.com/">When Mom Speaks</a> 37. <a href="http://rhedge.com/">Rumination</a>38. <a href="http://www.amy200686.blogspot.com/">Amiable Amy</a> 39. <a href="http://www.silayin.com/">Captured on Time</a> 40. <a href="http://tinytuts.org/">Pit of Gadgetry</a> 41. <a href="http://yennygirl.com/">Me and Mine</a> 42. <a href="http://littlepeanut.info/">Little Peanut</a> 43. <a href="http://funkyandcreative.com/">Creative in Me</a> 44. <a href="http://freshaircabin.com/">Around the world</a> 45. <a href="http://ourpeainapod.blogspot.com/">Pea in a Pod</a> 46. <a href="http://notablebistro.com/">For the LOVE of Food</a> 47. <a href="http://soundfell.com/">Music of My Heart</a> 48. <a href="http://greenenvelope.org/">It’s Where the Heart Is</a> 49. <a href="http://blogintospace.com/">Blog in to Space</a> 50. <a href="http://www.arcskyline.com/caryl">A Mothers Horizon</a> 51. <a href="http://www.caryl2twenty.info/">Simply me</a> 52. <a href="http://whatsupcaryl.blogspot.com/">Whats Up</a> 53. <a href="http://comedyplus.blogspot.com/">Comedy Plus</a> 54.<a href="http://shey27.blogspot.com/">Lovin' Life</a> 55.<a href="http://www.ozzysmom.com/">Ozzy's Mom</a> 56. <a href="http://applecandie.us/">Apple and Candie</a> 57. <a href="http://www.lostinlove.org/">I was once lost in love</a> 58. <a href="http://pinayl0ve.com/">Pinay in Love</a> 59. <a href="http://pausbigthoughts.blogspot.com/">Pau's Big Thoughts</a> 60. <a href="http://twisted-angel.info/">Twisted Angel</a> 61. <a href="http://brainbitsandbeats.blogspot.com/">Hailey's Beat and Bits</a> 62. <a href="http://treschicmoi.blogspot.com/">Living A' La Mode</a> 63. <a href="http://swittreats.blogspot.com/">Bits and Pieces</a> 64. <a href="http://honeyanddaisy.wordpress.com/">Honey and Daisy</a> 65. <a href="http://www.pinayads.com/">Pinay Ads</a> 66. <a href="http://king-kay.blogspot.com/">Great Kingkay</a> 66. <a href="http://www.itisnaptime.com/">It's Naptime</a> 67.<a href="http://lisgold.com/"> Lisgold</a> 68. <a href="http://signesays.com/">Signe Says</a> 69. <a href="http://www.thomasweblinks.us/">Thomas Web Links</a> 70. <a href="http://www.thomastraveltales.com/">Thomas Travel Tales</a> 71. <a href="http://www.nitascorner.info/">Nita's Corner</a> 72. <a href="http://www.greatfindsanddeals.com/">Great Finds and Deals</a> 73. <a href="http://nita76.bravejournal.com/">Nita's Ramblings</a> 74.<a href="http://www.batuananons.info/">Batuananons</a> 75. <a href="http://www.filonlinecommunity.info/">Filipino Online Community</a> 76. <a href="http://www.healthylivingandlifestyle.com/">Healthy Living and Lifestyle</a> 77. <a href="http://www.comptechgadgets.com/">CompTechGadgets</a> 78.<a href="http://www.nitasrandomthoughts.info/">Nita's Random Thoughts</a> 79. <a href="http://wathomejobs.com/">Make Money Online</a> 80. <a href="http://www.erlindascorner.info/">Erlinda's Wandering Thoughts</a> 81. <a href="http://kittys-haven.info/">Kitty's haven</a> 82.<a href="http://mommykitty.blogspot.com/">This and That </a><a href="http://shoppaholic-girly.blogspot.com/">83. Shoppaholic girly</a> 84. <a href="http://zedruol.blogspot.com/">My Life in this Wonderful World</a> 85. <a href="http://www.dez-myonlineworld.com/">My Online World</a> 86. <a href="http://sunshineleneforlife.com/">Joys in Life</a> 87. <a href="http://journeyinlife.i.ph/">Journey in Life</a> 88. <a href="http://teremyblog.blogspot.com/">Tere's World</a> 89. <a href="http://www.iamjean.com/">Jean's Live it Up</a> 90. <a href="http://muzikistah.com/">Muzikistah</a> 91. <a href="http://maharot.net/">Maharot</a> 92. <a href="http://nicklelove.com/">SUPASTAH!</a>93.<a href="http://wanderlustlass.blogspot.com/">Life is a constant journey</a> 94.<a href="http://www.kittykat1981.com/">Amazingly Me</a> 70. <a href="http://www.fashionistaako.blogspot.com/">Treeennndddzzz</a> 96. <a href="http://otwarte.info/">otwarteInfo’s</a> 98. <a href="http://adventuresage.com/">AdventureSage</a> 99.<a href="http://indtrib.com/"> in-Tech Revolution</a> 100. <a href="http://lovingmore.info/">LovingMore </a>101.<a href="http://www.frommelissasdesk.com/"> From Melissa's Desk </a>102. <a href="http://denzrecreational.info/">denz Recreationa</a>l 103. <a href="http://ncifap.com/">Network of Combined Ideas</a> 104. <a href="http://shelterednotshattered.blogspot.com/">Sheltered Not Shattered</a> 105. <a href="http://mommyingonthefly.blogspot.com/">Mommying on the Fly </a>106. <a href="http://ddarlys26.blogspot.com/">Me, Myself and Darly</a> 107. <a href="http://www.sahmsue.com/">Stay at Home Mom</a> 108. <a href="http://sweetdaisy.blogspot.com/">Harmony in Motion</a> 109. <a href="http://www.epervalencia.com/">My Happy Thoughts</a> 110. <a href="http://mommyhoodisthankless.blogspot.com/">Mommyhood is Thankless</a> 111. <a href="http://www.abigwhale.info/">Life is Random. SO.I.AM</a> 112.<a href="http://writingsofmaria.com/">Life's sweet and spices</a> 113. <a href="http://rainbowcoloredme.blogspot.com/">Rainbow Colored Me</a> 114. <a href="http://myoweinilife.blogspot.com/">My Oweini Life</a> 115. <a href="http://cutiemye.blogspot.com/">All About Mye Life</a> 116. <a href="http://www.emberpatch.com/">Is it Bedtime Yet</a> 117. <a href="http://wontbesoonbeforelong.blogspot.com/">Super Coupon Girl</a> 118. <a href="http://stylishbabe111407.blogspot.com/">My Life.... My Journey</a> 119. <a href="http://www.projectwicked.org/">Project Wicked Blogs and Reviews</a> 120. <a href="http://anefallarme.blogspot.com/">Life According To Me</a> 121. <a href="http://wilstop.info/">WilStop</a> 122.<a href="http://www.myweb-blog.org/"> I Love Pixels</a> 123. <a href="http://celluliticbliss.com/">Cellulitic Bliss</a> 124.<a href="http://www.takkijen.com/">Underneath It All</a> 125. <a href="http://www.momstart.com/">Momstart</a> 126. <a href="http://www.gardenofmoments.com/">Pinaymama's Diary</a> 127<a href="http://myheart4him.wordpress.com/">. My Heart 4 Him</a> 128.<a href="http://1stopmom.com/"> 1StopMom</a> 129.<a href="http://www.randomchronicles.com/">Random Chronicles</a> 130.<a href="http://maeyonnaise.com/"> Maeyonnaise</a> 131.<a href="http://www.chartherct.com/">Blessings in Life</a> 132.<a href="http://nanaybelen.blogspot.com/"> Survivor Mom</a> 133. <a href="http://www.jejeizahfaye.com/">Sharing my Thoughts</a>134.<a href="http://anniniput.blogspot.com/"> Beautiful Language</a> 135.<a href="http://radiologyupdates.blogspot.com/"> Medical Updates</a> 136. <a href="http://living-on-one-income.blogspot.com/">Living in One Income</a> 137. <a href="http://www.mommyelvz.com/">Mommy Elvz </a>138.<a href="http://elycu947.blogspot.com/">elymac&frendz</a> 139. <a href="http://sharque1009.blogspot.com/">BeinG mYselF</a> 140.<a href="http://loveshaven.com/"> Love's Haven</a> 141. <a href="http://shelosweetme.blogspot.com/">Mi Mundo Del Amor</a>142. <a href="http://budiawan-hutasoit.blogspot.com/">Budiawan Hutasoit</a> 143. <a href="http://gapura-solo.blogspot.com/">Tomi Utomo</a> 144. <a href="http://hamidz-coretanku.blogspot.com/">Hamidz</a> 145. <a href="http://mr-mung.blogspot.com/">Mr. Mung</a> 146.<a href="http://www.superdedys.com/">superdedys.com</a>.147 <a href="http://digitalbaca.blogspot.com/">Digitalbaca</a>.148 <a href="http://hariscorner.com/">hariscorner</a>.149 <a href="http://digitalbaca.blogspot.com/">digitalbaca.blogspot</a> 150.<a href="http://dianherlinawati.com/">dianherlinawati</a>.151 .<a href="http://tukeranlink.blogspot.com/">tukeranlink.blogspot</a> 152. <a href="http://www.myinternetsecurity.blogspot.com/">myinternetsecurity</a> 153.<a href="http://cometronica.blogspot.com/">cometronica</a> 154. <a href="http://www.bejok.com/">bejok</a> 155. <a href="http://anandipta-bisnis.blogspot.com/">anandipta-bisnis</a> 156.<a href="http://rayzq.wordpress.com/">rayzq </a>157.<a href="http://chys.co.cc/">chys</a> 158. <a href="http://www.yusaindera.com/">yusaindra</a> 159.<a href="http://dunianyanina.blogspot.com/">nina</a> 160.<a href="http://arsan-erto.blogspot.com/">arsan</a> 161. <a href="http://lookj.blogspot.com/">lookj.blogspot</a> 162. <a href="http://bang-ir.blogspot.com/">Bang Ir</a> 163. <a href="http://ndhelon.blogspot.com/">Ndhelon</a> 164.<a href="http://www.blogger.com/www.o-om.com">0-0m </a>165.<a href="http://kolom-tutorial.blogspot.com/">kang rohman</a> 166.<a href="http://fatihsyuhud.com/">fatihsyuhud</a> 167.<a href="http://blogger-pesta.blogspot.com/">blogger-pesta.blogspot</a> 168.<a href="http://everybodylovestoper.blogspot.com/">everybodylovestoper.blogspot</a> 169.<a href="http://www.qalbazarmebel.com/">qalbazarmebel</a> 170. <a href="http://yuyunvirgo.blogspot.com/">yuyunvirgo.blogspot</a> 171.c<a href="http://catatanvicky.blogspot.com/">atatanvicky.blogspot</a> 172. <a href="http://www.lyricsformula.com/">lyricsformula</a> 173. <a href="http://www.ibnuandhika.blogspot.com/">ibnuandhika.blogspot</a> 174. <a href="http://www.rezafauzi.com/">rezafauzi</a> 175. <a href="http://roevolusi.blogspot.com/">roevolusi</a> 176. l<a href="http://laros.web.id/">aros</a> 177. <a href="http://dianarafeyfa.blogspot.com/">dianarafeyfa</a> 178. <a href="http://www.duwi66.blogspot.com/">duwi66</a> 179.<a href="http://silemot.blogspot.com/">silemot.blogspot</a> 180. <a href="http://www.anastix.net/">http://www.anastix.net/</a> 181.<a href="http://tri-has.blogspot.com/">tri-has</a> 182. <a href="http://bobbyfiles.wordpress.com/">bobbyfiles</a> 183. <a href="http://noeqiah.blogspot.com/">noeqiah.blogspot</a> 184. <a href="http://nafasku.com/">nafasku.com</a> 185. <a href="http://www.fox-off.com/">fox-off.com</a> 186. <a href="http://www.bina-informatika.co.cc/">bina-informatika</a> 187. <a href="http://fotosandradewi.blogspot.com/">fotosandradewi</a> 188.<a href="http://duid-online.blogspot.com/">duid-online.blogspot</a> 189. <a href="http://www.nagaliu.co.cc/">nagaliu</a> 190. <a href="http://your-answer-see.blogspot.com/">your-answer-see</a> 191. <a href="http://irma14.blogspot.com/">irma14.blogspot</a> 192. <a href="http://www.darkstone39.blogspot.com/">darkstone39</a> 193. <a href="http://www.click-klikers.co.cc/">click-klikers</a> 194. <a href="http://gr4fis.blogspot.com/">gr4fis</a> 195. <a href="http://www.rsiswanto.blogspot.com/">rsiswanto</a> 196. <a href="http://hernadi-key.blogspot.com/">hernadi-key</a> 197. <a href="http://www.sweetalia.com/">sweetalia</a> 198. <a href="http://news-berita.co.cc/">news-berita</a> 199. <a href="http://learn-avr.blogspot.com/">learn-avr.blogspot</a> 200. <a href="http://www.anomtejo.web.id/">anomtejo</a> 201. <a href="http://chodirin.or.id/">chodirin.or.id</a>/ 202. <a href="http://andimujahidin.com/">andimujahidin.com</a> 203. <a href="http://katadeon.blogspot.com/">katadeon</a> 204. <a href="http://muga-jogja.blogspot.com/">muga-jogja</a> 205.<a href="http://kucing-bercinta.blogspot.com/">kucing-bercinta</a> 206. <a href="http://mitrariset.blogspot.com/">mitrariset.blogspot.com </a>207. <a href="http://privatekay.blogspot.com/">privatekay</a> 208. <a href="http://citra-global.blogspot.com/">citra-global</a> 209.<a href="http://www.exelinca.com/">exelinca</a> 210. <a href="http://gitarkeren.blogspot.com/">gitarkeren</a> 211. <a href="http://www.justakads.com/">justakads</a> 212. <a href="http://aalil.blogspot.com/">aalil.</a> 213. <a href="http://dunia-qita.blogspot.com/">dunia-qita.blogspot</a> 214. <a href="http://tiyoavianto.com/">TiyoAvianto</a> 215. <a href="http://bach-files.blogspot.com/">bachtiar</a> 216. <a href="http://makhlukcerdas.blogspot.com/">andi</a> <b>Blog kamu</b>Anonymoushttp://www.blogger.com/profile/15770591473098831090noreply@blogger.com0tag:blogger.com,1999:blog-1265132070847472015.post-61255132734320287622010-01-13T11:30:00.000+07:002012-01-09T13:47:18.009+07:00Pertapa Muda dan Kepiting<br />
<br />
Suatu ketika di sore hari yang terasa teduh, tampak seorang pertapa muda sedang bermeditasi di bawah pohon, tidak jauh dari tepi sungai. Saat sedang berkonsentrasi memusatkan pikiran, tiba-tiba perhatian pertapa itu terpecah kala mendengarkan gemericik air yang terdengar tidak beraturan.<br />
Perlahan-lahan, ia kemudian membuka matanya.Pertapa itu segera melihat ke arah tepi sungai di mana sumber suara tadi berasal.Ternyata, di sana tampak seekor kepiting yang sedang berusaha keras mengerahkan seluruh kemampuannya untuk meraih tepian sungai sehingga tidak hanyut oleh arus sungai yang deras.<br />
<a name='more'></a><br />
<br />
Melihat hal itu, sang pertapa merasa kasihan.Karena itu, ia segera mengulurkan tangannya ke arah kepiting untuk membantunya.Melihat tangan terjulur, dengan sigap kepiting menjepit jari si pertapa muda.Meskipun jarinya terluka karena jepitan capit kepiting, tetapi hati pertapa itu puas karena bisa menyelamatkan si kepiting.. <br />
<br />
Kemudian, dia pun melanjutkan kembali pertapaannya.Belum lama bersila dan mulai memejamkan mata, terdengar lagi bunyi suara yang sama dari arah tepi sungai.Ternyata kepiting tadi mengalami kejadian yang sama.Maka, si pertapa muda kembali mengulurkan tangannya dan membiarkan jarinya dicapit oleh kepiting demi membantunya.<br />
<br />
Selesai membantu untuk kali kedua, ternyata kepiting terseret arus lagi. Maka, pertapa itu menolongnya kembali sehingga jari tangannya makin membengkak karena jepitan capit kepiting. <br />
<br />
Melihat kejadian itu, ada seorang tua yang kemudian datang menghampiri dan menegur si pertapa muda, "Anak muda, perbuatanmu menolong adalah cerminan hatimu yang baik. <br />
<br />
Tetapi, mengapa demi menolong seekor kepiting engkau membiarkan capit kepiting melukaimu hingga sobek seperti itu?" <br />
"Paman, seekor kepiting memang menggunakan capitnya untuk memegang benda. Dan saya sedang melatih mengembangkan rasa belas kasih.Maka, saya tidak mempermasalahkan jari tangan ini terluka asalkan bisa menolong nyawa makhluk lain, walaupun itu hanya seekor kepiting," jawab si pertapa muda dengan kepuasan hati karena telah melatih sikap belas kasihnya dengan baik.<br />
<br />
Mendengar jawaban si pertapa muda, kemudian orang tua itu memungut sebuah ranting. Ia lantas mengulurkan ranting ke arah kepiting yang terlihat kembali melawan arus sungai.Segera, si kepiting menangkap ranting itu dengan capitnya.<br />
"Lihat Anak Muda. Melatih mengembangkan sikap belas kasih memang baik, tetapi harus pula disertai dengan kebijaksanaan.Bila tujuan kita baik, yakni untuk menolong makhluk lain, bukankah tidak harus dengan cara mengorbankan diri sendiri. Ranting pun bisa kita manfaatkan,betul kan?" <br />
Seketika itu, si pemuda tersadar."Terima kasih, Paman. Hari ini saya belajar sesuatu. *Mengembangkan cinta kasih harus disertai dengan kebijaksanaan. ** *Di kemudian hari, saya akan selalu ingat kebijaksanaan yang Paman ajarkan." <br />
Pembaca yang budiman, Mempunyai sifat belas kasih, mau memerhatikan dan menolong orang lain adalah perbuatan mulia, entah perhatian itu kita berikan kepada anak kita, orangtua, sanak saudara, teman, atau kepada siapa pun. <br />
<br />
Tetapi, kalau cara kita salah, sering kali perhatian atau bantuan yang kita berikan bukannya memecahkan masalah, namun justru menjadi bumerang. Kita yang tadinya tidak tahu apa-apa dan hanya sekadar berniat membantu, malah harus menanggung beban dan kerugian yang tidak perlu. <br />
<br />
Karena itu, adanya niat dan tindakan berbuat baik, seharusnya diberikan dengan cara yang tepat dan bijakAnonymoushttp://www.blogger.com/profile/15770591473098831090noreply@blogger.com2tag:blogger.com,1999:blog-1265132070847472015.post-42984000861373453662010-01-13T05:58:00.000+07:002012-01-09T13:47:25.547+07:00Kisah Anak Kerang<div style="text-align: justify;">
Kisah Anak Kerang</div>
<div style="text-align: justify;">
<br /></div>
<div style="text-align: justify;">
Pada suatu hari seekor anak kerang di dasar laut mengadu dan mengaduh pada ibunya sebab sebutir pasir tajam memasuki tubuhnya yang merah dan lembek.</div>
<div style="text-align: justify;">
<br /></div>
<div style="text-align: justify;">
"Anakku," kata sang ibu sambil bercucuran air mata, "Tuhan tidak memberikan pada kita bangsa kerang sebuah tangan pun, sehingga Ibu tak bisa menolongmu. Sakit sekali, aku tahu anakku. Tetapi terimalah itu sebagai takdir alam." "Kuatkan hatimu. Jangan terlalu lincah lagi. Kerahkan semangatmu melawan rasa ngilu dan nyeri yang menggigit. Balutlah pasir itu dengan getah perutmu. Hanya itu yang bisa kau perbuat", kata ibunya dengan sendu dan lembut.</div>
<div style="text-align: justify;">
<br /></div>
<a name='more'></a><div style="text-align: justify;">
<br /></div>
<div style="text-align: justify;">
<br /></div>
<div style="text-align: justify;">
Anak kerang pun melakukan nasihat bundanya. Ada hasilnya, tetapi rasa sakit bukan alang kepalang. Kadang di tengah kesakitannya, ia meragukan nasihat ibunya. Dengan air mata ia bertahan, bertahun-tahun lamanya. Tetapi! tanpa disadarinya sebutir mutiara mulai terbentuk dalam dagingnya. Makin lama makin halus. Rasa sakit pun makin berkurang. Dan semakin lama mutiaranya semakin besar. Rasa sakit menjadi terasa lebih wajar.</div>
<div style="text-align: justify;">
<br /></div>
<div style="text-align: justify;">
Akhirnya sesudah sekian tahun, sebutir mutiara besar, utuh mengkilap, dan berharga mahal pun terbentuk dengan sempurna. Penderitaannya berubah menjadi mutiara ; air matanya berubah menjadi sangat berharga. Dirinya kini, sebagai hasil derita bertahun-tahun, lebih berharga daripada sejuta kerang lain yang cuma disantap orang sebagai kerang rebus di pinggir jalan.</div>
<div style="text-align: justify;">
<br /></div>
<div style="text-align: justify;">
Cerita di atas adalah sebuah paradigma yg menjelaskan bahwa penderitaan adalah lorong transdensial untuk menjadikan "kerang biasa" menjadi "kerang luar biasa". Karena itu dapat dipertegas bahwa kekecewaan dan penderitaan dapat mengubah "orang biasa" menjadi "orang luar biasa".</div>
<div style="text-align: justify;">
<br /></div>
<div style="text-align: justify;">
Banyak orang yang mundur saat berada di lorong transdensial tersebut, karena mereka tidak tahan dengan cobaan yang mereka alami. Ada dua pilihan sebenarnya yang bisa mereka masuki : menjadi ´kerang biasa´ yang disantap orang, atau menjadi `kerang yang menghasilkan mutiara´. Sayangnya, lebih banyak orang yang mengambil pilihan pertama, sehingga tidak mengherankan bila jumlah orang yang sukses lebih sedikit dari orang yang `biasa-biasa saja´.</div>
<div style="text-align: justify;">
<br /></div>
<div style="text-align: justify;">
Mungkin saat ini kita sedang mengalami kekecewaan, patah hati, atau terluka karena orang2 disekitar kita..cobalah utk tetap tersenyum...</div>
<div style="text-align: justify;">
tetap tegap....</div>
<div style="text-align: justify;">
tetap bertahan....</div>
<div style="text-align: justify;">
tetap berjalan di lorong tersebut, </div>
<div style="text-align: justify;">
dan sambil katakan didalam hati kita. "Airmataku diperhitungkan Tuhan..dan penderitaanku ini akan mengubah diriku menjadi mutiara-mutiara indah..."</div>
<div style="text-align: justify;">
<br /></div>
<div style="text-align: justify;">
<br /></div>
<div style="text-align: justify;">
<br /></div>
<div style="text-align: justify;">
Diambil dari Visi1000 (By Gozali)</div>Anonymoushttp://www.blogger.com/profile/15770591473098831090noreply@blogger.com0tag:blogger.com,1999:blog-1265132070847472015.post-36076727107200779762010-01-04T21:22:00.001+07:002012-01-09T13:47:49.629+07:00Otak Manusia<div style="text-align: justify;">
Otak adalah tempat manusia berpikir dan menentukan pikiran. Disini eksistensi manusia itu terlihat, banyak manusia yang dihormati hingga bertahun-tahun, bahkan berabad-abad kerena pikirannya, namun ada pula yang dibenci. Muhammad saw misalnya, menjadi orang yang paling disegani oleh sahabat bahkan oleh musuh beliau. Pada dasarnya semua manusia dapat mengendalikan apa yang ia pikirkan, atau apa yang akan ia pikirkan. Dale Carnegie mengatakan dalam bukunya bahwa manusia memiliki dua chanel frekuensi radio yang bisa diganti sesuai dengan keinginan manusia itu sendiri, chanel itu adalah chanel positif dan chanel negatif. Jika chanel positif yang dipilih maka suara-suara yang terdengar adalah suara-suara positf, misalnya </div>Anonymoushttp://www.blogger.com/profile/15770591473098831090noreply@blogger.com0tag:blogger.com,1999:blog-1265132070847472015.post-30246696555462379882010-01-04T00:59:00.000+07:002010-01-13T11:23:34.395+07:00Particle Swarm Optomization<div style="text-align: justify;">Particle Swarm Optmization dikembangkan pada tahun 1995 oleh James Kennedy dan Russel Eberhat <span style="font-size: xx-small;">[Kennedy, J. and Eberhart, R. (1995). “Particle Swarm Optimization”, Proceedings of the 1995 IEEE International Conference on Neural Networks, pp. 1942-1948, IEEE Press.] (http://dsp.jpl.nasa.gov/members/payman/swarm/kennedy95-ijcnn.pdf )</span>. Optimasi ini didasdarkan pada perilaku serangga, ikan dan burung dalam mencarai makanan. Pada kawanan dari <i>n</i> individu saling berkkomonikasi secara langsung atau tidak langsung dari setiap arah pencarian. <br />
</div><a name='more'></a>Algoritma dasar dari PSO :<br />
<div style="text-align: justify;">Posisi setiap individu, dimana posisi ini selalu diperbarui :<br />
</div><div class="separator" style="clear: both; text-align: justify;"><a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEhumfhjsTPiDG1kTF5cbeQbLS14rTlvvbA69pE1btSTlUBISr6SmkFIA1AwyHfLZwjwiDOcMvxopGyysEZ1Jus9wvILuKFjHTzu6WKLBF0DOrI_ahxzBI1d2-VU_t9WAjaB9tUyY1ZPnuh-/s1600-h/indi.JPG" imageanchor="1" style="margin-left: 1em; margin-right: 1em;"><img border="0" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEhumfhjsTPiDG1kTF5cbeQbLS14rTlvvbA69pE1btSTlUBISr6SmkFIA1AwyHfLZwjwiDOcMvxopGyysEZ1Jus9wvILuKFjHTzu6WKLBF0DOrI_ahxzBI1d2-VU_t9WAjaB9tUyY1ZPnuh-/s320/indi.JPG" /></a><br />
</div><div style="text-align: justify;">Dengan kecepatan sebagai berikut :<br />
</div><div class="separator" style="clear: both; text-align: justify;"><a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEjX9Lz5Lbuco5TBnE04658QLW__ew6j2pz56UJp40teI-XKAXK6KUmk4RL67Y7IA1GPX9HMrSYTo2QoFARExVSwKq2F9w8wimb3oizu5nAGZEsx7J_ExRWKnUIsCtBIFZ089e3pL9nH4w-Y/s1600-h/velo.JPG" imageanchor="1" style="margin-left: 1em; margin-right: 1em;"><img border="0" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEjX9Lz5Lbuco5TBnE04658QLW__ew6j2pz56UJp40teI-XKAXK6KUmk4RL67Y7IA1GPX9HMrSYTo2QoFARExVSwKq2F9w8wimb3oizu5nAGZEsx7J_ExRWKnUIsCtBIFZ089e3pL9nH4w-Y/s320/velo.JPG" /></a><br />
</div><div style="text-align: justify;">Keterangan :<br />
</div><div class="separator" style="clear: both; text-align: justify;"><a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEjduHMct5Ykh_kuiswMsq0kr2qsk11Ggfa0e8RZi3ZhuO9D79yXogBMcHTTVU5zpiIO8KUF1PBJgcmqXzG_xTuJShWYFsebBl-Fowg_Ac3_jfaHp9eAERyxgv0NGtqCelQ1fn23XoRU5dYY/s1600-h/ket.JPG" imageanchor="1" style="margin-left: 1em; margin-right: 1em;"><img border="0" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEjduHMct5Ykh_kuiswMsq0kr2qsk11Ggfa0e8RZi3ZhuO9D79yXogBMcHTTVU5zpiIO8KUF1PBJgcmqXzG_xTuJShWYFsebBl-Fowg_Ac3_jfaHp9eAERyxgv0NGtqCelQ1fn23XoRU5dYY/s320/ket.JPG" /></a><br />
</div><div style="text-align: justify;"><br />
</div><div style="text-align: justify;">Pencarian<br />
</div><div style="text-align: justify;">Dalam PSO, partikel tidak pernah mati. Partikel dapat dianggap sebagai agen-agen yang terbang menyelusuri daerah pencarian dan merekam (dan mungkin berkomunikasi) solusiterbaik yang mereka temukan. Mula-mula nilai dari vektor kecepatan diberikan secara acak dengan jangkauan [-Vmax, Vmax] dimana Vmax adalah nilai maksimum yang dapat dicapai oleh partikel. Saat partikel menghitung nilai xi yang baru dan menilai lokasi barunya, jika <i>x-fitness</i> lebih baik dari <i>p-fitness</i>, maka pi = xi dan <i>p-fitness </i>= <i>x-fitness</i>.<br />
</div><div style="text-align: justify;"><br />
</div><div style="text-align: justify;">Algoritma<br />
</div><ol style="text-align: justify;"><li>Inisialisasi partikel pada daerah pencarian secara acak.</li>
<li>Menetapkan nilai awal kecepatan secara acak untuk tiap partikel.</li>
<li>Evaluasi <i>fitness</i> tiap partikel berdasarkan persamaan yang ditetapkan oleh pengguna.</li>
<li>Hitung kecepatan (dan arah) baru bagi tiap partikel.</li>
<li>Pindahkan pertikel berdasarkan hitungan tersebut.</li>
<li>Ulangi langkah 3 sampai 5 hingga ditemukan kriteria standar yang tepat.</li>
</ol><div style="text-align: justify;"><br />
</div><div style="text-align: justify;"><br />
</div><div style="text-align: justify;"><br />
</div><div style="text-align: justify;"><br />
</div><div style="text-align: justify;">Disarikan dari berbagai sumber <br />
</div>Anonymoushttp://www.blogger.com/profile/15770591473098831090noreply@blogger.com0tag:blogger.com,1999:blog-1265132070847472015.post-46585485614982790032010-01-03T21:00:00.000+07:002012-01-09T13:44:19.081+07:00Electronik Control Unit<div style="text-align: justify;">
<i>Electronik Control Unit</i> adalah istilah umum untuk sistem benam pada sistem atau subsistem kendaraan bermotor. Istilah lain untuk ECU termasuk <i>electronic control module</i> (ECM), <i>central control module</i> (CCM), <i>control unit,</i> atau <i>control modu</i>l. Secara keseluruhan sistem ini disebut komputer mobil. (Secara teknis bukan satu komputer tetapi beberapa komputer).<br />
<a name='more'></a><br /></div>
<div style="text-align: justify;">
Jenis dari <i>Electronic Control Unit</i> diantaranya adalah :</div>
<ul style="text-align: justify;">
<li><i>Airbag Control Unit</i> (ACU)</li>
<li><i>Body Control Module</i> mengendalikan pengunci pintu, jendela, intensitas lampu, dll.</li>
<li><i>Convenience Control Unit</i> (CCU)</li>
<li><i>Engine Control Unit</i> (ECU)-jangan disamakan dengan electronic control unit, istilah umum untuk keseluruhan perangkat ini.</li>
<li><i>Man Machine Interface</i> (MMI)</li>
<li>dan lain sebagainya.</li>
</ul>
<div style="text-align: justify;">
<i>Engine control unit </i>(ECU), juga dikenal sebagai <i>power-train control module</i> (PCM), adalah salah satu <i>electronic control unit</i> yang mengatur jumlah bahan bakar, waktu pengapian dan parameter lain yang dibutuhkan oleh <i>internal combustion engine</i> agar tetap berjalan. Hal tersebut dilakukan dengan membaca nilai-nilai dari <i>multidimensional maps</i> yang berisi nilai yang berasal dari sensor yang memantau keadaan mesin.</div>
<div style="text-align: justify;">
Salah satu hal yang dikontrol oleh <i>engine control unit</i> adalah kontrol waktu pengapian. Pengapian membutuhkan percikan api untuk memulai pembakaran di ruang bakar. ECU berfungsi untuk menentukan waktu yang tepat bagi percikan api untuk mendapatkan torsi yang lebih besar dan lebih ekonomis. Jika ECU mendeteksi ada ketukan, sebuah kondisi yang berpotensi merusak mesin, maka ECU memutuskan bahwa waktu pengapian terlalu awal pada langkah kompresi, ECU akan menunda waktu dari percikan untuk menanggulangi hal tersebut. Hal lain yang menyebabkan adanya ketukan adalah pengoperasian mesin yang berada jauh dibawah batas minimum RPM yang disarankan oleh pabrikan.<br />
ECU-ECU moderen menggunakan mikroprosesor yang dapat memproses sinyal masukan dari sensor mesin secara real time. Bagian utama dari ECU adalah chip mokrokontroler, yang didukung oleh komponen lain yang dibutuhkan oleh mikrokontroler untuk bekerja. Salah satu komponen yang dibutuhkan oleh mikrokontroler adalah EPROM atau memori flash untuk menyimpan program yang akan dijalankan oleh mikrokontroler. Dibawah ini adalah contoh gambar dari ECU. <br />
<div class="separator" style="clear: both; text-align: center;">
<a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEhRv6HzGoG-ZZcHw6DAszLQ27thCFZjYiPt8OQ16Ugc4Ob1git5ygwo0rfcmHfeoCYFCXoMxNGCRcqtx7PnNN_EjAjvtYsH_DNXAPnVmPV5hH7Bg-kMvt44g_qZQAaPS8iR60yVHu5V0n4N/s1600-h/ecu_locx.gif" imageanchor="1" style="margin-left: 1em; margin-right: 1em;"><img border="0" height="240" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEhRv6HzGoG-ZZcHw6DAszLQ27thCFZjYiPt8OQ16Ugc4Ob1git5ygwo0rfcmHfeoCYFCXoMxNGCRcqtx7PnNN_EjAjvtYsH_DNXAPnVmPV5hH7Bg-kMvt44g_qZQAaPS8iR60yVHu5V0n4N/s320/ecu_locx.gif" width="320" /></a></div>
<br />
<br />
Disarikan dari :<br />
Kulaih Dinamika Kendaraan<br />
Oleh Dr. Ir. Endra Pitowarno, M.Eng</div>
<div style="text-align: justify;">
<br /></div>Anonymoushttp://www.blogger.com/profile/15770591473098831090noreply@blogger.com0