LISTING PROGRAM

Buat temen" semua disini,...aku mau sharing'e program yang dulu pernah saya kerjakan bersama teman" waktu kuliah d'BSI Purwokerto,..Program ini aku buat bersama Rahmat Kartono,...aku mau ucapkan terima kasih buat dia karena telah meljadi sahabat terbaik buat aku walau sekarang kita terpisah jarak dan waktu.

Program yang kami buat adalah "Alat Pemantau Ketinggian Air Berbasisi Mikrokontroller Atmega 8535" mungkin listing program ini bisa bermanfaat buat temen" yang sedang mencari referensi tentang Judul Tugas Akhir....disini kami memakai software Bascom AVR .
Oke....langsung saja inilah Listing Programnya...semoga bermanfaat....


LISTING PROGRAM

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


Config Lcdpin = Pin , Db4 = Portb.2 , Db5 = Portb.3 , Db6 = Portb.4 , Db7 = Portb.5 , E = Portb.1 , Rs = Portb.0
Config Lcd = 16 * 2
Config Adc = Single , Prescaler = Auto , Reference = Avcc
Start Adc

Config Portc = Output
Config Portd = Output

Dim Data_adc As Word , Adc_convert1 As Single , Adc_convert2 As Single , Adc_string1 As String * 10 , Adc_string2 As String * 10

Cursor Off
Cls
Wait 2
   Locate 1 , 4
   Lcd "Water level"
   Locate 2 , 2
   Lcd "Rahmat Kartono"
Wait 2
Cls
   Locate 1 , 5
   Lcd "TA 2010"
   Locate 2 , 3
   Lcd "Teknik komp "
Wait 2
Cls
   Locate 1 , 3
   Lcd "   BSI"
   Locate 2 , 3
   Lcd "Purwokerto "
Wait 1
Cls



Do
   Data_adc = Getadc(7)
   Adc_convert1 = Data_adc
   Adc_convert2 = Data_adc
   Adc_convert1 = Adc_convert1 / 1024
   Adc_convert2 = Adc_convert2 / 1024
   Adc_convert2 = Adc_convert2 * 100
   Adc_convert1 = Adc_convert1 * 15
   Adc_string1 = Fusing(adc_convert1 , "#.##")
   Adc_string2 = Fusing(adc_convert2 , "#.##")
   Data_adc = Getadc(7)
   Locate 1 , 1
   Lcd "Tinggi(cm):"
   Lcd Adc_string1 ; " "
   Locate 2 , 1
   Lcd "Range(%)  :"
   Lcd Adc_string2 ; " "
   Waitms 200
   If Adc_convert2 > 95 Then
   Portc = 1
   Waitms 300
   Portc = 0
   Waitms 300
   Portd.4 = 1
   Else
   Portd.4 = 0
   End If
   If Adc_convert2 > 80 Then
   Portc.5 = 1
   Else
   Portc.5 = 0
   End If
   If Adc_convert2 > 60 Then
   Portc.4 = 1
   Else
   Portc.4 = 0
   End If
   If Adc_convert2 > 40 Then
   Portc.3 = 1
   Else
   Portc.3 = 0
   End If
   If Adc_convert2 > 20 Then
   Portc.2 = 1
   Else
   Portc.2 = 0
   End If
Loop