Jako v tomto příkladu, kdy zkouším maxe, tam nic dalšího nemám......
proste jen maxe a prikaz PRINT .... to co umim zapojit jsem psalproto, ze se znalostma maxe pomalu postupuju dopredu....
pouzivam tento rpogram:
$regfile = "m8def.dat"
$crystal = 1000000
Config Portb = Output
$baud = 9600
Do
Portb.1 = 1
Waitms 1000
Portb.1 = 0
Waitms 1000
Print "Hallo"
Loop
End
MAX232 zapojení a funkčnost
Moderátor: Moderátoři
Tak jsem postoupil , velké díky Vám...
přesto otázka, používám tento program:
$regfile = "m8def.dat"
$crystal = 1000000
Config Portb = Output
$baud = 9600
Config Com1 = Dummy , Synchrone = 0 , Parity = None , Stopbits = 1 , Databits = 8 , Clockpol = 0
Do
Portb.1 = 1
Waitms 1000
Portb.1 = 0
Waitms 1000
Print "Hallo"
Loop
End
a na terminalu v PC dostavam vypisy jako:
jˇh´j°h´
nevypisuje se "HALLO" jak by v programu mělo....
poradíte mi prosím s tímto?
Jinak....MAXE jsem vyměnil za MAX232DPE a vše se rozběhlo...dnes jsem si ho koupil....
díky
přesto otázka, používám tento program:
$regfile = "m8def.dat"
$crystal = 1000000
Config Portb = Output
$baud = 9600
Config Com1 = Dummy , Synchrone = 0 , Parity = None , Stopbits = 1 , Databits = 8 , Clockpol = 0
Do
Portb.1 = 1
Waitms 1000
Portb.1 = 0
Waitms 1000
Print "Hallo"
Loop
End
a na terminalu v PC dostavam vypisy jako:
jˇh´j°h´
nevypisuje se "HALLO" jak by v programu mělo....
poradíte mi prosím s tímto?
Jinak....MAXE jsem vyměnil za MAX232DPE a vše se rozběhlo...dnes jsem si ho koupil....
díky
funguje toooooooooooooooooooo, anonyme děkuju.............moc
můžu se prosím zeptat?
Proč se to tak děje?
A co musím udělat pro zvýšení na třeba 9600 nebo 15200 baud? Je to oscilátorem?
Našel jsem si:
Pro některé typy modulací může platit, že 1 baud = 1 bit/s (např. sériový přenos dat prostřednictvím RS-232). Obecně to ale neplatí, neboť při některých způsobech komunikace lze během jedné změny signálu přenést větší množství informace než jeden bit (např. paralelní přenost dat nebo kvadraturní amplitudová modulace).
můžu se prosím zeptat?
Proč se to tak děje?
A co musím udělat pro zvýšení na třeba 9600 nebo 15200 baud? Je to oscilátorem?
Našel jsem si:
Pro některé typy modulací může platit, že 1 baud = 1 bit/s (např. sériový přenos dat prostřednictvím RS-232). Obecně to ale neplatí, neboť při některých způsobech komunikace lze během jedné změny signálu přenést větší množství informace než jeden bit (např. paralelní přenost dat nebo kvadraturní amplitudová modulace).
kebi si pozrel datasheet zistil by si ..ze pre urcity kristal sa puziva urcita delicka aby sa doslo k danej vysielacej rychlosti strana 159. A ked sa tam pozies zistis ze niektore krystali su delitelee presne podla rychlosti komunikacie a ine nie. Resp nejde o kristal ale frekvenciu na ktorej bezi procesor
-
Návštěvník
Tak ještě prosím o radu...
z čipu v pohodě vysílám data, ale když na PC mám zadat respektive stisknout klavesu, tak se nic neodesle, nic nejde zmacknout, nic se nezobrazi...
$regfile = "m8def.dat"
$crystal = 1000000
$baud = 2400
Config Pinb.1 = Output
Enable Interrupts
Config Com1 = Dummy , Synchrone = 0 , Parity = None , Stopbits = 1 , Databits = 8 , Clockpol = 0
Dim Firstnumber As Integer
Dim Secondnumber As Integer
Dim Sum As Integer
Do
Portb.1 = 1
Waitms 1000
Firstnumber = 0
Secondnumber = 0
Input "Enter first number : " , Firstnumber
Input "Enter second number: " , Secondnumber
Sum = Firstnumber + Secondnumber
Print "Součet: " ; Sum
Portb.1 = 0
Waitms 1000
Loop
End
z čipu v pohodě vysílám data, ale když na PC mám zadat respektive stisknout klavesu, tak se nic neodesle, nic nejde zmacknout, nic se nezobrazi...
$regfile = "m8def.dat"
$crystal = 1000000
$baud = 2400
Config Pinb.1 = Output
Enable Interrupts
Config Com1 = Dummy , Synchrone = 0 , Parity = None , Stopbits = 1 , Databits = 8 , Clockpol = 0
Dim Firstnumber As Integer
Dim Secondnumber As Integer
Dim Sum As Integer
Do
Portb.1 = 1
Waitms 1000
Firstnumber = 0
Secondnumber = 0
Input "Enter first number : " , Firstnumber
Input "Enter second number: " , Secondnumber
Sum = Firstnumber + Secondnumber
Print "Součet: " ; Sum
Portb.1 = 0
Waitms 1000
Loop
End
jsem ted mimo domov, hledam alespon na internetu, cim to muze byt....je mozne , ze to je ECHO OFF?
cituji:
Did you notice that everything you typed after the "Enter..." prompt was echoed back to the terminal emulator? This is a function that Bascom performs automatically. Sometimes this echo function is not useful, for example if you use another PC program to send characters to the AT90S2313 and it cannot handle the echoed characters. Then switch off the echo function:
Echo Off
myslíte, že je to ten problém, prosím?
cituji:
Did you notice that everything you typed after the "Enter..." prompt was echoed back to the terminal emulator? This is a function that Bascom performs automatically. Sometimes this echo function is not useful, for example if you use another PC program to send characters to the AT90S2313 and it cannot handle the echoed characters. Then switch off the echo function:
Echo Off
myslíte, že je to ten problém, prosím?
Poradí mi prosím někdo? Už jsem tam vložil i echo on a pořád to nefunguje, je tu někdo, komu se něco podobného událo, prosím nebo opravdu bez odezvy?
$regfile = "m8def.dat"
$crystal = 1000000
$baud = 4800
Config Pinb.1 = Output
Enable Interrupts
Config Com1 = Dummy , Synchrone = 0 , Parity = None , Stopbits = 1 , Databits = 8 , Clockpol = 0
Echo On
Dim Firstnumber As Integer
Dim Secondnumber As Integer
Dim Sum As Integer
Do
Portb.1 = 1
Waitms 1000
Firstnumber = 0
Secondnumber = 0
Input "Vloz prvni cislo : " , Firstnumber
Input "Enter second number: " , Secondnumber
Sum = Firstnumber + Secondnumber
Print "Součet: " ; Sum
Portb.1 = 0
Waitms 1000
Loop
End
$regfile = "m8def.dat"
$crystal = 1000000
$baud = 4800
Config Pinb.1 = Output
Enable Interrupts
Config Com1 = Dummy , Synchrone = 0 , Parity = None , Stopbits = 1 , Databits = 8 , Clockpol = 0
Echo On
Dim Firstnumber As Integer
Dim Secondnumber As Integer
Dim Sum As Integer
Do
Portb.1 = 1
Waitms 1000
Firstnumber = 0
Secondnumber = 0
Input "Vloz prvni cislo : " , Firstnumber
Input "Enter second number: " , Secondnumber
Sum = Firstnumber + Secondnumber
Print "Součet: " ; Sum
Portb.1 = 0
Waitms 1000
Loop
End