Counter motor using hall efek sensor UA1301

Alhamdulillah di sela2 kesibukan bisa bantu tmn ngerjain tugas dari dosen.,kali ini tugasnya buat counter motor dengan sensor hall efek ua1301 outpunya adalah tegangan.,sedangkan hasil dari pegukuran nanti akan di tampilkan di layar televisi anda.,wkakaaaaa.,bacanya nyatai cuy...
maksudnya di lcd..nanti alat ini akan digunakan untuk menghitung putaran motor selama 1 menit..



untuk kontroller cukup menggunakan atmega8.,lcd dikontrol melalui PORTD.,sensor akan masuk melalui PORTC.0 atau ADC.0
terus adaa sepesial ruquest dari teman saya yaitu di program pake bahasa basic.,jangan pake C.,
(saya) : lho emg knp?
(teman) : iya request dosenne?
(saya) : ?????? (curiga mode on)
(saya) : ojo2 dosene ga iso peka bahasa C?? ( basaha jogja mode on)
(teman) : mikir sejenak sambil nyengir
(teman) : iya ndean (bahsa ngapak mode on)

kira2 seperti itulah kronologisnya...hahaaaaaa...
Ya sudahlah apa boleh baud.,maksudnya apa boleh buat..akhirnya saya kerjakan dengan senang hati...

nie codenya
$regfile = "m8def.dat"
$crystal = 8000000

Dim A As Byte , B As Long
Dim Count As Word

Config Lcdpin = Pin , Db4 = Portd.4 , Db5 = Portd.5 , Db6 = Portd.6 , Db7 = Portd.7 , E = Portd.2 , Rs = Portd.3
Config Lcd = 16 * 2

Config Adc = Single , Prescaler = Auto , Reference = Avcc
Dim Nilai As Long
Dim Channel As Byte
Start Adc

Config Timer1 = Timer , Prescale = 8
Timer1 = 64536
On Timer1 Detik
Dim Waktu As Long
Dim Flag As Bit

Flag = 0

Waitms 30 Cursor Off
Cls

'Lcd " Visited me on: " 'display this at the top line
'Wait 2

'Cls

'Lowerline 'select the lower line
'Lcd "WWW.TunasNgapak.Blogspot.com" 'display this at the lower line
'Wait 1
'For A = 1 To 12
' Shiftlcd Left 'shift the text to the right
' Wait 1 'wait a moment
'Next

'Wait 1
'Cls

'Lcd " Motor Rotation " 'display this at the top line
'Wait 1
'Lowerline 'select the lower line
'Lcd " Pidar Febriaji " 'display this at the lower line
'Wait 1
'Cls

Locate 2 , 1
Lcd "count="


Enable Timer1
Enable Interrupts


Do

Channel = 0
B = Getadc(channel)
B = B * 4500
Nilai = B / 1024
Locate 1 , 5
Lcd Nilai
Locate 1 , 10
Lcd "mV/G"



If Flag = 1 Then
Disable Interrupts
Locate 2 , 1
Lcd "stop= "
End If

If Flag = 0 Then
If Nilai >= 2300 Or Nilai <= 2000 Then
Count = Count + 1
Locate 2 , 7
Lcd " "
Locate 2 , 7
Lcd Count
End If
End If

Loop
End


Detik:

Waktu = Waktu + 1
If Waktu >= 60000 Then
Flag = 1
End If
Timer1 = 64536

Return


pengitungan timer menggunakan rumus:
nilainya=(1/xtal)(65536-x)*prescaler
ket :
nilainya= us (milisekon)
xtal = clock external
prescaler = skala pembagi clock external
x = nilai yang di masukin ke dalam TCNT1

pada awal program di lakukan configurasi timer1:
Config Timer1 = Timer , Prescale = 8 Timer1 = 64536
jika ingin di jadikan counter., maka
Config Timer1 = count , Prescale = 8


mari kita itung bersama2 permintaan teman saya itu.,yaitu membuat counter selama 1 menit.,dengan xtal 8 Mhz.,skala clock 8
nilainya=(1/8Mhz)(65536-64536)*8 nilainya=(0,125)(1000)*8 nilainya=1000us

