Selasa, 30 April 2013

MEMBUAT KENDALI TAMPILAN DOT MATRIX Untuk Menampilkan Nama

MENGENDALIKAN NYALA 7SEGMENT DI PORT 2 => oleh HARDHY

BioDaTAKu

Nama Suhardi
Kelas XI TOI
NO/Induk 33/8901
Alamat Banaran,Jenggrik,Kedawung,Sragen
Tempat Sragen
Tanggal Lahir 09, Agustus, 1996
Jenis Kelamin Pria
Hobi Internetan, Mencoba hal-hal baru,dll

LAPORAN PRAKTEK 9

MEMBUAT KENDALI TAMPILAN DOT MATRIX Untuk Menampilkan Nama

Wellcome in My html
  1. Tujuan :
    Setelah siswa praktek diharapkan dapat :
    • Melakukan Program Mikrokontroler Dengan Bahasa Basic (BASCOM).
    • Menguji Coba Rangkaian Dengan Benar.
    • Membuat Rangkaian MEMBUAT KENDALI TAMPILAN DOT MATRIX Untuk Menampilkan Nama

  2. Alat Dan Bahan :
    1. Alat :
      • Komputer Dengan Software Proteus.
      • Gambar Rencana Kerja.
      • Rencana Program.

    2. Bahan :
      • Ic 74HC573
      • IC ATMEGA 8
      • MATRIX 5*7 GREEN
      • NOT

  3. Keselamatan Kerja :
    • Berdo'alah sebelum melakukan Praktek.
    • Dilarang Bersendau-gurau Saat Pelaksanaan Praktek.
    • Menghidupkan dan Mematikan Komputer dengan Prosedur Yang Benar.

  4. Instruksi Kerja :
    • Memastikan alat dan bahan siap digunakan.
    • Memastikan telah memahami gambar kerja dan source code program.
    • Menulis source program dengan bascom AVR.
    • Membuat rangkaian simulator rangkaian dengan proteus.
    • Membuat komplier kode program untuk mendapatkan file *HEX.
    • Melakukan uji coba rangkaian simulator.
  5. Gambar Kerja :

  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

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 &H00 , &H00 , &H00 , &H00 , &H00
Data &H00 , &H00 , &H00 , &H00 , &H00
Data &H00 , &H00 , &H00 , &H00 , &H00
Data &H00 , &H00 , &H00 , &H00 , &H00
Data &H00 , &H00 , &H00 , &H00 , &H00
Data &H00 , &H00 , &H00 , &H00 , &H00
Data &H00 , &H00 , &H00 , &H00 , &H00
Data &H00 , &H00 , &H00 , &H00 , &H00
Data 0 , 9 , 21 , 22 , 0 , 0                                  'S
Data 30 , 1 , 1 , 30 , 0 , 0                                  'U
Data 0 , 63 , 8 , 7 , 0 , 0                                   'H
Data 0 , 19 , 21 , 21 , 15 , 0                                'A
Data 8 , 15 , 16 , 16 , 8 , 0                                 'R
Data 0 , 6 , 9 , 63 , 0 , 0                                   'D
Data 0 , 8 , 47 , 0 , 0 , 0                                   'I


Data &H00 , &H00 , &H00 , &H00 , &H00
Data &H00 , &H00 , &H00 , &H00 , &H00
Data &H00 , &H00 , &H00 , &H00 , &H00
Data &H00 , &H00 , &H00 , &H00 , &H00
Data &H00 , &H00 , &H00 , &H00 , &H00
Data &H00 , &H00 , &H00 , &H00 , &H00
Data &H00 , &H00 , &H00 , &H00 , &H00
Data &H00 , &H00 , &H00 , &H00 , &H00
Data &H00 , &H00 , &H00 , &H00 , &H00
Data &H00 , &H00 , &H00 , &H00 , &H00
Data &H00 , &H00 , &H00 , &H00 , &H00
Data &H00 , &H00 , &H00 , &H00 , &H00
Data &H00 , &H00 , &H00 , &H00 , &H00
Data &H00 , &H00 , &H00 , &H00 , &H00
Data &H00 , &H00 , &H00 , &H00 , &H00
Data &H00 , &H00 , &H00 , &H00 , &H00
Data &H00 , &H00 , &H00 , &H00 , &H00
Data &H00 , &H00 , &H00 , &H00 , &H00
Data &H00 , &H00 , &H00 , &H00 , &H00
Data &H00 , &H00 , &H00 , &H00 , &H00
Data &H00 , &H00 , &H00 , &H00 , &H00
Data &H00 , &H00 , &H00 , &H00 , &H00
Data &H00 , &H00 , &H00 , &H00 , &H00
Data &H00 , &H00 , &H00 , &H00 , &H00
Data &H00 , &H00 , &H00 , &H00 , &H00
Data &H00 , &H00 , &H00 , &H00 , &H00
Data &H00 , &H00 , &H00 , &H00 , &H00
Data &H00 , &H00 , &H00 , &H00 , &H00
Data &H00 , &H00 , &H00 , &H00 , &H00
Data &H00 , &H00 , &H00 , &H00 , &H00
Data &H00 , &H00 , &H00 , &H00 , &H00
Data &H00 , &H00 , &H00 , &H00 , &H00
Data &H00 , &H00 , &H00 , &H00 , &H00
Data &H00 , &H00 , &H00 , &H00 , &H00
Data &H00 , &H00 , &H00 , &H00 , &H00
Data &H00 , &H00 , &H00 , &H00 , &H00
  7. Kesimpulan :

