P
potetojb
Guest
-aceasta este o programare pentru DC MOTOR CONTROLLER (proiectul meu final)
-run Am şi de testare de programare, dar mai au încă o problemă la circuitul
-Cred că circuitul este ok, dar de programare pentru senzor nu este OK!
-mai jos sunt programul meu
"PIC DE BAZĂ Pro pentru DC MOTOR CONTROLLER
"PIC16F84A
TRISA =% 00000000
TRISB =% 00000111
Loop:
High PORTA.0 "acest lucru este de a transmite semnalul de la senzorul
Min PORTA.1IF (PORTB.0 = 1) şi (PORTB.1 = 1) şi (PORTB.2 = 1) Apoi,
Motorfast GoSub
ENDIF
IF (PORTB.0 = 1) şi (PORTB.1 = 1) şi (PORTB.2 = 0) Apoi,
Motormedium GoSub
ENDIF
IF (PORTB.0 = 1) şi (PORTB.1 = 0) şi (PORTB.2 = 0) Apoi,
Motorslow GoSub
ENDIF
IF (PORTB.0 = 1) şi (PORTB.1 = 1) şi (PORTB.2 = 1) Apoi,
Motorstop GoSub
ENDIF
Bucla GoTo
motorfast:
High PORTB.7
LCDOut $ FE, 1, "Nu sunt relatate obiect"
LCDOut $ FE, $ C0, "Motor FAST"
Întoarceţi
-
motormedium:
LCDOut $ FE, 1, "Obiectul Detect I"
LCDOut $ FE, $ C0, "mediu SPEED"
High PORTB.7
Pauză 2
Min PORTB.7
Pauză 2
Întoarceţi
-
motorslow:
LCDOut $ FE, 1, "Obiectul Detect II"
LCDOut $ FE, $ C0, "Slow SPEED"
High PORTB.7
Pauză 4
Min PORTB.7
Pauză 4
Întoarceţi
-
motorstop:
LCDOut $ FE, 1, "ATENŢIE!"
LCDOut $ FE, $ C0, "Slow SPEED"
Min PORTB.7
Întoarceţi
--problema este senzorul de ultrasunete nu funcţionează după ce circuitul este ON
-Poate ca este cauza de programare şi nu sunt sigur cum să se stabilească o
-Cred că problema este de la programare trasmitter cu ultrasunete
-a putea anybody ajută-mă de a rezolva această ...?
-run Am şi de testare de programare, dar mai au încă o problemă la circuitul
-Cred că circuitul este ok, dar de programare pentru senzor nu este OK!
-mai jos sunt programul meu
"PIC DE BAZĂ Pro pentru DC MOTOR CONTROLLER
"PIC16F84A
TRISA =% 00000000
TRISB =% 00000111
Loop:
High PORTA.0 "acest lucru este de a transmite semnalul de la senzorul
Min PORTA.1IF (PORTB.0 = 1) şi (PORTB.1 = 1) şi (PORTB.2 = 1) Apoi,
Motorfast GoSub
ENDIF
IF (PORTB.0 = 1) şi (PORTB.1 = 1) şi (PORTB.2 = 0) Apoi,
Motormedium GoSub
ENDIF
IF (PORTB.0 = 1) şi (PORTB.1 = 0) şi (PORTB.2 = 0) Apoi,
Motorslow GoSub
ENDIF
IF (PORTB.0 = 1) şi (PORTB.1 = 1) şi (PORTB.2 = 1) Apoi,
Motorstop GoSub
ENDIF
Bucla GoTo
motorfast:
High PORTB.7
LCDOut $ FE, 1, "Nu sunt relatate obiect"
LCDOut $ FE, $ C0, "Motor FAST"
Întoarceţi
-
motormedium:
LCDOut $ FE, 1, "Obiectul Detect I"
LCDOut $ FE, $ C0, "mediu SPEED"
High PORTB.7
Pauză 2
Min PORTB.7
Pauză 2
Întoarceţi
-
motorslow:
LCDOut $ FE, 1, "Obiectul Detect II"
LCDOut $ FE, $ C0, "Slow SPEED"
High PORTB.7
Pauză 4
Min PORTB.7
Pauză 4
Întoarceţi
-
motorstop:
LCDOut $ FE, 1, "ATENŢIE!"
LCDOut $ FE, $ C0, "Slow SPEED"
Min PORTB.7
Întoarceţi
--problema este senzorul de ultrasunete nu funcţionează după ce circuitul este ON
-Poate ca este cauza de programare şi nu sunt sigur cum să se stabilească o
-Cred că problema este de la programare trasmitter cu ultrasunete
-a putea anybody ajută-mă de a rezolva această ...?