POT KOMUTUYLA BERABER GELEN SORUN ?

Başlatan yusuftr80, 29 Haziran 2006, 14:42:39

yusuftr80

Arkadaşlar 2 adet potansiyo metre anahtarla  motoru sağa ve sola döndürmek istiyorum ama  
Potansiyo metre nin biri elle kontorl edilecek birini ise motora bağladım motor kontrol edecek daha önce arkadaşlar bana güneş takip sisteminden faydalanmamı istediler sa olsunlar ama ben bunu  programla yapmak istedim  başaramadım elde kontrol etim potansiyo metrenin değerini motordaki pot la ayni oldu zaman motor durması gerek
 herkeşe selam lar koaygelsin  :roll:  :?:
BASLA:
TRISB=%00000011        ' PORTB YE  2 ADET TRİNPOT  BAGLIYORUZ?
TRISA=%00000000
PORTB=0
X VAR BYTE
X1 var byte

POT PORTB.0, 127,X     ' BURDA  Kİ POT  ELLE KONTROL EDİLİYOR  
LCDOUT $FE,1,"POT=",#X


'******************************
 POT PORTB.1, 127,X1    ' BU POTU İSE MOTOR  KONTROL EDİYOR  YANİ MOTORUN
                            '  MİLİNE BAGLI    
LCDOUT $FE,$C0,"POT=",#X1
  PAUSE 50
'******************************  
 IF X=0 AND X1=0 THEN   ' X İLE X1 AYNI DEGERDE OLUN CA  
 PORTB.7=0
 PORTB.6=0
 ENDIF
 
'**********************************
' ELE KONTROL EDİLEN  POTUN DEGERLERİ
IF X=1 THEN  
PORTB.7=1
ENDIF
IF X=3 THEN  
PORTB.7=1
ENDIF
IF X=4 THEN
PORTB.7=1
ENDIF
IF X=6 THEN
PORTB.7=1
ENDIF
IF X=8 THEN  
PORTB.7=1
ENDIF
IF X=10 THEN
PORTB.7=1
ENDIF
IF X=11 THEN
PORTB.7=1
ENDIF
IF X=13 THEN
PORTB.7=1
ENDIF
IF X=15 THEN
PORTB.7=1
ENDIF
 
'**********************************  
' MOTORUN  KONTROLÜNE BAGLI POT  DEGERLERİ  YAPMASI GEREKEN LER AŞAGIDA  
IF X1=1 THEN  
PORTB.7=0
ENDIF
IF   X1=2 then
PORTB.7=0
ENDIF
IF   X1=4 then
PORTB.7=0
ENDIF
 IF   X1=6 then
 PORTB.7=0
ENDIF
 IF   X1=8 then  
 PORTB.7=0
ENDIF
 IF   X1=10 then
 PORTB.7=0
ENDIF
 IF   X1=11 then
 PORTB.7=0
ENDIF
 IF   X1=13 then
 PORTB.7=0
ENDIF
 IF   X1=156then
 PORTB.7=0
ENDIF        
    GOTO BASLA      
     END

elektroombank

Program Kendi kendi sıfırlamsı lazım derken Portb.7 ve Portb.6
ıncı bitini sıfırlamak istiyorsan.

IF PORTB.0=1 AND PORTB.1=1 THEN  'Eğer PORTB.0=1vePORTB.1=1 ise
PORTB.7=0 'bu yap
PORTB.6=0 'bu yap
ENDIF