Teknik Elektronika Industri SMK Negeri 1 Bandar Masilam

LED Berjalan dengan IC 89C51 dan Pembuatan Layout (ISIS dan ARES)

Flip Flop

LED Berjalan dengan IC ATmega8

Traffic Light dengan IC 89C51

Simulasi Rangkaian Bel Pintu 2 Nada.

Assalamualaikum Wr.Wb

Dihalaman ini saya akan memberikan hasil simulasi Rangkaian Bel Pintu 2 Nada.

Komponen yang perlu digunakan:

1. IC 555
2. Dioda 1N4001 (2)
3. Resistor 33k (4)
5. Capasitor Elco 100uf (1)
6. Capasitor Elco 47uf (1)
7. Capasitor Ceramic 22np (1)
8. Button Atau Swith (1)
9. Speaker 8 ohm (1)
10. Batteray 12 V.

Gambar Simulasi:



Gambar Layout:


Gambar Depan:


Gambar Samping:


Gambar Belakang:



Semoga Berhasil!
Kurang Kebih saya mohon maaf apabila ada kesalahan.
Sekian dan Terima Kasih.
Assalamualaikum wr.wb





Simulasi Jam Digital dengan IC 4026 Pada Software Proteus.

Simulasi Jam Digital Pada Software Proteus.


Assalamualaikum Wr.Wb

Dihalaman ini saya akan memberikan hasil simulasi Jam Digital Pada Software Proteus.

Komponen yang perlu digunakan:

Diode 1N4148
Seven Segment Com Catoda
IC 555 (untuk Pulse 1 Hz)
IC 4026
IC 4073
BATTERY
BUTTON
CAP-ELEC (Untuk Pulse 1 Hz)
RES 4K7
RES 100
RES 200
RES 330

Pada Awalnya Kita Buat terlebih dahulu Pulse 1 Hz di software proteus.

Perhatikan Pulse 1 Hz:
Gambar Mengatur Pulse 1 Hz


Lalu Perhatikan Cara Mengatur Pulse 1 Hz:



Lalu Perhatikan Mengatur Properties pada Pulse 1 Hz:



Nah Selanjutnya Kamu Simulasikan Rangkaiannya dengan mengikuti contoh dibawa.
Gambar Simulasi:


Gambar Layout:





Gambar Depan:


Gambar Samping:


Gambar Belakang:




Semoga Berhasil!
Kurang Kebih saya mohon maaf apabila ada kesalahan.
Sekian dan Terima Kasih.
Assalamualaikum wr.wb




Simulasi Dadu LED

Dadu LED

 Simulasi Dadu LED Pada Software Proteus.


Assalamualaikum Wr.Wb

Dihalaman ini saya akan memberikan hasil simulasi Dadu LED Pada Software Proteus.

Komponen yang perlu digunakan:

IC 4017
Transistor BC547
BUTTON
DIODE (DEVICE) 10 (Buah)
HITEMP1U100V (Capasitor Elco)
HITEMP100U100V (Capasitot Elco)
LED YELLO
RES (Resistor):
R1 dan R4 = 1k
R2 dan R3 = 10k
R5 sampai R11 = 50 (untuk Output)

Gambar Simulasi:




Gambar Layout:



Gambar Depan:


Gambar Belakang:




Semoga Berhasil!
Kurang Kebih saya mohon maaf apabila ada kesalahan.
Sekian dan Terima Kasih.
Assalamualaikum wr.wb




Simulasi Teks Berjalan di LCD dengan IC Atmega16.

Assalamualaikum Wr.wb

Dihalaman ini saya akan memberikan hasil simulasi Teks Berjalan di LCD dengan IC Atmega16.

Komponen yang perlu digunakan:

Resistor Variable Tipe 3005P-1-101
IC ATMEGA16
BUTTON
LCD LM016L
Resistor


Gambar Simulasi:




Gambar Layout:




Gambar Depan :





Gambar Samping :




Gambar Belakang:




Ketika Ingin Membuat Programnya,
Tolong perhatikan untuk Alphanumeric LCD:


Gambar Alphanumeric LCD:





Baik Selanjutnya Bahasa Program yang digunakan:


Project : 
Version : 
Date    : 15/11/2015
Author  : Ikhsan Fahri
Company : Indonesia
Comments: 


Chip type               : ATmega16
Program type            : Application
AVR Core Clock frequency: 1,059200 MHz
Memory model            : Small
External RAM size       : 0
Data Stack size         : 256
*****************************************************/

