Membuat jam waktu sholat ukuran jumbo display P10

Membuat jam waktu sholat ukuran jumbo display P10

Jam DIgital

Mei 06, 2018 Add Comment

Jam waktu sholat atau JWS ukuran jumbo 

JWS  atau Jam Waktu Sholat atau disebut juga JSD  atau Jam Sholat digital ukuran besar sangat cocok untuk masjid besar.

Dengan menggunakan display matrik led P10 sangat pas untuk membangun JWS atau JSD ukuran jumbo.

Pengembangan software  JWS 

Untuk kemudahan pengembangan software JWS digunakanlah IDE mikrokontroler dari Arduino.

Library led matrix arduino juga sudah disediakan. Kita tinggal menerapkan saja.

Mesin JWS ukuran jumbo dengan Arduino nano 

Mesin utama JWS ukuran besar ini menggunakan 2 buah Arduino Nano, dan sebuah Atmega8 untuk memproses  sinyal dari Remote Control.

Jadwal sholat led P10 merah 

Silahkan Jika berminat bisa menghubungi nomor WA 0899 6399 146 atas nama Fauzi

cara membuat jam digital dan timer iqomah untuk masjid

cara membuat jam digital dan timer iqomah untuk masjid

Jam DIgital

Oktober 07, 2017 6 Comments

kit lengkap jadwal sholat digital

sahabat elektronika dimanapun berada, kali ini saya mau berbagi pengalaman bagaima cara membuat jam digital dan timer iqomah untuk masjid. jika sahabat juga berminat untuk membuat jam masjid ini bisa dengan mudah mengikuti panduan yang akan saya berikan, dan sahabat tidak perlu memprogram bertele tele untuk ini. semua program telah saya buat dalam IC, jadi tinggal solder dan rakit sendiri. jam digital dan timer iqomah masjid ini bisa diatur menggunakan tombol maupun remote control, jadi tidak direpotkan saat kita harus mencocokan jam dari jauh.

bagian bagian dari rangkaian jam digital dan timer iqomah untuk masjid ini terdiri dari kontroler utama dan display berupa seven segment. kontroler terdiri dari IC Mikrokontroler Atmega328P, IC RTC DS1307, IC EEPROM 24C64, IC regulator LM7805, Sensor Infra remote, Transistor, dan beberapa komponen pendukung. bagian tombol, Baterai Backup, dan buzzer sengaja dipisah untuk kenyamanan penggunaan dan pemeliharaan saat kita mengganti baterai backup. jika sahabat tidak mau repot dalam perakitan kontroler ini bisa order kontroler yang sudah jadi dan siap pakai. sehingga sahabat tinggal merangkai bagian display saja dengan mudah.

baca juga: cara mengisi data jadwal sholat ke EEPROM

berikut dibawah ini adalah rangkaian kontroler utama jam digital dan timer iqomah masjid

skema kontroler Jam Waktu Sholat Digital

Controller jam waktu sholat digital

berikut dibawah ini adalah rangkaian display jam seven segment jam, kalender, dan jadwal digital dan timer iqomah untuk masjid

Display jam sholat digital

Display kalender Jam waktu Sholat

display jadwal sholat digital

file PCB lengkap design jam sholat digital dapat anda ambil dengan mendownload pada File PCB JWS
file ini dibuka menggunakan Software Proteus, tinggal di cetak sesaui dengan keinginan sahabat sekalian.

cara kerja jam digital dan timer iqomah masjid

IC mikrokontroler membaca data jam, menit, detik, tanggal, hari, bulan, dan tahun yang ada di IC RTC DS1307. mikrokontroler juga membaca data jadwal sholat 1 tahun yang ada di IC EEPROM 24C64 yang telah kita isikan sebelumnya.

data tanggal harian kalender kemudian dicocokan dengan data jadwal sholat 1 tahun kemudian hasilnya ditampilkan pada display led seven segment. demikian pula tampilan jam, menit, tanggal, hari, bulan, dan tahun juga akan ditampilkan di display seven segment. setiap tanggal berubah saat itu juga tampilan jadwal ikut berubah secara otomatis.

pada saat waktu sholat tiba maka jam sholat digital ini akan secara otomatis menghitung mundur watu iqomah. jeda waktu iqomah bisa diatur sesuai keinginan, misal 15 menit, 20 menit atau 12 menit. setelah mendekati 0 buzzer akan berbunyi 3 kali sebagai akhir dari timer iqomah. dan tampilan dari jam digital dan timer iqomah  akan kembali ke tampilan normal.

itulah gambaran sedikit cara kerja jam sholat digital dengan timer iqomah otomati sepanjang masa. listrik padam jam akan tetap tersimpan. tidak perlu seting ulang.

sahabat juga bisa memesan modul jam digital dan timer iqomah masjid ini lengkap tinggal pasang di bingkai atau pigura. jadi akan menghemat waktu sahabat dalam membuat produk jam sholat digital ini. pengerjaan memakan waktu 1 minggu dari tanggal order. pemesanan jam sholat digital masjid diatas sudah lengkap dengan adaptor 1A dan sebuah Remote.

cara pemesanan modul kit jam sholat digital
transfer sejumlah uang 1.1 juta ke nomer rekening saya. silahkan WA 08996399146 untuk transaksi selanjutnya. kit jadwal sholat digital akan di rakit dalam tempo 1 minggu sejak tanggal transfer. jika lebih cepat tidak sampai 1 minggu akan dikabarkan. kit jadwal sholat digital ini tidak ready stock. ada transaksi baru di buatkan.

demikian sahabat semua dimanapun berada share saya dalam cara membuat jam waktu sholat digital masjid. semoga membawa kebaikan untuk kita semua.

Merakit jam dan timer iqomah digital

Merakit jam dan timer iqomah digital

Jam DIgital

Agustus 22, 2017 1 Comment

Waktu begitu berharga. Jangan sia siakan waktuku, termasuk dalam hal ibadah. Terutama kaum Muslimin. Ibadah lima waktu setiap harinya akan lebih bagus jika kita lakukan tepat waktu.

Pada kesempatan ini saya berikan sebuah artikel bagaiamana merakit jam dan timer iqomah untuk mushola maupun masjid. Dengan adanya jam dan timer iqomah maka ibadah sholat akan berjalan tepat waktu dan teratur.

