![]() |
| ukuran pcb 68mm x 63mm |
Showing posts with label Ongki Suhendar. Show all posts
Showing posts with label Ongki Suhendar. Show all posts
Friday, June 5, 2015
Wednesday, March 4, 2015
SOUND BOSTER suara MOGE
SOUND BOSTER
suara MOGE
untuk pemasangan SOUND BOSTER suara MOGE sangat mudah cukup menyambung kabel warna merah dengan kabel jalur lampu utama dan kabel warna hitam dengan ground / masa
Sound Booster ( Sound Moge )
Bagi bro n sis yg ingin motor kesayangan punyasuara seperti moge 4 silinder, inilah jawaban'y.. :)Tidak perlu ganti mesin / menambah head silinder.. (Y)
Pemasangan cukup disambungkan kebaut kiprok / spuldan baut body ( Kerangka ).. :)
untuk pemesanan silahkan hub: Ongki Suhendar
Sunday, March 1, 2015
JAM DIGITAL 7 Segment AT89s52
JAM DIGITAL 7 Segment AT89s52
![]() |
| Ukuran PCB 100 mm x 100 mm |
program JAM DIGITAL 7 Segment AT89s52 menggunakan BASCOM 8051
$crystal = 12000000
' ------------------------------------------alokasi memori-----------------------------------------'
Dim Detik_sat As Byte , Detik_pul As Byte
Dim Menit_sat As Byte , Menit_pul As Byte
Dim Jam_sat As Byte , Jam_pul As Byte
Dim X As Word , Data_segment As Byte
'-----------------------------------Konfigurasi interupsi------------------------------------------'
Porta Alias P2
Portd.0 Alias P3.0
Portd.1 Alias P3.1
Portd.2 Alias P3.2
Portd.3 Alias P3.3
Portd.4 Alias P3.4
Portd.5 Alias P3.5
Pinb.0 Alias P0.0
Pinb.1 Alias P0.1
Portd Alias P3
P2 = 255
P3 = 255
Portb Alias P0
P0 = 255
P1 = 0
'----------------------------------Program utama----------------------------------------------------'
Do
Gosub Baca_tombol 'Gosub Display_detik
Gosub Kalkulasi
Gosub Tampil_segment
Incr Detik_sat
Loop
'---------------------------------------Sub Program--------------------------------------------------'
Kalkulasi:
If Detik_sat = 10 Then
Detik_sat = 0
Incr Detik_pul
End If
If Detik_pul = 6 Then
Detik_pul = 0
Incr Menit_sat
End If
If Menit_sat = 10 Then
Menit_sat = 0
Incr Menit_pul
End If
If Menit_pul = 6 Then
Menit_pul = 0
Incr Jam_sat
End If
If Jam_sat = 10 Then
Jam_sat = 0
Incr Jam_pul
End If
If Jam_pul = 1 And Jam_sat = 2 Then
Jam_sat = 0
Jam_pul = 0
End If
Return
'------------------------------------Tampilan------------------------------------'
Tampil_segment:
For X = 1 To 157
Portd = &B01000000
Data_segment = Lookup(detik_sat , 7_seg1)
P1 = Not Data_segment
Waitms 1
Portd = &B00100000
Data_segment = Lookup(detik_pul , 7_seg)
Porta = Not Data_segment
Waitms 1
Portd = &B00000001
Data_segment = Lookup(menit_sat , 7_seg)
Porta = Not Data_segment
Waitms 1
Portd = &B00000010
Data_segment = Lookup(menit_pul , 7_seg)
Porta = Not Data_segment
Waitms 1
Portd = &B00000100
Data_segment = Lookup(jam_sat , 7_seg)
Porta = Not Data_segment
Waitms 1
Portd = &B00001000
Data_segment = Lookup(jam_pul , 7_seg)
Porta = Not Data_segment
Waitms 1
Next X
Portd = 255
Return
'-------------------------------------Baca tombol-------------------------------------'
Baca_tombol:
If Pinb.0 = 0 Then
Incr Menit_sat
Gosub Tampil_segment
End If
If Pinb.1 = 0 Then
Incr Jam_sat
Gosub Tampil_segment
End If
Return
'--------------------------------------Data 7-segment-----------------------------------------
7_seg:
Data &B00111111 '0
Data &B00000110 '1
Data &B11011011 '2
Data &B11001111 '3
Data &B11100110 '4
Data &B01101101 '5
Data &B01111101 '6
Data &B10000111 '7
Data &B11111111 '8
Data &B11101111 '9
Return
7_seg1:
Data &B00000000
Data &B10000000
Data &B00000000
Data &B10000000
Data &B00000000
Data &B10000000
Data &B00000000
Data &B10000000
Data &B00000000
Data &B10000000
Return
Semoga membantu dengan postingan program JAM DIGITAL 7 Segment AT89s52 menggunakan BASCOM 8051
LCD 16x2 AT89s52
TES LCD 16x2
Tes LCD 16x2 AT89s52
$baud = 9600
Config Lcd = 16 * 2
Config Lcdpin = Pin , Db4 = P1.3 , Db5 = P1.2 , Db6 = P1.1
Config Lcdpin = Pin , Db7 = P1.0 , E = P1.4 , Rs = P1.5
Cursor Off
Cls
Wait 2
Cls
Locate 1 , 7
Lcd "ASA"
Wait 2
Locate 2 , 2
Lcd "HAYANG TORPEDO"
Wait 10
Tuesday, February 24, 2015
Membuat Lampu Hazard dengan IC 555
Membuat Lampu Hazard dengan IC 555
berikut Skema Lampu Hazardsmoga bermanfaat
Membuat Lampu Hazard dengan IC 555
Monday, February 23, 2015
QUIZ MASTER / Bell cerdas cermat
QUIZ MASTER / Bell cerdas cermat
Demo Video : QUIZ MASTER / Bell cerdas cermat
untuk pemesanan QUIZ MASTER / Bell cerdas cermat silahkan Hub : Ongki Suhendar 08982762476
Demo Video : QUIZ MASTER / Bell cerdas cermat
untuk pemesanan QUIZ MASTER / Bell cerdas cermat silahkan Hub : Ongki Suhendar 08982762476
Kunci Rahasiah Motor Sensor Sentuh
Kunci Rahasiah Motor Sensor Sentuh KGS 001
TANPA PIN
TANPA REMOTE
TANPA KARTU
TANPA MAGNIT
TANPA SAKLAR MANUAL
TIDAK MERUSAK ACCU
Pengaman Motor dengan Sensor Sentuh AutoLock System, Pengaman tanpa saklar, tombol, switch, keypad atau perubahan apapun secara fisik pada motor anda, Maling tidak akan tau motor anda dilengkapi dengan alat canggih ini.
cara kerja :
sebelum sensor di sentuh, Pada waktu kunci kontak dalam keadaan on oleh kunci asli ataupun dipaksa on pake kunci Leter T, kelistrikan motor mati total baik itu lampu netral, klakson maupun elektrik starter, seperti kunci kontak dalam posisi off.
SATU TITIK SENTUHAN
Dengan satu titik sentuhan unik menjadi sangat sulit ditebak. jauh lebih aman
CUSTOMIZE
Anda dapat menentukan sendiri dimana letak titik sentuhan dan dapat dipindah-pindah kapanpun anda mau.
AUTOLOCK SYSTEM
Kunci kontak posisi OFF Motor Otomatis terlindungi. Anda tidak akan lupa/ repot mengamankan motor. padasaat posisi kontak motor OFF alat tidak menggunakan energi accu ( tidak merusak/ mengganggu accu)
padasaat posisi kontak motor OFF alat tidak menggunakan energi accu ( tidak merusak/ mengganggu accu)
PEMASANGAN MUDAH
ada petunjuk pemasangan KGS. Tidak merubah sistem kelistrikan motor anda, cukup dengan cabut pasang soket yang sudah ada
Lebih awet dan tahan lama
SEGERA DI ORDER: Sangat aman untuk motor anda, dimana saat ini kejahatan begitu banyak mengintai kita. barang dibuat setelah ada order, karena kami tidak mau stock komponen terlalu banyak.
Kunci ganda yg aman.
dengan satu sensor sentuh, bisa juga di aplikasikan menggunakan alarem, untuk semua jenis motor yg masih pake aki.
untuk anda yg mau pasang lalat ini ...??
HARGA : 85rb / pcs ; belum termasuk ongkir
ALAMAT RUMAH
jl.noenoeng tisnasaputra dekat kantor bale wiwitan / SMKN 2 Tasikmalaya
minat hub : 08982762476
Menbuat pengaman motor dgn saklar sentuh jari
Menbuat pengaman motor dgn saklar sentuh jari
Misalnya: Saat parkir lupa mencopot Kunci Kontak dan akhirnya sepeda motor anda amblas dibawa lari orang !
Inilah solusinya: buat sendiri “Pengaman Sepeda Motor”...sederhana-murah-mudah dirakit dan tentu saja sangat bermanfaat !
Klik dulu foto skema dan pahami sampai habis keterangan dibawah ini.
Sebelum anda merakitnya ada satu syarat yaitu: punya sepeda motor dan Aki(Accu)nya masih normal !
Keterangan:
*Prinsip Dasar cara kerja rangkaian ini adalah MMV(Monostable Multivibrator=Penggetar Ganda Tidak Stabil) saklar sentuh jari (Touch).
*Mematikan fungsi trigger(penyulut) pengapian yaitu CDI atau Pulser.
*Setelah Kunci Kontak On dan belum disentuh, kalau motor distarter baik secara Electric ataupun Manual mesin tidak mungkin bisa hidup, karena Relai kondisi Off dan jalur CDI/Pulser masih short/konslet ke Ground(Massa/Body).
Proses:
1. Buat rangkaian seperti skema diatas. Semua komponen usahakan rapat, Relai dibawah dan R,Tr dan lain-lain diatas PCB, cukup ukuran 2x3 cm.
2. Titik A adalah titik sentuh, beri kabel secukupnya tergantung penempatan anda dan ujung kabel sembunyikan sesuai selera, biasanya di Dashboard plastik dekat Stang sebelah kiri, usahakan sekecil mungkin agar tidak diketahui orang lain !
3. Titik Out sambungkan ke kabel CDI disekitar kunci kontak atau Pulser.
4. Led kontrol tempatkan di panel sekitar Speedometer agar mudah dilihat, setalah kunci kontak On dan titik A disentuh Relai bekerja dan Led akan menyala, sepeda motor bisa di starter !
Nilai komponen:
R1=220k, R2=1k, R3=2k2, Q1=Tr 9012, Q2=Tr 9013/14, RE=Relay 12v...
NB: Setelah sentuh sekali Relai berfungsi dan sentuh berikutnya tidak akan berfungsi kecuali kunci kontak ke posisi Off = Relai juga Off !!!
Subscribe to:
Comments (Atom)

































.jpg)