lho kok cm 1000us=1ms.,tenang ada program yang mengulang untuk mendapat nilai 1 minute..
padahal menghitung selama 1 menit artinya 1menit=60detik=60000ms
maka diguanakan variable waktu untuk mengulang selama 60000 kali

Waktu = Waktu + 1
If Waktu >= 60000 Then
Flag = 1
End If
Timer1 = 64536

ketemu dah 1000us=1ms x 60000------> 60000ms
(teman) : owh gitu ya..
(saya) : lho kok.,komemtar lagi
(teman) : owh ya lupa..heheeee..silahkan dilanjut nulisnya..
(saya) : oke...

knp kok dibuat 1ms.,ya karena kepengin aja.,hahaaaaaa......

Waktu = Waktu + 1
If Waktu >= 60000 Then
Flag = 1
End If
Timer1 = 64536

lalu gimana caranya untuk membuat interrupt timer tiap 2ms.,bisa saja dunk.,mari kita itung
2ms=2000us
rumusnya: nilainya=(1/xtal)(65536-x)*prescaler
jawaban:
nilainnya=(1/8Mhz)(65536-63536)*8
nilainya=2000us -----------------> 2000us=2ms

ketemu dah.,simple tow...

nah sekarang gmn caranya ngitung tegangan dari hall efeknya?.,caranya adalah di program ini
Config Adc = Single , Prescaler = Auto , Reference = Avcc
Dim Nilai As Long
Dim Channel As Byte
Start Adc

dan ini

If Nilai >= 2300 Or Nilai <= 2000 Then
Count = Count + 1
Locate 2 , 7
Lcd " "
Locate 2 , 7
Lcd Count
End If

kira2 seperti itulah hasil dari praktek saya kemaren.,kalo ada yang salah mohon maap dan tolong dibenerin.,biar yang lain yang baca ga ikutan salah.,otre....
skemata dan gambar pcb silakan ambil dimari

Pantai Baron dan Sepanjang

Ada yang udah pernah ke pantai baron dan sepanjang?
Yah di jogja selain pantai parangtritis yang udah terkenal.,ternyata ada pantai yang lain yang gak kalah bagus.,Baron dan Sepanjang.,
Awal crita adek saya main ke jogja.,dan pengen bgt main k pantai yang namanya baron.,dah kayak orang ngidam bgt tanya trs pngn main ksana.,Dr pada gila karena penasaran dan selama 4 tahun ini saya juga belum pernah ke baron akhirnya main deh ksana....

Akhirnya 4 orang berangkat ke baron.,berangkat siang hari jam 11 tujuan awal ke baron.,puanase pool cah.,sampai pantai jam berapa ya lupa.,jam 1an kalo gak salah.,ah tanpa basa-basi setelah nyampai langsung dah beraksi nyebur ke pantai.,

Baron memiliki tanah yang landai.,dan pantainya menjorok ke dalam jadi ombaknya kecil dan kita bisa main ketengah buat ngrasaain ombak...Selain itu yang buat pantai ini semakin menarik adalah muara sungai cukup luas untuk main air tawar.,dan rasa airnya memang g asin.,pokoknya recommended banget nie pantai.,ah gak nyesel lah.,
pokoknya gak da bosen2nya saya nungguin ombak di tengah.,trs saat ombak datang punggung di siapin buat menyambut ombak dengan cara menjatuhkan punggung ke ombak dan siap2 aja di bawa ama ombak je tepi pantai.,hahaaaaaa.....sumpah puas banget...walaupun hampir tiap kali kebawa ombak selalu saja nelen asinya air pantai baron.,

Selain pengunjung yang bermain ombak ternyata ada bapak2 yang lagi nyari teri di tepi pantai.,nyarinya gmn ya?bingung saya?????mana setau saya teri itu kecil.,

Dan disiini ada banyak perahu nelayan.,sempet foto2 juga di perahu.,berlagak kyk bajak laut monkey de luffi.,tapi ga da mirip2nya..waka wakaaaaa...,