Sebelum semua perangkat hardware kita rakit selalu terlebih dahulu kita desain hardware dan kembangkan software di komputer menggunakan bantuan komputer.

Berikut skema jam dan timer iqomah hasil rancangan saya sendiri sekaligus di simulasikan di software proteus.

Berikut foto dari kontroler jam dan timer iqomah. Kontroler menggunakan IC Atmega328, pewaktuan menggunakan RTC DS1307, penyimpan data jadwal sholat menggunakan Reptil 24C64, dan beberapa komponen pendukung lainnya.

Untuk display menggunakan seven segment 2.3inchi. Diatasnya terdapat led yang membentuk tulisan iqomah yang akan menyala saat counting down.

Untuk power supply dari jam dan timer karimah ini menggunakan adaptor switching atau SMPS dengan Arus 1A.

Untuk pemesanan jam san timer ia olah digital ini bisa hubungi WA 08996399146. Pengerjaan 1 minggu. Jika barang ready akan dikirim 1 hari setelah order.

merakit sendiri jam adzan berkumandang otomatis

merakit sendiri jam adzan berkumandang otomatis

Jam DIgital

Mei 24, 2017 2 Comments

merakit sendiri jam adzan berkumandang otomatis menggunakan Dispaly Led seven segment 2.3", atmega328 sebagai kontroler atau MCU, RTC DS1307 sebagai pewaktuan, Memory EEPROM 24C64 untuk menyimpan data jadwal sholat, dan Modul MP3 player untuk memutar suara adzan.

bentuk rangkaian jadi jam adzan otomatis bisa dilihat pada gambar diatas. bisa dipasang di kamar atau di ruang ibadah umat muslim. akan lebih bagus jika di buatkan bingkai dan kaligrafi.

skema dan simulasi jam adzan otomatis menggunakan proteus. 

PCB untuk Display Led Seven Segment 2.3" bisa dilihat pada gambar diatas. ukurannya 10x20 cm. tidak terlalu besar dan kecil. jadinya pas. he....

PCB untuk Display kontroler jam adzan otomatis bisa dilihat pada gambar diatas. ukurannya 10x20 cm. tidak terlalu besar dan kecil. jadinya pas. he....

LED Display 2.3" sudah terpasang

rangkaian kontroler jam adzan otomatis sudah disolder. 

rangkaian kontroler jam adzan otomatis dan display Led 2.3" sudah digabungkan. siap di tes........................................

membuat jam dan kalender hijriyah digital

membuat jam dan kalender hijriyah digital

Jam DIgital

April 19, 2017 4 Comments

pada kesempatan ini http://hobyfauzi.tk ingin berbagi pengalaman dan pengetahuan bagaimana merakit sendiri Jam dan kalender Hijriyah Digital. dan rasanya lebih cocok dipasang di tempat ibadah umat islam seperti di masjid dan mushola. boleh juga di sekolah-sekolah Madrasah.

untuk menghitung tanggal, bulan, dan tahun Hijriyah mengambil dari tanggal, bulan, dan tahun Masehi kemudian di konversi ke Hijriyah menggunakan rumus yang akan di jelaskan diakhir artikel ini. rumus ini menurut saya unik. salut but yang menemukan rumus ini. dan insya allah tepat dan akurat.

desain skema dan PCB menggunakan Proteus. software yang selama ini kami pakai dalam setiap perancangan sistem elektronik. terutama sistem elektronik digital berbasis Mikrokontroler. dengan proteus rangkaian Digital dapat di simulasikan dengan baik dan mendekati kenyataan.

komponen utama pada jam dan kalender hijriyah digital ini adalah Mikrokontroler Atmega328. untuk pewaktuannya menggunakan IC RTC DS1307. jam kalender hijriyah ini juga dapat mengingatkan kita saat tiba waktu sholat. untuk menyimpan data sholat menggunakan IC memori jenis EEPROM 24C64. jadi sebenarnya mirip jam sholat di masjid pada umumnya. cuma tidak ditampilkan jadwalnya pada display yang terpisah. 

sedangkan untuk pemrogramannya menggunakan Bascom-AVR. sebuah IDE Mikrokontroler berbasis bahasa Basic yang jauh lebih mudah dipahami dari bahasa Asembly. sudah terdapat library siap pakai untuk mengakses RTC DS1307 dan Memory AT24C64.

rumus Masehi ke Hijriyah:

JHH = JHM -227015

TH = INT (JHH / 354,367) + 1

XH = JHH - INT ((TH-1) x 354,367)

Contoh:

Tanggal 20 Juli 1980 M                                 

XM  = 201

JHH = JHM -227015

TH = INT (JHH / 354,367) + 1

XH = JHH - INT ((TH-1) x 354,367)

JHH = 723017 – 227015 = 496002                                                     

JHM = INT (( 1980-1 ) x 365,25 ) + 201 – 13 = 723017.        

TH = INT (496002 / 354,367) + 1 = 1400, 684508 (1400 H)  

XH = 496002 - INT (( 1400 -1 ) x 354,367 ) = 242, 567 (07 Ramadhan)

Maka: 20 Juli 1980 M = 07 Ramadhan 1400 H 

Keterangan:

JHM     :  Jumlah hari dalam tahun Masehi

TM       : Tahun Masehi

TH        : Tahun Hijriah

XM       : Jumlah hari tahun Masehi yang belum sempurna

XH        : Jumlah hari tahun Hijriah yang belum sempurna

XH        : Jumlah hari tahun Hijriyah yang belum sempurna

X1        : Anggaran Gregorius

NH       : Nama hari yang dicari

demikian share kami cara membuat  jam dan kalender hijriyah digital, semoga menambah ilmu dan pengetahuan. dan bermanfaat tentunya

Merakit sendiri jam dan Kalender Digital Dot Matrix

Merakit sendiri jam dan Kalender Digital Dot Matrix

Jam DIgital

Maret 22, 2017 Add Comment

tentunya menyenangkan sekali bisa merakit sendiri jam dan kalender digital dot matrix. dengan kita bisa merakit sendiri tentu ada kepuasan tersendiri. di samping itu bisa menghemat biaya dari pada membeli jadi. proyek ini merupakan pengembangan dari proyek sebelumnya yaitu merakit jam digital dot matrix pada postingan sebelumnya. jadi bisa dikatakan kita tambahkan fungsi kalender. pada proyek-proyek berikutnya bisa kita tambahkan dengan fungsi-fungsi yang lain yang terkait.

