Basic -> Proton

[Ankaralı]

Merhaba;

Microcode da yazdığım programı derleyemiyorum. Aşağıda yazdığım programı protona çevirebilecek varmı?

Teşekkürler.

Verici;
@ DEVICE pic16F84A
@ DEVICE pic16F84A, WDT_OFF
@ DEVICE pic16F84A, PWRT_OFF
@ DEVICE pic16F84A, XT_OSC
DEFINE OSC 4

TRISA=%00000
TRISB=%00000011

   VERICI VAR BYTE   
   VERICI=0
   PAUSE 500

BASLA:

   IF PORTB.0=0 THEN
   VERICI=10
   GOSUB GONDER
   PAUSE 100
   ENDIF

   IF PORTB.1=0 THEN
   VERICI=20
   GOSUB GONDER
   PAUSE 100
   ENDIF

   GOTO BASLA
   
GONDER:
SEROUT2 PORTA.0,813,["A","N","I","L",VERICI]
SEROUT2 PORTA.0,813,["A","N","I","L",VERICI]
SEROUT2 PORTA.0,813,["A","N","I","L",VERICI]
RETURN
END





alıcı;

@ DEVICE pic16F84A
@ DEVICE pic16F84A, WDT_OFF
@ DEVICE pic16F84A, PWRT_OFF
@ DEVICE pic16F84A, XT_OSC
DEFINE OSC 4

TRISA=255
TRISB=0
PORTB=0

ALICI VAR BYTE
ALICI=0
PAUSE 500

BASLA:

   SERIN2 PORTA.0,813,[WAIT("ANIL"),ALICI]

   IF ALICI=10 THEN
   PORTB=%01100000
   PAUSE 50
   PORTB=%00110000
   PAUSE 50
   PORTB=%10010000
   PAUSE 50
   PORTB=%11000000
   PAUSE 50
   ENDIF
   
   IF ALICI=20 THEN
   PORTB=%11000000
   PAUSE 50
   PORTB=%10010000
   pause 50
   PORTB=%00110000
   pause 50
   PORTB=%01100000
   pause 50
   ENDIF
   
   GOTO BASLA
   END

[mustafa_cmbz]

protonda serout2 ve serın2 komutları yok...bunun dışında pause yerine de "delayms" yazmalısın...kristal ayarıda "xtal=4" gibi olmalı hatırladıklarım şimdilik bu kadar daha akşma kod yazdım ama configler şimdi aklımda değil...kolay gelsin...

[Ankaralı]

Xtal falan bunları biliyorum rf kısmı varya programda bunu protonda nasıl yazarım ? Yok mu cvp veren  :lol:

[turkplc]

DEVICE = 16F84A
xtal=4
TRISA=%00000
TRISB=%00000011

dim VERICI as BYTE
VERICI=0
waitms 500

BASLA:

IF PORTB.0=0 THEN
VERICI=10
GOSUB GONDER
waitms 100
ENDIF

IF PORTB.1=0 THEN
VERICI=20
GOSUB GONDER
waitms 100
ENDIF

GOTO BASLA

GONDER:
SEROUT PORTA.0,813,["A","N","I","L",VERICI]
SEROUT PORTA.0,813,["A","N","I","L",VERICI]
SEROUT PORTA.0,813,["A","N","I","L",VERICI]
RETURN
END





alıcı;

DEVICE = 16F84A
xtal=4

TRISA=255
TRISB=0
PORTB=0

dim ALICI as BYTE
ALICI=0
waitms 500

BASLA:

SERIN PORTA.0,813,[WAIT("ANIL"),ALICI]

IF ALICI=10 THEN
PORTB=%01100000
waitms 50
PORTB=%00110000
waitms 50
PORTB=%10010000
waitms 50
PORTB=%11000000
waitms 50
ENDIF

IF ALICI=20 THEN
PORTB=%11000000
waitms 50
PORTB=%10010000
waitms 50
PORTB=%00110000
waitms 50
PORTB=%01100000
waitms 50
ENDIF

GOTO BASLA
END

[karbal656]

Merhaba;
Proton kuruluysa Help'inde bu konular var . Oradan bakabilirsin.
Başarılar.