Daten übertragen von Tiny13 nach Tiny2313

Dekaman · 2. Mai 2017, 19:04

Hallo,
ich habe wieder ein Problem , und weis nicht weiter.
Ich messe mit Tiny13 Spannungen über ADC. Diese Werte möchte ich an einen
Tiny2313 übergeben mittels Rs232.
Der Tiny13 funktioniert insoweit, das ich die Daten am PC bei "Putty" angezeigt
bekomme. Der Tiny2313 empfängt aber nur Werte von "0".

BASCOM-Quellcode

$regfile = "attiny13a.dat"
$crystal = 9600000
$swstack = 16
$hwstack = 8
$framesize = 32
Dim U1 As Word
Dim U2 As Word
Config Adc = Single , Prescaler = Auto
Start Adc
Open "comb.1:4800,8,n,1" For Output As #1
Do
U1 = Getadc(3)
Print #1 , U1
U2 = Getadc(2)
Print #1 , U2
Waitms 500
Loop
End

Alles anzeigen

Das ist der Code vom Tiny13

BASCOM-Quellcode

$regfile = "attiny2313a.dat"
$crystal = 8000000
$swstack = 16
$hwstack = 16
$framesize = 48
$baud = 4800
Config Lcdpin = Pin , Db4 = Portb.3 , Db5 = Portb.2 , Db6 = Portb.1 , Db7 = Portb.0 , E = Portb.5 , Rs = Portb.6
Config Lcd = 16 * 2
Cursor Off
Cls
Enable Interrupts
Dim Mess1 As Word
Dim Mess2 As Word
Dim U1 As Word
Dim U2 As Word
Dim I1 As Word
Dim I2 As Word
Dim Ube As Word
Dim V As Word
Do
Input , Mess1
U1 = Mess1
Input , Mess2
U2 = Mess2

Alles anzeigen

und das der Teil ,der die Daten vom Tiny13 empfangen soll

Mein Problem ist, warum sind die Werte U1 und U2 "0" ?
Parallel dazu zeigt mir das Terminalprogramm aber Werte an.

Wer was weis, immer her damit.

Gruß
Detlef

tschoeatsch · 2. Mai 2017, 19:09

Wo ist beim Empfänger der 'loop'? Ist nicht komplett, dein Programm.

~~Gab's beim tiny13 keine Fehlermeldung? Deine stackangaben sind für den zu groß, da bleibt kein Platz für die Variablen.~~
Mist, ich hab' mich verrechnet.

Dekaman · 2. Mai 2017, 19:15

und ja, 100nF sind dran. Fuses stimmen auch was Taktfrequenz angeht.
GND ist an beiden Tiny's gleich. PD.0 Tiny2313 ist mit PB.1 Tiny13 verbunden.
An beiden Tiny's 10k von VCC nach Reset.
Habe ich alles mehrmals kontrolliert. Auch einen zweiten 2313 gebrannt,
gleiches Ergebnis.

Detlef

Dekaman · 2. Mai 2017, 19:24

@tschoeatsch

tschoeatsch schrieb:

Wo ist beim Empfänger der 'loop'? Ist nicht komplett, dein Programm.

ja ist nicht komplett, dahinter kommen nur Berechnungen, sind für
das Problem nicht wichtig. Loop ist aber da.
Ich hatte auch mal probeweise nach Zeile 29 "LCD U1........LCD U2 eingegeben.
Ergebnis "0" "0"

Ich vermute ja , das es an der Dimensionierung der Variablen liegt.
Finde aber kein pro oder kontra für die Vermutung.

Detlef

tschoeatsch · 2. Mai 2017, 19:52

Also, ich kenn mich mit serielle net aus, aber es wird entweder ein byte oder ein string übertragen. Von einem word weiß ich nix, aber ich kenn mich ja nicht aus. Vielleicht solltest du deinen Messwert in einen string wandeln und noch eine Kennung, welcher Messwert das ist davor hängen. An der Empfängerseite auch einen string einlesen und verarbeiten.

djmsc · 2. Mai 2017, 20:01

Dekaman schrieb:

Parallel dazu zeigt mir das Terminalprogramm aber Werte an.

Werden die Werte vom Sender oder vom Empfänger ausgegeben?

Hast du das schon mal mit Printbin und Inputbin versucht?

tschoeatsch · 2. Mai 2017, 20:05

Ich liege nicht ganz verkehrt, in der Hilfe steht:
PRINT will automatic convert numeric variables into the string representation.
This means that when you have a byte variable named B with the value of 123, the numeric variable is converted into a string "123" and then printed.
In this case, print will print 3 characters or bytes. When you want to print the byte you can use the chr() function : print chr(b);
This will send just one byte to the UART.

Also dein Print mach aus deinem word 4 Zeichen und schickt die weg. Dein input soll ein word empfangen, das passt nicht.

Dekaman · 2. Mai 2017, 20:16

Vielleicht so ?
DIM UC as String*6
UC=STR(U1)
UC="UC"+UC
Print #1,UC
für den Sender

