Bacic i Bascom -sterowanie led

Witam szanownych kolegów,i prosze o pomoc.Interesuje mnie sterowanie przez port Rs232 8 diodami led .Wszystko ma wygladać w ten sposób że program do obsługi rs232 musi byc napisany w jezyku Basic nastepnie kabelkiem pc ma byc podłączony do procka AT89C2051 lub ewentualnie do Atmega8 lub atmega8535 do którego bedą podłaczone diody led i nacisniecie przycisku1 na pc zapala diode 1 nacisniecie przycisku2 zapala diode 2,itd.Interesuja mnie konkretne programy,listingi i przykłady nawet za cene punktów,sterowanie przez port lpt odpada musi byc tylko przez RS232.Dziekuje za odpowiedz i pozdrawiam wszystkich. Dodam jeszcze ze na forum szukałem ale tylko wskazówki zadnych konkretów.

Taką zabawkę to można bez komputera zrobić wykorzystując obsługę klawiatury AT przez bascom tzn pobierasz znak z klawiatury dekodujesz go i wysyłasz na port . Jak otworzysz sobie przykłady z bascoma lub help to zobaczysz ze nie ma co pisać więcej ... Jeśli upierasz się przy rsie to procedura jest podobna czekasz na odebranie znaku z rsa dekodujesz i wysyłasz na port . nie zapomnij że 51 wysteruje diodę jak port będzie podawał 0 , a w AVR należy skonfigurować port jako wyjście !!

Wszystko sie zgadza i tą zabawkie mozna zrobic na tysiąc sposobów sterowanie przez LPT mam opanowane ale z rs232 mam problemy na konkretnym przykładzie było by mi łatwiej to zrozumiec.

Napisz w Visual Basicu (lub innym) program z przyciskami, ptaszkami itd. do wyboru diody, zakoduj to w bajcie i wyślij go przez RS232 do µC. W programie µC wstaw instrukcję input w pętli tak aby reagowała na transmisję z PC. Odebraną wartość zapisz w rejestrze portu, do którego podłączysz diody.
Jak nie wiesz jak z poziomu Visual Basica dobrać się do RS'a to odwiedź stronę Bascoma i ściągnij sobie kontrolkę do obsługi RS'a wraz z przykladem zastosowania.
http://www.mcselec.com/index.php?option=com_docman&task=cat_view&gid=73&Itemid=54

Moze to dziecinne pytanie ale co znaczy ,,wysłac w bajcie,, na lpt pisałem np: Out PortAddress, 11,co powodowało ze na wyjsciu lpt pojawial sie sygnał w postaci BCD -11,???

Bajt to 8 bitów, bit to 1 lub 0, 0 to np dioda zgaszona, 1 to zaświecona.
01101010 to bajt - dioda zerowa to 0, dioda 1 to 1, dioda 2 to 0 licząc od prawej. Bajt wpisany do portu ustawi odpowiednio napięcia końcówek a te zasilą diody.

Już zaczynam powoli łapac chciałem zrobić cos takiego podłączyłem diode z oporniczkiem na piny 3-TXD i 5-GND portu rs232 i chciałem aby ona sie zaswieciła gdy nacisne przycisk,port sie otwiera,zamyka ale nie moge sprawić aby dioda podłaczona do txd sie zaswieciła lub ewentualnie do DTR,RST.

Nie siedzę w RS232, lecz moim zdaniem przez port wysłane zostana dane i koniec, wiec co tu obserwować - to port szeregowy a nie równoległy. Weź lepiej oscyloskop do ręki. Niektóre programy mogą jednak ustawić np. stan wysoki na odpowiednim pinie. Napięcie to używane jest np. do zasilania MAX'a.

w rs232 też stawiam pierwsze kroki i sie dopiero ucze ale na prostych przykładach mozna sie czegos nauczyc i cos zrozumiec,mamjeszcze jedno pytanie jak przypisac bajt do jakiedoś przycisku w visual basicu zeby polecial przez rs232,jakiego uzyc polecenia?Próbowałem czegos takiego
Private Sub Command1_Click()
MSComm1.Output = "00000100"
End Sub
ale narazie nic z tego

A otworzyłeś port? Zobacz sobie przykład do tej kontrolki.

Coś takiego znalazłem. Przeanalizuj.

Private Sub Command1_Click()

  CommX1.BAUDRATE = 19200

  CommX1.COMPORT = 1

  CommX1.OPEN

End Sub



Private Sub Command2_Click()

   CommX1.Close

End Sub



Private Sub Command3_Click()

   CommX1.SEND Text3.Text + Chr(13) ' send data

End Sub



Private Sub CommX1_OnKeyPress(Key As Integer)

  

End Sub



Private Sub CommX1_OnReceive(ByVal Data As String)

 

  Text1.Text = Data

 

End Sub



Private Sub Form_Unload(Cancel As Integer)

   CommX1.Close

End Sub

Witam i dziekuje koledze M.S. za okazane zainteresowanie i podpowiedz w temacie,fajnie ze na forum jest przynajmiej jedna osoba która sie orientuje w temacie Dzieki koledze M.S mój problem został rozwiazany.Dziekuje i pozdrawiam.
Zamykam temat.