pada kesempatan ini saya mau berbagi kepada para elektro hobies mania bagaimana Merakit sendiri jam dan Kalender Digital Dot Matrix. bagi yang awam dengan dunia pemrograman Mikrokontroler jangan kuatir. file .hex akan saya lampirkan di akhir postingan. anda bisa salin sendiri dan di coba disimulasikan di Proteus , atau bisa diterapkan langsung ke jam dan kalender digital yang sudah dirakit sebelumnya. akan tetapi bagi yang ingin belajar pemrogramannya bisa mengikuti potongan-potongan kode yang saya berikan.

untuk kontroler jam digital dan kalender digital ini menggunakan Mikrokontroler Atmega328. Atmega328 membaca informasi jam dan tanggal dari IC RTC DS1307. kemudian informasi jam tanggal tersebut di proses dan di konversi ke sebuah Bufffer Display yang tersimpan di RAM Mikrokontroler yang merepresentasikan bentuk tampilan Dot matrix. kemudian data data itu dikeluarkan satu demi satu atau serial atau beruntun dengan kecepatan tinggi ke IC Serial to Pararel MAX7219, IC ini akan mengembalikan bentuk data yang tersimpan di RAM mikrokontroler ke display dot matrix. sehingga display dot matrix akan serupa isinya dengan buffer display.

berikut listing program pembacaan RTC DS1307. 

Getdatetime:

  I2cstart

  I2cwbyte Ds1307w

  I2cwbyte 0

  I2cstart

  I2cwbyte Ds1307r

  I2crbyte _sec , Ack

  I2crbyte _min , Ack

  I2crbyte _hour , Ack

  I2crbyte Weekday , Ack

  I2crbyte _day , Ack

  I2crbyte _month , Ack

  I2crbyte _year , Nack

  I2cstop

  Jam = Makedec(_hour)

  Menit = Makedec(_min)

  '_sec = Makedec(_sec) : _min = Makedec(_min) : _hour = Makedec(_hour)

  '_day = Makedec(_day) : _month = Makedec(_month) : _year = Makedec(_year)

Return

Setdate:

  _day = Makebcd(_day) : _month = Makebcd(_month) : _year = Makebcd(_year)

  I2cstart

  I2cwbyte Ds1307w

  I2cwbyte 4

  I2cwbyte _day

  I2cwbyte _month

  I2cwbyte _year

  I2cstop

Return

Settime:

  _sec = Makebcd(_sec) : _min = Makebcd(_min) : _hour = Makebcd(_hour)

  I2cstart

  I2cwbyte Ds1307w

  I2cwbyte 0

  I2cwbyte _sec

  I2cwbyte _min

  I2cwbyte _hour

  I2cstop

Return

kode ini akan menyimpan data satuan menit, puluhan menit, satuan jam, puluhan jam, satuan tanggal, puluhan tanggal, satuan bulan,puluhan bulan, satuan tahun, dan puluhan tahun ke dalam RAM Mikrokontroler.

sub bcdtoram

  'ambil nilai satuan & puluhan detik

   Satdetik = _sec And &B00001111

   Rotate _sec , Right , 4

   Puldetik = _sec And &B00001111

   'ambil nilai satuan & puluhan menit

   Satmin = _min And &B00001111

   Rotate _min , Right , 4

   Pulmin = _min And &B00001111

   'ambil nilai satuan & puluhan jam

   Satjam = _hour And &B00001111

   Rotate _hour , Right , 4

   Puljam = _hour And &B00001111

   'ambil nilai satuan & puluhan tanggal

   Sattgl = _day And &B00001111

   Rotate _day , Right , 4

   Pultgl = _day And &B00001111

   'ambil nilai satuan & puluhan bulan

   Satbln = _month And &B00001111

   Rotate _month , Right , 4

   Pulbln = _month And &B00001111

   'ambil nilai satuan & puluhan tahun

   Satthn = _year And &B00001111

   Rotate _year , Right , 4

   Pulthn = _year And &B00001111

end sub

dari kode di atas kita sudah mengantongi nilai-nilai jam, menit,tanggal,bulan,dan tahun. akan tetapi nilai tersebut belum bisa ditampilkan ke dot matrix. harus dikonversi dulu menggunakan kode di bawah ini

'konversi dec to dot
Sub Bcdtoled()
Select Case Bil
Case 0:
   Dot1 = Lookup(0 , Angka0)
   Dot2 = Lookup(1 , Angka0)
   Dot3 = Lookup(2 , Angka0)
   Dot4 = Lookup(3 , Angka0)
   Dot5 = Lookup(4 , Angka0)
   Dot6 = Lookup(5 , Angka0)
   Dot7 = Lookup(6 , Angka0)
   Dot8 = Lookup(7 , Angka0)
Case 1
   Dot1 = Lookup(0 , Angka1)
   Dot2 = Lookup(1 , Angka1)
   Dot3 = Lookup(2 , Angka1)
   Dot4 = Lookup(3 , Angka1)
   Dot5 = Lookup(4 , Angka1)
   Dot6 = Lookup(5 , Angka1)
   Dot7 = Lookup(6 , Angka1)
   Dot8 = Lookup(7 , Angka1)
Case 2:
   Dot1 = Lookup(0 , Angka2)
   Dot2 = Lookup(1 , Angka2)
   Dot3 = Lookup(2 , Angka2)
   Dot4 = Lookup(3 , Angka2)
   Dot5 = Lookup(4 , Angka2)
   Dot6 = Lookup(5 , Angka2)
   Dot7 = Lookup(6 , Angka2)
   Dot8 = Lookup(7 , Angka2)
Case 3:
   Dot1 = Lookup(0 , Angka3)
   Dot2 = Lookup(1 , Angka3)
   Dot3 = Lookup(2 , Angka3)
   Dot4 = Lookup(3 , Angka3)
   Dot5 = Lookup(4 , Angka3)
   Dot6 = Lookup(5 , Angka3)
   Dot7 = Lookup(6 , Angka3)
   Dot8 = Lookup(7 , Angka3)
