Arkadaşlar şekildeki şema denenmiştir. Yazılımını ilerki günlerde göndermeye çalışacam. Motor olarak servo motor kullanmanızı tavsiye ederim. Kolay gelsin...
'******************************************
'* Name : ROBOT(CIZGI).BAS *
'* Author : serdarderici *
'******************************************
device=16f84
TRISA=%00000111
TRISB=%00000000
PORTA=0
PORTB=0
'SOL SENSOR=A2,ORTA SENSOR=A1,SAG SENSOR=A0
'
' A2 A1 A0
'
' B2(ILERI) B0(ILERI)
' SOLMOTOR SAGMOTOR
' B3(GERI) B1(GERI)
MOTORLAR VAR PORTB
ORTA VAR PORTA.1
SOL VAR PORTA.2
SAG VAR PORTA.0
BASLA:
PAUSE 1500
TEST:
PORTB=0
IF SOL=0 AND ORTA=0 AND SAG=0 THEN GOTO GERI
IF SOL=0 AND ORTA=0 AND SAG=1 THEN GOTO SAGMT
IF SOL=0 AND ORTA=1 AND SAG=1 THEN GOTO SAGMT
IF SOL=1 AND ORTA=0 AND SAG=0 THEN GOTO SOLMT
IF SOL=1 AND ORTA=1 AND SAG=0 THEN GOTO SOLMT
IF SOL=1 AND ORTA=1 AND SAG=1 THEN GOTO ILERI
IF SOL=0 AND ORTA=1 AND SAG=0 THEN GOTO ILERI
GOTO TEST
ILERI:
MOTORLAR=%01010101
PAUSE 10
GOTO TEST
GERI:
MOTORLAR=%10101010
PAUSE 10
GOTO TEST
SAGMT:
MOTORLAR=%00010001
PAUSE 10
GOTO TEST
SOLMT:
MOTORLAR=%01000100
PAUSE 10
GOTO TEST
END