Tuesday, 7 May 2013

Menampilkan karakter pada 16 segment

LAPORAN PRAKTEK 4 Menampilkan karakter pada 16 segmend =>OLEH RABINDREAS

LAPORAN PRAKTEK 4 Menampilkan karakter pada 16 segmend

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 tampilan karakter pada 16 segmend
    • Menguji coba rangkaian dengan benar

  2. Alat & Bahan :
    A.Alat :
    • Komputer dengan simulator Proteus
    • Gambar rencana kerja
    • Rencana program

    B.Bahan :
    • IC AT89s51
    • Respack-8
    • 16 segmend x8

  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
    '===================================
'LCD BASCOM AVR
'PROGRAMER :Rabindreas
'COMPANY   :SMK BINAWIYATA SRAGEN
'===================================

$regfile = "m32def.dat"
$crystal = 8000000

Config Lcdpin = Pin , Db4 = Portd.4 , Db5 = Portd.5,
Db6 = Portd.6 , Db7 = Portd.7 , E = Portd.2 , Rs=
Portd.0
Config Lcd = 20 * 2

Deflcdhar 1 , 32 , 10 , 31 , 14 , 4 , 32 , 32 , 32
'replace?with number(0-7)'

Dim Y As Integer

Do

Cls
Cursor Off
Locate 1 , 1
Lcd Chr(1) ; "LCD Bascom AVR" ; Chr(1)
Locate 2 , 1
Lcd "SMK BINAWIYATA"
Wait 1

Cls
Cursor Off
Locate 1 , 1
Lcd "SMK BINAWIYATA-TEST LCD BASCOM AVR"
For Y = 1 To 46
   Shifttlcd Left
   Waitms 250
   Next

   Cls


Loop
  7. Kesimpulan

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

Mengetahui
INTRUKTUR
  
NAMA SISWA
 
( Suparno,Spd. )
  
( Rabindreas ,P )
Posted by at No comments:
Labels:

Menjalankan Motor Putar Kanan/Kiri

LAPORAN PRAKTEK 7 Menjalankan Motor Putar Kanan/Kiri=>OLEH RABINDREAS

LAPORAN PRAKTEK 7 Menjalankan Motor Putar Kanan/Kiri

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 Motor Putar Kanan/Kiri
    • Menguji coba rangkaian dengan benar

  2. Alat & Bahan :
    A.Alat :
    • Komputer dengan simulator Proteus
    • Gambar rencana kerja
    • Rencana program

    B.Bahan :
    • Lcd 16*2.
    • Ic AT89C51.
    • Clock.
    • Motor DC.
    • Lampu LED(kunig,hijau,merah).
    • Button.
    • Dioda 1N4001.
    • Transistor 2N2219.
    • Relay.
    • Respack.

  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

Config Lcdpin = Pin , Db4 = P0.4 , Db5 = P0.5 , Db6 = P0.6  
Config Lcdpin = Pin ,Db7 = P0.7 , E = P0.0 , Rs = P0.1
Cursor Off
P2 = 0
P3 = 0


Locate 1 , 1
Lcd "   MOTOR PUTAR   "
Locate 2 , 1
Lcd "   KANAN /KIRI"
Wait 2
Locate 1 , 1
Lcd "      Oleh      "
Locate 2 , 1
Lcd "  RABINDREAS"
Wait 3
Locate 1 , 1
Lcd "     TELAH         "
Locate 2 , 1
Lcd "      SIAP          "
Wait 4

Do
If P1.0 = 0 And P2 = 0 Then
P2 = 1
P3.1 = 1

Locate 1 , 1
Lcd "  MOTOR BERPUTAR  "
Locate 2 , 1
Lcd "     KANAN    "
End If

If P1.1 = 0 And P2 = 1 Then
P2 = 0
P3.1 = 0

Locate 1 , 1
Lcd "  MOTOR SEDANG  "
Locate 2 , 1
Lcd "    BERHENTI   "
End If

If P1.2 = 0 And P2 = 0 Then
P2 = 2
P3.0 = 1