THANK YOU VERY MUCH
Diposting oleh di Tidak ada komentar:
Label:

MEMBUAT KENDALI MOTOR DC Untuk Putar Kanan,Kiri,Dengan "START","STOP","OL" Dan "RESET"

MEMBUAT KENDALI MOTOR DC Untuk Putar Kanan,Kiri,Dengan "START","STOP","OL" Dan "RESET" => oleh HARDHY

BioDaTAKu

Nama Suhardi
Kelas XI TOI
NO/Induk 33/8901
Alamat Banaran,Jenggrik,Kedawung,Sragen
Tempat Sragen
Tanggal Lahir 09, Agustus, 1996
Jenis Kelamin Pria
Hobi Internetan, Mencoba hal-hal baru,dll

LAPORAN PRAKTEK 7

MEMBUAT KENDALI MOTOR DC Untuk Putar Kanan,Kiri,Dengan "START","STOP","OL" Dan "RESET"

Wellcome in My html
  1. Tujuan :
    Setelah siswa praktek diharapkan dapat :
    • Melakukan Program Mikrokontroler Dengan Bahasa Basic (BASCOM).
    • Menguji Coba Rangkaian Dengan Benar.
    • Membuat Rangkaian MEMBUAT KENDALI MOTOR DC Untuk Putar Kanan,Kiri,Dengan "START","STOP","OL" Dan "RESET"

  2. Alat Dan Bahan :
    1. Alat :
      • Komputer Dengan Software Proteus.
      • Gambar Rencana Kerja.
      • Rencana Program.

    2. Bahan :
      • Ic AT89S51
      • 3 LED
      • Resistor 1K
      • motor
      • relay
      • kondensator
      • AND
      • counter
      • lcd 16*2
      • button
      • resistor pack

  3. Keselamatan Kerja :
    • Berdo'alah sebelum melakukan Praktek.
    • Dilarang Bersendau-gurau Saat Pelaksanaan Praktek.
    • Menghidupkan dan Mematikan Komputer dengan Prosedur Yang Benar.

  4. Instruksi Kerja :
    • Memastikan alat dan bahan siap digunakan.
    • Memastikan telah memahami gambar kerja dan source code program.
    • Menulis source program dengan bascom 89s51.
    • Membuat rangkaian simulator rangkaian dengan proteus.
    • Membuat komplier kode program untuk mendapatkan file *HEX.
    • Melakukan uji coba rangkaian simulator.
  5. Gambar Kerja :
  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 "  SUHARDI "
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 :

THANK YOU VERY MUCH
Diposting oleh di Tidak ada komentar:
Label:

MEMBUAT PROGRAM LCD

MEMBUAT PROGRAM TAMPILAN LCD => oleh HARDHY

BioDaTAKu

Nama Suhardi
Kelas XI TOI
NO/Induk 33/8901
Alamat Banaran,Jenggrik,Kedawung,Sragen
Tempat Sragen
Tanggal Lahir 09, Agustus, 1996
Jenis Kelamin Pria
Hobi Internetan, Mencoba hal-hal baru,dll

LAPORAN PRAKTEK 5

MEMBUAT PROGRAM TAMPILAN LCD

