Vítejte na Elektro Bastlírn?
Nuke - Elektro Bastlirna
  Vytvořit účet Hlavní · Fórum · DDump · Profil · Zprávy · Hledat na fóru · Příspěvky na provoz EB

Vlákno na téma KORONAVIRUS - nutná registrace


Nuke - Elektro Bastlirna: Diskuzní fórum

 FAQFAQ   HledatHledat   Uživatelské skupinyUživatelské skupiny   ProfilProfil   Soukromé zprávySoukromé zprávy   PřihlášeníPřihlášení 

Komunikace RS232 v Bascom AVR

 
Přidat nové téma   Zaslat odpověď       Obsah fóra Diskuzní fórum Elektro Bastlírny -> Programování PIC, ATMEL, EEPROM a dalších obvodů
Zobrazit předchozí téma :: Zobrazit následující téma  
Autor Zpráva
ladislav64



Založen: Jan 21, 2010
Příspěvky: 2

PříspěvekZaslal: út leden 26 2010, 15:49    Předmět: Komunikace RS232 v Bascom AVR Citovat

Dobrý den všech,

potřeboval bych poradit s komunikací RS232. Začínám programovat v jazyce BASCOM AVR a nastal mi problém se zobrazováním na terminálu. V simulátoru vše funguje, jak má ale na terminálu zobrazení nefunguje.

přikládám jednoduchý program z heplu:

$regfile = "m8515.dat"
$baud = 19200
$crystal = 8000000

Do
Print "Hello world:"
Waitms 25
Loop

End


na terminálu se zobrazuje toto:


<88>0΀#NUL#CANĆ<Ŕ>ŕ>ţ>#NUL8ţó>8?Ŕ>Ŕ<88>0΀#NUL8ć<Ŕ>Ŕ>ţ>#NUL8ţó>8?ŕ#RSŔ<88#RS0gŔ#NUL8Ć<ŕ>Ŕ>ţ>#NUL8ţó#RS8?Ŕ>ŕ<88>0Ć€#NUL#CANĆ<Ŕ>ŕ>ţ>#NUL#CANţó>8?Ŕ>Ŕ<#CAN8>0΀#NUL8ć<Ŕ>Ŕ>ţ>#NUL8ţó>8?ŕ>Ŕ<88>0΀#NUL8Ć<ŕ>Ŕ>ţ>#NUL8ţó#RS8?Ŕ>Ŕ<88>0Î

Zkoušel jsem měnit rychlost připojení i emulaci terminálu a pořád nic. Poradíte?
Návrat nahoru
Zobrazit informace o autorovi Odeslat soukromou zprávu
mtajovsky



Založen: Sep 19, 2007
Příspěvky: 3698
Bydliště: Praha

PříspěvekZaslal: út leden 26 2010, 17:47    Předmět: Citovat

BASCOM a jeho možnosti neznám, ale obecně se u asynchronního přenosu kromě rychlosti nastavují i další parametry:
- počet datových bitů (5/6/7/8/16)
- parita (n/e/o) - bez, sudá, lichá
- počet stop bitů (1/1,5/2)

Sedí i tohle?
Návrat nahoru
Zobrazit informace o autorovi Odeslat soukromou zprávu Odeslat e-mail
AB1



Založen: Nov 23, 2009
Příspěvky: 312

PříspěvekZaslal: út leden 26 2010, 18:34    Předmět: Citovat

Kód je v pořádku.
Pro jistotu bych doplnil
kód:
$hwstack = 32
$swstack = 32
$framesize = 32

Nejčastější příčinou bývá nesprávný kmitočet oscilátoru.
Ten by měl být řízený krystalem.
Interní oscilátor může mít větší odchylku než povolené 2%.

Cestu mezi mikroprocesorem a PC zkouším tak, že vytáhnu procesor z patice a na patici propojím piny RXD TXD. Terminál pak opakuje vyslané znaky.
Návrat nahoru
Zobrazit informace o autorovi Odeslat soukromou zprávu
rkozeluh