Setelah puas main ombak lanjut lagi ke pantai sepanjang.,tempatnya ga terlalu jauh dari baron.,dan ini ga kalah cantiknya ama baron.,mana pasirnya putih baget.,bersihlah pokoknya.,y walopun sempet nemu tutup botol plastik sie.,tapi cuma satu aja selebihnya cuma ada kerang2.,

Kalo sepanjang lebih sedikit pengunjungnya.,mungkin pantainya di penuhi batu2 karang.,selain itu ombaknya juga lebih gede dari pada baron.,kanapa namanya pantai sepanjang mungkin karena pantainya yang panjang.,beda ama baron yang menjorok kedalam jadi luasnya lebih sempit.,

Sebelum menikmati indahnya pantai sepanjang kita mesti bisa melewati tantangan berupa jalan yang belum di aspal.,jadi masih berupa jalan yang terbuat dari batu2 kecil.,kenapa gak di aspal kayak di baron??menurut pendapat saya karena kurang ekonomis.,karena jarang ada yang berkunjung kesini.,memang pantai ini gak bisa di buat main2 ama ombak.,

Dan sini cuma ada 1 pedangang aja.,beda dengan di baron yang banyak warung2 yang menyediakan makanan.,beberapa pic yang di ambil pake kamera hape..,

For baron










For sepanjang























potograpernya: PKK

Pesawat TunasNgapak

Hahahaaaaa..akhirnya pesawat pertama buatan tangan sendiri berhasil diwujudkan.,pesawat ini saya beri nama TunasNgapak.,Kenapa namanya TunasNgapak??saya juga gak tau kenapa.,


Ya walaupun ga 100% buatan tangan sendiri karena ada yang bantuin juga.
Ceritanya di mulai tanggal 3 Mei di markas seribubintang.,kami (saya, mas yasin,dan prima) bareng-bareng bikin pesawat.,bahannya mudah saja seperti gabus.,kemudian lem gabus.,cutter.,hot wire.,amplas.,kawat dan komponen elektroniknya (ESC,motor brushless,propeller,micro servo)
Karna saya belum bisa mendesain pesawat sendiri.,akhirnya nyontek dah dari punya pak Toha (nyang punya seribubintang).,yah jangan heran kalo pesawat saya dan prima mirip.,karna memang desainnya nyontek dari sumber yang sama...wkwkwkkkk.....
Singkat cerita akhirnya jadi juga pesawat yang kami buat.,sebenarnya satu hari saja udah cukup untuk buat satu pesawat.,tapi karena saya masih awam ya akhirnya butuh 3 hari untuk bisa selesai semua dan siap terbang..

Hahahaaa..Tanggal 6 Mei terbang perdana di sawah.,tapi saya takut terbangin (lebay mode on)., Terus gmna donk???akhirnya saya cuma nonton pesawat saya terbang.,alias minta tolong di terbangin orang.,waktu itu minta tolong di terbangin ama mas Yasin...
Senang rasanya liat pesawat buatan saya ini bisa terbang.,paling ngak sudah terbukti bahwa benda yang dibuat 3 hari ini bisa terbang...wkwkkkkk (walopun cuma nonton...)
Karena kurang puas dengan nonton akhirnya tanggal 7 Mei saya nekat terbangin dah.,dengan modal latihan di simulator (padahal terakhir kali pegang simulator sekitar sebulan yang lalu)..
Sekitar jam 2an pergi lagi dah kesawah.,tapi jelas kali ini saya yang terbangin.,karena saking ngebetnya nerbangin tu pesawat mpe g sadar kalo angin lagi kenceng-kencengnya..
Whahahaa..ternyata pesawat berhasil naik..tapi sayang g lebih dari 4 detik pesawat bisa terbang.,karena pilotnya bingung+grogi+deg-deg an (pilotnya=saya sendiri)..wkakaaaaa..Jatuh dah tuh pesawat.,Ternyata setelah liat sekitaran sawah banyak orang nyang ngliatin.,wkwkwkkkk malu mode on dah..
Sial ternyata propeller patah., dan moncong depan pesawat bengkok.,Tapi tetap keliatan tenang di depan orang-orang walopun mikir juga seh.,Eh ternyata masih punya cadangan 1 propeller lagi..

