Source Corenya :
S_SET BIT P1.0 M_SET BIT P1.1 H_SET BIT P1.2 SECOND EQU 30H MINUTE EQU 31H HOUR EQU 32H TCNT EQU 34H ORG 00H SJMP START ORG 0BH LJMP INT_T0 START: MOV DPTR,#TABLE MOV HOUR,#12 MOV MINUTE,#0 MOV SECOND,#0 MOV TCNT,#0 MOV TMOD,#01H MOV TH0,-50000/256 MOV TL0,-50000 MOD 256 MOV IE,#82H SETB TR0 ;**************************************************** A1: LCALL DISPLAY JNB S_SET,S1 JNB M_SET,S2 JNB H_SET,S3 LJMP A1 S1: LCALL DELAY JB S_SET,A1 INC SECOND MOV A,SECOND CJNE A,#60,J0 MOV SECOND,#0 LJMP K1 S2: LCALL DELAY JB M_SET,A1 K1: INC MINUTE MOV A,MINUTE CJNE A,#60,J1 MOV MINUTE,#0 LJMP K2 S3: LCALL DELAY JB H_SET,A1 K2: INC HOUR MOV A,HOUR CJNE A,#24,J2 MOV HOUR,#0 MOV MINUTE,#0 MOV SECOND,#0 LJMP A1 ;**************************************************** J0: JB S_SET,A1 LCALL DISPLAY SJMP J0 J1: JB M_SET,A1 LCALL DISPLAY SJMP J1 J2: JB H_SET,A1 LCALL DISPLAY SJMP J2 ;*********************************************** INT_T0: MOV TH0,-50000/256 MOV TL0,-50000 MOD 256 INC TCNT MOV A,TCNT CJNE A,#20,RETUNE INC SECOND MOV TCNT,#0 MOV A,SECOND CJNE A,#60,RETUNE INC MINUTE MOV SECOND,#0 MOV A,MINUTE CJNE A,#60,RETUNE INC HOUR MOV MINUTE,#0 MOV A,HOUR CJNE A,#24,RETUNE MOV HOUR,#0 MOV MINUTE,#0 MOV SECOND,#0 MOV TCNT,#0 RETUNE: RETI ;****************************************** DISPLAY: MOV A,SECOND MOV B,#10 DIV AB mov p3,#14 ;detik pul ;CLR P3.6 MOVC A,@A+DPTR MOV P0,A LCALL DELAY mov p3,#0 ;SETB P3.6 MOV A,B mov p3,#15 ;detik sat ;CLR P3.7 MOVC A,@A+DPTR MOV P0,A LCALL DELAY mov p3,#0 ;SETB P3.7 ;CLR P3.5 mov p3,#13 ;setrip 2 MOV P0,#40H LCALL DELAY ;SETB P3.5 mov p3,#0 MOV A,MINUTE MOV B,#10 DIV AB mov p3,#11 ;menit sat ;CLR P3.3 MOVC A,@A+DPTR MOV P0,A LCALL DELAY mov p3,#0 ;SETB P3.3 MOV A,B mov p3,#12 ;menit pul ;CLR P3.4 MOVC A,@A+DPTR MOV P0,A LCALL DELAY mov p3,#0 ;SETB P3.4 ;CLR P3.2 mov p3,#10 ;setrip 1 MOV P0,#40H LCALL DELAY mov p3,#0 ;SETB P3.2 MOV A,HOUR MOV B,#10 DIV AB ;CLR P3.0 mov p3,#8 ;jam sat MOVC A,@A+DPTR MOV P0,A LCALL DELAY ;SETB P3.0 mov p3,#0 MOV A,B ;CLR P3.1 mov p3,#9 ;jam pul MOVC A,@A+DPTR MOV P0,A LCALL DELAY mov p3,#0 ;SETB P3.1 RET TABLE: DB 3FH,06H,5BH,4FH,66H DB 6DH,7DH,07H,7FH,6FH DELAY: MOV R6,#10 D1: MOV R7,#250 DJNZ R7,$ DJNZ R6,D1 RET END
pak tolong dibuatkan jam digital 7 segmen beserta keterangan komponennya, dan komponen atau IC yg mudah di cari diwilayah sragen....
BalasHapusemail ; dimasamfibia@gmail.com
makasih pak...
alumni 2003
Kalau pakai mikrokontroler IC AT89S51 dan 7 Segment, 1 Crystal 12 MHz, 2 C keramik 33pF, 1 Resistor 10K, 1 Elco 10uF dan tombol
BalasHapusMohon pencerahannya pak Suparno....Ini menggunakan bahasa apa ya, maklum baru belajar. Syukur2 ada yang menggunakan bascom avr. Saya tertarik untuk membuatnya. Kalau ada mohon sekiranya dikirimkan ke email saya yantoturbo@yahoo.com. Terimakasih atas bantuannya.
BalasHapuspak q minta sofwere nya ini q murid bapak dulu guntur elektro2 pak masih inget gak
BalasHapussoftwarenya cari di internet banyak pakai MIDE51
BalasHapusmantap pak, di tambahin RTC nantinya lebih presisi, pakai Dallas 12887, ...salam kenal
BalasHapusoia pak gimna sich cara nya membuat brik pemancar fm yg di gital oia pak udh nyoba,in blum yg autocard designer
BalasHapuspak bisa buat indikator finish line buat track tamiya ga? dengan indicator 7segmen. misal ada 4 track, masing2 track ada 7 segmennya.
BalasHapusAssalamualaikum, pak sy minta bantuan. tolong diberikan code assembly untuk jam 7 segmen atau jam dot yang bapak buat itu kan belum ada rtcnya. jadi tolong dibuatkan yang ada rtc1307 nya ya pak. makasih, kami tunggu.
BalasHapusprogramnya pakai softwere apa ?
BalasHapuseagle cvavr atau arduino
Sragen tidak ada mas komponen mikrokontroler adanya cuma komponen plip plop
BalasHapusProgramnya pakai bahasa Assembler dengan compiler MIDE51
BalasHapusKomentar ini telah dihapus oleh pengarang.
BalasHapusProgramnya bisa digunakan untuk penampil 7segmen& untuk tgl bln dan tahun dan jam. Jadi ada 2 tampil sekaligus dalam 2 baris masing display. Terimakasih mohon dibls ke khurey_sy@yahoo.com
BalasHapusPak kenapa tidak jalan, tidak muncul angka di 7segment nya
BalasHapusApa ada yg salah
Tolong pak komponen proteus isis nya
Apa2 saja?
Terima kasih
Kok saya gabisa ya?
BalasHapusPak minta nama komponen@2 nya dong ? gambar di atas kurang jelas...
BalasHapusMas klu angka digital nya ga muncul itu kenapa ya mas mohon pencerahan ya mas mksih ...
BalasHapus