Soros port (rs232)
Már mindent átnéztem 10x-r. A bekötések tuti jók. Sőtt most ha a porton lévő RX vezetékkel játszok kapok is jelet terminalba. De automatikusan semmit nem küld. Lehet az USB-COM átalakítómat nem csípázza a MAX232. Kétlem hogy két IC is rossz lenne. Most próbáltam egy BC337-el eljátszani de sajnos ez se sikerült. Ugyanaz a jelenség mint az 232 esetén.Robert írta:hibás a MAX232 bekötésed. Tx-Rx cserére tippelek, vagy nem jól van bekötve a kapuáramkörök belül...
Már nagyon berágatott ez a MAX232-es illesztés. Ha találok holnap olyan adatkábelt valamelyik boltban ami USB-s, ahoz is kell szintillesztés vagy mehet rá egyből a RX,TX vezeték és kész? Pontosan mely telefonok kábele jó a művelethez? FT232-eshez tudtom szerint nem kell szintillesztés. És a Pacific és hasonló chipekhez?Robert írta:tranzisztosos soros illesztés : tuti kuka! NE is kísérletezz azzal!
Mérd ki külön a max232-t.... Sima jelszintillesztések....
Most néztem utána hogy a jelenlegi USB-COM átalakítom Pacific 2303-as IC-t tartalmaz. Nem az a baja hogy itt is mehetne egyből rá az PIC lába? És nem kellene 232-es IC?Robert írta:Mehet egyből AVR-re...
Kipróbáltam úgy hogy a DB9-es csatlakozó 5-ös lábát GND-re kötöttem, a 2-es lábát meg hozzáérintgettem a +5V-hoz és úgy kaptam jeleket a terminal ablakban. Úgyhogy úgy néz ki itt valami programhiba lesz, vagy esetleg nem lehet FuseBit beállítási probléma?
Életre kelt!!
Már csak egy kicsi galiba van vele.. Teljesen mást ír ki mint amit én akarok kiiratni a programban .Az létezik hogy pl a "Hello World" alap kiírást akarom elküldeni UART-on a gépnek és 50ms-enként és ebből 1x-r se írja ki rendesen? Ennyi hibát szerintem nem kellene neki művelnie. 8Mhz belső OSC, 19200 Baudrate.Robert írta:jelszintillesztés nélkül +3...+15V az egyik, -3...-15V a másik _elvárt_ és kiadott kogikai szint. Az AVR 0V/5V-jával ez nem hozható fedésbe.
Másik kérdés hogy mekkora lehet a maximális kábelhossz a gép és az AVR között? Mert most kb 5 cm. Ami igen kellemetlen
. Legalább olyan 1m-re meg kellene hosszabbítanom hogy kényelmes legyen kezelni.
ez lenne az de nem engedi lefordítani
$regfile = "m168def.dat"
$crystal = 16000000
$baud = 9600
Config Portb.5 = Output
Config Portd.3 = Input
Dim Ido(3) As Integer
Dim A As String * 1
Portd.3 = 1
Input "Milyen gyorsan villogjon a led?" , Ido(1)
Print Ido(1)
Input "Mennyi legyen a szünet az S.O.S kozott?" , Ido(3)
Print Ido(3)
Input "Mennyi legyen az S.O.S masodik villogasa?" , Ido(2)
Print Ido(2)
S_o_s:
Portb.5 = 0
Waitms Ido(1)
Portb.5 = 1
Waitms Ido(1)
Portb.5 = 0
Waitms Ido(1)
Portb.5 = 1
Waitms Ido(1)
Portb.5 = 0
Waitms Ido(1)
Portb.5 = 1
Waitms Ido(1)
Portb.5 = 0
Waitms Ido(3)
Portb.5 = 1
Waitms Ido(2)
Portb.5 = 0
Waitms Ido(2)
Portb.5 = 1
Waitms Ido(2)
Portb.5 = 0
Waitms Ido(3)
Portb.5 = 1
Waitms Ido(1)
Portb.5 = 0
Waitms Ido(1)
Portb.5 = 1
Waitms Ido(1)
Portb.5 = 0
Waitms Ido(1)
Portb.5 = 1
Waitms Ido(1)
Portb.5 = 0
Wait 1
Input "szeretned meg egyszer? (i/n)" , A
Print A
If A = I Then
Goto S_o_s
End If
End
$regfile = "m168def.dat"
$crystal = 16000000
$baud = 9600
Config Portb.5 = Output
Config Portd.3 = Input
Dim Ido(3) As Integer
Dim A As String * 1
Portd.3 = 1
Input "Milyen gyorsan villogjon a led?" , Ido(1)
Print Ido(1)
Input "Mennyi legyen a szünet az S.O.S kozott?" , Ido(3)
Print Ido(3)
Input "Mennyi legyen az S.O.S masodik villogasa?" , Ido(2)
Print Ido(2)
S_o_s:
Portb.5 = 0
Waitms Ido(1)
Portb.5 = 1
Waitms Ido(1)
Portb.5 = 0
Waitms Ido(1)
Portb.5 = 1
Waitms Ido(1)
Portb.5 = 0
Waitms Ido(1)
Portb.5 = 1
Waitms Ido(1)
Portb.5 = 0
Waitms Ido(3)
Portb.5 = 1
Waitms Ido(2)
Portb.5 = 0
Waitms Ido(2)
Portb.5 = 1
Waitms Ido(2)
Portb.5 = 0
Waitms Ido(3)
Portb.5 = 1
Waitms Ido(1)
Portb.5 = 0
Waitms Ido(1)
Portb.5 = 1
Waitms Ido(1)
Portb.5 = 0
Waitms Ido(1)
Portb.5 = 1
Waitms Ido(1)
Portb.5 = 0
Wait 1
Input "szeretned meg egyszer? (i/n)" , A
Print A
If A = I Then
Goto S_o_s
End If
End
Mivel az I itt string ezért "I" kel irnod!
Kód: Egész kijelölése
If A = "I" or "i" Then