#include <mega8535.h>
#include <delay.h>   // Tambahkan delay
#include "stdio.h"       //  Tambahkan Stdio


// Alphanumeric LCD functions
#include <alcd.h>

// Declare your global variables here
unsigned char data[29]={'' , '' , '' , '' , '', '' , '' , '' , '' , '' , '' , '' , '' , '' , '' , '' , 'I' , 'K' , 'H' , 'S' , 'A' , 'N'}; // ini harus sebaris..
unsigned char lcd_buffer[30];  // Ukuran LCD  Buffer harus lebih besar dari pada data, istilahnya sebagai wadah
unsigned char ulang, kolom_lcd; 

void main(void)
{
// Declare your local variables here

// Input/Output Ports initialization
// Port A initialization
// Func7=Out Func6=Out Func5=Out Func4=Out Func3=Out Func2=Out Func1=Out Func0=Out 
// State7=0 State6=0 State5=0 State4=0 State3=0 State2=0 State1=0 State0=0 
PORTA=0x00;
DDRA=0xFF;

// Port B initialization
// Func7=In Func6=In Func5=In Func4=In Func3=In Func2=In Func1=In Func0=In 
// State7=T State6=T State5=T State4=T State3=T State2=T State1=T State0=T 
PORTB=0x00;
DDRB=0x00;

// Port C initialization
// Func7=In Func6=In Func5=In Func4=In Func3=In Func2=In Func1=In Func0=In 
// State7=T State6=T State5=T State4=T State3=T State2=T State1=T State0=T 
PORTC=0x00;
DDRC=0x00;

// Port D initialization
// Func7=In Func6=In Func5=In Func4=In Func3=In Func2=In Func1=In Func0=In 
// State7=T State6=T State5=T State4=T State3=T State2=T State1=T State0=T 
PORTD=0x00;
DDRD=0x00;

// Timer/Counter 0 initialization
// Clock source: System Clock
// Clock value: Timer 0 Stopped
// Mode: Normal top=0xFF
// OC0 output: Disconnected
TCCR0=0x00;
TCNT0=0x00;
OCR0=0x00;

// Timer/Counter 1 initialization
// Clock source: System Clock
// Clock value: Timer1 Stopped
// Mode: Normal top=0xFFFF
// OC1A output: Discon.
// OC1B output: Discon.
// Noise Canceler: Off
// Input Capture on Falling Edge
// Timer1 Overflow Interrupt: Off
// Input Capture Interrupt: Off
// Compare A Match Interrupt: Off
// Compare B Match Interrupt: Off
TCCR1A=0x00;
TCCR1B=0x00;
TCNT1H=0x00;
TCNT1L=0x00;
ICR1H=0x00;
ICR1L=0x00;
OCR1AH=0x00;
OCR1AL=0x00;
OCR1BH=0x00;
OCR1BL=0x00;

// Timer/Counter 2 initialization
// Clock source: System Clock
// Clock value: Timer2 Stopped
// Mode: Normal top=0xFF
// OC2 output: Disconnected
ASSR=0x00;
TCCR2=0x00;
TCNT2=0x00;
OCR2=0x00;

// External Interrupt(s) initialization
// INT0: Off
// INT1: Off
// INT2: Off
MCUCR=0x00;
MCUCSR=0x00;

// Timer(s)/Counter(s) Interrupt(s) initialization
TIMSK=0x00;

// USART initialization
// USART disabled
UCSRB=0x00;

// Analog Comparator initialization
// Analog Comparator: Off
// Analog Comparator Input Capture by Timer/Counter 1: Off
ACSR=0x80;
SFIOR=0x00;

// ADC initialization
// ADC disabled
ADCSRA=0x00;

// SPI initialization
// SPI disabled
SPCR=0x00;

// TWI initialization
// TWI disabled
TWCR=0x00;

// Alphanumeric LCD initialization
// Connections are specified in the
// Project|Configure|C Compiler|Libraries|Alphanumeric LCD menu:
// RS - PORTA Bit 0
// RD - PORTA Bit 1
// EN - PORTA Bit 2
// D4 - PORTA Bit 4
// D5 - PORTA Bit 5
// D6 - PORTA Bit 6
// D7 - PORTA Bit 7
// Characters/line: 16
lcd_init(16);

while (1)
  { for
  (ulang=0;  ulang<=29; ulang++)  
       {
       lcd_clear( );
       for (kolom_lcd=0; kolom_lcd<=15; kolom_lcd++)
             {            

               sprintf(lcd_buffer,"%c",data[ulang+kolom_lcd]);   //perhatikan Format ini.
               lcd_gotoxy(kolom_lcd,0);
               lcd_puts(lcd_buffer);  
              } ;
          delay_ms (5); 
          };
  }
     }

