Yeni Kayıt
Konudaki Resimler
|
Hızlı 
Bildirim
Pic Basic Pro Hex dosyasi YARDIM LÜTFEN !
Sıcak Fırsatlarda Tıklananlar
Editörün Seçtiği Fırsatlar
Daha Fazla 
Bu Konudaki Kullanıcılar:
Daha Az 
2 Misafir - 2 Masaüstü
Giriş
Mesaj
-
-
Selam ,
e-mailinize yolladım hex olarak,
ege -
quote:
Orijinalden alıntı: D.Baran
Arkadaslar Merhaba ,bilgisayarimda her türlü ayari yaptim ancak asagidaki Servo motor devresine ait kodlarin HEX dosyasini alamadim ,picbasic pro yu kuramiyorum.Yapabilecek arkadaslar lütfen bu kodlari HEX
dosyasi olarak gönderebilirmisiniz.Simdiden tesekkür ediyorum
@ DEVICE pic16F88, INTRC_OSCNOCLKOUT
OSCCON=%01101110
ADCON1=%00000000
ANSEL=%00000010
TRISA=%01010010
TRISB=%01010010
ADCDeger VAR BYTE
ServoNo VAR BYTE
SYMBOL ServoButon=PortA.6
SYMBOL KomutButon=PortA.4
SYMBOL Servo1=PortA.2
SYMBOL Servo2=PortA.3
SYMBOL Led1=PortB.0
SYMBOL Led2=PortB.1
Sayac VAR BYTE
Deger VAR WORD
AltDeger CON 100
ServoNo=1
Program:
ADCIN 1,ADCDeger
Deger=(ADCDeger*58)/100
IF ServoButon=0 THEN PAUSE 30:ServoNo=ServoNo+1
IF ServoNo>2 THEN ServoNO=1
SELECT CASE ServoNo
CASE 1:Led1=1:Led2=0
CASE 2:Led1=0:Led2=1
END SELECT
IF KomutButon=0 THEN PAUSE 30:GOSUB Servo
GOTO Program
Servo:
FOR Sayac=0 TO 40
SELECT CASE ServoNo
CASE 1:PULSOUT Servo1,deger+AltDeger
CASE 2:PULSOUT Servo2,deger+AltDeger
END SELECT
PAUSE 19
NEXT
RETURN
dahılı osilatörün kodunu yanlış yazmışsınız INTRC_OSC_NOCLKOUT o yüzden derlememiş
http://s3.dosya.tc/server15/Xwrm2t/Servomotor.rar.html
-
ayrıca pic basic 'in bu sürümünü kullanın çok stabil çalışıyor programın bulunduğu dizin burada oluşuyor \Program Files\Mecanique\MCSP
http://s3.dosya.tc/server15/QnKWr5/mcsp2300.rar.html -
Cok tesekkür ediyorum arkadaslar ,bir aile ziyaretinde oldugum icin gec gördüm. -
quote:
Orijinalden alıntı: zokur
quote:
Orijinalden alıntı: D.Baran
Arkadaslar Merhaba ,bilgisayarimda her türlü ayari yaptim ancak asagidaki Servo motor devresine ait kodlarin HEX dosyasini alamadim ,picbasic pro yu kuramiyorum.Yapabilecek arkadaslar lütfen bu kodlari HEX
dosyasi olarak gönderebilirmisiniz.Simdiden tesekkür ediyorum
@ DEVICE pic16F88, INTRC_OSCNOCLKOUT
OSCCON=%01101110
ADCON1=%00000000
ANSEL=%00000010
TRISA=%01010010
TRISB=%01010010
ADCDeger VAR BYTE
ServoNo VAR BYTE
SYMBOL ServoButon=PortA.6
SYMBOL KomutButon=PortA.4
SYMBOL Servo1=PortA.2
SYMBOL Servo2=PortA.3
SYMBOL Led1=PortB.0
SYMBOL Led2=PortB.1
Sayac VAR BYTE
Deger VAR WORD
AltDeger CON 100
ServoNo=1
Program:
ADCIN 1,ADCDeger
Deger=(ADCDeger*58)/100
IF ServoButon=0 THEN PAUSE 30:ServoNo=ServoNo+1
IF ServoNo>2 THEN ServoNO=1
SELECT CASE ServoNo
CASE 1:Led1=1:Led2=0
CASE 2:Led1=0:Led2=1
END SELECT
IF KomutButon=0 THEN PAUSE 30:GOSUB Servo
GOTO Program
Servo:
FOR Sayac=0 TO 40
SELECT CASE ServoNo
CASE 1:PULSOUT Servo1,deger+AltDeger
CASE 2:PULSOUT Servo2,deger+AltDeger
END SELECT
PAUSE 19
NEXT
RETURN
dahılı osilatörün kodunu yanlış yazmışsınız INTRC_OSC_NOCLKOUT o yüzden derlememiş
http://s3.dosya.tc/server15/Xwrm2t/Servomotor.rar.html
Haklisin dostum buraya yazarken hata yapmisim ancak derleyemememin nedeni bilgisayarimda gerekli ayarlari yapamadigim icin baska bir sorun.64 bit bilgisayarim.
Sayfa:
1
Ip işlemleri
Bu mesaj IP'si ile atılan mesajları ara Bu kullanıcının son IP'si ile atılan mesajları ara Bu mesaj IP'si ile kullanıcı ara Bu kullanıcının son IP'si ile kullanıcı ara
KAPAT X
Bu mesaj IP'si ile atılan mesajları ara Bu kullanıcının son IP'si ile atılan mesajları ara Bu mesaj IP'si ile kullanıcı ara Bu kullanıcının son IP'si ile kullanıcı ara
KAPAT X