Case 4:
   Dot1 = Lookup(0 , Angka4)
   Dot2 = Lookup(1 , Angka4)
   Dot3 = Lookup(2 , Angka4)
   Dot4 = Lookup(3 , Angka4)
   Dot5 = Lookup(4 , Angka4)
   Dot6 = Lookup(5 , Angka4)
   Dot7 = Lookup(6 , Angka4)
   Dot8 = Lookup(7 , Angka4)
Case 5:
   Dot1 = Lookup(0 , Angka5)
   Dot2 = Lookup(1 , Angka5)
   Dot3 = Lookup(2 , Angka5)
   Dot4 = Lookup(3 , Angka5)
   Dot5 = Lookup(4 , Angka5)
   Dot6 = Lookup(5 , Angka5)
   Dot7 = Lookup(6 , Angka5)
   Dot8 = Lookup(7 , Angka5)
Case 6:
   Dot1 = Lookup(0 , Angka6)
   Dot2 = Lookup(1 , Angka6)
   Dot3 = Lookup(2 , Angka6)
   Dot4 = Lookup(3 , Angka6)
   Dot5 = Lookup(4 , Angka6)
   Dot6 = Lookup(5 , Angka6)
   Dot7 = Lookup(6 , Angka6)
   Dot8 = Lookup(7 , Angka6)
Case 7:
   Dot1 = Lookup(0 , Angka7)
   Dot2 = Lookup(1 , Angka7)
   Dot3 = Lookup(2 , Angka7)
   Dot4 = Lookup(3 , Angka7)
   Dot5 = Lookup(4 , Angka7)
   Dot6 = Lookup(5 , Angka7)
   Dot7 = Lookup(6 , Angka7)
   Dot8 = Lookup(7 , Angka7)
Case 8:
   Dot1 = Lookup(0 , Angka8)
   Dot2 = Lookup(1 , Angka8)
   Dot3 = Lookup(2 , Angka8)
   Dot4 = Lookup(3 , Angka8)
   Dot5 = Lookup(4 , Angka8)
   Dot6 = Lookup(5 , Angka8)
   Dot7 = Lookup(6 , Angka8)
   Dot8 = Lookup(7 , Angka8)
Case 9:
   Dot1 = Lookup(0 , Angka9)
   Dot2 = Lookup(1 , Angka9)
   Dot3 = Lookup(2 , Angka9)
   Dot4 = Lookup(3 , Angka9)
   Dot5 = Lookup(4 , Angka9)
   Dot6 = Lookup(5 , Angka9)
   Dot7 = Lookup(6 , Angka9)
   Dot8 = Lookup(7 , Angka9)
Case 10:
   Dot1 = Lookup(0 , Strip)
   Dot2 = Lookup(1 , Strip)
   Dot3 = Lookup(2 , Strip)
   Dot4 = Lookup(3 , Strip)
   Dot5 = Lookup(4 , Strip)
   Dot6 = Lookup(5 , Strip)
   Dot7 = Lookup(6 , Strip)
   Dot8 = Lookup(7 , Strip)
End Select
End Sub

kode diatas merupakan kode konversi yang akan mengisi dot1 - dot8, kemudian data-data ini kita isikan ke buffer RAM dengan kode di bawah ini. karena kita menggunakan sebanyak 14 buah led 8x8 maka sub matrixnya sampai 14 saja.

'mengisi bufffer display
Sub Matrix1()
      Dotmatrix11 = Dot1
      Dotmatrix12 = Dot2
      Dotmatrix13 = Dot3
      Dotmatrix14 = Dot4
      Dotmatrix15 = Dot5
      Dotmatrix16 = Dot6
      Dotmatrix17 = Dot7
      Dotmatrix18 = Dot8
End Sub

Sub Matrix2()
      Dotmatrix21 = Dot1
      Dotmatrix22 = Dot2
      Dotmatrix23 = Dot3
      Dotmatrix24 = Dot4
      Dotmatrix25 = Dot5
      Dotmatrix26 = Dot6
      Dotmatrix27 = Dot7
      Dotmatrix28 = Dot8
End Sub

Sub Matrix3()
      Dotmatrix31 = Dot1
      Dotmatrix32 = Dot2
      Dotmatrix33 = Dot3
      Dotmatrix34 = Dot4
      Dotmatrix35 = Dot5
      Dotmatrix36 = Dot6
      Dotmatrix37 = Dot7
      Dotmatrix38 = Dot8
End Sub

Sub Matrix4()
      Dotmatrix41 = Dot1
      Dotmatrix42 = Dot2
      Dotmatrix43 = Dot3
      Dotmatrix44 = Dot4
      Dotmatrix45 = Dot5
      Dotmatrix46 = Dot6
      Dotmatrix47 = Dot7
      Dotmatrix48 = Dot8
End Sub

Sub Matrix5()
      Dotmatrix51 = Dot1
      Dotmatrix52 = Dot2
      Dotmatrix53 = Dot3
      Dotmatrix54 = Dot4
      Dotmatrix55 = Dot5
      Dotmatrix56 = Dot6
      Dotmatrix57 = Dot7
      Dotmatrix58 = Dot8
End Sub

Sub Matrix6()
      Dotmatrix61 = Dot1
      Dotmatrix62 = Dot2
      Dotmatrix63 = Dot3
      Dotmatrix64 = Dot4
      Dotmatrix65 = Dot5
      Dotmatrix66 = Dot6
      Dotmatrix67 = Dot7
      Dotmatrix68 = Dot8
End Sub

Sub Matrix7()
      Dotmatrix71 = Dot1
      Dotmatrix72 = Dot2
      Dotmatrix73 = Dot3
      Dotmatrix74 = Dot4
      Dotmatrix75 = Dot5
      Dotmatrix76 = Dot6
      Dotmatrix77 = Dot7
      Dotmatrix78 = Dot8
End Sub

Sub Matrix8()
      Dotmatrix81 = Dot1
      Dotmatrix82 = Dot2
      Dotmatrix83 = Dot3
      Dotmatrix84 = Dot4
      Dotmatrix85 = Dot5
      Dotmatrix86 = Dot6
      Dotmatrix87 = Dot7
      Dotmatrix88 = Dot8
End Sub

Sub Matrix9()
      Dotmatrix91 = Dot1
      Dotmatrix92 = Dot2
      Dotmatrix93 = Dot3
      Dotmatrix94 = Dot4
      Dotmatrix95 = Dot5
      Dotmatrix96 = Dot6
      Dotmatrix97 = Dot7
      Dotmatrix98 = Dot8
