Haberler:

Forum kuralları güncellendi LÜTFEN  okuyunuz:  https://bit.ly/2IjR3ME

Ana Menü

Pbp ile Servo Motor Kontrolü

Başlatan 106Tuner, 09 Mart 2008, 17:24:10

106Tuner

Arkadaşlar 16F877ile servo motor sürmek istiyorum ama bir türlü beceremedim


' PicBasic Pro program to move RC servo 1 using buttons
'  Button 1 moves servo left, 2 centers servo, 3 moves servo right

' Define LOADER_USED to allow use of the boot loader.
' This will not affect normal program operation.
Define   LOADER_USED   1

Define  LCD_DREG        PORTD   ' Define LCD connections
Define  LCD_DBIT        4
Define  LCD_RSREG       PORTE
Define  LCD_RSBIT       0
Define  LCD_EREG        PORTE
Define  LCD_EBIT        1

pos     var     word    ' Servo position

servo1  var     PORTC.1 ' Alias servo pin


       ADCON1 = 7      ' PORTA and PORTE to digital
       Low PORTE.2     ' LCD R/W low = write
       Pause 100       ' Wait for LCD to startup

       OPTION_REG = $7f        ' Enable PORTB pullups
       Low servo1      ' Servo output low

       Gosub center    ' Center servo


' Main program loop
mainloop:
       PORTB = 0       ' PORTB lines low to read buttons
       TRISB = $fe     ' Enable first button row

       ' Check any button pressed to move servo
       If PORTB.4 = 0 Then
               Gosub left
       Endif
       If PORTB.5 = 0 Then
               Gosub center
       Endif
       If PORTB.6 = 0 Then
               Gosub right
       Endif

       Lcdout $fe, 1, "Position = ", #pos

       servo1 = 1      ' Start servo pulse
       Pauseus 1000 + pos
       servo1 = 0      ' End servo pulse

       Pause 16        ' Servo update rate about 60Hz

       Goto mainloop   ' Do it all forever


' Move servo left
left:   If pos < 1000 Then
               pos = pos + 1
       Endif
       Return


' Move servo right
right:  If pos != 0 Then
               pos = pos - 1
       Endif
       Return


' Center servo
center: pos = 500
       Return

       End

bu kodları derleyip çalıştırdığımda proteusda lcd ekranda pozisyon değişiyor ama motorda bir çalışma göremiyorum reel de deneme şansım olmadı yardımlarınızı bekliyorum.

mustafa_cmbz

motorun bağlantılarını yanlış yapmış olabilirsin...

ete

Aşağıda açılan konu başlığını incele ihtiyacın olan her şey orada var.
Ete

https://www.picproje.org/main/modules.php?name=Forums&file=viewtopic&p=130964#130964
Bilgi hazinedir paylaştıkça büyür.            http://etepic.com

106Tuner

Alıntı yapılan: "mustafa_cmbz"motorun bağlantılarını yanlış yapmış olabilirsin...

motor bağlantılarında bir problem yok

106Tuner

Alıntı yapılan: "ete"Aşağıda açılan konu başlığını incele ihtiyacın olan her şey orada var.
Ete

https://www.picproje.org/main/modules.php?name=Forums&file=viewtopic&p=130964#130964

Linkteki dosyaları aldım incelicem en kısa zamanda reel uygulayıp buradan devam ederiz hocam elinize kolunuza sağlık teşekkür ederim.