Read more
Pengisian Tangki Air Otomatis mengggunakan
mikrokontroler dengan bascom dan at mega 8535
Skema rangkaian Pengisian Tangki Air Otomatis
mengggunakan mikrokontroler dengan bascom dan at mega 8535
Source code Pengisian Tangki Air Otomatis
mengggunakan mikrokontroler dengan bascom dan at mega 8535
$regfile =
"8535def.dat"
$crystal = 16000000
Dim Flag As Bit
Dim Jarak As Word , H1 As
Word , H2 As Word , Ht As Word
Dim Vol As Long , C As
Single , D As Single
Dim Sp As Word
Ddrc.1 = 1
Portc.1 = 0
Config Timer1 = Timer ,
Prescale = 1
On Timer1 Jarak_over
Enable Interrupts
Sig Alias Portc.0
Pin_sig Alias Ddrc.0
Sig_in Alias Pinc.0
Pump Alias Portc.1
Ht = 200
Sp = 150 'cm
Do
Gosub Ukur_H1
H2 = Ht - H1
If H2 > Sp Then
Pump = 1
Else
Pump = 0
End If
Loop
End
Ukur_h1:
Flag = 1
Pin_sig = 1
Sig = 0
Enable Timer1
Timer1 = 0
Sig = 1
Waitus 5
Sig = 0
Waitus 760
Start Timer1
Pin_sig = 0
Sig = 1
While Flag = 1
If Sig_in = 0 Then
Stop Timer1
Jarak = Timer1
Flag = 0
End If
Wend '
'hitung dlm cm
H1 = Jarak / 58
Return
Jarak_over:
Flag = 0
Stop Timer1
Timer1 = 0
Jarak = 0
Return
0 Reviews
Silakan dikomentari