Baik Tolong Perhatikan Gambar dibawah ini:

Awal Perhatikan includenya harus sesuai.




dan dan LCD initnya...





Semoga Berhasil!
Kurang lebih saya mohon maaf apabila
ada kesalahan.
Sekian dan terima kasih.
Assalamualaikum Wr.wb






Simulasi Flip-Flop Pada Software Proteus.

Simulasi Flip-Flop Pada Software Proteus.

Assalamualaikum Wr.Wb

Dihalaman ini saya akan memberikan hasil simulasi Flip-Flop Pada Software Proteus.


Komponen yang perlu digunakan:

Resistor 1 dan 4 (220 ohm)
Resistor 2 dan 4 (100 kilo Ohm)
Capasitor 1 dan 2 (0,2 uf)
Transistor NPN BC547
LED (2 Buah)

Gambar Simulasi:



Gambar Layout:

Gambar Depan:




Gambar Belakang:



Semoga Berhasil!
Kurang lebih saya mohon maaf apabila
ada kesalahan.
Sekian dan terima kasih.
Assalamualaikum Wr.wb


Ujian Kompetensi Keahlian Sekolah Menengah Kejuruan Tahun 2015

Ujian Kompetensi Keahlian Sekolah Menengah Kejuruan Tahun 2015
Jurusan Teknik Elektronika Industri

Assalamualaikum Wr.wb

Halaman Ini memberikan Hasil Ujian Kompetensi Keahlian SMK 2015

Dengan membuat Counter Display 00-99 dan 99-00

Komponen yang digunakan:

7-Segment Common Anoda (2 buah)
Capasitor Ceramic 30 parad (2 buah)
Resistor 1k ohm (1 buah)
Resistor 220 ohm (16 buah)
Resistor 10k ohm (2 buah)
Cristall 11,059 Mhz (1 buah)
Capasitor elco 1 micro parad (1 buah)
IC 89s51/89s52 (1 buah)
Swith Push Button (3 buah)
ISP

Gambar Skema Rangkaian:





Bahasa Program yang digunakan adalah Assembler:

; ************Conter Display 00-99 and 99-00***********
; ************By Ikhsan Fahri**************************
; ************Kelas XII TEI****************************
; ************Soal Ujian Kompentensi Keahlian**********
; ************Tahun Ajaran 2014/2015*******************  
    dispdata_satuan         equ     p2
        dispdata_puluhan        equ     p0

My_number       equ     30H
; ************Start************************************
Org             0000H
Main_prog:    Mov     p0,#0c0H
                       Mov     p2,#0c0H
                       Mov     My_number,#0
                       JNB     p1.0,up_A
                       JNB     p1.1,down_A
                       Sjmp    main_prog

Up_A:            Mov     a, My_number
                       Cjne    A,#99, Up
                       mov     My_number,#0FFH
                       Sjmp    Up

Down_A:       Mov     a,My_number
                       Cjne    A,#0,down
                       Mov     My_number,#99H
                       Sjmp    down

Up:                 Inc     My_number               :nilai ditambah
                       JNB     P1.1,down
                       call    BCD
                       call    delay
                       mov     a, My_number
                       Cjne    A,#99, Up
                       Mov     My_number,#0FFh         :jika Nilai sama 00 maka nilai sama dengan 255
                       Sjmp    Up

down:             dec     My_number               :Nilai dikurangi
                       Jnb     p1.0,Up
                       Call    Bcd
                       Call    delay
                       Mov     a, My_number
                       Cjne    A,#00,down              :Jika nilai tidak sama 00 maka kembali ke down
                       mov     My_number,#100          :Jika nilai sama 00 maka nilai sama dengan 100

BCD:              Mov     A,My_number
                        mov     B,#10
                        Div     AB                      :Pembagian A/10
                        call    seg_conv
                        mov     dispdata_puluhan, A:Puluhan
                        mov     A,B
                        call    seg_conv
                        mov     dispdata_satuan, A:satuan
                        Ret