Locate 1 , 1
Lcd "  MOTOR BERPUTR  "
Locate 2 , 1
Lcd "      KIRI   "
End If

If P1.3 = 0 And P2 = 2 Then
P2 = 0
P3.0 = 0

Locate 1 , 1
Lcd "  MOTOR SEDANG  "
Locate 2 , 1
Lcd "    BERHENTI   "
End If

If P1.4 = 0 And P2 = 1 Then
P2 = 4
P3 = 4

Locate 1 , 1
Lcd "  MOTOR SEDANG  "
Locate 2 , 1
Lcd "  !!OVERLOAD!!   "
End If

If P1.4 = 0 And P2 = 2 Then
P2 = 8
P3 = 4

Locate 1 , 1
Lcd "  MOTOR SEDANG  "
Locate 2 , 1
Lcd "  !!OVERLOAD!!   "
End If

If P1.5 = 0 And P2 = 4 Then
P2 = 0
P3 = 0

Locate 1 , 1
Lcd "     MOTOR        "
Locate 2 , 1
Lcd "     READY        "
End If

If P1.5 = 0 And P2 = 8 Then
P2 = 0
P3 = 0

Locate 1 , 1
Lcd "     MOTOR        "
Locate 2 , 1
Lcd "     READY        "
End If

Loop
  7. Kesimpulan

      Dalam praktik ini kita harus memahami prinsip kerja Motor DC,sehingga dapat membuat Motor berputar ke kanan/kiri.

    Mengetahui
    INTRUKTUR
    		  
    NAMA SISWA
    		 
    ( Suparno,Spd. )
    		  
    ( Rabindreas ,P )
Posted by at No comments:
Labels:

Monday, 6 May 2013

Membuat Kendali Tampilan DOT Matric untuk Menampilkan Nama Berjalan Kekiri

LAPORAN PRAKTEK 9 Membuat Kendali Tampilan DOT Matric untuk Menampilkan Nama Berjalan Kekiri

LAPORAN PRAKTEK 9 Membuat Kendali Tampilan DOT Matric untuk Menampilkan Nama Berjalan Kekiri

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 Tampilan DOT Matric untuk Menampilkan Nama Berjalan Kekiri
    • Menguji coba rangkaian dengan benar

  2. Alat & Bahan :
    A.Alat :
    • Komputer dengan simulator Proteus
    • Gambar rencana kerja
    • Rencana program

    B.Bahan :
    • IC ATMEGA8
    • LCD MATRIX 5*7
    • IC 74HC573
    • NOT

  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

      A.Rangkaian DOT Matric



      B.Tampilan pada DOT Matric



  6. Source Code
    $regfile = "m8def.dat"
$crystal = 10000000

Config Portb = Output
Config Portc = Output
Config Portd = Output

Dim Scan As Byte
Dim I As Byte
Dim Refresh As Byte
Dim Index As Byte
Dim S As Byte
Dim M As Byte
Dim E As Byte
Dim A As Byte

Do


For S = 0 To 165
E = S + 4
For Refresh = 1 To 5
Scan = &H01
For I = S To E

Portd = Lookup(i , Text00)
Portb = 1
Portb = 0

A = I + 5
Portd = Lookup(a , Text00)
Portb = 2
Portb = 0

A = I + 10
Portd = Lookup(a , Text00)
Portb = 4
Portb = 0

A = I + 15
Portd = Lookup(a , Text00)
Portb = 8
Portb = 0

A = I + 20
Portd = Lookup(a , Text00)
Portb = 16
Portb = 0

A = I + 25
Portd = Lookup(a , Text00)
Portb = 32
Portb = 0

A = I + 30
Portd = Lookup(a , Text00)
Portb = 64
Portb = 0

A = I + 35
Portd = Lookup(a , Text00)
Portb = 128
Portb = 0

A = I + 40
Portd = Lookup(a , Text00)
Portb = 256
Portb = 0

A = I + 45
Portd = Lookup(a , Text00)
Portb = 512
Portb = 0