Wellcome in My html
  1. Tujuan :
    Setelah siswa praktek diharapkan dapat :
    • Melakukan Program Mikrokontroler Dengan Bahasa Basic (BASCOM).
    • Menguji Coba Rangkaian Dengan Benar.
    • Membuat Rangkaian Program Tampilan LCD.

  2. Alat Dan Bahan :
    1. Alat :
      • Komputer Dengan Software Proteus.
      • Gambar Rencana Kerja.
      • Rencana Program.

    2. Bahan :
      • Ic ATMEGA32
      • LM016L

  3. Keselamatan Kerja :
    • Berdo'alah sebelum melakukan Praktek.
    • Dilarang Bersendau-gurau Saat Pelaksanaan Praktek.
    • Menghidupkan dan Mematikan Komputer dengan Prosedur Yang Benar.

  4. Instruksi Kerja :
    • Memastikan alat dan bahan siap digunakan.
    • Memastikan telah memahami gambar kerja dan source code program.
    • Menulis source program dengan bascom AVR.
    • Membuat rangkaian simulator rangkaian dengan proteus.
    • Membuat komplier kode program untuk mendapatkan file *HEX.
    • Melakukan uji coba rangkaian simulator.
  5. Gambar Kerja :
  6. Source Code : 
    $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 Lcdpin = 16 * 2

Deflcdchar 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) ; "SUHARDI" ; Chr(1)
Locate 4 , 1
Lcd " SMK BINAWIYATA "
Wait 1

Cls
Cursor Off
Locate 1 , 1
Lcd " SMK BINAWIYATA - TEST LCD BASCOM AVR "
For Y = 1 To 46
    Shiftlcd Right
    Waitms 100
    Next

    Cls

Loop
  7. Kesimpulan :

THANK YOU VERY MUCH
Diposting oleh di Tidak ada komentar:
Label:

MENGENDALIKAN NYALA 8*7SEGMENT Untuk Menampilkan Angka 0 s/d 7

MENGENDALIKAN NYALA 8*7SEGMENT Untuk Menampilkan Angka 0 s/d 7 => oleh HARDHY

BioDaTAKu

Nama Suhardi
Kelas XI TOI
NO/Induk 33/8901
Alamat Banaran,Jenggrik,Kedawung,Sragen
Tempat Sragen
Tanggal Lahir 09, Agustus, 1996
Jenis Kelamin Pria
Hobi Internetan, Mencoba hal-hal baru,dll

LAPORAN PRAKTEK

MENGENDALIKAN NYALA 8*7SEGMENT Untuk Menampilkan Angka 0 s/d 7

Wellcome in My html
  1. Tujuan :
    Setelah siswa praktek diharapkan dapat :
    • Melakukan Program Mikrokontroler Dengan Bahasa Basic (BASCOM).
    • Menguji Coba Rangkaian Dengan Benar.
    • Membuat Rangkaian MENGENDALIKAN NYALA 8*7SEGMENT Untuk Menampilkan Angka 0 s/d 7

  2. Alat Dan Bahan :
    1. Alat :
      • Komputer Dengan Software Proteus.
      • Gambar Rencana Kerja.
      • Rencana Program.

    2. Bahan :
      • Ic AT89S51
      • 8*7segment
      • Minelect10U16V
      • Minres10K
      • Minres100R
      • Respack-8
      • Ceramic33P

  3. Keselamatan Kerja :
    • Berdo'alah sebelum melakukan Praktek.
    • Dilarang Bersendau-gurau Saat Pelaksanaan Praktek.
    • Menghidupkan dan Mematikan Komputer dengan Prosedur Yang Benar.

  4. Instruksi Kerja :
    • Memastikan alat dan bahan siap digunakan.
    • Memastikan telah memahami gambar kerja dan source code program.
    • Menulis source program dengan bascom 89s51.
    • Membuat rangkaian simulator rangkaian dengan proteus.
    • Membuat komplier kode program untuk mendapatkan file *HEX.
    • Melakukan uji coba rangkaian simulator.
  5. Gambar Kerja :
  6. Source Code : 
    $regfile = "reg51.dat"
$crystal = 12000000

Segment Alias P0

Digit Alias P2

Dim X As Byte

Dim Data_digit As Byte
Data_digit = 1
Do

For X = 0 To 7
Digit = Data_digit
Segment = Lookup(x , Data)
Waitms 1
Rotate Data_digit , Left , 1
Next X

Loop

Data:

Data &B11000000
Data &B11111001
Data &B10100100
Data &B10110000
Data &B10011001
Data &B10010010
Data &B10000010
Data &B11111000
  7. Kesimpulan :

