Menyalakan Display 8 LED di Port 0

LAPORAN PRAKTEK 1 MENYALAKAN LAMPU LED DI PORT 1

---

Dikerjakan Oleh: Rabindreas ,NIS :8894 ,Kelas :XI TOI

---

1. Tujuan:
   A.Setelah siswa praktek diharapkan dapat :
   • Melakukan pemrograman mikrokontroler dengan bahasa Basic (Bascom)
   • Membuat rangkaian pengendali nyala lampu LED di P0
   • Menguji coba rangkaian dengan benar
   
   
2. Alat & Bahan :
   A.Alat :
   • Komputer dengan simulator Proteus
   • Gambar rencana kerja
   • Rencana program
   
   B.Bahan :
   • IC AT89s51
   • LED
   • Resistor 10K
   • Resistor 220 Ω
   • Kondensator 33p
   
   
3. Keselamatan Kerja
   
   • Berdo'a sebelum melakukan praktik
   • Tidak boleh bersendau gurau saat pelaksanaan praktik
   • Menghidupkan & mematikan komputer dengan prosuder yang benar
   
   
4. Instruksi Kerja
   
   • Memastikan alat & bahan siap digunakan
   • Memastikan telah memahami gambar kerja & source code program
   • Menulis source program dengan Bascom 89s51
   • Membuat rangkaian simulator rangkaian dengan Proteus
   • Membuat complier kode program untuk mendapatkan file #HEX
   • Melakukan uji coba rangkaian simulator
   
   
5. Gambar
   
   
6. Source Code
   

   $regfile = "reg51.dat"
   $crystal = 12000000
   
   Segmentu Alias P0
   Segmentd Alias P2
   Digit Alias P3
   
   Dim X As Byte
   Dim Data_digit As Byte
   
   Data_digit = 1
   Do
       For X = 0 To 7
       Digit = Data_digit
       Segmentu = Lookup(x , Atas)
       Segmentd = Lookup(x , Bawah)
       Waitms 1                                                  '5
       Rotate Data_digit , Left , 1
       Next X
   Loop
   
   Atas:
   Data 4
   Data 255
   Data 95
   Data 128
   Data 56
   Data 239
   Data 255
   Data 207
   
   
   
   Bawah:
   Data 183
   Data 221
   Data 93
   Data 119
   Data 255
   Data 213
   Data 221
   Data 255
   

7. Kesimpulan
   

   Dalam membuat rangkaian maupun pemrograman mikrokontroler,harus benar-benar paham/mengerti teori yang di berikan oleh instruktur,setelah sudah memahaminya,mulai mempraktekkannya dengan ketelitian & kesabaran.

INTRUKTUR		NAMA SISWA
( Suparno,Spd. )		( Rabindreas ,P )