A = I + 50
Portd = Lookup(a , Text00)
Portb = 1024
Portb = 0

Portc = Scan
Rotate Scan , Left , 1
Waitms 1
Portc = 0

Next I

Next Refresh
Next S

Loop

End

Text00:
Data &H00 , &H00 , &H00 , &H00 , &H00
Data 50 , 73 , 73 , 73 , 38 , 0
Data 126 , 1 , 1 , 1 , 126 , 0
Data 127 , 8 , 28 , 34 , 65 , 0
Data 50 , 73 , 73 , 73 , 38 , 0
Data 127 , 73 , 73 , 65 , 99 , 0
Data 50 , 73 , 73 , 73 , 38 , 0
Data &H00 , &H00 , &H00 , &H00 , &H00
Data 2 , 21 , 21 , 17 , 15 , 0
Data 2 , 5 , 5 , 5 , 31 , 0
Data 2 , 21 , 21 , 17 , 15 , 0
Data 31 , 1 , 1 , 3 , 0 , 0
Data 2 , 21 , 21 , 17 , 15 , 0
Data 31 , 4 , 4 , 3 , 0 , 0
Data &H00 , &H00 , &H00 , &H00 , &H00
Data 127 , 72 , 72 , 72 , 48 , 0
Data 0 , 1 , 47 , 9 , 0 , 0
Data 31 , 1 , 1 , 3 , 0 , 0
Data 0 , 1 , 47 , 9 , 0 , 0
Data 31 , 4 , 4 , 3 , 0 , 0
Data 2 , 21 , 21 , 17 , 15 , 0
Data 15 , 16 , 16 , 16 , 15 , 0
Data 31 , 4 , 14 , 17 , 0 , 0
Data 30 , 1 , 1 , 1 , 30 , 0
Data &H00 , &H00 , &H00 , &H00 , &H00
Data 62 , 65 , 65 , 65 , 62 , 0
Data 127 , 1 , 1 , 1 , 3 , 0
Data 127 , 73 , 73 , 65 , 99 , 0
Data 127 , 8 , 8 , 8 , 127 , 0
Data &H00 , &H00 , &H00 , &H00 , &H00
Data 127 , 73 , 73 , 65 , 99 , 0
Data 127 , 8 , 28 , 34 , 65 , 0
Data 62 , 65 , 65 , 65 , 62 , 0
Data &H00 , &H00 , &H00 , &H00 , &H00
Data 127 , 1 , 6 , 1 , 127 , 0
Data 0 , 65 , 127 , 65 , 0 , 0
Data 65 , 127 , 65 , 65 , 62 , 0
Data 0 , 65 , 127 , 65 , 0 , 0
Data 64 , 33 , 31 , 33 , 64 , 0
Data 31 , 36 , 68 , 36 , 31 , 0
Data 127 , 16 , 8 , 4 , 127 , 0
Data 64 , 64 , 127 , 64 , 64 , 0
Data 62 , 65 , 65 , 65 , 62 , 0
  7. Kesimpulan

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

    Mengetahui
    INTRUKTUR
    		  
    NAMA SISWA
    		 
    ( Suparno,Spd. )
    		  
    ( Rabindreas ,P )
Posted by at No comments:
Labels:

Membuat Kendali 4 Motor DC untuk Berjalan & Mati Secara Berurutan

LAPORAN PRAKTEK 8 Membuat Kendali 4 Motor DC untuk Berjalan & Mati Secara Berurutan=>OLEH RABINDREAS

LAPORAN PRAKTEK 8 Membuat Kendali 4 Motor DC untuk Berjalan & Mati Secara Berurutan

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 4 Motor DC untuk Berjalan & Mati Secara Berurutan
    • Menguji coba rangkaian dengan benar

  2. Alat & Bahan :
    A.Alat :
    • Komputer dengan simulator Proteus
    • Gambar rencana kerja
    • Rencana program

    B.Bahan :
    • IC AT89C51
    • LCD LM044L
    • Dioda
    • Transistor 2N2219
    • Button
    • LED BLUE
    • LED RED
    • LED GREEN
    • LED YELLOW
    • Resistor 1K
    • Motor DC
    • Relay
    • RESPACK-8

  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