Akhirnya setelah perbaikan sana-sana dan sini-sini akhirnya hari itu masih bisa terbang lagi jam 5 sorean..Siap ternyata setelah berhasil naik ke atas kabel ESCnya putus.,mati dah tu motor.,untung pesawat gak jatuh ke parit yang penuh air..
Akhirnya setelah sehariannya mencoba.,pulang juga dengan rasa penasaran.,kok bisa sial banget hari ini.,propeller patah.,moncong depan bengkok.,dan kabel ESC putus....Pulang kerumah dan ambil solder langsung di solder tu ESC.,

Besoknya tanggal 8 Mei (Hari sabtu=kampus libur) pagi-pagi sekitar jam stengah 7an pergi lagi ke sawah buat terbangin tu pesawat.,dan hasilnya sangat memuaskan untuk pemula seperti saya..bisa terbang dan gak cuma 4 detik..hahahaaaaaaa..
Masih dengan perasaan deg-deg an akhirnya nekat terbangin muter-muter di atas eh gak nyadar ternyata terbangnya kurang tinggi (padah menurut saya udah tinggi) dan akhirnya nabrak tembok kost2an lantai 2..
Mampus nabrak tembok nih..Langsung dah panik mode on.,tapi ternyata pesawat masih segar bugar..
Karna masih belum puas dan ngebet pengin terbang lama akhirnya tanggal 9 Mei (Hari minggu pagi) berangkat kesawah lagi dan kali ini terbangnya lumayan oke.,dan nyantai.,cukup menikmati.,gak begitu deg-deg an.,lumanyan enjoy dan sangat puas.,wkwkwkkkkkkk....

Pic pesawat setelah terbang beberapa kali...







Yah itulah sedikit cerita tentang aktivitas saya sebagai pilot awam tanggal 3 Mei, dan 6 - 9 Mei...Wkwkkkkkk.,salam mabur....

Juara 3 IIARC

Ini sebetulnya cerita lama..kenapa lama?karena sudah terjadi di tahun 2009 bulan oktober..

Hahahaaaaa..,g di sangka kami yang masih awam di dunia aeromodeling bisa menjadi juara III wkwkwkkkkkk...

Saat itu saya coba cari-cari suatu kompetisi tingkat mahasisiwa, eh ktemulah yang namanya IIARC (Indonesian Aerial Robot Contest).
Saat itu saya bersama tiga teman Fredy,Prima, dan Lambang sepakat membetuk sebuah

TIM untuk ikut kompetisi ini.Tadinya mau di kasih nama TIM GEBLEK..Tapi di plesetin jadinya Go-Black..wkwkkkkkkkk..
Terus gimana donk.,kan kami masih awam di dunia pesawat ini.,selain itu persaratan berat maksimal pesawat saat membawa kamear adlah 150 gr (Ringan banget kan!!)

Jadi misi dari kompetisi ini adalh membuat pesawat dengan berat maksimal yaitu 150 gr.,itu asalah berat total beserta dengan mikro kamera yang terpasang di badan pesawat.,jadi nanti peserta akan menerbangkan pesawat yang telah di buat untuk mengawasi bentuk-bentuk huruf yang ada di arena, Huruf yang telah terawasi di catat dan hasilnya akan menjadi penilaiaan bagi juri.

Biasalah teman akrab kami mas google bersedia membantu kami.,singkat cerita akhirnya ketemulah web seribubintang.,nama pemiliknya pak Toha. Dia adalah seorang penggemar aeromodeling yang kreatif.,tanpa menutup-nutupi satupun ilmu tentang pembuatan pesawat Ia mengarjakan pada kami bagaimana membuat pesawat, hingga cara menerbangkannya.

Beberapa link yang menceritakan TIM Go-Black
seribubintang
kompas
kritinx

Singkat cerita akhirnya kami menang dan inilah foto2nya..lumayan diliput dimedia..wkwkkkkk...

