Pages

Sabtu, 25 Mei 2013

Jam Digital 7 Segment

Rangkaian Simulator dengan Proteus :


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

18 komentar:

  1. pak tolong dibuatkan jam digital 7 segmen beserta keterangan komponennya, dan komponen atau IC yg mudah di cari diwilayah sragen....

    email ; dimasamfibia@gmail.com

    makasih pak...

    alumni 2003

    BalasHapus
  2. Kalau pakai mikrokontroler IC AT89S51 dan 7 Segment, 1 Crystal 12 MHz, 2 C keramik 33pF, 1 Resistor 10K, 1 Elco 10uF dan tombol

    BalasHapus
  3. Mohon 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.

    BalasHapus
  4. pak q minta sofwere nya ini q murid bapak dulu guntur elektro2 pak masih inget gak

    BalasHapus
  5. softwarenya cari di internet banyak pakai MIDE51

    BalasHapus
  6. mantap pak, di tambahin RTC nantinya lebih presisi, pakai Dallas 12887, ...salam kenal

    BalasHapus
  7. oia pak gimna sich cara nya membuat brik pemancar fm yg di gital oia pak udh nyoba,in blum yg autocard designer

    BalasHapus
  8. pak bisa buat indikator finish line buat track tamiya ga? dengan indicator 7segmen. misal ada 4 track, masing2 track ada 7 segmennya.

    BalasHapus
  9. Assalamualaikum, 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.

    BalasHapus
  10. programnya pakai softwere apa ?

    eagle cvavr atau arduino

    BalasHapus
  11. Sragen tidak ada mas komponen mikrokontroler adanya cuma komponen plip plop

    BalasHapus
  12. Programnya pakai bahasa Assembler dengan compiler MIDE51

    BalasHapus
  13. Komentar ini telah dihapus oleh pengarang.

    BalasHapus
  14. Programnya 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

    BalasHapus
  15. Pak kenapa tidak jalan, tidak muncul angka di 7segment nya
    Apa ada yg salah
    Tolong pak komponen proteus isis nya
    Apa2 saja?
    Terima kasih

    BalasHapus
  16. Pak minta nama komponen@2 nya dong ? gambar di atas kurang jelas...

    BalasHapus
  17. Mas klu angka digital nya ga muncul itu kenapa ya mas mohon pencerahan ya mas mksih ...

    BalasHapus

Silahkan berkomentar !