Config Lcdpin = Pin , Db4 = P0.4 , Db5 = P0.5 , Db6 = P0.6 ,Db7 = P0.7 , E = P0.1 , Rs = P0.0
Config Lcd = 20 * 4
Cursor Off
P2 = 128
P3 = 255
P1 = 0
Locate 1 , 1
Lcd "PENGENDALI MOTOR DC"
Locate 2 , 1
Lcd " DENGAN AT89S51"
Wait 2
Locate 1 , 1
Lcd "TEK.OTOMASI INDUSTRI "
Locate 2 , 1
Lcd " SMK BINAWIYATA SRG "
Wait 3
Locate 3 , 1
Lcd " .:: MOTOR READY ::. "
Do
'Star Motor 1
If P3.0 = 0 And P2 = 128 Then
P1 = 1
P2 = 1
Locate 1 , 1
Lcd " PENGENDALI MOTOR DC "
Locate 2 , 1
Lcd "--------------------"
Locate 3 , 2
Lcd "M1 :((=))"
Locate 3 , 12
Lcd "M2 : 0 "
Locate 4 , 2
Lcd "M3 : 0 "
Locate 4 , 12
Lcd "M4 : 0 "
End If
'Star Motor 2
If P3.1 = 0 And P1 = 1 Then
P1 = 3
P2 = 3
Locate 1 , 1
Lcd " PENGENDALI MOTOR DC "
Locate 2 , 1
Lcd "--------------------"
Locate 3 , 2
Lcd "M1 :((=))"
Locate 3 , 12
Lcd "M2 :((=))"
Locate 4 , 2
Lcd "M3 : 0 "
Locate 4 , 12
Lcd "M4 : 0 "
End If
'Star Motor 3
If P3.2 = 0 And P1 = 3 Then
P1 = 7
P2 = 7
Locate 1 , 1
Lcd " PENGENDALI MOTOR DC "
Locate 2 , 1
Lcd "--------------------"
Locate 3 , 2
Lcd "M1 :((=))"
Locate 3 , 12
Lcd "M2 :((=))"
Locate 4 , 2
Lcd "M3 :((=))"
Locate 4 , 12
Lcd "M4 : 0 "
End If
'Star Motor 4
If P3.3 = 0 And P1 = 7 Then
P1 = 15
P2 = 15
Locate 1 , 1
Lcd " PENGENDALI MOTOR DC "
Locate 2 , 1
Lcd "--------------------"
Locate 3 , 2
Lcd "M1 :((=))"
Locate 3 , 12
Lcd "M2 :((=))"
Locate 4 , 2
Lcd "M3 :((=))"
Locate 4 , 12
Lcd "M4 :((=))"
End If
'Stop Motor 4
If P3.7 = 0 And P1 = 15 Then
P1 = 7
P2 = 7
Locate 1 , 1
Lcd " PENGENDALI MOTOR DC "
Locate 2 , 1
Lcd "--------------------"
Locate 3 , 2
Lcd "M1 :((=))"
Locate 3 , 12
Lcd "M2 :((=))"
Locate 4 , 2
Lcd "M3 :((=))"
Locate 4 , 12
Lcd "M4 : 0"
End If
'Stop Motor 3
If P3.6 = 0 And P1 = 7 Then
P1 = 3
P2 = 3
Locate 1 , 1
Lcd " PENGENDALI MOTOR DC "
Locate 2 , 1
Lcd "--------------------"
Locate 3 , 2
Lcd "M1 :((=))"
Locate 3 , 12
Lcd "M2 :((=))"
Locate 4 , 2
Lcd "M3 : 0 "
Locate 4 , 12
Lcd "M4 : 0 "
End If
'Stop Motor 2
If P3.5 = 0 And P1 = 3 Then
P1 = 1
P2 = 1
Locate 1 , 1
Lcd " PENGENDALI MOTOR DC "
Locate 2 , 1
Lcd "--------------------"
Locate 3 , 2
Lcd "M1 :((=))"
Locate 3 , 12
Lcd "M2 : 0 "
Locate 4 , 2
Lcd "M3 : 0 "
Locate 4 , 12
Lcd "M4 : 0 "
End If
'Stop Motor 1
If P3.4 = 0 And P1 = 1 Then
P1 = 0
P2 = 128
Locate 1 , 1
Lcd " PENGENDALI MOTOR DC "
Locate 2 , 1
Lcd "--------------------"
Locate 3 , 2
Lcd "M1 : 0 "
Locate 3 , 12
Lcd "M2 : 0 "
Locate 4 , 2
Lcd "M3 : 0 "
Locate 4 , 12
Lcd "M4 : 0 "
End If
Loop
  7. Kesimpulan

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

    Mengetahui
    INTRUKTUR
    		  
    NAMA SISWA
    		 
    ( Suparno,Spd. )
    		  
    ( Rabindreas ,P )
