TRISA=1
TRISB=0
;K5 SAĞ MOTORU YUZDE 20 İLE CALISTIRIYOR
BASLA: ;K4 SAĞ MOTORU YUZDE 50 İLE CALISTIRIYOR
PORTA=0 ;K6 SAĞ SOL MOTORU YUZDE 100 İLE CALISTIRIYOR
PORTB=0 ;K3 SOL MOTORU YUZDE 20 DEVİR İLE CALISTIRIYOR
IF PORTA.2=1 THEN ;K7 SOL MOTORU YUZDE 50 DEVİR İLE CALISTIRIYOR
PORTB.0=1
PORTB.2=1
GOTO K1
ELSE
GOTO BASLA
ENDIF
;MOTOR BASLANGICI
K1:
PORTB.0=1
PORTB.2=1
IF PORTA.1=1 THEN
GOTO K4
ELSE
IF PORTA.0=1 THEN
GOTO K5
ELSE
IF PORTA.3=1 THEN
GOTO K7
ELSE
IF PORTA.4=1 THEN
GOTO K3
ELSE
GOTO K1
ENDIF
ENDIF
ENDIF
ENDIF
K4: ; SAG MOTORU YARIM DEVİRDE DONDURME
PORTB.0=1
PAUSEUS 3750
PORTB.0=0
PAUSEUS 3750
IF PORTA.0=1 THEN
GOTO K5
ELSE
IF PORTA.3=1 THEN
GOTO K3
ELSE
IF PORTA.4=1 THEN
GOTO K7
ELSE
IF PORTA.2=1 THEN
GOTO K6
ELSE
GOTO K4
ENDIF
ENDIF
ENDIF
ENDIF
K6: ;SAG SOL MOTORU TAM DEVİRDE DÖNDÜRME
PORTB.0=1
PORTB.2=1
IF PORTA.0=1 THEN
GOTO K5
ELSE
IF PORTA.1=1 THEN
GOTO K4
ELSE
IF PORTA.3=1 THEN
GOTO K3
ELSE
IF PORTA.4=1 THEN
GOTO K7
ELSE
GOTO K6
ENDIF
ENDIF
ENDIF
ENDIF
K7: ;SOL MOTORU YÜZDE 50 İLE ÇALISTIRMA
PORTB.2=1
PAUSEUS 3750
PORTB.2=0
PAUSEUS 3750
IF PORTA.1=1 THEN
GOTO K4
ELSE
IF PORTA.2=1 THEN
GOTO K6
ELSE
IF PORTA.0=1 THEN
GOTO K5
ELSE
IF PORTA.4=1 THEN
GOTO K3
ELSE
GOTO K7
ENDIF
ENDIF
ENDIF
ENDIF
K5: ;SAG MOTORU YUZDE 20 İLE DONDURME
PORTB.0=1
PAUSEUS 1500
PORTB.0=0
PAUSEUS 6000
IF PORTA.1=1 THEN
GOTO K4
ELSE
IF PORTA.2=1 THEN
GOTO K6
ELSE
IF PORTA.3=1 THEN
GOTO K7
ELSE
IF PORTA.4=1 THEN
GOTO K3
ELSE
GOTO K5
ENDIF
ENDIF
ENDIF
ENDIF
K3: ;SOL MOTORU YUZDE 20 İLE ÇALIŞTIRMA
PORTB.2=1
PAUSEUS 1500
PORTB.2=0
PAUSEUS 6000
IF PORTA.0=1 THEN
GOTO K5
ELSE
IF PORTA.1=1 THEN
GOTO K4
ELSE
IF PORTA.2=1 THEN
GOTO K6
ELSE
IF PORTA.3=1 THEN
GOTO K7
ELSE
GOTO K3
ENDIF
ENDIF
ENDIF
ENDIF
END
kodlamada bi hata varmı bakabilir msiniz? basicde yazıldı
- - - Mesaj Güncellendi - - -
TRISA = 1;
TRISB = 0;
K5;
SA;
MOTORU;
YUZDE;
20;
0LE;
CALISTIRIYOR;
BASLA:
K4;
SA;
MOTORU;
YUZDE;
50;
0LE;
CALISTIRIYOR;
PORTA = 0;
K6;
SA;
SOL;
MOTORU;
YUZDE;
100;
0LE;
CALISTIRIYOR;
PORTB = 0;
K3;
SOL;
MOTORU;
YUZDE;
20;
DEV0R;
0LE;
CALISTIRIYOR;
if ((PORTA.2 == 1)) {
}
;K7;
SOL;
MOTORU;
YUZDE;
50;
DEV0R;
0LE;
CALISTIRIYOR;
PORTB.0 = 1;
PORTB.2 = 1;
goto K1;
ELSEgoto BASLA;
ENDIF;MOTOR;
BASLANGICI;
K1:
PORTB.0 = 1;
PORTB.2 = 1;
if ((PORTA.1 == 1)) {
goto K4;
}
else if ((PORTA.0 == 1)) {
goto K5;
}
else if ((PORTA.3 == 1)) {
goto K7;
}
else if ((PORTA.4 == 1)) {
goto K3;
}
else {
goto K1;
K4:
SAG;
MOTORU;
YARIM;
DEV0RDE;
DONDURME;
PORTB.0 = 1;
PAUSEUS;
3750;
PORTB.0 = 0;
PAUSEUS;
3750;
if ((PORTA.0 == 1)) {
goto K5;
}
else if ((PORTA.3 == 1)) {
goto K3;
}
else if ((PORTA.4 == 1)) {
goto K7;
}
else if ((PORTA.2 == 1)) {
goto K6;
}
else {
goto K4;
K6:
SAG;
SOL;
MOTORU;
TAM;
DEV0RDE;
D;
ND;
RME;
PORTB.0 = 1;
PORTB.2 = 1;
if ((PORTA.0 == 1)) {
goto K5;
}
else if ((PORTA.1 == 1)) {
goto K4;
}
else if ((PORTA.3 == 1)) {
goto K3;
}
else if ((PORTA.4 == 1)) {
goto K7;
}
else {
goto K6;
K7:
SOL;
MOTORU;
Y;
ZDE;
50;
E;
ALISTIRMA;
PORTB.2 = 1;
PAUSEUS;
3750;
PORTB.2 = 0;
PAUSEUS;
3750;
if ((PORTA.1 == 1)) {
goto K4;
}
else if ((PORTA.2 == 1)) {
goto K6;
}
else if ((PORTA.0 == 1)) {
goto K5;
}
else if ((PORTA.4 == 1)) {
goto K3;
}
else {
goto K7;
K5:
SAG;
MOTORU;
YUZDE;
20;
E;
DONDURME;
PORTB.0 = 1;
PAUSEUS;
1500;
PORTB.0 = 0;
PAUSEUS;
6000;
if ((PORTA.1 == 1)) {
goto K4;
}
else if ((PORTA.2 == 1)) {
goto K6;
}
else if ((PORTA.3 == 1)) {
goto K7;
}
else if ((PORTA.4 == 1)) {
goto K3;
}
else {
goto K5;
K3:
SOL;
MOTORU;
YUZDE;
20;
E;
(ALI | TIRMA);
// TODO: Warning!!! The operator should be an XOR ^ instead of an OR, but not available in CodeDOM
PORTB.2 = 1;
PAUSEUS;
1500;
PORTB.2 = 0;
PAUSEUS;
6000;
if ((PORTA.0 == 1)) {
goto K5;
}
else if ((PORTA.1 == 1)) {
goto K4;
}
else if ((PORTA.2 == 1)) {
goto K6;
}
else if ((PORTA.3 == 1)) {
goto K7;
}
else {
goto K3;
}
}
}
}
}
}
buda c# deki
TRISB=0
;K5 SAĞ MOTORU YUZDE 20 İLE CALISTIRIYOR
BASLA: ;K4 SAĞ MOTORU YUZDE 50 İLE CALISTIRIYOR
PORTA=0 ;K6 SAĞ SOL MOTORU YUZDE 100 İLE CALISTIRIYOR
PORTB=0 ;K3 SOL MOTORU YUZDE 20 DEVİR İLE CALISTIRIYOR
IF PORTA.2=1 THEN ;K7 SOL MOTORU YUZDE 50 DEVİR İLE CALISTIRIYOR
PORTB.0=1
PORTB.2=1
GOTO K1
ELSE
GOTO BASLA
ENDIF
;MOTOR BASLANGICI
K1:
PORTB.0=1
PORTB.2=1
IF PORTA.1=1 THEN
GOTO K4
ELSE
IF PORTA.0=1 THEN
GOTO K5
ELSE
IF PORTA.3=1 THEN
GOTO K7
ELSE
IF PORTA.4=1 THEN
GOTO K3
ELSE
GOTO K1
ENDIF
ENDIF
ENDIF
ENDIF
K4: ; SAG MOTORU YARIM DEVİRDE DONDURME
PORTB.0=1
PAUSEUS 3750
PORTB.0=0
PAUSEUS 3750
IF PORTA.0=1 THEN
GOTO K5
ELSE
IF PORTA.3=1 THEN
GOTO K3
ELSE
IF PORTA.4=1 THEN
GOTO K7
ELSE
IF PORTA.2=1 THEN
GOTO K6
ELSE
GOTO K4
ENDIF
ENDIF
ENDIF
ENDIF
K6: ;SAG SOL MOTORU TAM DEVİRDE DÖNDÜRME
PORTB.0=1
PORTB.2=1
IF PORTA.0=1 THEN
GOTO K5
ELSE
IF PORTA.1=1 THEN
GOTO K4
ELSE
IF PORTA.3=1 THEN
GOTO K3
ELSE
IF PORTA.4=1 THEN
GOTO K7
ELSE
GOTO K6
ENDIF
ENDIF
ENDIF
ENDIF
K7: ;SOL MOTORU YÜZDE 50 İLE ÇALISTIRMA
PORTB.2=1
PAUSEUS 3750
PORTB.2=0
PAUSEUS 3750
IF PORTA.1=1 THEN
GOTO K4
ELSE
IF PORTA.2=1 THEN
GOTO K6
ELSE
IF PORTA.0=1 THEN
GOTO K5
ELSE
IF PORTA.4=1 THEN
GOTO K3
ELSE
GOTO K7
ENDIF
ENDIF
ENDIF
ENDIF
K5: ;SAG MOTORU YUZDE 20 İLE DONDURME
PORTB.0=1
PAUSEUS 1500
PORTB.0=0
PAUSEUS 6000
IF PORTA.1=1 THEN
GOTO K4
ELSE
IF PORTA.2=1 THEN
GOTO K6
ELSE
IF PORTA.3=1 THEN
GOTO K7
ELSE
IF PORTA.4=1 THEN
GOTO K3
ELSE
GOTO K5
ENDIF
ENDIF
ENDIF
ENDIF
K3: ;SOL MOTORU YUZDE 20 İLE ÇALIŞTIRMA
PORTB.2=1
PAUSEUS 1500
PORTB.2=0
PAUSEUS 6000
IF PORTA.0=1 THEN
GOTO K5
ELSE
IF PORTA.1=1 THEN
GOTO K4
ELSE
IF PORTA.2=1 THEN
GOTO K6
ELSE
IF PORTA.3=1 THEN
GOTO K7
ELSE
GOTO K3
ENDIF
ENDIF
ENDIF
ENDIF
END
kodlamada bi hata varmı bakabilir msiniz? basicde yazıldı
- - - Mesaj Güncellendi - - -
TRISA = 1;
TRISB = 0;
K5;
SA;
MOTORU;
YUZDE;
20;
0LE;
CALISTIRIYOR;
BASLA:
K4;
SA;
MOTORU;
YUZDE;
50;
0LE;
CALISTIRIYOR;
PORTA = 0;
K6;
SA;
SOL;
MOTORU;
YUZDE;
100;
0LE;
CALISTIRIYOR;
PORTB = 0;
K3;
SOL;
MOTORU;
YUZDE;
20;
DEV0R;
0LE;
CALISTIRIYOR;
if ((PORTA.2 == 1)) {
}
;K7;
SOL;
MOTORU;
YUZDE;
50;
DEV0R;
0LE;
CALISTIRIYOR;
PORTB.0 = 1;
PORTB.2 = 1;
goto K1;
ELSEgoto BASLA;
ENDIF;MOTOR;
BASLANGICI;
K1:
PORTB.0 = 1;
PORTB.2 = 1;
if ((PORTA.1 == 1)) {
goto K4;
}
else if ((PORTA.0 == 1)) {
goto K5;
}
else if ((PORTA.3 == 1)) {
goto K7;
}
else if ((PORTA.4 == 1)) {
goto K3;
}
else {
goto K1;
K4:
SAG;
MOTORU;
YARIM;
DEV0RDE;
DONDURME;
PORTB.0 = 1;
PAUSEUS;
3750;
PORTB.0 = 0;
PAUSEUS;
3750;
if ((PORTA.0 == 1)) {
goto K5;
}
else if ((PORTA.3 == 1)) {
goto K3;
}
else if ((PORTA.4 == 1)) {
goto K7;
}
else if ((PORTA.2 == 1)) {
goto K6;
}
else {
goto K4;
K6:
SAG;
SOL;
MOTORU;
TAM;
DEV0RDE;
D;
ND;
RME;
PORTB.0 = 1;
PORTB.2 = 1;
if ((PORTA.0 == 1)) {
goto K5;
}
else if ((PORTA.1 == 1)) {
goto K4;
}
else if ((PORTA.3 == 1)) {
goto K3;
}
else if ((PORTA.4 == 1)) {
goto K7;
}
else {
goto K6;
K7:
SOL;
MOTORU;
Y;
ZDE;
50;
E;
ALISTIRMA;
PORTB.2 = 1;
PAUSEUS;
3750;
PORTB.2 = 0;
PAUSEUS;
3750;
if ((PORTA.1 == 1)) {
goto K4;
}
else if ((PORTA.2 == 1)) {
goto K6;
}
else if ((PORTA.0 == 1)) {
goto K5;
}
else if ((PORTA.4 == 1)) {
goto K3;
}
else {
goto K7;
K5:
SAG;
MOTORU;
YUZDE;
20;
E;
DONDURME;
PORTB.0 = 1;
PAUSEUS;
1500;
PORTB.0 = 0;
PAUSEUS;
6000;
if ((PORTA.1 == 1)) {
goto K4;
}
else if ((PORTA.2 == 1)) {
goto K6;
}
else if ((PORTA.3 == 1)) {
goto K7;
}
else if ((PORTA.4 == 1)) {
goto K3;
}
else {
goto K5;
K3:
SOL;
MOTORU;
YUZDE;
20;
E;
(ALI | TIRMA);
// TODO: Warning!!! The operator should be an XOR ^ instead of an OR, but not available in CodeDOM
PORTB.2 = 1;
PAUSEUS;
1500;
PORTB.2 = 0;
PAUSEUS;
6000;
if ((PORTA.0 == 1)) {
goto K5;
}
else if ((PORTA.1 == 1)) {
goto K4;
}
else if ((PORTA.2 == 1)) {
goto K6;
}
else if ((PORTA.3 == 1)) {
goto K7;
}
else {
goto K3;
}
}
}
}
}
}
buda c# deki