dim UC as String *6
Dim k as String*2
Input , UC
k=mid(UC,3,4))
U1=Val(k)
für den Empfänger

so in etwa ?
werde ich morgen mal probieren.
Kann schon sein, das Word so nicht übertragen wird. Passt aber
beim Monitorprogramm.

Detlef

ftelektro · 2. Mai 2017, 20:23

Schau dir mal diesen Code von djmsc an.Sollte alle deine Fragen beantworten.
@mega

Sender:

BASCOM-Quellcode

'Vers. 2 Sendende ATmega8
$regfile ="m8def.dat"
$crystal = 8000000
$hwstack = 32
$swstack = 10
$framesize = 40
$baud = 9600
'Config Timer1 = Timer , Prescale = 256
'On Timer1 Timer1_isr
'Enable Timer1
'Timer1 = 3036
Dim A As Byte
Dim Texte(6) As String * 5
Dim Gesendet As String * 5
'A = 0
'Dim S As Bit
'S = 0
'Enable Interrupts
'Versuchsweise, bringt aber nichts
'Config Pind.0 = Input 'RXD
'Config Portd.1 = Output 'TXD
'---------------------------------
Config Portd.6 = Output 'LED für A = 0 u. 1
Config Portd.7 = Output 'LED für A = 2 u. 3
Config Portb.0 = Output 'LED für A = 4 u. 5
Config Portc.5 = Output 'Led für S
Texte(1) = "SET1"
Texte(2) = "SET2"
Texte(3) = "SET3"
Texte(4) = "SET4"
Texte(5) = "SET5"
Texte(6) = "SET6"
A = 1
Do
Print Texte(a)
Gesendet = Texte(a)
Wait 5
Incr A
If A = 7 Then A = 1
If Gesendet = "SET1" Then
Portd.6 = 0
Else
Portd.6 = 0
'Printbin 0
'Waitms 100
'Gosub Sub_a
End If
If Gesendet = "SET2" Then
Portd.6 = 1
Else
Portd.6 = 0
'Printbin 1
'Waitms 100
'Gosub Sub_a
End If
If Gesendet = "SET3" Then
Portd.7 = 0
Else
Portd.7 = 0
'Printbin 2
'Waitms 100
'Gosub Sub_a
End If
If Gesendet = "SET4" Then
Portd.7 = 1
Else
Portd.7 = 0
'Printbin 3
'Waitms 100
'Gosub Sub_a
End If
If Gesendet = "SET5" Then
Portb.0 = 0
Else
Portb.0 = 0
'Printbin 4
'Waitms 100
'Gosub Sub_a
End If
If Gesendet = "SET6" Then
Portb.0 = 1
Else
Portb.0 = 0
'Printbin 5
'Waitms 100
'Gosub Sub_a
End If
Loop
End
'(
Timer1_isr:
Timer1 = 3036
Toggle S
Return
Sub_a:
If S = 1 Then
Incr A
S = 0
End If
If A > 5 Then
A = 0
End If
Return
')

Empfänger:

BASCOM-Quellcode

'Empfangs ATmega8 Vers. 2.3
$regfile = "m8adef.dat"
$crystal = 8000000
$hwstack = 32
$swstack = 10
$framesize = 40
$baud = 9600
'Config Pind.0 = Input 'RXD
Config Portb.5 = Output 'LED grün
Led_gruen Alias Portb.5
Config Portb.3 = Output
Led_rot Alias Portb.3 'LED rot
Config Portb.4 = Output 'LED gelb
Led_gelb Alias Portb.4
'Config Lcdpin = Pin , Db4 = Portd.4 , Db5 = Portd.5 , Db6 = Portd.6 , Db7 = Portd.7 , E = Portd.3 , Rs = Portd.2
'Config Lcd = 16 * 2
'Enable Interrupts
Dim A As String * 5
'Cls
'Cursor Off
'Locate 1 , 1
'Lcd "UART Test"
'Wait 5
'Cls
Do
Input A
A = Mid(a , 2 , 6)
If A = "SET1" Then
Led_rot = 0
End If
If A = "SET2" Then
Led_rot = 1
Else
Led_rot = 0
End If
If A = "SET3" Then
Led_gelb = 0
End If
If A = "SET4" Then
Led_gelb = 1
Else
Led_gelb = 0
End If
If A = "SET5" Then
Led_gruen = 0
End If
If A = "SET6" Then
Led_gruen = 1
Else
Led_gruen = 0
End If
Loop

tschoeatsch · 2. Mai 2017, 20:24

Ich kenn mich ja net aus, aber es schaut gut aus. Mit deinem UC, schreib doch U1 und U2 vorne weg, dann kannst du die Werte, die danach kommen, den Einzelnen Spannungen per if-Abfrage zuordnen.
Das Terminal nimmt halt die einzelnen Zeichen und zeigt sie an. Der Bildschirm zeigt immer Zeichen.

tschoeatsch · 2. Mai 2017, 20:26

Wenn du den code verwendest, achte auf das '=' Zeichen nach $regfile, das fehlt hier.