Posted by at No comments:
Labels:

Menjalankan Motor DC Dengan Tombol Start,Stop,OL & Reset

LAPORAN PRAKTEK 6 Menjalankan Motor DC Dengan Tombol Start,Stop,OL & Reset =>OLEH RABINDREAS

LAPORAN PRAKTEK 6 Menjalankan Motor DC Dengan Tombol Start,Stop,OL & Reset

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 Motor DC Dengan Tombol Start,Stop,OL & Reset
    • Menguji coba rangkaian dengan benar

  2. Alat & Bahan :
    A.Alat :
    • Komputer dengan simulator Proteus
    • Gambar rencana kerja
    • Rencana program

    B.Bahan :
    • IC AT89C51
    • Dioda
    • Button
    • LCD 16*2 segmen
    • Resistor 1 K
    • Motor DC
    • NOT
    • Relay
    • Respack-8
    • Transistor
    • AND
    • CLOCK
    • LED green
    • LED yellow
    • LED red

  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
    '===================================
'LCD BASCOM AVR
'PROGRAMER :Rabindreas
'COMPANY   :SMK BINAWIYATA SRAGEN
'===================================

$regfile = "m32def.dat"
$crystal = 8000000

Config Lcdpin = Pin , Db4 = Portd.4 , Db5 = Portd.5,
Db6 = Portd.6 , Db7 = Portd.7 , E = Portd.2 , Rs=
Portd.0
Config Lcd = 20 * 2

Deflcdhar 1 , 32 , 10 , 31 , 14 , 4 , 32 , 32 , 32
'replace?with number(0-7)'

Dim Y As Integer

Do

Cls
Cursor Off
Locate 1 , 1
Lcd Chr(1) ; "LCD Bascom AVR" ; Chr(1)
Locate 2 , 1
Lcd "SMK BINAWIYATA"
Wait 1

Cls
Cursor Off
Locate 1 , 1
Lcd "SMK BINAWIYATA-TEST LCD BASCOM AVR"
For Y = 1 To 46
   Shifttlcd Left
   Waitms 250
   Next

   Cls


Loop
  7. Kesimpulan

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

    Mengetahui
    INTRUKTUR
    		  
    NAMA SISWA
    		 
    ( Suparno,Spd. )
    		  
    ( Rabindreas ,P )
Posted by at No comments:
Labels:

Membuat Program LCD

LAPORAN PRAKTEK 5 Membuat Program LCD=>OLEH RABINDREAS

LAPORAN PRAKTEK 5 Membuat Program LCD

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 Program LCD
    • Menguji coba rangkaian dengan benar

  2. Alat & Bahan :
    A.Alat :
    • Komputer dengan simulator Proteus
    • Gambar rencana kerja
    • Rencana program

    B.Bahan :
    • IC ATMEGA32
    • LCD 16*2 (LM016L)

  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

      A.Gambar Rangkaian Program LCD



      B.Gambar Kode ASCII



  6. Source Code
    '===================================