THANK YOU VERY MUCH
Diposting oleh di Tidak ada komentar:
Label:

MENGENDALIKAN NYALA 7SEGMENT DI PORT 0

MENGENDALIKAN NYALA 7SEGMENT DI PORT 0 => oleh HARDHY

BioDaTAKu

Nama Suhardi
Kelas XI TOI
NO/Induk 33/8901
Alamat Banaran,Jenggrik,Kedawung,Sragen
Tempat Sragen
Tanggal Lahir 09, Agustus, 1996
Jenis Kelamin Pria
Hobi Internetan, Mencoba hal-hal baru,dll

LAPORAN PRAKTEK 3

MENGENDALIKAN NYALA 7SEGMENT DI PORT 0

Wellcome in My html
  1. Tujuan :
    Setelah siswa praktek diharapkan dapat :
    • Melakukan Program Mikrokontroler Dengan Bahasa Basic (BASCOM).
    • Menguji Coba Rangkaian Dengan Benar.
    • Membuat Rangkaian MENGENDALIKAN NYALA 7SEGMENT DI PORT 0

  2. Alat Dan Bahan :
    1. Alat :
      • Komputer Dengan Software Proteus.
      • Gambar Rencana Kerja.
      • Rencana Program.

    2. Bahan :
      • Ic AT89S51
      • 7Segment
      • Resistor 10K
      • Crystal
      • Kondensator 33 p

  3. Keselamatan Kerja :
    • Berdo'alah sebelum melakukan Praktek.
    • Dilarang Bersendau-gurau Saat Pelaksanaan Praktek.
    • Menghidupkan dan Mematikan Komputer dengan Prosedur Yang Benar.

  4. Instruksi Kerja :
    • Memastikan alat dan bahan siap digunakan.
    • Memastikan telah memahami gambar kerja dan source code program.
    • Menulis source program dengan bascom 89s51.
    • Membuat rangkaian simulator rangkaian dengan proteus.
    • Membuat komplier kode program untuk mendapatkan file *HEX.
    • Melakukan uji coba rangkaian simulator.
  5. Gambar Kerja :
  6. Source Code : 
    $regfile = "reg51.dat"
$crystal = 12000000

Do

P0 = &B0010010
Waitms 250

P0 = &B1000001
Waitms 250

P0 = &B0001001
Waitms 250

P0 = &B0001000
Waitms 250

P0 = &B1001110
Waitms 250

P0 = &B0100001
Waitms 250

P0 = &B1111001
Waitms 250

Loop
  7. Kesimpulan :
      Dalam membuat program bascomnya,kita harus tahu urutan LED yang ada di seven segment.

THANK YOU VERY MUCH
Diposting oleh di Tidak ada komentar:
Label:

MENYALAKAN LED DI PORT 0 Dilengkapi Dengan Button

Menyalakan Lampu Led di P0 Dilengkapi Dengan Push Button=> oleh HARDHY

BioDaTAKu

Nama Suhardi
Kelas XI TOI
NO/Induk 33/8901
Alamat Banaran,Jenggrik,Kedawung,Sragen
Tempat Sragen
Tanggal Lahir 09, Agustus, 1996
Jenis Kelamin Pria
Hobi Internetan, Mencoba hal-hal baru,dll

LAPORAN PRAKTEK 2

MENYALAKAN LAMPU LED DI PORT 0 Dilengkapi Dengan Push button

Wellcome in My html
  1. Tujuan :
    Setelah siswa praktek diharapkan dapat :
    • Melakukan Program Mikrokontroler Dengan Bahasa Basic (BASCOM).
    • Menguji Coba Rangkaian Dengan Benar.
    • Membuat Rangkaian Pengendali Nyala Lampu LED Di P0 Dilengkapi Dengan Push Button.

  2. Alat Dan Bahan :
    1. Alat :
      • Komputer Dengan Software Proteus.
      • Gambar Rencana Kerja.
      • Rencana Program.

    2. Bahan :
      • Ic AT89S51
      • LED
      • Resistor 10K
      • Resistor 100R
      • Kondensator 33 p
      • Button
      • Crystal
      • Resistor Pack 8

  3. Keselamatan Kerja :
    • Berdo'alah sebelum melakukan Praktek.
    • Dilarang Bersendau-gurau Saat Pelaksanaan Praktek.
    • Menghidupkan dan Mematikan Komputer dengan Prosedur Yang Benar.

  4. Instruksi Kerja :
    • Memastikan alat dan bahan siap digunakan.
    • Memastikan telah memahami gambar kerja dan source code program.
    • Menulis source program dengan bascom 89s51.
    • Membuat rangkaian simulator rangkaian dengan proteus.
    • Membuat komplier kode program untuk mendapatkan file *HEX.
    • Melakukan uji coba rangkaian simulator.
  5. Gambar Kerja :
  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 :
      Apabila tombol ditekan maka LED akan menyala sesuai urutan portnya.