Seg_conv:       Inc     A
                        Movc    A,@A+PC
                        RET
     
                         DB      0C0H    ;angka 0
                         DB      0F9H    ;angka 1
                         DB      0A4H    ;angka 2
                         DB      0B0H    ;angka 3
                         DB      099H    ;angka 4
                         DB      092H    ;angka 5
                         DB      082H    ;angka 6
                         DB      0F8H    ;angka 7
                         DB      080H    ;angka 8
                         DB      090H    ;angka 9

delay:               mov     R5,#0FFH
                         mov     R6,#0FFH
                         mov     R7,#2

delay_loop:    DJNZ    R5,delay_loop
                       DJNZ    R6,delay_loop
                       DJNZ    R7,delay_loop
                       RET
                       END
; ****************Selesai**********************

Gambar Simulasi di Proteus:




Gambar Tata Letak Komponen:


Gambar Layout:



Gambar Hasil Jadi:


Baik Demikianlah Hasil UKK SMK tahun 2015.
Mohon Maaf apabila ada kesalahan dalam membuat Halaman ini.
Sekian dan terima kasih.
Assalamualaikum Wr.wb

KONVERSI BILANGAN BINER, OCTAL, DESIMAL, HEXADESIMAL

KONVERSI BILANGAN BINER, OCTAL, DESIMAL, HEXADESIMAL

Kali ini saya ingin memposting tentang cara konversi empat jenis bilangan yakni:
Bilangan biner (Bilangan berbasis dua, bilangannya: 0,1)
Bilangan octal (Bilangan berbasis delapan bilangannya: 0,1,2,3,4,5,6,7)
Bilangan desimal (Bilangan berbasis sepuluh, bilangannya: 0,1,2,3,4,5,6,7,8,9)
Bilangan hexadesimal (Bilangan berbasis enam belas, bilangannya: 0,1,2,3,4,5,6,7,8,9,A,B,C,D,E,F)

Untuk pengertian jenis-jenis bilangan bisa dibaca di post saya sebelumnya.

Konversi bilangan adalah proses mengubah bentuk bilangan satu ke bentuk bilangan lain yang memiliki nilai yang sama. Misal: nilai bilangan desimal 12 memiliki nilai yang sama dengan bilangan octal 15; Nilai bilangan biner 10100 memiliki nilai yang sama dengan 24 dalam octal dan seterusnya.

Mari kita mulai:

Konversi bilangan biner, octal atau hexadesimal menjadi bilangan desimal.
Konversi dari bilangan biner, octal atau hexa menjadi bilangan desimal memiliki konsep yang sama.Konsepnya adalah bilangan tersebut dikalikan basis bilangannya yang dipangkatkan 0,1,2 dst dimulai dari kanan. Untuk lebih jelasnya silakan lihat contoh konversi bilangan di bawah ini;

Konversi bilangan octal ke desimal. 
Cara mengkonversi bilangan octal ke desimal adalah dengan mengalikan satu-satu bilangan dengan 8 (basis octal) pangkat 0 atau 1 atau 2 dst dimulai dari bilangan paling kanan. Kemudian hasilnya dijumlahkan. Misal, 137(octal) = (7x80) + (3x81) + (1x82) = 7+24+64 = 95(desimal).
Lihat gambar:


















Konversi bilangan biner ke desimal.

Cara mengkonversi bilangan biner ke desimal adalah dengan mengalikan satu-satu bilangan dengan 2 (basis biner) pangkat 0 atau 1 atau 2 dst dimulai dari bilangan paling kanan. Kemudian hasilnya dijumlahkan. Misal, 11001(biner) = (1x20) + (0x21) + (0x22) + (1x2) + (1x22) = 1+0+0+8+16 = 25(desimal).







Konversi bilangan hexadesimal ke desimal.

Cara mengkonversi bilangan biner ke desimal adalah dengan mengalikan satu-satu bilangan dengan 16 (basis hexa) pangkat 0 atau 1 atau 2 dst dimulai dari bilangan paling kanan. Kemudian hasilnya dijumlahkan. Misal, 79AF(hexa) = (Fx20) + (9x21) + (Ax22) = 15+144+2560+28672 = 31391(desimal).