Založen: Feb 17, 2007
Příspěvky: 262
Bydliště: Liberec

PříspěvekZaslal: út leden 26 2010, 20:11    Předmět: Citovat

Jaký používáš převodník mezi PC a procesorem?

Jednou jsem použil nějaké snad dlouho používané zapojení s tranzistory, ale nefungovalo to, i když test na spojení Rx a TX běhal OK.
Celkem mě to dalo zabrat, než jsem na to přišel. potom jsem použil maxima a byl pokoj, no vlastně nebyl, nakonec tam stejně skončil převodník na USB.
Návrat nahoru
Zobrazit informace o autorovi Odeslat soukromou zprávu
nekmil



Založen: Mar 06, 2005
Příspěvky: 787
Bydliště: Havířov

PříspěvekZaslal: st leden 27 2010, 16:19    Předmět: Citovat

zkus "zesynchronizovat rychlosti" $Baud a nastavení terminálu
a to Waitms 25 - není to příliš rychle ?

$regfile = "m32def.dat"
$crystal = 14745600 'krystal v Hz
$baud = 9600 'COM1:9600,N,8,1
$hwstack = 32
$swstack = 32
$framesize = 32
'-------------------------------------------------------------------------------
Dim A As Byte , B As Byte
Dim S As String * 26

Do
Wait 1
For A = 1 To 26
B = A + 64
S = S + Chr(b)
Next
Print S
S = ""
Print "Ano vytiskli jsme 26 znaků ASCII"
Print
Loop

End 'konec programu
Návrat nahoru
Zobrazit informace o autorovi Odeslat soukromou zprávu Odeslat e-mail
Zobrazit příspěvky z předchozích:   
Přidat nové téma   Zaslat odpověď       Obsah fóra Diskuzní fórum Elektro Bastlírny -> Programování PIC, ATMEL, EEPROM a dalších obvodů Časy uváděny v GMT + 1 hodina
Strana 1 z 1

 
Přejdi na:  
Nemůžete odesílat nové téma do tohoto fóra.
Nemůžete odpovídat na témata v tomto fóru.
Nemůžete upravovat své příspěvky v tomto fóru.
Nemůžete mazat své příspěvky v tomto fóru.
Nemůžete hlasovat v tomto fóru.
Nemůžete připojovat soubory k příspěvkům
Můžete stahovat a prohlížet přiložené soubory

Powered by phpBB © 2001, 2005 phpBB Group
Forums ©
Nuke - Elektro Bastlirna

Informace na portálu Elektro bastlírny jsou prezentovány za účelem vzdělání čtenářů a rozšíření zájmu o elektroniku. Autoři článků na serveru neberou žádnou zodpovědnost za škody vzniklé těmito zapojeními. Rovněž neberou žádnou odpovědnost za případnou újmu na zdraví vzniklou úrazem elektrickým proudem. Autoři a správci těchto stránek nepřejímají záruku za správnost zveřejněných materiálů. Předkládané informace a zapojení jsou zveřejněny bez ohledu na případné patenty třetích osob. Nároky na odškodnění na základě změn, chyb nebo vynechání jsou zásadně vyloučeny. Všechny registrované nebo jiné obchodní známky zde použité jsou majetkem jejich vlastníků. Uvedením nejsou zpochybněna z toho vyplývající vlastnická práva. Použití konstrukcí v rozporu se zákonem je přísně zakázáno. Vzhledem k tomu, že původ předkládaných materiálů nelze žádným způsobem dohledat, nelze je použít pro komerční účely! Tento nekomerční server nemá z uvedených zapojení či konstrukcí žádný zisk. Nezodpovídáme za pravost předkládaných materiálů třetími osobami a jejich původ. V případě, že zjistíte porušení autorského práva či jiné nesrovnalosti, kontaktujte administrátory na diskuzním fóru EB.


PHP-Nuke Copyright © 2005 by Francisco Burzi. This is free software, and you may redistribute it under the GPL. PHP-Nuke comes with absolutely no warranty, for details, see the license.
Čas potřebný ke zpracování stránky 0.19 sekund