THANK YOU VERY MUCH
Diposting oleh di Tidak ada komentar:
Label:

MEMBUAT KENDALI 4 MOTOR DC BERURUTAN

Pengendali 4 Motor DC Berjalan secara Berurutan => oleh HARDHY

BioDaTAKu

Nama Suhardi
Kelas XI TOI
NO/Induk 33/8901
Alamat Banaran,Jenggrik,Kedawung,Sragen
Tempat Sragen
Tanggal Lahir 09, Agustus, 1996
Jenis Kelamin Pria
Laporan Pengendali 4 Motor DC Berjalan secara Berurutan

LAPORAN PRAKTEK 8

Pengendali 4 Motor DC Berjalan secara Berurutan

Wellcome in My html
  1. Tujuan :
    Setelah siswa praktek diharapkan dapat :
    • Melakukan Program Mikrokontroler Dengan Bahasa Basic (BASCOM).
    • Menguji Coba Rangkaian Dengan Benar.
    • Membuat Rangkaian Pengendali 4 Motor DC Berjalan secara Berurutan




  • Alat Dan Bahan :
    1. Alat :
      • Komputer Dengan Software Proteus.
      • Gambar Rencana Kerja.
      • Rencana Program.

    2. Bahan :
      • IC AT89S51
      • LED BLUE
      • LED GREEN
      • LED RED
      • LED YELLOW
      • LM044L
      • MINRES1K
      • BUTTON
      • MOTOR
      • RELAY
      • RESPACK-8
      • 1N4001
      • 2N2219

  • Keselamatan Kerja :
    • Berdo'alah sebelum melakukan Praktek.
    • Dilarang Bersendau-gurau Saat Pelaksanaan Praktek.
    • Menghidupkan dan Mematikan Komputer dengan Prosedur Yang Benar.

  • Instruksi Kerja :
    • Memastikan alat dan bahan siap digunakan.
    • Memastikan telah memahami gambar kerja dan source code program.
    • Menulis source program dengan bascom 89s51.
    • Membuat rangkaian simulator rangkaian dengan proteus.
    • Membuat komplier kode program untuk mendapatkan file *HEX.
    • Melakukan uji coba rangkaian simulator.
  • Gambar Kerja :
  • Source Code : 
    '=====================================================================
' Pengendali 4 Motor DC Berjalan secara Berurutan
' Nama    : Suhardi
' Tanggal : 26 Maret 2013
' Sekolah : SMK Binawiyata Sragen
' Program : Teknik Otomasi Industri
'=====================================================================
$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
  • Kesimpulan :

    • THANK YOU VERY MUCH
    Diposting oleh di 1 komentar:
    Label:

    MENJALANKAN MOTOR DC DENGAN TOMBOL "START","STOP",DAN "RESET"

    Menjalankan 1 motor dengan LCD dan Lampu Indikator => oleh HARDHY

    BioDaTAKu

    Nama Suhardi
    Kelas XI TOI
    NO/Induk 33/8901
    Alamat Banaran,Jenggrik,Kedawung,Sragen
    Tempat Sragen
    Tanggal Lahir 09, Agustus, 1996
    Jenis Kelamin Pria
    Laporan Menjalankan 1 motor dengan LCD dan Lampu Indikator

    LAPORAN PRAKTEK 6

    Menjalankan 1 motor dengan LCD dan Lampu Indikator

    Wellcome in My html
    1. Tujuan :
      Setelah siswa praktek diharapkan dapat :
      • Melakukan Program Mikrokontroler Dengan Bahasa Basic (BASCOM).
      • Menguji Coba Rangkaian Dengan Benar.
      • Membuat Rangkaian Pengendali 1 motor dengan LCD dan Lampu Indikator

    2. Alat Dan Bahan :
      1. Alat :
        • Komputer Dengan Software Proteus.
        • Gambar Rencana Kerja.
        • Rencana Program.

      2. Bahan :
        • Ic AT89S51
        • 3 LED
        • Resistor 1K
        • motor
        • relay
        • kondensator
        • AND
        • counter
        • lcd 16*2
        • button
        • resistor pack

    3. Keselamatan Kerja :
      • Berdo'alah sebelum melakukan Praktek.
      • Dilarang Bersendau-gurau Saat Pelaksanaan Praktek.
      • Menghidupkan dan Mematikan Komputer dengan Prosedur Yang Benar.

    4. Instruksi Kerja :
      • Memastikan alat dan bahan siap digunakan.
      • Memastikan telah memahami gambar kerja dan source code program.
      • Menulis source program dengan bascom 89s51.
      • Membuat rangkaian simulator rangkaian dengan proteus.
      • Membuat komplier kode program untuk mendapatkan file *HEX.
      • Melakukan uji coba rangkaian simulator.
    5. Gambar Kerja :
    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

