LAPORAN PRAKTEK 8
MENJALANKAN 4 MOTOR BERURUTAN DI PORT 0

1. Tujuan :
   Setelah Siswa Praktek diharapkan dapat :
   • Melakukan Pemrograman Mikrokontroler dengan Bahasa Basic (Bascom)
   • Membuat Rangkain Pengendali Nyala Lampu LED di p0
   • Menguji Coba Rangkain dengan benar
   
   
2. Alat dan Bahan :
   1. Alat :
      1. Komputer dengan software simulator Proteus
      2. Gambar rencana kerja
      3. Rencana Program
   2. Bahan :
      1. IC AT89S51
      2. Resistor 10k
      3. Resistor 220 Ohm
      4. Kondensator 33pF
      5. Crystal 12 Mhz
      6. Lampu LED
      7. Motor 
      
      
3. Keselamatan Kerja :
   • Berdo'a lah sebelum melakukan praktek
   • Dilarang bersendaugurau saat melaksanakan praktek
   • Menghidupkan dan Mematikan Komputer dengan prosedur yang benar
   
   
4. Instruksi Kerja :
   1. Pastikan Alat dan Bahan siap di gunakan
   2. Pastikan telah memahami gambar kerja dan source code progam
   3. Tulis source progam dengan Bascom 8051
   4. Buat rangkaian simulator rangkaian dengan proteus
   5. Lakukan kompiler kode progam untuk mendapatkan file *HEX
   6. Lakukan donwload file *HEX ke dalam IC AT89S51
   7. Lakukan uji coba rangkaian simulator
   8. Jika terjadi kesalahan lakukan perbaikan program atau rangkaian
   9. Buat lah kesimpulan kerja
   10. Buat laporan hasil praktek
   11. Kembalikan alat dan bahan
   12. Matikan komputer menurut prosedur
5. Gambar Kerja :
   
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