joquas
Üye
- Katılım
- 19 Kas 2012
- Mesajlar
- 2
- Puanları
- 1
- Yaş
- 33
2 aydır uğraşıyorum kafam almıyor displayle zaman ayarı yapıcam 2 tane haznem var ve bir motor ust kapaklara deyiyor 3 sn açık kalıyor sonra diğer butona değdimi duruyor kapak kapanmıs oluyor aynı şekilde yem dökülme haznesi var ama bir türlü işin içinden çıkamıyorum bu benım bitirme tezim bozok üniversitesinde okuyorum ve işin içinden çıkamıyorum yardımcı olursanız çok sevinirim bas dosyasıda--------
TRISA=%11111111
TRISB=%00011111
PORTA=0
PORTB=0
SYMBOL MOTOR1SAG=TRISB.4
SYMBOL MOTOR1SOL=TRISB.5
SYMBOL MOTOR2SAG=TRISB.6
SYMBOL MOTOR2SOL=TRISB.7
SYMBOL SW1=TRISB.3
SYMBOL SW2=TRISB.2
SYMBOL SW3=TRISB.1
SYMBOL SW4=TRISB.0
SYMBOL ARTIR=TRISA.5
SYMBOL AZALT=TRISA.6
i VAR Byte
A VAR Byte
B VAR BYTE
C VAR BYTE
DISPLAY1 VAR BYTE
DISPLAY2 VAR BYTE
i=0
BASLA:
IF SW1!=0 THEN
MOTOR1SAG=1
PAUSE(3000)
ELSE
MOTOR1SAG=0
PAUSE(3000)
ENDIF
DEVAM:
IF ARTIR=0 THEN
i=i+1
PAUSE(150)
ENDIF
IF AZALT=0 THEN
i=i-1
PAUSE(150)
ENDIF
PAUSE(1000)
YEMLEBASLA:
For B = 0 to i
for a = 0 to 60
for C = 0 TO 60
pause(1000)
if ARTIR=0 AND AZALT=0 THEN
GOTO DEVAM
ENDIF
NEXT C
NEXT A
NEXT B
pause(1)
MOTOR1SAG=1
IF SW1=0 then
PAUSE(3000)
MOTOR1SOL=1
if SW2=0 then
pause(100)
endif
ENDIF
pause(100)
MOTOR2SAG=1
IF SW3=0 THEN
PAUSE(3000)
MOTOR2SOL=1
if SW4=0 then
pause(100)
endif
ENDIF
GOTO DEVAM
end
fakat çalısmıyor
- - - Updated - - -
Ekstra olarak Displaye yazmayı daha beceremedim onuda çözemiyorum
TRISA=%11111111
TRISB=%00011111
PORTA=0
PORTB=0
SYMBOL MOTOR1SAG=TRISB.4
SYMBOL MOTOR1SOL=TRISB.5
SYMBOL MOTOR2SAG=TRISB.6
SYMBOL MOTOR2SOL=TRISB.7
SYMBOL SW1=TRISB.3
SYMBOL SW2=TRISB.2
SYMBOL SW3=TRISB.1
SYMBOL SW4=TRISB.0
SYMBOL ARTIR=TRISA.5
SYMBOL AZALT=TRISA.6
i VAR Byte
A VAR Byte
B VAR BYTE
C VAR BYTE
DISPLAY1 VAR BYTE
DISPLAY2 VAR BYTE
i=0
BASLA:
IF SW1!=0 THEN
MOTOR1SAG=1
PAUSE(3000)
ELSE
MOTOR1SAG=0
PAUSE(3000)
ENDIF
DEVAM:
IF ARTIR=0 THEN
i=i+1
PAUSE(150)
ENDIF
IF AZALT=0 THEN
i=i-1
PAUSE(150)
ENDIF
PAUSE(1000)
YEMLEBASLA:
For B = 0 to i
for a = 0 to 60
for C = 0 TO 60
pause(1000)
if ARTIR=0 AND AZALT=0 THEN
GOTO DEVAM
ENDIF
NEXT C
NEXT A
NEXT B
pause(1)
MOTOR1SAG=1
IF SW1=0 then
PAUSE(3000)
MOTOR1SOL=1
if SW2=0 then
pause(100)
endif
ENDIF
pause(100)
MOTOR2SAG=1
IF SW3=0 THEN
PAUSE(3000)
MOTOR2SOL=1
if SW4=0 then
pause(100)
endif
ENDIF
GOTO DEVAM
end
fakat çalısmıyor
- - - Updated - - -
Ekstra olarak Displaye yazmayı daha beceremedim onuda çözemiyorum