Druckbare Version
Hallo Allerseits!
Das Positive zu erst: Mein Mega8 gibt schon mal was über die RS232 Schnittstelle aus und es erscheint auch auf dem Bascom Terminal. :-)
Leider steht dort nicht das, was ich erwarte...
Ich hab euch mal ein Bild gemacht. In welchen Format werden die Zeichen gesendet??
ASCII is es ja wohl nicht...
Viele Grüße!
ich tippe mal die baudrate passt nicht weil zwar ein externer quartz angeschlossen ist, aber der mega8 noch mit dem interen 1MHz-oszillator läuft....
heir ist nen screenshot wies gemacht werden muss für einen externen quartz:
https://www.roboternetz.de/phpBB2/ze...ascom+fusebits
Was für eine Taktquelle verwendest du?
wenn du einen externen Quarz betreibst musst du das dem Compiler sagen
-----> crystal=.............
Deshalb wird die Baudratenberechnung wohl nicht stimen.
MFG
Darth
uwegw hat recht.
kann auch an den Fuses liegen, wenn du nicht umgestellt hast.
hmmm. ich hab die Fusebits geändert, aber es hat sich leider nicht viel getan...
muss ich noch $crystal einbauen?
Die Ausgabe sieht jetzt übrigens so aus:
Ihr seit ja richtig schnell!
Vielen Dank für die Antworten.
Ich hab einen externen Quarts mit 4 MHz
Wenn die Fuses umgestellt sind dann im Programmfenster oben noch
$crystal=4000000
$baud=9600
Vorausgesetzt du hast genau 4 MHz. Du musst deine Quarzgeschw. genau eingeben in Herz
ok crystal steht jetzt auch drin :-)
Doch es hat sich nichts geändert....
Sieht schon ganz gut aus aber ich glaube der Compiler weiß noch nicht wie schnell der MC ist------> siehe vorherigen Beitrag
Wie siht dein Programm jetzt aus
Schick mal ein Screenshot
Das Proggi sieht so aus:
Code:
$crystal = 4000000
$baud = 9600
Dim A As Integer
A = 0
Do
Print "6"
A = A + 1
Loop Until A = 10
End
Das sind die wichtigsten drei Zeilen damit was passieren kann.
regfile ist die Definitionsdatei wo die Assemblerroutinen stehen.
[/fliph]Code:$regfile = "m8def.dat"
$crystal = 4000000
$baud = 9600
Dann klappts auch mit dem Nachbarn!!
reicht es wenn ich auf diese m8def.dat Datei verweise, oder muss ich in der Datei auch noch was eintragen?
kopiere meinen code einfach und häng dein file darunter, also
Dim A As Integer
A = 0
Do
Print "6"
A = A + 1
Loop Until A = 10
End
Hab ich gemacht, aber meine Nachbarn sind wenig kontaktfreudig... :-)
Aber eine kleine Änderung gibt es:
probier mal nen anderen code
Code:$regfile = "m8def.dat"
$crystal = 4000000
$baud = 9600
Print "Hallo Chef! "
wait 1
do
print "Test "
waitms 200
loop
end
bist du sicher, dass du beim Terminal die richtige Baudrate eingestellt hast??
9600
keine Chance...
Hallo Chef will auch nicht. Die Ausgabe diesemal:
[viereck]Tep[viereck]
funktionierts mit der Simulation??
Das heißt in Bascom der rote Button (Simulate Program)
Ja allerdings... Also liegts an der Hardware?
schau mal bei meinem Programm.
Wenn alle 200 ms etwas ausgegeben wird dann hat es nichts mit dem Programm zu tun. eher Hardware-----> MAX232 oder was du verwendest.
Am besten ist es du stellst mal deine ganze Beschaltung rein.
ja ich verwende den max232 und es wird in der Simulation alle 200ms "Hallo" augegeben
Sollte nicht sein.
Er sollte einmal "Hallo Chef" ausgeben und nach ca. 1 sek sollte er alle 200 ms "Test" ausgeben
Ah! Stimmt und "Hallo Chef" davor hatte ich übersehen!
Meine Beschaltung sieht aus wie folgt:
Vom PC zu dem Max232 läuft ein Nullmodemkabel. Der RXD-Pin des Max232 geht an den RXD-Pin den Mega8. Genauso verhält es sich mit dem TXD.
Schau noch mal am Terminal. Egal ob diese Vierecke kommen oder so.
Tatsache ist wenn beim einschalten was kommt und 1 sekunde danach
im Abstand von 200 ms, dann kann es eigentlich nur ein Baudratefehler sein.
hmmm, da muss ich nochmal gucken...
Die restliche Beschaltung stell ich morgen rein...
Hab vielen Dank für deine Mühe!!!!!
ich hatte ähnilech Probleme. Darauf hin habe ich den Hypertreminal von MS benutzt. Mit dem funktionierte es auf anhieb.
mfg
Ist auch möglich.
Aber die Einstellungen im Hyperterminal müssen trotzdem stimmen.
MfG
$regfile = "m8def.dat"
Enable Interrupts
$crystal = 4000000
$baud = 9600
Dim Test As String * 10
test="pebisoft"
Do
print Test
waitms 500
Loop
End
gib das mal ein
mfg pebisoft
Hallo Pebisoft!
Leider geht es mit deinem Proggi auch nicht. Ich habe auch testweise mal den Hyperterminal vom Ms benutzt und dann kam das zum Vorschein:
Er spuckt alle 500 ms den String aus. So weit läuft es.... :-)
ich hatte das auch mal anfangs, da hat einfach der quarz nicht gepasst.
hab mir dann einen 16er geholt und alles lief sauber.
vielleicht liegts daran?
mfg knacki
Achja vielleicht noch ein Wort zu meiner Konfiguration... Vielleicht liegt da der Hund begraben:
Beim Gerätemanager vom Windows hab ich unter "Anschlüsse (LPT und COM)" -> Kommunikationsanschluss (COM) -> Anschlusseinstellunegn ->
bps = 9600
Datenbits =8
Parität = keine
Stoppbits = 1
Flusssteuerung = keine
Vom PC gehts über ein Nullmodemkabel zu MAX232 (Schaltplan siehe ein paar Einträge davor)
Vom Max232 gehts dann direkt zum ATmega8 mit dem 4 MHz Quarts. Schaltplan siehe hier:
Gerätemanager ist gut, aber diese Werte setzt man besser im Terminalprogramm.
mich stört auch die ganze zeit schon das nullmodemkabel.....
hatte ich auch, ging nicht, erst mit nem normalen kabel.
allerdings hatte ich mit dem nullmodem erst gar keine zeichen empfangen.
mfg knacki
Männer, wenn das Kabel nicht stimmte, würde er garnix sehen.
Solche anzeigen habe ich auch gelegentlich, dann reicht es meist dass ich Hyperterminal ein paar mal neu starte bzw den AVR resete und dann gehts auf einmal. Warum weis ich auch nicht.
Nochmal ne Frage:
Müssen die Kondensatoren an dem MAX232 undebingt gepolt sein, oder kann ich da auch ungepolte verweden?