Elektroda.pl
Elektroda.pl
X
Elektroda.pl
Advanced Search
Elektroda.pl
Please add exception to AdBlock for elektroda.pl.
If you watch the ads, you support portal and users.

Bacic i Bascom -sterowanie led

scal12 20 Jan 2007 10:47 3812 10
Lock | New topic
  • #1
    scal12
    Level 19  
    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.
  • #2
    kamyczek
    Level 38  
    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 !!
  • #3
    scal12
    Level 19  
    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.
  • #4
    M. S.
    Level 34  
    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
  • #5
    scal12
    Level 19  
    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,???
  • Helpful post
    #6
    M. S.
    Level 34  
    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.
  • #7
    scal12
    Level 19  
    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.
  • #8
    M. S.
    Level 34  
    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.
  • #9
    scal12
    Level 19  
    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
  • Helpful post
    #10
    M. S.
    Level 34  
    A otworzyłeś port? Zobacz sobie przykład do tej kontrolki.

    Coś takiego znalazłem. Przeanalizuj.
    Code: Expand Select all Copy to clipboard 
    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


    Jest to w Visual Basicu

    Użyłeś chyba oryginalnej kontrolki. U mnie ona nie działała. Pobierz darmową ze strony, którą podałem. Ta chodziła u mnie bez problemu.
  • #11
    scal12
    Level 19  
    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.
Lock | New topic