Skocz do zawartości

[Platforma mobilna] sprawdzenie schematu


Pomocna odpowiedź

No to masz odpowiedź dlaczego nie możesz wykryć procesora, reset jest za bardzo podciągnięty do plusa, zmień na 10k i powinno być ok.

  • Pomogłeś! 1

dzięki jeszcze raz 😉 faktycznie problem był z rezystorem 😉 Ale teraz mam kolejny problem (niestety) no więc zrobiłem sobie moduł bluetooth taki jak ma użytkownik mirekk36 ale pomimo że wysyłam dane z kompa typu w,s,a,d itp ( pojedyncze literki) uC nic "nie rozumie" gdzie tu może leżeć problem??

Kwestia sprawdzenia prędkości transmisji danych, czy na obu urządzeniach jest taka sama. Ustawienie np 4800 jako prędkość, w większości wypadków pomaga, ze względu na niski błąd transmisji.

no więc tak podłączyłem bluetootha w bascomie zmieniłem prędkość na 4800 mignęła dioda data, rozłączył się i połączyłem jeszcze raz. w programie głównym zmieniłem baud tez zmieniłem tak wygląda program poprzednia wersja

$regfile = "m8def.dat"
$crystal = 10000000

'####### USTAWIENIA GŁÓWNE #####################################################

$baud = 19200                                               'prędkość przesyłu



Ref1 Alias Portd.7                                          'JP6:3
Ref2 Alias Portd.6                                          'JP7:3

Serwo Alias Portd.2                                         'JP10:3

Mla Alias Portb.0                                           'SV3:1
Mlb Alias Portb.3                                           'SV3:2
Mle Alias Portb.1

Mpa Alias Portb.5                                           'SV4:2
Mpb Alias Portb.4                                           'SV4:1
Mpe Alias Portb.2

'####### KONIEC USTAWIEŃ #######################################################
'instrukcje
'w - cała naprzód
's - cała wstecz
'a - w lewo
'd - w prawo
'l - reflektory on
'k - reflektory off
'z - serwo w lewo
'x - serwo w prawo


Config Portd = Output
Config Portb = Output

Config Servos = 1 , Servo1 = Serwo , Reload = 10

Declare Sub Prawo
Declare Sub Lewo

Dim I As Byte , Znak As Byte

I = 150
Servo(1) = I

Enable Interrupts

Do

Inputbin Znak

If Znak = "w" Then
Mla = 1
Mlb = 0
Mpa = 1
Mpb = 0
Mle = 1
Mpe = 1
Waitms 20
Mle = 0
Mpe = 0
End If
If Znak = "s" Then
Mla = 0
Mlb = 1
Mpa = 0
Mpb = 1
Mle = 1
Mpe = 1
Waitms 20
Mle = 0
Mpe = 0
End If
If Znak = "a" Then
Mla = 0
Mlb = 1
Mpa = 1
Mpb = 0
Mle = 1
Mpe = 1
Waitms 10
Mle = 0
Mpe = 0
End If
If Znak = "d" Then
Mla = 1
Mlb = 0
Mpa = 0
Mpb = 1
Mle = 1
Mpe = 1
Waitms 10
Mle = 0
Mpe = 0
End If
If Znak = "l" Then
Ref1 = 0
Ref2 = 0
End If
If Znak = "k" Then
Ref1 = 1
Ref2 = 0
End If
If Znak = "z" Then
Call Lewo
End If
If Znak = "x" Then
Call Prawo
End If



Loop

End


Sub Prawo

 I = I + 20
 If I = 220 Then
 I = 200
 End If
Servo(1) = I

End Sub
19 : 14 : 16
Sub Lewo

 I = I - 20
 If I = 80 Then
 I = 100
 End If
Servo(1) = I

End Sub

zmiany nic nie dały próbowałem nawet z przejściówką rs232<->USB

[ Dodano: 18 Mar 10 09:32 ]

Hmm do uart chyba trzeba większej wiedzy zrobiłem sobie pilota i na razie będę nim sterował po kablu ale i tak dzięki z pomoc ( zwłaszcza ElektroTME)

Bądź aktywny - zaloguj się lub utwórz konto!

Tylko zarejestrowani użytkownicy mogą komentować zawartość tej strony

Utwórz konto w ~20 sekund!

Zarejestruj nowe konto, to proste!

Zarejestruj się »

Zaloguj się

Posiadasz własne konto? Użyj go!

Zaloguj się »
×
×
  • Utwórz nowe...