End Sub

Sub Matrix10()
      Dotmatrix101 = Dot1
      Dotmatrix102 = Dot2
      Dotmatrix103 = Dot3
      Dotmatrix104 = Dot4
      Dotmatrix105 = Dot5
      Dotmatrix106 = Dot6
      Dotmatrix107 = Dot7
      Dotmatrix108 = Dot8
End Sub

Sub Matrix11()
      Dotmatrix111 = Dot1
      Dotmatrix112 = Dot2
      Dotmatrix113 = Dot3
      Dotmatrix114 = Dot4
      Dotmatrix115 = Dot5
      Dotmatrix116 = Dot6
      Dotmatrix117 = Dot7
      Dotmatrix118 = Dot8
End Sub

Sub Matrix12()
      Dotmatrix121 = Dot1
      Dotmatrix122 = Dot2
      Dotmatrix123 = Dot3
      Dotmatrix124 = Dot4
      Dotmatrix125 = Dot5
      Dotmatrix126 = Dot6
      Dotmatrix127 = Dot7
      Dotmatrix128 = Dot8
End Sub

Sub Matrix13()
      Dotmatrix131 = Dot1
      Dotmatrix132 = Dot2
      Dotmatrix133 = Dot3
      Dotmatrix134 = Dot4
      Dotmatrix135 = Dot5
      Dotmatrix136 = Dot6
      Dotmatrix137 = Dot7
      Dotmatrix138 = Dot8
End Sub

Sub Matrix14()
      Dotmatrix141 = Dot1
      Dotmatrix142 = Dot2
      Dotmatrix143 = Dot3
      Dotmatrix144 = Dot4
      Dotmatrix145 = Dot5
      Dotmatrix146 = Dot6
      Dotmatrix147 = Dot7
      Dotmatrix148 = Dot8
End Sub

karena data-data RAM sudah terisi data penyalaan dot matrix led. selanjutnya data ini kita kirim ke dot matrix menggunakan kode dibawah ini