Cursor Off
P2 = 4
P3 = 0
P1 = 255

Locate 1 , 1
Lcd "PENGENDALI MOTOR DC"
Locate 2 , 1
Lcd "  DENGAN AT8951"
Wait 2
Locate 1 , 1
Lcd " TEKNIK OTOMASI "
Locate 2 , 1
Lcd " SMK BINAWIYATA"
Wait 3
Locate 1 , 1
Lcd "      OLEH         "
Locate 2 , 1
Lcd "  SUHARDI  "
Wait 4
Do

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

Locate 1 , 1
Lcd "  MOTOR SEDANG       "
Locate 2 , 1
Lcd "    BERJALAN     "

End If


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

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

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

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

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

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

Loop
    7. Kesimpulan :
      • Apabila motor kerja,pada lcd menampilkan "motor sedang berjalan" dan lampu indikator bewarna "hijau".
      • Apabila tombol "stop" ditekan maka motor akan berhenti,dan lampu indikator bewarna "merah".
      • Apabila terjadi overload, maka motor tidak bi dijalankan,cara menjalankannya kembali yaitu dengan
        menekan tombol "reset",dan setelah itu tekan tombol "start"

    THANK YOU VERY MUCH
    Diposting oleh di Tidak ada komentar:
    Label:

    MENYALAKAN DISPLAY LED DI PORT 0

    Menyalakan Lampu Led di P0 => oleh HARDHY

    BioDaTAKu

    Nama Suhardi
    Kelas XI TOI
    NO/Induk 33/8901
    Alamat Banaran,Jenggrik,Kedawung,Sragen
    Tempat Sragen
    Tanggal Lahir 09, Agustus, 1996
    Jenis Kelamin Pria
    Hobi Internetan, Mencoba hal-hal baru,dll

    LAPORAN PRAKTEK 1

    MENYALAKAN LAMPU LED DI PORT 0

    Wellcome in My html
    1. Tujuan :
      Setelah siswa praktek diharapkan dapat :
      • Melakukan Program Mikrokontroler Dengan Bahasa Basic (BASCOM).
      • Menguji Coba Rangkaian Dengan Benar.
      • Membuat Rangkaian Pengendali Nyala Lampu LED Di P0.


  • Alat Dan Bahan :
    1. Alat :
      • Komputer Dengan Software Proteus.
      • Gambar Rencana Kerja.
      • Rencana Program.

    2. Bahan :
      • Ic AT89S51
      • LED
      • Resistor 10K
      • Resistor 220 ohm
      • Kondensator 33 p

  • Keselamatan Kerja :
    • Berdo'alah sebelum melakukan Praktek.
    • Dilarang Bersendau-gurau Saat Pelaksanaan Praktek.
    • Menghidupkan dan Mematikan Komputer dengan Prosedur Yang Benar.

  • Instruksi Kerja :
    • Memastikan alat dan bahan siap digunakan.
    • Memastikan telah memahami gambar kerja dan source code program.
    • Menulis source program dengan bascom 89s51.
    • Membuat rangkaian simulator rangkaian dengan proteus.
    • Membuat komplier kode program untuk mendapatkan file *HEX.
    • Melakukan uji coba rangkaian simulator.
  • Gambar Kerja :
  • 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
  • Kesimpulan :
      "Apabila Led diberi logika 0 maka lampu akan menyala,sedangkan kalau diberi logika 1 lampu tidak menyala"

    • THANK YOU VERY MUCH
    Diposting oleh di Tidak ada komentar:
    Label:
    Langganan: Postingan (Atom)