Konversi bilangan desimal menjadi bilangan biner, octal atau hexadesimal.
Konversi dari bilangan desimal menjadi biner, octal atau hexadesimal juga memiliki konse yang sama. Konsepnya bilangan desimal harus dibagi dengan basis bilangan tujuan, hasilnya dibulatkan kebawah dan sisa hasil baginya (remainder) disimpan. Ini dilakukan terus menerus hingga hasil bagi < basis bilangan tujuan. Sisa bagi ini kemudian diurutkan dari yang paling akhir hingga yang paling awal dan inilah yang merupakan hasil konversi bilangan tersebut. Untuk lebih jelasnya lihat pada contoh berikut;
Konversi bilangan desimal ke biner.
Cara konversi bilangan desimal ke biner adalah dengan membagi bilangan desimal dengan 2 dan menyimpan sisa bagi per seitap pembagian terus hingga hasil baginya < 2. Hasil konversi adalah urutan sisa bagi dari yang paling akhir hingga paling awal. Contoh:

125(desimal) = .... (biner)
125/2 = 62 sisa bagi 1
62/2= 31    sisa bagi 0
31/2=15     sisa bagi 1
15/2=7       sisa bagi 1
7/2=3         sisa bagi 1
3/2=1         sisa bagi 1

hasil konversi: 1111101
Lihat gambar:


Konversi bilangan desimal ke octal.
Cara konversi bilangan desimal ke octal adalah dengan membagi bilangan desimal dengan 8 dan menyimpan sisa bagi per seitap pembagian terus hingga hasil baginya < 8. Hasil konversi adalah urutan sisa bagi dari yang paling akhir hingga paling awal. 
Contoh lihat gambar:


Konversi bilangan desimal ke hexadesimal. 
Cara konversi bilangan desimal ke octal adalah dengan membagi bilangan desimal dengan 16 dan menyimpan sisa bagi per seitap pembagian terus hingga hasil baginya < 16. Hasil konversi adalah urutan sisa bagi dari yang paling akhir hingga paling awal. Apabila sisa bagi diatas 9 maka angkanya diubah, untuk nilai 10 angkanya A, nilai 11 angkanya B, nilai 12 angkanya C, nilai 13 angkanya D, nilai 14 angkanya E, nilai 15 angkanya F. 
Contoh lihat gambar:

Konversi bilangan octal ke biner dan sebaliknya.

Konversi bilangan octal ke biner.
Konversi bilangan octal ke biner caranya dengan memecah bilangan octal tersebut persatuan bilangan kemudian masing-masing diubah kebentuk biner tiga angka. Maksudnya misalkan kita mengkonversi nilai 2 binernya bukan 10 melainkan 010. Setelah itu hasil seluruhnya diurutkan kembali. 
Contoh:

Konversi bilangan biner ke octal.
Konversi bilangan biner ke octal sebaliknya yakni dengan mengelompokkan angka biner menjadi tiga-tiga dimulai dari sebelah kanan kemudian masing-masing kelompok dikonversikan kedalam angka desimal dan hasilnya diurutkan. 
Contoh lihat gambar:



Konversi bilangan hexadesimal ke biner dan sebaliknya.
Konversi bilangan hexadesimal ke biner.
Sama dengan cara konversi bilanga octal ke biner, bedanya kalau bilangan octal binernya harus 3 buah, bilangan desimal binernya 4 buah. Misal kita konversi 2 hexa menjadi biner hasilnya bukan 10 melainkan 0010. 
Contoh lihat gambar:


Konversi bilangan biner ke hexadesimal.
Teknik yang sama pada konversi biner ke octal. Hanya saja pengelompokan binernya bukan tiga-tiga sebagaimana pada bilangan octal melainkan harus empat-empat. 
Contoh lihat gambar:


Konversi bilangan hexadesimal ke octal dan sebaliknya
Konversi bilangan octal ke hexadesimal.
Teknik mengonversi bilangan octal ke hexa desimal adalah dengan mengubah bilangan octal menjadi biner kemudian mengubah binernya menjadi hexa. Ringkasnya octal->biner->hexa lihat contoh,


Konversi bilangan hexadesimal ke octal.Begitu juga dengan konversi hexa desimal ke octal yakni dengan mengubah bilangan hexa ke biner kemudian diubah menjadi bilangan octal. Ringkasnya hexa->biner->octal.
 Lihat contoh;







Demikian Penjelasan tentang Konversi Bilangan.
Mohon maaf apabila ada kesalahan dalam pembuatan ataupun penggunaan bahasa yang kurang baik.
Sekian dan Terima Kasih.
Assalamualaikum Wr.wb