Dekaman · 2. Mai 2017, 20:26

@djmsc
die werte werden vom Tiny13(Sender ) ausgegeben und über MAX232 an das
Monitorprogramm des PC ausgegeben.

@tschoeatsch
Habe ich so noch nicht gelesen, aber ich werde wohl alles in Strings um-
wandeln , senden , und im Empfänger mit VAL() wieder in wordvariable
umwandeln. Das mit den Wordvariablen ist auch nicht auf meinem Mist
gewachsen. Aber sowas passiert, wenn man nur Paste/Copy macht.
Darüber sind schon ganz andere gestolpert.
Morgen sehen wir weiter.

Detlef

ftelektro · 2. Mai 2017, 20:28

Schon berichtigt.

tschoeatsch · 2. Mai 2017, 20:37

ftelektro schrieb:

Schon berichtigt.

War in dieser Zeile nicht ein Tippfehler A = Mid(a , 2 , 6)
"Mit der Funktion a = Mid(a, 2, 6) wird lediglich das Leerzeichen raus genommen. Die 6 ist allerdings ein Tippfehler es sollte 4 drin stehen."

djmsc · 2. Mai 2017, 20:45

Dekaman schrieb:

die werte werden vom Tiny13(Sender ) ausgegeben und über MAX232 an das
Monitorprogramm des PC ausgegeben.

Da wäre es besser du würdest das am Terminal ausgeben was der Empfänger empfängt.

djmsc · 2. Mai 2017, 20:50

tschoeatsch schrieb:

Wenn du den code verwendest, achte auf das '=' Zeichen nach $regfile, das fehlt hier.

Ich hatte ja auch nur den original Code von @mega genommen und etwas angepasst.
Da hab ich leider nicht auf das "=" Zeichen geachtet

Dekaman · 3. Mai 2017, 16:37

Hallo,
ich habe jetzt einmal etwas rumgetestet. Ich habe die Wortvariablen
in Integer gewandelt. jetzt kann der Tiny2313 zumindest den Tiny13 hören.
Der Empfänger versteht aber nur "Bahnhof"
Dann habe ich die Daten, die der 2313 über RxD empfängt an TxD wieder
ausgegeben und an das Terminal geschickt. Gleichzeitig über LCD
sichtbar gemacht. Dort erscheint als erstes Zeichen immer 4 Balken
untereinander mit jeweils 1 Zwischenraum. Ich kann das nicht deuten,
weis auch nicht, wie ich an den ASCII Code kommen kann.
wahrscheinlich kann ich deshalb den String auch nicht in eine numerische
Variable zurück verwandeln.
das Thema Atmega8 nach Atmega8 über Uart hilft nicht wirklich, der Tiny13
hat sowas alles nicht. Die Verbindung zur Aussenwelt geht nur über "Open Com"

das ist im Moment Stand der Dinge.

Detlef

tschoeatsch · 3. Mai 2017, 17:32

Ein 'print wordvariable' macht doch schon die Umwandlung (denke ich). Wenn die wordvariable den Wert 1023 hat, mach print '1', '0', '2' und '3' daraus. Und diese character empfängst du. Jetzt must du den empfangenen Text mit val
Action
Converts a string representation of a number into a number.
Syntax
var = VAL( s)
In den Wert wandeln.
Aber wie gesagt, so richtig auskennen tue ich mich magels Praxis mit seriellem Zeug nicht aus.

elektron · 3. Mai 2017, 17:41

Hallo,
bislang sehe ich Lösungsversuche nur auf der Softwareseite, oder hab ich was übersehen?
Häufig liegt die eingestellte Baudrate soweit daneben, dass eine Kommunikation nicht geht, weil die takfrequenz nicht so ist, wie erwartet.
Mit dem Osccal-Register kann man die durch $crystal "bestimmte" Frequenz in weitem Rahmen ändern.
(Daher läßt sich ein Tiny13 schön als Funktionsgenerator nutzen).
Also, man schliesse ein Terminal-Programm an (bevorzuge Hterm) und printe etwas in Abhängigkeit vom Osccal-Wert.
Bei einigen solschen Werten ist der Text dann lesbar, und den mittleren Wert merke man sich und nutze ihn fortan.
Geht sowohl mit dem 13'ner als auch mit dem Tiny2313.
Gruß, elektron
Aus MCS Samples (für Attiny45):

Quellcode

$regfile = "attiny13.dat"
$crystal = 8000000
$hwstack = 32
$swstack = 8
$framesize = 16
Open "comd.1:19200,8,n,1" For Output As #1
Open "comd.0:19200,8,n,1" For Input As #2
Config Portb = Output
Dim B As Byte , W As Word
For B = &H50 To &H80
Osccal = B
Waitms 500
Print #1 , "OScCAL TEST:" ; B

Alles anzeigen

tschoeatsch · 3. Mai 2017, 17:51

Diese ganze Umwandlerei hat man bei verwenden von printbin und inputbin nicht. Wurde ja auch schon von @djmsc vorgeschlagen.