'LCD BASCOM AVR
'PROGRAMER :Rabindreas
'COMPANY   :SMK BINAWIYATA SRAGEN
'===================================

$regfile = "m32def.dat"
$crystal = 8000000

Config Lcdpin = Pin , Db4 = Portd.4 , Db5 = Portd.5,
Db6 = Portd.6 , Db7 = Portd.7 , E = Portd.2 , Rs=
Portd.0
Config Lcd = 20 * 2

Deflcdhar 1 , 32 , 10 , 31 , 14 , 4 , 32 , 32 , 32
'replace?with number(0-7)'

Dim Y As Integer

Do

Cls
Cursor Off
Locate 1 , 1
Lcd Chr(1) ; "LCD Bascom AVR" ; Chr(1)
Locate 2 , 1
Lcd "SMK BINAWIYATA"
Wait 1

Cls
Cursor Off
Locate 1 , 1
Lcd "SMK BINAWIYATA-TEST LCD BASCOM AVR"
For Y = 1 To 46
   Shifttlcd Left
   Waitms 250
   Next

   Cls


Loop
  7. Kesimpulan

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

    Mengetahui
    INTRUKTUR
    		  
    NAMA SISWA
    		 
    ( Suparno,Spd. )
    		  
    ( Rabindreas ,P )
Posted by at No comments:
Labels:

Penekanan Push Button di Port 3 Untuk Mengendalikan LED di Port 0

LAPORAN PRAKTEK 2 Penekanan Push Button di Port 3 Untuk Mengendalikan LED di Port 0=>OLEH RABINDREAS

LAPORAN PRAKTEK 2 Penekanan Push Button di Port 3 Untuk Mengendalikan LED di Port 0

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 Penekanan Push Button di Port 3 Untuk Mengendalikan LED di Port 0
    • 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 100 Ω
    • Kondensator 33p
    • Crystal

  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

    Do

    If P3.0 = 0 And P0.0 = 1 Then
    P0.0 = 0

    Waitms 250
    End If



    If P3.0 = 0 And P0.0 = 0 Then
    P0.0 = 1
    Waitms 250
    End If



    If P3.1 = 0 And P0.1 = 1 Then
    P0.1 = 0
    Waitms 250
    End If

    If P3.1 = 0 And P0.1 = 0 Then
    P0.1 = 1
    Waitms 250
    End If

    If P3.2 = 0 And P0.2 = 1 Then
    P0.2 = 0
    Waitms 250
    End If

    If P3.2 = 0 And P0.2 = 0 Then
    P0.2 = 1
    Waitms 250
    End If

    If P3.3 = 0 And P0.3 = 1 Then
    P0.3 = 0
    Waitms 250
    End If

    If P3.3 = 0 And P0.3 = 0 Then
    P0.3 = 1
    Waitms 250
    End If

    If P3.4 = 0 And P0.4 = 1 Then
    P0.4 = 0
    Waitms 250
    End If

    If P3.4 = 0 And P0.4 = 0 Then
    P0.4 = 1
    Waitms 250
    End If


    If P3.5 = 0 And P0.5 = 1 Then
    P0.5 = 0
    Waitms 250
    End If

    If P3.5 = 0 And P0.5 = 0 Then
    P0.5 = 1
    Waitms 250
    End If

    If P3.6 = 0 And P0.6 = 1 Then
    P0.6 = 0
    Waitms 250
    End If

    If P3.6 = 0 And P0.6 = 0 Then
    P0.6 = 1
    Waitms 250
    End If

    If P3.7 = 0 And P0.7 = 1 Then
    P0.7 = 0
    Waitms 250
    End If

    If P3.7 = 0 And P0.7 = 0 Then
    P0.7 = 1
    Waitms 250
    End If

    Loop
  7. Kesimpulan

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

    Mengetahui
    INTRUKTUR
    		  
    NAMA SISWA
    		 
    ( Suparno,Spd. )
    		  
    ( Rabindreas ,P )
Posted by at No comments:
Labels:
Subscribe to: Posts (Atom)