Simulasi Traffic Light pada IC 89s51

Simulasi Traffic Light Pada IC 89s51

By : Ikhsan Fahri

Komponen yang dipakai :

1. IC 89S51
2. Crystall 1 Mhz 
3. Capasitor Ceramic 
4. LED
5. Resistor 1k (Untuk Reset)
6. Capasitor Elco 46 Micro Farad

Dalam Rangkaian ini Traffic Light Berganti dalam Waktu 10 Detik.

Bahasa Program yang di pakai adalah Assemble


       
org     0000h                        ; awal dari sebuah program
start:
acall tl_1                      ;panggil label tl_1
acall del_1s                    ;panggil label del_1s, tunda waaktu 1 detik
acall tl_2
acall del_1s
acall tl_3
acall del_1s
acall tl_4
acall del_1s
sjmp start                      ; lompat ke label start, mengulang secara terus menerus


tl_1:
mov p0,#11011110b                ;pindah nilai biner 11011110b ke port 0.
mov p2,#11110110b
acall del_10s                   ;panggil del_10s, tunda waktu 10 detik                                
mov p0,#11011101b
mov p2,#11110110b
acall del_1s
mov p0,#11011111b
mov p2,#11110110b
acall del_1s
mov p0,#11011101b
mov p2,#11110110b
acall del_1s
mov p0,#11011111b
mov p2,#11110110b
acall del_1s
mov p0,#11011101b
mov p2,#11110110b
acall del_1s
mov p0,#11011011b
mov p2,#11110110b
ret
tl_2:
        mov p0,#11110011b
        mov p2,#11110110b
        acall del_10s
        mov p0,#11101011b
        mov p2,#11110110b
        acall del_1s
        mov p0,#11111011b
        mov p2,#11110110b
        acall del_1s
        mov p0,#11101011b
        mov p2,#11110110b
        acall del_1s
        mov p0,#11111011b
        mov p2,#11110110b
        acall del_1s
        mov p0,#11101011b
        mov p2,#11110110b
        acall del_1s
        mov p0,#11011011b
        mov p2,#11110110b
        ret
tl_3:
        mov p0,#10011011b
        mov p2,#11110111b
        acall del_10s
        mov p0,#01011011b
        mov p2,#11110111b
        acall del_1s
        mov p0,#11011011b
        mov p2,#11110111b
        acall del_1s
        mov p0,#01011011b
        mov p2,#11110111b
        acall del_1s
        mov p0,#11011011b
        mov p2,#11110111b
        acall del_1s
        mov p0,#01011011b
        mov p2,#11110111b
        acall del_1s
        mov p0,#11011011b
        mov p2,#11110110b
        ret
tl_4:
        mov p0,#11011011b
        mov p2,#11111100b
        acall del_10s
        mov p0,#11011011b
        mov p2,#11111010b
        acall del_1s
        mov p0,#11011011b
        mov p2,#11111110b
        acall del_1s
        mov p0,#11011011b
        mov p2,#11111010b
        acall del_1s
        mov p0,#11011011b
        mov p2,#11111110b
        acall del_1s
        mov p0,#11011011b
        mov p2,#11111010b
        acall del_1s
        mov p0,#11011011b
        mov p2,#11110110b
        ret
del_10s:
        push acc               ;simpan acc pada stack pointer
        push 00h               ;simpan 00h pada stack pointer
        mov a,#10
del1:
        call del_1s
        djnz acc, del1          ;kurangi acc dengan 1 sampai 0, lompat ke label del_1s
        pop 00h                 ;keluarkan 00h pada stack pointer.
        pop acc                 ;keluarkan acc pada stack pointer.
        ret                     ;kembali ke label yang melakukan call.
del_1s:
        mov tmod,#01h
        mov th0,#3ch            ;yang menyebabkan tunda waktu 1 detik.
        mov tl0,0b0h            ;yang menyebabkan tunda waktu 1 detik.
        mov r7,#00h
        setb tr0
del:
        jnb tf0,del
        mov th0,#3ch
        mov tl0,#0b0h
        clr tf0
        inc r7
        cjne r7,#14,del         ;yang menyebabkan tunda waktu 1 detik.
        ret
        end                     ;akhir dari sebuah program














Baik itulah hasil simulasi Traffic Light.
Semoga Bermanfaat.
Assalamualaikum Wr.Wb