-->

Membuat Simulasi Inkubator/Pengatur Suhu Proteus+CodeVision Avr

Membuat Simulasi Inkubator/Pengatur Suhu Proteus+CodeVision Avr

Membuat Simulasi Inkubator/Pengatur Suhu Proteus+BASCOM Avr LM35 ATMEGA8535

Alat dan Bahan :

- Software Proteus
- Software Bascom AVR



Screenshot

Membuat Simulasi Inkubator/Pengatur Suhu Proteus+CodeVision Avr



Membuat Simulasi Inkubator/Pengatur Suhu Proteus+CodeVision Avr


Alat Di proteus

Alat Di proteus



CODE di BASCOM :

$regfile = "m8535.dat"
$crystal = 8000000
$baud = 9600

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

Config Porta.1 = Output
Config Porta.2 = Output
Config Porta.3 = Output
Config Porta.4 = Output
Config Porta.5 = Output
Config Porta.6 = Output
Config Porta.7 = Output

Config Portd = Output
Config Timer1 = Pwm , Pwm = 8 , Compare_a_pwm = Clear_up , Prescale = 1
Dim Nilai As Integer
Config Adc = Single , Prescaler = Auto , Reference = Avcc
Dim Data_mentah As Integer
Dim Hasil As Single
Dim Suhuasli As Integer
Dim Y As String * 3
Dim Selisih As Integer
Dim Ref As Integer
Start Adc

Portd.2 = 1


Cls
Cursor Off

Locate 1 , 1
Lcd "Suhu Ref.: "
Locate 2 , 1
Lcd "Suhu : "

Ddrc = &B11110000
Portc = &B11111111

Do

Data_mentah = Getadc(0)
Hasil = 0.49 * Data_mentah
Nilai = Hasil * 2.55
Suhuasli = Hasil



Portc = &B11101111
If Pinc.0 = 0 Then
Y = Y + "1"
Elseif Pinc.1 = 0 Then
Y = Y + "4"
Elseif Pinc.2 = 0 Then
Y = Y + "7"
Elseif Pinc.3 = 0 Then
Y = "0"                                                     '
End If
Waitms 80

Portc = &B11011111
If Pinc.0 = 0 Then
Y = Y + "2"
Elseif Pinc.1 = 0 Then
Y = Y + "5"
Elseif Pinc.2 = 0 Then
Y = Y + "8"
Elseif Pinc.3 = 0 Then
Y = Y + "0"
End If
Waitms 80

Portc = &B10111111
If Pinc.0 = 0 Then
Y = Y + "3"
Elseif Pinc.1 = 0 Then
Y = Y + "6"
Elseif Pinc.2 = 0 Then
Y = Y + "9"
Elseif Pinc.3 = 0 Then
Y = Y + "#"
End If
Waitms 80



Locate 1 , 12
Lcd Y
Print Y



'Dianggap Batas Suhu = 50
'225 kecepatan motor
'255/50=5.1  'simulasi 51 biar cpt

Ref = Val(y)
Selisih = Suhuasli - Ref


If Suhuasli > Ref And Ref > 0 Then
Pwm1a = Selisih * 5
Elseif Suhuasli = Ref Then
Pwm1a = 0
Elseif Suhuasli < Ref Then
Pwm1a = 0
End If

Locate 1 , 15
Lcd "C"
Locate 2 , 8
Lcd Suhuasli ; " C"


If Suhuasli > 20 And Suhuasli < 23 Then
Porta.1 = 1
Porta.2 = 0
Porta.3 = 0
Porta.4 = 0
Porta.5 = 0
Porta.6 = 0
Porta.7 = 0
Elseif Suhuasli > 23 And Suhuasli < 26 Then
Porta.1 = 1
Porta.2 = 1
Porta.3 = 0
Porta.4 = 0
Porta.5 = 0
Porta.6 = 0
Porta.7 = 0
Elseif Suhuasli > 26 And Suhuasli < 29 Then
Porta.1 = 1
Porta.2 = 1
Porta.3 = 1
Porta.4 = 0
Porta.5 = 0
Porta.6 = 0
Porta.7 = 0
Elseif Suhuasli > 32 And Suhuasli < 35 Then
Porta.1 = 1
Porta.2 = 1
Porta.3 = 1
Porta.4 = 1
Porta.5 = 0
Porta.6 = 0
Porta.7 = 0
Elseif Suhuasli > 38 And Suhuasli < 41 Then
Porta.1 = 1
Porta.2 = 1
Porta.3 = 1
Porta.4 = 1
Porta.5 = 1
Porta.6 = 0
Porta.7 = 0
Elseif Suhuasli > 44 And Suhuasli < 47 Then
Porta.1 = 1
Porta.2 = 1
Porta.3 = 1
Porta.4 = 1
Porta.5 = 1
Porta.6 = 1
Porta.7 = 0
Elseif Suhuasli > 50 Then
Porta.1 = 1
Porta.2 = 1
Porta.3 = 1
Porta.4 = 1
Porta.5 = 1
Porta.6 = 1
Porta.7 = 1
End If

Loop
End
Embeded Hardware Software Tips Tricks Tutorial

Dapatkan Tips Menarik Setiap Harinya!

  • Dapatkan tips dan trik yang belum pernah kamu tau sebelumnya
  • Jadilah orang pertama yang mengetahui hal-hal baru di dunia teknologi

2 Responses to "Membuat Simulasi Inkubator/Pengatur Suhu Proteus+CodeVision Avr"

  1. Ini ingkubator ayam atau manusia kak?

    ReplyDelete
    Replies
    1. itu hanya konsep dr inkubator..untuk implementasinya disesuaikan saja

      Delete
Catatan Untuk Para Jejaker
  • Mohon Tinggalkan jejak sesuai dengan judul artikel.
  • Tidak diperbolehkan untuk mempromosikan barang atau berjualan.
  • Dilarang mencantumkan link aktif di komentar.
  • Komentar dengan link aktif akan otomatis dihapus
  • *Berkomentarlah dengan baik, Kepribadian Anda tercemin saat berkomentar.

Iklan Atas Artikel

Iklan Tengah Artikel 1

Iklan Tengah Artikel 2

Iklan Bawah Artikel