Sub Send1
   Reset Disp_en
   Shiftout Ser_data , Ser_clk , Dis1 , 0 , 8
   Shiftout Ser_data , Ser_clk , Dotmatrix11 , 0 , 8
   Shiftout Ser_data , Ser_clk , Dis1 , 0 , 8
   Shiftout Ser_data , Ser_clk , Dotmatrix21 , 0 , 8
   Shiftout Ser_data , Ser_clk , Dis1 , 0 , 8
   Shiftout Ser_data , Ser_clk , Dotmatrix31 , 0 , 8
   Shiftout Ser_data , Ser_clk , Dis1 , 0 , 8
   Shiftout Ser_data , Ser_clk , Dotmatrix41 , 0 , 8
   Shiftout Ser_data , Ser_clk , Dis1 , 0 , 8
   Shiftout Ser_data , Ser_clk , Dotmatrix51 , 0 , 8
   Shiftout Ser_data , Ser_clk , Dis1 , 0 , 8
   Shiftout Ser_data , Ser_clk , Dotmatrix61 , 0 , 8
   Shiftout Ser_data , Ser_clk , Dis1 , 0 , 8
   Shiftout Ser_data , Ser_clk , Dotmatrix71 , 0 , 8
   Shiftout Ser_data , Ser_clk , Dis1 , 0 , 8
   Shiftout Ser_data , Ser_clk , Dotmatrix81 , 0 , 8
   Shiftout Ser_data , Ser_clk , Dis1 , 0 , 8
   Shiftout Ser_data , Ser_clk , Dotmatrix91 , 0 , 8
   Shiftout Ser_data , Ser_clk , Dis1 , 0 , 8
   Shiftout Ser_data , Ser_clk , Dotmatrix101 , 0 , 8
   Shiftout Ser_data , Ser_clk , Dis1 , 0 , 8
   Shiftout Ser_data , Ser_clk , Dotmatrix111 , 0 , 8
   Shiftout Ser_data , Ser_clk , Dis1 , 0 , 8
   Shiftout Ser_data , Ser_clk , Dotmatrix121 , 0 , 8
   Shiftout Ser_data , Ser_clk , Dis1 , 0 , 8
   Shiftout Ser_data , Ser_clk , Dotmatrix131 , 0 , 8
   Shiftout Ser_data , Ser_clk , Dis1 , 0 , 8
   Shiftout Ser_data , Ser_clk , Dotmatrix141 , 0 , 8
   Shiftout Ser_data , Ser_clk , Dis1 , 0 , 8
   Shiftout Ser_data , Ser_clk , Dotmatrix151 , 0 , 8
   Shiftout Ser_data , Ser_clk , Dis1 , 0 , 8
   Shiftout Ser_data , Ser_clk , Dotmatrix161 , 0 , 8
   Set Disp_en

   Reset Disp_en
   Shiftout Ser_data , Ser_clk , Dis2 , 0 , 8
   Shiftout Ser_data , Ser_clk , Dotmatrix12 , 0 , 8
   Shiftout Ser_data , Ser_clk , Dis2 , 0 , 8
   Shiftout Ser_data , Ser_clk , Dotmatrix22 , 0 , 8
   Shiftout Ser_data , Ser_clk , Dis2 , 0 , 8
   Shiftout Ser_data , Ser_clk , Dotmatrix32 , 0 , 8
   Shiftout Ser_data , Ser_clk , Dis2 , 0 , 8
   Shiftout Ser_data , Ser_clk , Dotmatrix42 , 0 , 8
   Shiftout Ser_data , Ser_clk , Dis2 , 0 , 8
   Shiftout Ser_data , Ser_clk , Dotmatrix52 , 0 , 8
   Shiftout Ser_data , Ser_clk , Dis2 , 0 , 8
   Shiftout Ser_data , Ser_clk , Dotmatrix62 , 0 , 8
   Shiftout Ser_data , Ser_clk , Dis2 , 0 , 8
   Shiftout Ser_data , Ser_clk , Dotmatrix72 , 0 , 8
   Shiftout Ser_data , Ser_clk , Dis2 , 0 , 8
   Shiftout Ser_data , Ser_clk , Dotmatrix82 , 0 , 8
   Shiftout Ser_data , Ser_clk , Dis2 , 0 , 8
   Shiftout Ser_data , Ser_clk , Dotmatrix92 , 0 , 8
   Shiftout Ser_data , Ser_clk , Dis2 , 0 , 8
   Shiftout Ser_data , Ser_clk , Dotmatrix102 , 0 , 8
   Shiftout Ser_data , Ser_clk , Dis2 , 0 , 8
   Shiftout Ser_data , Ser_clk , Dotmatrix112 , 0 , 8
   Shiftout Ser_data , Ser_clk , Dis2 , 0 , 8
   Shiftout Ser_data , Ser_clk , Dotmatrix122 , 0 , 8
   Shiftout Ser_data , Ser_clk , Dis2 , 0 , 8
   Shiftout Ser_data , Ser_clk , Dotmatrix132 , 0 , 8
   Shiftout Ser_data , Ser_clk , Dis2 , 0 , 8
   Shiftout Ser_data , Ser_clk , Dotmatrix142 , 0 , 8
   Shiftout Ser_data , Ser_clk , Dis2 , 0 , 8
   Shiftout Ser_data , Ser_clk , Dotmatrix152 , 0 , 8
   Shiftout Ser_data , Ser_clk , Dis2 , 0 , 8
   Shiftout Ser_data , Ser_clk , Dotmatrix162 , 0 , 8
   Set Disp_en

   Reset Disp_en
   Shiftout Ser_data , Ser_clk , Dis3 , 0 , 8
   Shiftout Ser_data , Ser_clk , Dotmatrix13 , 0 , 8
   Shiftout Ser_data , Ser_clk , Dis3 , 0 , 8
   Shiftout Ser_data , Ser_clk , Dotmatrix23 , 0 , 8
   Shiftout Ser_data , Ser_clk , Dis3 , 0 , 8
   Shiftout Ser_data , Ser_clk , Dotmatrix33 , 0 , 8
   Shiftout Ser_data , Ser_clk , Dis3 , 0 , 8
   Shiftout Ser_data , Ser_clk , Dotmatrix43 , 0 , 8
   Shiftout Ser_data , Ser_clk , Dis3 , 0 , 8
   Shiftout Ser_data , Ser_clk , Dotmatrix53 , 0 , 8
   Shiftout Ser_data , Ser_clk , Dis3 , 0 , 8
   Shiftout Ser_data , Ser_clk , Dotmatrix63 , 0 , 8
   Shiftout Ser_data , Ser_clk , Dis3 , 0 , 8
   Shiftout Ser_data , Ser_clk , Dotmatrix73 , 0 , 8
   Shiftout Ser_data , Ser_clk , Dis3 , 0 , 8
   Shiftout Ser_data , Ser_clk , Dotmatrix83 , 0 , 8
   Shiftout Ser_data , Ser_clk , Dis3 , 0 , 8
   Shiftout Ser_data , Ser_clk , Dotmatrix93 , 0 , 8
   Shiftout Ser_data , Ser_clk , Dis3 , 0 , 8
   Shiftout Ser_data , Ser_clk , Dotmatrix103 , 0 , 8
   Shiftout Ser_data , Ser_clk , Dis3 , 0 , 8
   Shiftout Ser_data , Ser_clk , Dotmatrix113 , 0 , 8
   Shiftout Ser_data , Ser_clk , Dis3 , 0 , 8
   Shiftout Ser_data , Ser_clk , Dotmatrix123 , 0 , 8
   Shiftout Ser_data , Ser_clk , Dis3 , 0 , 8
   Shiftout Ser_data , Ser_clk , Dotmatrix133 , 0 , 8
   Shiftout Ser_data , Ser_clk , Dis3 , 0 , 8
   Shiftout Ser_data , Ser_clk , Dotmatrix143 , 0 , 8
   Shiftout Ser_data , Ser_clk , Dis3 , 0 , 8
   Shiftout Ser_data , Ser_clk , Dotmatrix153 , 0 , 8
   Shiftout Ser_data , Ser_clk , Dis3 , 0 , 8
   Shiftout Ser_data , Ser_clk , Dotmatrix163 , 0 , 8
   Set Disp_en

   Reset Disp_en
   Shiftout Ser_data , Ser_clk , Dis4 , 0 , 8
   Shiftout Ser_data , Ser_clk , Dotmatrix14 , 0 , 8
   Shiftout Ser_data , Ser_clk , Dis4 , 0 , 8
   Shiftout Ser_data , Ser_clk , Dotmatrix24 , 0 , 8
   Shiftout Ser_data , Ser_clk , Dis4 , 0 , 8
   Shiftout Ser_data , Ser_clk , Dotmatrix34 , 0 , 8
   Shiftout Ser_data , Ser_clk , Dis4 , 0 , 8
   Shiftout Ser_data , Ser_clk , Dotmatrix44 , 0 , 8
   Shiftout Ser_data , Ser_clk , Dis4 , 0 , 8
   Shiftout Ser_data , Ser_clk , Dotmatrix54 , 0 , 8
   Shiftout Ser_data , Ser_clk , Dis4 , 0 , 8
   Shiftout Ser_data , Ser_clk , Dotmatrix64 , 0 , 8
   Shiftout Ser_data , Ser_clk , Dis4 , 0 , 8
   Shiftout Ser_data , Ser_clk , Dotmatrix74 , 0 , 8
   Shiftout Ser_data , Ser_clk , Dis4 , 0 , 8
   Shiftout Ser_data , Ser_clk , Dotmatrix84 , 0 , 8
   Shiftout Ser_data , Ser_clk , Dis4 , 0 , 8
   Shiftout Ser_data , Ser_clk , Dotmatrix94 , 0 , 8
   Shiftout Ser_data , Ser_clk , Dis4 , 0 , 8
   Shiftout Ser_data , Ser_clk , Dotmatrix104 , 0 , 8
   Shiftout Ser_data , Ser_clk , Dis4 , 0 , 8
   Shiftout Ser_data , Ser_clk , Dotmatrix114 , 0 , 8
   Shiftout Ser_data , Ser_clk , Dis4 , 0 , 8
   Shiftout Ser_data , Ser_clk , Dotmatrix124 , 0 , 8
   Shiftout Ser_data , Ser_clk , Dis4 , 0 , 8
   Shiftout Ser_data , Ser_clk , Dotmatrix134 , 0 , 8
   Shiftout Ser_data , Ser_clk , Dis4 , 0 , 8
   Shiftout Ser_data , Ser_clk , Dotmatrix144 , 0 , 8
   Shiftout Ser_data , Ser_clk , Dis4 , 0 , 8
   Shiftout Ser_data , Ser_clk , Dotmatrix154 , 0 , 8
   Shiftout Ser_data , Ser_clk , Dis4 , 0 , 8
   Shiftout Ser_data , Ser_clk , Dotmatrix164 , 0 , 8
   Set Disp_en

   Reset Disp_en
   Shiftout Ser_data , Ser_clk , Dis5 , 0 , 8
   Shiftout Ser_data , Ser_clk , Dotmatrix15 , 0 , 8
   Shiftout Ser_data , Ser_clk , Dis5 , 0 , 8
   Shiftout Ser_data , Ser_clk , Dotmatrix25 , 0 , 8
   Shiftout Ser_data , Ser_clk , Dis5 , 0 , 8
   Shiftout Ser_data , Ser_clk , Dotmatrix35 , 0 , 8
   Shiftout Ser_data , Ser_clk , Dis5 , 0 , 8
   Shiftout Ser_data , Ser_clk , Dotmatrix45 , 0 , 8
   Shiftout Ser_data , Ser_clk , Dis5 , 0 , 8
   Shiftout Ser_data , Ser_clk , Dotmatrix55 , 0 , 8
   Shiftout Ser_data , Ser_clk , Dis5 , 0 , 8
   Shiftout Ser_data , Ser_clk , Dotmatrix65 , 0 , 8
   Shiftout Ser_data , Ser_clk , Dis5 , 0 , 8
   Shiftout Ser_data , Ser_clk , Dotmatrix75 , 0 , 8
   Shiftout Ser_data , Ser_clk , Dis5 , 0 , 8
   Shiftout Ser_data , Ser_clk , Dotmatrix85 , 0 , 8
   Shiftout Ser_data , Ser_clk , Dis5 , 0 , 8
   Shiftout Ser_data , Ser_clk , Dotmatrix95 , 0 , 8
   Shiftout Ser_data , Ser_clk , Dis5 , 0 , 8
   Shiftout Ser_data , Ser_clk , Dotmatrix105 , 0 , 8
   Shiftout Ser_data , Ser_clk , Dis5 , 0 , 8
   Shiftout Ser_data , Ser_clk , Dotmatrix115 , 0 , 8
   Shiftout Ser_data , Ser_clk , Dis5 , 0 , 8
   Shiftout Ser_data , Ser_clk , Dotmatrix125 , 0 , 8
   Shiftout Ser_data , Ser_clk , Dis5 , 0 , 8
   Shiftout Ser_data , Ser_clk , Dotmatrix135 , 0 , 8
   Shiftout Ser_data , Ser_clk , Dis5 , 0 , 8
   Shiftout Ser_data , Ser_clk , Dotmatrix145 , 0 , 8
   Shiftout Ser_data , Ser_clk , Dis5 , 0 , 8
   Shiftout Ser_data , Ser_clk , Dotmatrix155 , 0 , 8
   Shiftout Ser_data , Ser_clk , Dis5 , 0 , 8
   Shiftout Ser_data , Ser_clk , Dotmatrix165 , 0 , 8
   Set Disp_en

   Reset Disp_en
   Shiftout Ser_data , Ser_clk , Dis6 , 0 , 8
   Shiftout Ser_data , Ser_clk , Dotmatrix16 , 0 , 8
   Shiftout Ser_data , Ser_clk , Dis6 , 0 , 8
   Shiftout Ser_data , Ser_clk , Dotmatrix26 , 0 , 8
   Shiftout Ser_data , Ser_clk , Dis6 , 0 , 8
   Shiftout Ser_data , Ser_clk , Dotmatrix36 , 0 , 8
   Shiftout Ser_data , Ser_clk , Dis6 , 0 , 8
   Shiftout Ser_data , Ser_clk , Dotmatrix46 , 0 , 8
   Shiftout Ser_data , Ser_clk , Dis6 , 0 , 8
   Shiftout Ser_data , Ser_clk , Dotmatrix56 , 0 , 8
   Shiftout Ser_data , Ser_clk , Dis6 , 0 , 8
   Shiftout Ser_data , Ser_clk , Dotmatrix66 , 0 , 8
   Shiftout Ser_data , Ser_clk , Dis6 , 0 , 8
   Shiftout Ser_data , Ser_clk , Dotmatrix76 , 0 , 8
   Shiftout Ser_data , Ser_clk , Dis6 , 0 , 8
   Shiftout Ser_data , Ser_clk , Dotmatrix86 , 0 , 8
   Shiftout Ser_data , Ser_clk , Dis6 , 0 , 8
   Shiftout Ser_data , Ser_clk , Dotmatrix96 , 0 , 8
   Shiftout Ser_data , Ser_clk , Dis6 , 0 , 8
   Shiftout Ser_data , Ser_clk , Dotmatrix106 , 0 , 8
   Shiftout Ser_data , Ser_clk , Dis6 , 0 , 8
   Shiftout Ser_data , Ser_clk , Dotmatrix116 , 0 , 8
   Shiftout Ser_data , Ser_clk , Dis6 , 0 , 8
   Shiftout Ser_data , Ser_clk , Dotmatrix126 , 0 , 8
   Shiftout Ser_data , Ser_clk , Dis6 , 0 , 8
   Shiftout Ser_data , Ser_clk , Dotmatrix136 , 0 , 8
   Shiftout Ser_data , Ser_clk , Dis6 , 0 , 8
   Shiftout Ser_data , Ser_clk , Dotmatrix146 , 0 , 8
   Shiftout Ser_data , Ser_clk , Dis6 , 0 , 8
   Shiftout Ser_data , Ser_clk , Dotmatrix156 , 0 , 8
   Shiftout Ser_data , Ser_clk , Dis6 , 0 , 8
   Shiftout Ser_data , Ser_clk , Dotmatrix166 , 0 , 8
   Set Disp_en

   Reset Disp_en
   Shiftout Ser_data , Ser_clk , Dis7 , 0 , 8
   Shiftout Ser_data , Ser_clk , Dotmatrix17 , 0 , 8
   Shiftout Ser_data , Ser_clk , Dis7 , 0 , 8
   Shiftout Ser_data , Ser_clk , Dotmatrix27 , 0 , 8
   Shiftout Ser_data , Ser_clk , Dis7 , 0 , 8
   Shiftout Ser_data , Ser_clk , Dotmatrix37 , 0 , 8
   Shiftout Ser_data , Ser_clk , Dis7 , 0 , 8
   Shiftout Ser_data , Ser_clk , Dotmatrix47 , 0 , 8
   Shiftout Ser_data , Ser_clk , Dis7 , 0 , 8
   Shiftout Ser_data , Ser_clk , Dotmatrix57 , 0 , 8
   Shiftout Ser_data , Ser_clk , Dis7 , 0 , 8
   Shiftout Ser_data , Ser_clk , Dotmatrix67 , 0 , 8
   Shiftout Ser_data , Ser_clk , Dis7 , 0 , 8
   Shiftout Ser_data , Ser_clk , Dotmatrix77 , 0 , 8
   Shiftout Ser_data , Ser_clk , Dis7 , 0 , 8
   Shiftout Ser_data , Ser_clk , Dotmatrix87 , 0 , 8
   Shiftout Ser_data , Ser_clk , Dis7 , 0 , 8
   Shiftout Ser_data , Ser_clk , Dotmatrix97 , 0 , 8
   Shiftout Ser_data , Ser_clk , Dis7 , 0 , 8
   Shiftout Ser_data , Ser_clk , Dotmatrix107 , 0 , 8
   Shiftout Ser_data , Ser_clk , Dis7 , 0 , 8
   Shiftout Ser_data , Ser_clk , Dotmatrix117 , 0 , 8
   Shiftout Ser_data , Ser_clk , Dis7 , 0 , 8
   Shiftout Ser_data , Ser_clk , Dotmatrix127 , 0 , 8
   Shiftout Ser_data , Ser_clk , Dis7 , 0 , 8
   Shiftout Ser_data , Ser_clk , Dotmatrix137 , 0 , 8
   Shiftout Ser_data , Ser_clk , Dis7 , 0 , 8
   Shiftout Ser_data , Ser_clk , Dotmatrix147 , 0 , 8
   Shiftout Ser_data , Ser_clk , Dis7 , 0 , 8
   Shiftout Ser_data , Ser_clk , Dotmatrix157 , 0 , 8
   Shiftout Ser_data , Ser_clk , Dis7 , 0 , 8
   Shiftout Ser_data , Ser_clk , Dotmatrix167 , 0 , 8
   Set Disp_en

   Reset Disp_en
   Shiftout Ser_data , Ser_clk , Dis8 , 0 , 8
   Shiftout Ser_data , Ser_clk , Dotmatrix18 , 0 , 8
   Shiftout Ser_data , Ser_clk , Dis8 , 0 , 8
   Shiftout Ser_data , Ser_clk , Dotmatrix28 , 0 , 8
   Shiftout Ser_data , Ser_clk , Dis8 , 0 , 8
   Shiftout Ser_data , Ser_clk , Dotmatrix38 , 0 , 8
   Shiftout Ser_data , Ser_clk , Dis8 , 0 , 8
   Shiftout Ser_data , Ser_clk , Dotmatrix48 , 0 , 8
   Shiftout Ser_data , Ser_clk , Dis8 , 0 , 8
   Shiftout Ser_data , Ser_clk , Dotmatrix58 , 0 , 8
   Shiftout Ser_data , Ser_clk , Dis8 , 0 , 8
   Shiftout Ser_data , Ser_clk , Dotmatrix68 , 0 , 8
   Shiftout Ser_data , Ser_clk , Dis8 , 0 , 8
   Shiftout Ser_data , Ser_clk , Dotmatrix78 , 0 , 8
   Shiftout Ser_data , Ser_clk , Dis8 , 0 , 8
   Shiftout Ser_data , Ser_clk , Dotmatrix88 , 0 , 8
   Shiftout Ser_data , Ser_clk , Dis8 , 0 , 8
   Shiftout Ser_data , Ser_clk , Dotmatrix98 , 0 , 8
   Shiftout Ser_data , Ser_clk , Dis8 , 0 , 8
   Shiftout Ser_data , Ser_clk , Dotmatrix108 , 0 , 8
   Shiftout Ser_data , Ser_clk , Dis8 , 0 , 8
   Shiftout Ser_data , Ser_clk , Dotmatrix118 , 0 , 8
   Shiftout Ser_data , Ser_clk , Dis8 , 0 , 8
   Shiftout Ser_data , Ser_clk , Dotmatrix128 , 0 , 8
   Shiftout Ser_data , Ser_clk , Dis8 , 0 , 8
   Shiftout Ser_data , Ser_clk , Dotmatrix138 , 0 , 8
   Shiftout Ser_data , Ser_clk , Dis8 , 0 , 8
   Shiftout Ser_data , Ser_clk , Dotmatrix148 , 0 , 8
   Shiftout Ser_data , Ser_clk , Dis8 , 0 , 8
   Shiftout Ser_data , Ser_clk , Dotmatrix158 , 0 , 8
   Shiftout Ser_data , Ser_clk , Dis8 , 0 , 8
   Shiftout Ser_data , Ser_clk , Dotmatrix168 , 0 , 8
   Set Disp_en
End Sub

dalam looping (do.....loop)  kita tinggal menanamkan kode sebagai berikut

do
   gatedatetime

   bcdtoram

   Bil = Satthn
   Bcdtoled
   Matrix3

   Bil = Pulthn
   Bcdtoled
   Matrix4

   Bil = 0
   Bcdtoled
   Matrix5

   Bil = 2
   Bcdtoled
   Matrix6

   Bil = 10
   Bcdtoled
   Matrix7

   Bil = Satbln
   Bcdtoled
   Matrix8

   Bil = Pulbln
   Bcdtoled
   Matrix9

   Bil = 10
   Bcdtoled
   Matrix10

   Bil = Sattgl
   Bcdtoled
   Matrix11

   Bil = Pultgl
   Bcdtoled
   Matrix12

   Bil = Satmin
   Bcdtoled
   Matrix13

   Bil = Pulmin
   Bcdtoled
   Matrix14

   Bil = Satjam
   Bcdtoled
   Matrix15

   Bil = Puljam
   Bcdtoled
   Matrix16

   Send1

   Wait 1
loop