Rf ile servo ve dc motor kumanda etmek

[adoka]

Henüz bitirmiş oldugum projemi vakit kaybetmeden yorumlarınıza hemde ihtiyacı olanlar icin paylasmak istedim devrede servo, pot ile kumanda ediliyor butonlar ise dc motor ve ledlerin potu saga ve sola cevirdigimiz olcude servo da saga ve sola donuyor dc motorlar ve ledler butona basılı tuttugumuz muddetce hareket ediyor.Bu devreyi ogluma uzaktan kumandalı bir arac yapmak icin tasarladım fakat henuz pratige dokmedim.Devre henuz denenmemistir sadece simulasyonda calısır durumdadır.Program picbasic de yazılmıstır.Saygılar..

verici programı:

PORTA=0:TRISA=%00000001
PORTB=0:TRISB=%11111111
PORTC=0:TRISC=%00000000
PORTD=0:TRISD=%00000000
PORTE=0:TRISE=%00000000
ADCON1=%00001110
CMCON=7
'-----------------------------
Define ADC_BITS 8
Define ADC_CLOCK 3
Define ADC_SAMPLEUS 100
'---------------------------------------------------
SYMBOL ILERI=PORTB.2
SYMBOL GERI=PORTB.3
SYMBOL LED =PORTB.4
OKU VAR BYTE
YON VAR BYTE
FAR VAR BYTE
SAY VAR BYTE
'---------------------------------------------------
DONGU:
SAY=0

IF ILERI=1 THEN
OKU=100
  ELSE
OKU=0

IF GERI=1 THEN
  OKU=110
   ELSE
    OKU=0

  IF LED=1 THEN
   FAR=120
    ELSE
     FAR=0
  ENDIF
ENDIF
ENDIF

ADCIN 0,YON
BITMEDI:
IF ADCON0.2=1 THEN BITMEDI
PAUSE 2
GOSUB GONDER

'------------------------------------------------------------
GONDER:
FOR SAY=0 TO 3
SEROUT2 PORTC.6,396,["B","I","L","G","I",OKU,YON,FAR]
NEXT SAY
GOTO DONGU

alıcı programı:

PortA=0 : TrisA=%10000
PortB=0 : TrisB=%00000000

DEFINE LCD_DREG      PORTB   'LCD data bacakları hangi porta bağlı?
DEFINE LCD_DBIT      5      'LCD data bacakları hangi bitten başlıyor?
DEFINE LCD_EREG      PORTB   'LCD Enable Bacağı Hangi Porta bağlı?
DEFINE LCD_EBIT      3      'LCD Enable Bacağı Hangi bite bağlı ?
define LCD RWREG    PORTB   'LCD R/W Bacağı Hangi Porta bağlı?
define LCD_RWBIT    2       'LCD R/W Bacağı Hangi bite bağlı ?
DEFINE LCD_RSREG   PORTB   'LCD RS Bacağı Hangi Porta bağlı ?
DEFINE LCD_RSBIT   1      'LCD RS bacağı Hangi Bite bağlı  ?
DEFINE LCD_BITS      4      'LCD 4 bit mi yoksa 8 bit olarak bağlı?
DEFINE LCD_LINES   2      'LCD Kaç sıra yazabiliyor
YON VAR BYTE
OKU VAR BYTE
FAR VAR BYTE
SAY VAR BYTE
YON=0
FAR=0
SAY=0
PAUSE 100
BASLA:
OKU=0
SERIN2 PORTA.4,396,[WAIT("BILGI"),OKU,YON,FAR]

LCDOUT $FE,1
LCDOUT "POT:",#YON
LCDOUT $FE,$C0,"TUS:",DEC3 OKU,"LED:",#FAR

IF OKU=100 THEN
HIGH PORTA.0
ELSE
LOW PORTA.0
ENDIF

IF OKU=110THEN
HIGH PORTA.1
ELSE
LOW PORTA.1
ENDIF

IF FAR=120 THEN
HIGH PORTA.2
SAY=SAY+1
IF SAY=2 THEN
LOW PORTA.2
SAY=0
ENDIF
ENDIF

IF YON>25 THEN
pulsout PORTA.3,YON
ENDIF

IF YON<25 THEN
PULSOUT PORTA.3,YON
ENDIF

GOTO BASLA

bu da devre seması:

http://www.upload.gen.tr/resim.php/www/ngrgmvqx/rf_kumanda.JPG.html

[adoka]

Yukarıdaki programı ve devreyi kurdum denedim fakat çalıştıramadım simülasyonda gayet guzel çalısıyor halbuki yardımcı olmak isteyenler icin her turlu oneriye acıgım...

[zkan034]

kardeş Fuse ayarları var proteus hazır kullandıgı için veya'da bazı ayarları gözardı
ettigi için yazılımda bu ayarları belirtmek gerekiyormuş bende aynı dertten muzdalibim
ancak Assembly ascı ie programlamada hiç sorun yaşamazken pbp de oluyo bende anlamış degilim.
sen bulursan banada bi zahmet yazarmısın.