Uzaktan Kumandalı Tank Projesi

[fthtsdmr]

Merhabalar Forumu uzun zamandır takip ediyorum.Ama yakın bir zamanda üye olmak nasipmiş.Yapmak isteğim tankın yazılım kısmını protonda similasyon kısmını proteusta hallettim.Şimdi Pice atıp uygulamak istiyorum.Bilgisayarda yapılan ile uygulama ile pratikte uygulama arasında bazı farklar olabiliyor.Yazılımdaki eksiklerimi gidermeme yardımcı olursanız çok sevinirim.

Alıcı Kısım

Device=16F628A
XTAL 4
CMCON=7
Include "modedefs.bas"
TRISA=1
TRISB=%00000000
PORTA=0
PORTB=0


Symbol motor11=PORTB.0
Symbol motor12=PORTB.1
Symbol motor21=PORTB.2
Symbol motor22=PORTB.3 
Dim alici As Byte
alici=0
DelayMS 500


basla:
SerIn PORTA.0,396,[Wait("TASD"),alici]

If alici=0 Then

motor11=0
motor12=0
motor21=0
motor22=0
EndIf



If alici=10 Then
   
    motor11=1
    motor21=1
   
EndIf

If alici=20 Then
    
    motor12=1
    motor22=1
    
EndIf

If alici=30 Then
   
    motor11=1
    motor22=1
  
EndIf

If alici=40 Then
   
    motor12=1
    motor21=1
  
EndIf

GoTo basla

Verici Kısım

Device=16F628A
XTAL 4
CMCON=7
'all_digital true
Include "modedefs.bas"
TRISA=%00000000
TRISB=%00001111
PORTA=0
PORTB=0

Symbol buton1=PORTB.0
Symbol buton2=PORTB.1
Symbol buton3=PORTB.2
Symbol buton4=PORTB.3
Dim VERICI As Byte
VERICI=0
DelayMS 500


basla:

    If buton1=0 And buton2=0 And buton3=0 And buton4=0 Then
        VERICI=0
        GoSub Gonder
      
    EndIf

    If buton1=1 Then
        VERICI=10
        GoSub Gonder
      
    EndIf

If buton2=1 Then
    VERICI=20
    GoSub Gonder
  
EndIf

If buton3=1 Then
    VERICI=30
    GoSub Gonder
  
EndIf

If buton4=1 Then
    VERICI=40
    GoSub Gonder
  
    
EndIf

GoTo basla

Gonder:

SerOut PORTA.0,396,["T","A","S","D",VERICI]

Return
End

[fthtsdmr]

Yokmu söyleyecek bişeyi olan?.Kimseden kod istemiyorum.Sadece similasyonda çalışan devrenin gerçekte sıkıntı çıkarıp çıkarmayacağını soruyorum.Pazartesi günü programlayıcım gelince zaten test edecem.Ama varsa bir sıkıntı yardımlarınızı bekliyorum.Teşekkürler.

[drmp]

hele sen bir başla bakalım

[t2]

Yokmu söyleyecek bişeyi olan?.Kimseden kod istemiyorum.Sadece similasyonda çalışan devrenin gerçekte sıkıntı çıkarıp çıkarmayacağını soruyorum.Pazartesi günü programlayıcım gelince zaten test edecem.Ama varsa bir sıkıntı yardımlarınızı bekliyorum.Teşekkürler.

Gerçek durumu buradan kestirmek zor. pcb tasarımına kutuya , besleme devresine bir çok şeye bağlıdır. devreden 10 tane üretirsiniz  sonraki 10 tanede başka yerini daha sornakinde başka yerini 10 bininci partide bir başka yerini düzeltmeniz gerektiğini anlayabilirsiniz. bunlar simülasyonda görünmez.

ama devreyi ilk defa yapacaksanız gerçek ortamda kesin sıkıntı çıkacak. bunları düzeltmeniz gerekecek.

bence önce 1 tane sonra 5 tane daha sonra 10 tane yaparak gerçek ortamlarda denemeniz gerek. yoksa elinizdeki çok sayıda pcb çöpü kalır.