Untuk pertama kali

Untuk pertama kalinya, this is my first action, yup right "action", setelah sekian lama cuma berspekulasi, berangan-angan, dan cuma merencanakan, akhirnya berhasil juga melakukan yang namanya action.

Yah bener sekali selama ini saya terlalu benyak berencana, dan NOL besar dalam yang namanya usaha mewujudkan rencana. Software pertama buatan saya adalah untuk keperluan perpusatakaan di sekolah-sekolah, setelah sekian hari bertapa membuat program akhirnya jadi juga dan siap untuk di jual, ntah karena alesan kepepet atau keinginanan yang besar. Kenginan untuk membeli sesuatu dari uang sendiri (barangnya ini benar-benar mahal untuk ukuran mahasiswa seperti saya), atau karna kepepet ( maklum uang mepet dan deadline, angkatan tua).

Akhirnya hari itu tanggal 19-04-2010 saya beranikan diri untuk membuat proposal dan di ajukan ke sekolah, hahaaaaa...dan hasilnya ternyata gagal...tapi saya sangat puas. inilah yang saya tunggu "action". Hahahaaa..saya puas akhirnya bisa "action".

Selalu ada yang namanya pertama kali, pertama kali pacaran, pertama kali jerawatan, pertama kali nembak dan pertama kali di tolak. dan ini adalah pertam kali saya membraniakan diri menjual software buatan saya, dan pertama kali bagi saya untuk gagal.

Tapi bukan di tolak, hanya saja kalah cepat, seharusnya 2 hari yang lalu saya bisa masukan proposal, tapi malas membuat saya gagal. Sering saya menyadari banyak orang memeiliki kemampuan sama seperti saya atau lebih hebat dari saya, tapi pertanyaannya siapakah yang pertama kali memulai, dialah yang akan lebih berkuasa, entah pasar, entah pengalaman. Ya Yang pertamalah yang akan jadi lebih unggul.

Singkat crita saya punya keinginan untuk membeli sebuah mainan yang mahal menurut saya, malu dunk minta uang buat beli mainan, karena uang mepet, dan keinginanan untuk memiliki mainan itu sangat besar akhirnya otak ini bekerja, dan singkat cerita muncullah ide untuk menjual software, why software?karana software g perlu modal, cukup programing, g kyk hardware yang butuh beli ini itu. Singkat cerita saya berhasil membuat software untuk perpustakaan sekolah, dan akhirnya siap saya jual.

Setelah semua siap berangkatlah saya menuju sekolahan yang akan saya tawari. Weeessss naik montor dan berhasil nyampe, tapi apa yang terjadi saya hanya lewat dan melihat sekolahan itu.

Tiba-tiba nyali saya menciut melihat sekolahan yang besar itu, alasannya adalah saya malu jika ternyata software saya ini mereka anggap jelek dll. Tapi saya lebih malu lagi jika harus kembali dan berbohong bahwa saya telah menawarkan software tapi ditolak. Padalah saya belum melakukan apa2?

Critanya sebelum berangkat ke sekolahan ini saya sudah bercerita keseseorang akan menjual software ini di sekolah ini, malulah saya kalo pulang harus berbohong (Lagi pula bohong itu dosa).

Akhirnya saya berbalik dan memasuki area perkiran sekolah itu, langsung parkir motor, dan memposisikan wajah agar tidak terlihat seperti orang bodoh. Langsung menuju post satpam untuk menanyakan ruang TU. Woke setelah ketauan akhirnya menuju TU, di sana langsung ktmu pegawainya.

Tanpa basa-basi saya langsung mengutarakan niat saya untuk mengajukan propsal penawaran software saya, ternyata orang yang saya tuju ini kurang paham dengan maksud dan tujuan saya. Saya pun bingung menjelaskannya, sampai akhirnya datang seorang ibu dan dari tampilannya dia seperti orang yang punya jabatan di sekolah, langsunglah saya jelaskan pada ibu itu dan dia mengerti maksud saya.

