A
AFTERDATE
Guest
hallo alle
kan iemand me helpen.Ik heb dit circuit
en ik wil de PIC niet lezen vorm van het signaal van de sensor te vergelijken en te doen alsof het signaal is 20 weer op de ventilator, en als het signaal tot 20 Zet de ventilator en dit alles i wanna weergegeven in LCD-scherm.Ik heb een code maar does't werk ik weet je waarom?als iemand weet wat er mis plz tell me.hartelijk dank
all the best
en ik heb een code of het programma does't werk dat ik do't weten.hartelijk dank
(1)
Device = 16F877
XTAL 4
Declare LCD_DTPIN PORTB.4
Declare LCD_ENPIN PORTB.3
Declare LCD_INTERFACE 4
Declare LCD_RSPIN PORTB.2
Declare ADIN_RES 10
Declare ADIN_TAD FRC
Declare ADIN_STIME 50
Input PORTA.0
ADCON1 =% 10000000
Zoals Dim volt Float
main:
volt = ADIN 0
Afdrukken op 1,1, @ volt
Als volt = 127 Dan
PORTC.0 = 1
Anders
EndIf
GoTo main
(2)
Device 16F877
XTAL 4
Output PORTB
Symbol LED = PORTB
Dim I As Byte
Main:
Pas = 255
DelayMS 500
For I = 0 tot 7
PORTB = PORTB <<1
PORTB = LED
DelayMS 500
Volgende I
GoTo Main
(3)
Device = 16F877
XTAL 4
Declare LCD_DTPIN PORTB.4
Declare LCD_ENPIN PORTB.3
Declare LCD_INTERFACE 4
Declare LCD_RSPIN PORTB.2
Declare ADIN_RES 10
Declare ADIN_TAD FRC
Declare ADIN_STIME 50
Input PORTA.0
Output PORTB
Output PORTC
Dim var1 As Byte
Dim volt As Byte
main:
var1 = ADIN 1
volt = var1
GoSub compar
GoTo main
compar:
Als var1 <150 dan
PORTB.2 = 1
Anders
PORTB.2 = 0
EndIf
Terug
(4)
Device = 16F877
XTAL 4
Declare LCD_DTPIN PORTB.4
Declare LCD_ENPIN PORTB.3
Declare LCD_INTERFACE 4
Declare LCD_RSPIN PORTB.2
Dim x As Float
Dim y As Float
y = 58,5
x = 665,25
label:
Afdrukken op 1,1, "hi man"
DelayMS 1000
Print op 2,1, december y
GoTo label
Sorry, maar je moet inloggen om deze gehechtheid
kan iemand me helpen.Ik heb dit circuit
en ik wil de PIC niet lezen vorm van het signaal van de sensor te vergelijken en te doen alsof het signaal is 20 weer op de ventilator, en als het signaal tot 20 Zet de ventilator en dit alles i wanna weergegeven in LCD-scherm.Ik heb een code maar does't werk ik weet je waarom?als iemand weet wat er mis plz tell me.hartelijk dank
all the best
en ik heb een code of het programma does't werk dat ik do't weten.hartelijk dank
(1)
Device = 16F877
XTAL 4
Declare LCD_DTPIN PORTB.4
Declare LCD_ENPIN PORTB.3
Declare LCD_INTERFACE 4
Declare LCD_RSPIN PORTB.2
Declare ADIN_RES 10
Declare ADIN_TAD FRC
Declare ADIN_STIME 50
Input PORTA.0
ADCON1 =% 10000000
Zoals Dim volt Float
main:
volt = ADIN 0
Afdrukken op 1,1, @ volt
Als volt = 127 Dan
PORTC.0 = 1
Anders
EndIf
GoTo main
(2)
Device 16F877
XTAL 4
Output PORTB
Symbol LED = PORTB
Dim I As Byte
Main:
Pas = 255
DelayMS 500
For I = 0 tot 7
PORTB = PORTB <<1
PORTB = LED
DelayMS 500
Volgende I
GoTo Main
(3)
Device = 16F877
XTAL 4
Declare LCD_DTPIN PORTB.4
Declare LCD_ENPIN PORTB.3
Declare LCD_INTERFACE 4
Declare LCD_RSPIN PORTB.2
Declare ADIN_RES 10
Declare ADIN_TAD FRC
Declare ADIN_STIME 50
Input PORTA.0
Output PORTB
Output PORTC
Dim var1 As Byte
Dim volt As Byte
main:
var1 = ADIN 1
volt = var1
GoSub compar
GoTo main
compar:
Als var1 <150 dan
PORTB.2 = 1
Anders
PORTB.2 = 0
EndIf
Terug
(4)
Device = 16F877
XTAL 4
Declare LCD_DTPIN PORTB.4
Declare LCD_ENPIN PORTB.3
Declare LCD_INTERFACE 4
Declare LCD_RSPIN PORTB.2
Dim x As Float
Dim y As Float
y = 58,5
x = 665,25
label:
Afdrukken op 1,1, "hi man"
DelayMS 1000
Print op 2,1, december y
GoTo label
Sorry, maar je moet inloggen om deze gehechtheid