Jdug (kaget)...hahaaaaaa...saya tertawa dalam hati, kenyatannya saya juga tertawa, ternyata mereka tidak menolak produk saya, hanya saja mereka sudah memiliki produk yang saya tawarkan. Dan itu baru saja dipasang hari ini.
Ah sial kenapa gak dari kemarin2 saya masukin proposal ini. Kalo dari kemarin pasti saya yang dapet. Saya kalah Cepet !!!!

Tapi saya puas, sambil berjalan keluar saya tersenyum-senyum ternyata semua tidak seperti yang saya takutkan, saya bisa, hahaaaaaa..... ternyata sangat mudah sekali melakukanya, saya benar-benar puas.
Yah itulah the power of kepepet, the power of malu, the power of keinginan..
Mulai sekarang just action, go ahead, dont think to much, just do it, talk less do more, dan hasilnya serahkan lah pada ALLOH SWT.

Simple Sample Program Delphi (Kalkulator)

Nyok kita belajar delphi, terutama bagi saya yang masih baru maka latihannya dari yang mulai simple dulu.

Gimana kalo buat program kalkulator sederhana aja.Simple kan......
program ini cuma untuk menambah, mengurang, mengali, membagi angka-angka yang terdapat di komponen edit, tinggal pencet tombol tambah utuk menambah dan tombol kurang untuk mengurangi.

komponen edit 1,2 dan 3 berfungsi sebagai input,kmudian untuk operasi penjumlahan, perkalian, pengurangan, dan pembagian digunakan komponen button 1 hingga button 4.

untuk operasi matematika maka input dari komponen edit yang masih berupa string harus di ubah menjadi integer dengan perintah "strtoint"

kemudian hasilnya ditampilakan di komponen edit3, dan harus berupa data string, maka di gunakan perintah "inttostr" kebalikan dari "strtoint".
Untuk tombol reset menggunakan komponen button 4, yang berfungsi untuk menghapus angka pada edit1 hingga edit3. Sehingga dapat dimulai operasi matematika yang baru.
Untuk keluar dari aplikasi digunakan tombol exit dari komponen button 5.

untuk program lengkapnya bisa di ambil disini.

PWM (Pulse Width Modulation)

PWM (Pulse Width Modulation) ini adalah cara yang digunakan untuk menggerakan sudut putaran motor servo dan bisa digunakan untuk mengatur kecepatan motor DC.
yaitu dengan cara mengatur lebar pulsa high dan pulsa low, kali ini kita akan membuat program PWM untuk menggerakan motor servo.

Seperti sebelumnya telah di bahas di bagian Motor Servo, bahwa untuk menggerakan servo dibutuhkan pulsa PWM. Inilah programnya silahkan PWM dengan delay


Penjelasannya sebagai berikut:
Bagian yang akan membentuk PWM adalah pada baris 11. sampai baris ke 16. pada baris ini digunakan untuk membentuk sudut sebesar 0 derajat, pulsa high sepanjang 1,1 ms dibuat pada baris 13, dan 14. sementara pulsa low selama 18,9 ms dibuat pada baris 15. dan 16.

Pada baris 21. sampai 26. digunakan untuk menggerakan servo sebesar 90 derajat, yaitu dengan membuat pulsa 1,5 ms pada baris 23. dan 24. sedangkan pulsa low sebesar 18,5 ms dibuat pada baris 25. dan 26.

Sedangkan baris 31. sampai 36. untuk menggerakan servo pada sudut 180 derajat.

Jadi program ini dibuat untuk menggerakan sevo pada sudut 0 drjat, 90 drjat, 180 drjat dan terus berulang2.

Perlu diketahui bahwa untuk menghasilkan trosi yang terus menerus maka pulsa PWM harus terus menerus dibuat, jika dibuat satu kali atau beberapa kali saja, maka servo ini akan kehilangan torsinya saat tidak pulsa PWM lagi.

Dan kelemahan dari program di atas adalah pada baris 19. 29. dan 39. jika delay pada baris ini terlalu lama maka servo bisa kehilangan torsinya dan bisa2 robot yang dibuat g kuat ngangkat badannya.