RN-Wissen.de - Benutzerbeiträge [de]

Diskussion:Bascom Verzweigungen

2014-07-31T10:24:45Z

J-g-s:

Hallo PicNic

Toll das Du was reingeschrieben hast :-)
--[[Benutzer:Roberto|Roberto]] 00:36, 18. Jan 2006 (CET)

Funktion abc As Byte
A=abc()

Was bringt eine Funktion für einen Vorteil gegenüber einem Gosub ?? --[[Benutzer:J-g-s|J-g-s]] ([[Benutzer Diskussion:J-g-s|Diskussion]]) 12:24, 31. Jul 2014 (CEST)

Diskussion:Bascom und LCD's

2014-07-21T13:39:35Z

J-g-s:

Diskussion:Bascom und LCD's

2014-07-21T13:38:04Z

J-g-s:

Irgendwie fehlt mir die Ansteuerung über I2C. Das ist doch glaub ich auch möglich. Kann das eventuell mal jemand ergänzen - ich kenne mich damit nicht aus.

----

Über i2c lassen sich nur wenige ganz spezielle LCD´s steuern. Das dürfte je nach Display auch etwas anders aussehen. Alternativ gibt es auch ne Schaltung die aus einem herkömlichen Display ein [[I2C]] LCD macht, siehe z.B. [[RN-KeyLCD]]

--[[Benutzer:Frank|Frank]] 10:04, 12. Jul 2006 (CEST)

In der EBucht gibt es haufenweise I2C-LCD-Adapter, meist ist ein simpler I2C-8_Bit-parallel-Wandler drin. Da man ja noch Enable, Datenrichtung und so braucht, ist das Display dann im 4-Bit-Modus angeschlossen.
--[[Benutzer:J-g-s|J-g-s]] ([[Benutzer Diskussion:J-g-s|Diskussion]]) 15:38, 21. Jul 2014 (CEST)

== Bild über "Stromversorgung" ==

Die Grafik auf der gezeigt wird, wie die Kontrastspannung richtig an das LCD angeschlossen wird, ist von www.sprut.de. Siehe dazu: http://www.sprut.de/electronic/lcd/index.htm
Mir fehlt ein Quellennachweis im Artikel; um sich keinen Ärger einzuhandeln würde ich das unbedingt noch ergänzen (und zusätzlich den Ersteller der Grafik um Erlaubnis fragen).
--[[Benutzer:Thomas E.|Thomas E.]] 19:25, 18. Sep 2012 (CEST)

== Oled-Displays ==
Es gibt Oled-Displays, die wie LCD-Displays angeschlossen und angesprochen werden.
Vorteil: hoher Kontrast, kein Poti erforderlich, keine Hintergrundbeleuchtung, für 3Volt und für 5Volt geeignet
Nachteil: Stromverbrauch bis zu 50mA
--[[Benutzer:J-g-s|J-g-s]] ([[Benutzer Diskussion:J-g-s|Diskussion]]) 15:38, 21. Jul 2014 (CEST)

Bascom und 1-Wire

2014-07-19T18:22:03Z

J-g-s:

In diesem Artikel folgen einige Programmbeispiele, in denen gezeigt wird, wie Bascom über den 1-Wire-Bus kommuniziert.

1-Wire (Eindraht) ist eine serielle Schnittstelle, die mit nur einer Datenleitung auskommt, die gleichzeitig auch noch als Stromversorgung genutzt werden kann.
Aufgrund der Einfachheit kann diese Schnittstelle leicht in Software auf einem Mikrocontroller nachgebildet werden.

In Bascom sind [[Bascom#1WIRE_Bus|Befehle]] für die 1-Wire-Kommunikation enthalten, sodass der Programmierer sich nicht um das Protokoll und das Timing der Übertragung kümmern muss.

Es gibt 1-Wire-Geräte mit verschiedenen Funktionen, in der Roboterwelt dürfte einer der bekanntesten der Temperatursensor DS18S20 (bzw. DS18B20) sein, deswegen wird dieser in den Beispielen verwendet.

== Beschaltung ==

Die Beschaltung rund um den DS18B20 sieht so aus:

[[Bild:1Wire-DS1820.png]]

== Ablauf der Kommunikation ==

Die Kommunikation mit dem 1-Wire-Gerät muss immer diesen Ablauf haben:

* Initialisierung
* "ROM Function" Befehl
* "Memory Function" Befehl
* Übertragung/Daten

Aus diesem Ablauf ergeben sich die beiden folgenden Programmabläufe.

== Kommunikation mit nur einem Gerät ==

Wenn sich nur ein einziges Gerät am Bus befindet kann man diese kurze Version der Kommunikation verwenden. Ein ROM-Befehl ist dabei nicht notwendig und kann übersprungen werden, dies muss aber dem Gerät mitgeteilt werden.

Beispiel:
{{vbcomment|Minimalprogramm für Temperaturmessung}}
Config 1wire = Portc.7

Dim Sep(9) As Byte

1wreset {{vbcomment|Initialisierung}}
1wwrite &HCC {{vbcomment|überspringe ROM-Befehl}}
1wwrite &H44 {{vbcomment|Temperaturmessung anstoßen}}

Waitms 500 {{vbcomment|warten bis Messung fertig}}

1wreset {{vbcomment|Initialisierung}}
1wwrite &HCC {{vbcomment|überspringe ROM-Befehl}}
1wwrite &HBE {{vbcomment|Temperatur auslesen}}
Sep(1) = 1wread(9) {{vbcomment|Daten in ein Array lesen, beschreibt Sep(1) bis Sep(9)}}

Wait 1

Im Array Sep() stehen die Daten des Gerätes die dann Anhand des Datenblattes ausgewertet werden.

== Kommunikation mit mehreren Geräten ==

Wenn sich mehrere Geräte am 1-Wire-Bus befinden, müssen diese jeweils Adressiert werden um mit dem gewünschten Gerät in Kontakt zu treten. Zum Adressieren wird die Seriennummer verwendet, die in jedem 1-Wire-Gerät eindeutig vorhanden ist. Um an diese Seriennummer zu kommen gibt es zwei Strategien.

Entweder man liest bei allen Geräten vorher einzeln diese Nr. aus, um diese in das eigentliche Programm einzutragen (kürzer), oder man sucht beim Programmstart jedesmal nach vorhandenen Geräten (flexibler).

=== SerienNr einzeln auslesen ===

Config 1wire = Portc.7

Dim Ar(8) As Byte

1wreset
1wwrite &H33 {{vbcomment|ROM-Befehl zum lesen der SerienNr}}
Ar(1) = 1wread(8) {{vbcomment|8 Bytes lesen, beschreibt Ar(1) bis Ar(8)}}

For I = 1 To 8
Print Hex(ar(i)); {{vbcomment|Ausgeben}}
Print " ";
Next

Print

Wait 1

Im Array Ar() befindet sich somit die SerienNr des Gerätes.

=== SerienNr aller Geräte ===

$regfile = "M32def.dat"
$crystal = 16000000
$baud = 38400

Config 1wire = Portc.7

Dim Ar(8) As Byte {{vbcomment|Array für SerienNr.}}
Dim I As Byte
Dim W As Word

Sound Portd.7 , 400 , 450 {{vbcomment|BEEP bei RN-Control}}

Print
Print "1-Wire"

Wait 1

Ar(1) = 1wsearchfirst() {{vbcomment|8 Bytes lesen, beschreibt Ar(1) bis Ar(8)}}

{{vbcomment|gibts überhaupt ein Gerät}}
If Err = 0 Then

Do
{{vbcomment|Ausgabe der SerienNr.}}
For I = 1 To 8
Print Hex(ar(i));
Print " ";
Next
Print

{{vbcomment|Nach weiterem Gerät suchen}}
Ar(1) = 1wsearchnext() {{vbcomment| Seriennummer vom ächste Sensor, beschreibt Ar(1) bis Ar(8)}}

Loop Until Err = 1 {{vbcomment|solange bis sich kein weiteres Gerät mehr meldet.}}

End If

Print "Fertig"

W = 1wirecount() {{vbcomment|Anzahl der gefundenen Geräte zählen}}

Print "Anzahl ";
Print W

Do
Loop

End

Am ersten Byte der SerienNr (Family-Code) ist zu erkennen um welches Gerät es sich handelt, beim DS18B20 ist es die &H28, beim DS18S20 die &H10. Da beide unterschiedliche Formate beim Temperaturwert haben, kann die Berechnung anhand des Family-Code angepasst werden.

=== Bestimmtes Gerät ansprechen ===

Um bei mehreren vorhandenen Geräten ein bestimmtes anzusprechen muss es mit der SerienNr adressiert werden.

Do
1wverify Ar(1) {{vbcomment|Gerät mit der SerienNr. aus Ar() auswählen}}
{{vbcomment|Gerät vorhanden}}
If Err = 0 Then

1wwrite &H44 {{vbcomment|Temperaturmessung anstoßen}}

Waitms 500 {{vbcomment|warten bis Messung fertig}}

1wverify Ar(1) {{vbcomment|Gerät mit der SerienNr. aus Ar(1)...Ar(8) auswählen}}
1wwrite &HBE {{vbcomment|Temperatur auslesen}}
Sep(1) = 1wread(9) {{vbcomment|Daten in ein Array lesen, beschreibt Sep(1) bis Sep(9)}}

For I = 1 To 9
Print Hex(sep(i));
Next
Print

{{vbcomment|Nur für die Temperatur wichtige Daten ausgeben}}
Print Hex(sep(2));
Print Hex(sep(1))
{{vbcomment| High und Low-Byte, nach Datenblatt zusammen setzen und berechnen...}}
Else
Print "Fehler"
End If

Wait 1

Loop

Die SerienNr. des gewünschten Gerätes muss im Array Ar() stehen, bevor es mit <tt>1wverify</tt> gesucht wird, dies ist auch gleichzeitig der ROM-Befehl, diesem kann der Memory-Befehl folgen, und anschließend die Daten übertragen werden.

== Prüfsumme ==

Da wegen der einen Datenleitung durchaus mit Störungen zu rechnen ist, wird jeder Übertragung ein Prüfbyte angehängt, mit dem sich die Korrektheit der Daten überprüfen lässt.

Config 1wire = Portc.7

Dim Ar(8) As Byte {{vbcomment|Array für SerienNr}}
Dim I As Byte

1wreset
If Err = 0 Then
1wwrite &H33 {{vbcomment|ROM-Befehl zum lesen der SerienNr.}}
Ar(1) = 1wread(8) {{vbcomment|8 Bytes lesen}}

For I = 1 To 8
Print Hex(ar(i)); {{vbcomment|Ausgabe der SerienNr.}}
Print " ";
Next
Print

Print Hex(crc8(ar(1) , 7) ) {{vbcomment|Prüfsumme ausgeben}}

If Ar(8) = Crc8(ar(1) , 7) Then {{vbcomment|Prüfsumme vergleichen}}
Print "Daten OK"
Else
Print "Fehler"
End If

End If

Wenn das letzte Byte der Übertragung und die berechnete Prüfsumme aus den Bytes 1-7 übereinstimmt, war die Übertragung erfolgreich, und die Daten können weiterverarbeitet werden.
Beim auslesen der Temperatur werden 9 Bytes übertragen, deshalb müssen zum berechnen der Prüfsumme Byte 1-8 einbezogen werden.

== Parasitäre Stromversorgung ==

Da bei der Schaltung von oben eigentlich drei Leitungen benötigt werden, statt der einen wie man vermuten könnte, ist es mit der folgenden Schaltung immerhin möglich die Anzahl auf zwei Leitungen zu reduzieren.

[[Bild:1Wire-DS1820_parasit.png]]

Es ist aber Abhängig vom Gerät und den Umgebungsbedingungen ob es sich immer so lösen lässt. Ein Blick ins Datenblatt hilft da weiter.

== Siehe auch ==

* [[Bascom]]
* [[Bascom#1WIRE_Bus|1-Wire Bascom-Befehle]]
* [[Avr]]

== Weblinks ==

* [http://www.maxim-ic.com/quick_view2.cfm?qv_pk=2812] - Datenblatt zu DS18B20
* [http://www.maxim-ic.com/quick_view2.cfm/qv_pk/2815] - Datenblatt zu DS18S20

--[[Benutzer:Linux 80|Linux 80]] 03:16, 23. Aug 2008 (CEST)

[[Kategorie:Abkürzung]]
[[Kategorie:Grundlagen]]
[[Kategorie:Kommunikation]]
[[Kategorie:Microcontroller]]
[[Kategorie:Praxis]]
[[Kategorie:Software]]
[[Kategorie:Quellcode Bascom]]

Bascom und 1-Wire

2014-07-19T18:10:26Z

J-g-s:

In diesem Artikel folgen einige Programmbeispiele, in denen gezeigt wird, wie Bascom über den 1-Wire-Bus kommuniziert.

1-Wire (Eindraht) ist eine serielle Schnittstelle, die mit nur einer Datenleitung auskommt, die gleichzeitig auch noch als Stromversorgung genutzt werden kann.
Aufgrund der Einfachheit kann diese Schnittstelle leicht in Software auf einem Mikrocontroller nachgebildet werden.

In Bascom sind [[Bascom#1WIRE_Bus|Befehle]] für die 1-Wire-Kommunikation enthalten, sodass der Programmierer sich nicht um das Protokoll und das Timing der Übertragung kümmern muss.

Es gibt 1-Wire-Geräte mit verschiedenen Funktionen, in der Roboterwelt dürfte einer der bekanntesten der Temperatursensor DS18S20 (bzw. DS18B20) sein, deswegen wird dieser in den Beispielen verwendet.

== Beschaltung ==

Die Beschaltung rund um den DS18B20 sieht so aus:

[[Bild:1Wire-DS1820.png]]

== Ablauf der Kommunikation ==

Die Kommunikation mit dem 1-Wire-Gerät muss immer diesen Ablauf haben:

* Initialisierung
* "ROM Function" Befehl
* "Memory Function" Befehl
* Übertragung/Daten

Aus diesem Ablauf ergeben sich die beiden folgenden Programmabläufe.

== Kommunikation mit nur einem Gerät ==

Wenn sich nur ein einziges Gerät am Bus befindet kann man diese kurze Version der Kommunikation verwenden. Ein ROM-Befehl ist dabei nicht notwendig und kann übersprungen werden, dies muss aber dem Gerät mitgeteilt werden.

Beispiel:
{{vbcomment|Minimalprogramm für Temperaturmessung}}
Config 1wire = Portc.7

Dim Sep(9) As Byte

1wreset {{vbcomment|Initialisierung}}
1wwrite &HCC {{vbcomment|überspringe ROM-Befehl}}
1wwrite &H44 {{vbcomment|Temperaturmessung anstoßen}}

Waitms 500 {{vbcomment|warten bis Messung fertig}}

1wreset {{vbcomment|Initialisierung}}
1wwrite &HCC {{vbcomment|überspringe ROM-Befehl}}
1wwrite &HBE {{vbcomment|Temperatur auslesen}}
Sep(1) = 1wread(9) {{vbcomment|Daten in ein Array lesen}}

Wait 1

Im Array Sep() stehen die Daten des Gerätes die dann Anhand des Datenblattes ausgewertet werden.

== Kommunikation mit mehreren Geräten ==

Wenn sich mehrere Geräte am 1-Wire-Bus befinden, müssen diese jeweils Adressiert werden um mit dem gewünschten Gerät in Kontakt zu treten. Zum Adressieren wird die Seriennummer verwendet, die in jedem 1-Wire-Gerät eindeutig vorhanden ist. Um an diese Seriennummer zu kommen gibt es zwei Strategien.

Entweder man liest bei allen Geräten vorher einzeln diese Nr. aus, um diese in das eigentliche Programm einzutragen (kürzer), oder man sucht beim Programmstart jedesmal nach vorhandenen Geräten (flexibler).

=== SerienNr einzeln auslesen ===

Config 1wire = Portc.7

Dim Ar(8) As Byte

1wreset
1wwrite &H33 {{vbcomment|ROM-Befehl zum lesen der SerienNr}}
Ar(1) = 1wread(8) {{vbcomment|8 Bytes lesen}}

For I = 1 To 8
Print Hex(ar(i)); {{vbcomment|Ausgeben}}
Print " ";
Next

Print

Wait 1

Im Array Ar() befindet sich somit die SerienNr des Gerätes.

=== SerienNr aller Geräte ===

$regfile = "M32def.dat"
$crystal = 16000000
$baud = 38400

Config 1wire = Portc.7

Dim Ar(8) As Byte {{vbcomment|Array für SerienNr.}}
Dim I As Byte
Dim W As Word

Sound Portd.7 , 400 , 450 {{vbcomment|BEEP bei RN-Control}}

Print
Print "1-Wire"

Wait 1

Ar(1) = 1wsearchfirst()

{{vbcomment|gibts überhaupt ein Gerät}}
If Err = 0 Then

Do
{{vbcomment|Ausgabe der SerienNr.}}
For I = 1 To 8
Print Hex(ar(i));
Print " ";
Next
Print

{{vbcomment|Nach weiterem Gerät suchen}}
Ar(1) = 1wsearchnext()

Loop Until Err = 1 {{vbcomment|solange bis sich kein weiteres Gerät mehr meldet.}}

End If

Print "Fertig"

W = 1wirecount() {{vbcomment|Anzahl der gefundenen Geräte zählen}}

Print "Anzahl ";
Print W

Do
Loop

End

Am ersten Byte der SerienNr (Family-Code) ist zu erkennen um welches Gerät es sich handelt, beim DS18B20 ist es die &H28, beim DS18S20 die &H10. Da beide unterschiedliche Formate beim Temperaturwert haben, kann die Berechnung anhand des Family-Code angepasst werden.

=== Bestimmtes Gerät ansprechen ===

Um bei mehreren vorhandenen Geräten ein bestimmtes anzusprechen muss es mit der SerienNr adressiert werden.

Do
1wverify Ar(1) {{vbcomment|Gerät mit der SerienNr. aus Ar() auswählen}}
{{vbcomment|Gerät vorhanden}}
If Err = 0 Then

1wwrite &H44 {{vbcomment|Temperaturmessung anstoßen}}

Waitms 500 {{vbcomment|warten bis Messung fertig}}

1wverify Ar(1) {{vbcomment|Gerät mit der SerienNr. aus Ar() auswählen}}
1wwrite &HBE {{vbcomment|Temperatur auslesen}}
Sep(1) = 1wread(9) {{vbcomment|Daten in ein Array lesen, beschreibt Sep(1), Sep(2), bis Sep(9)}}

For I = 1 To 9
Print Hex(sep(i));
Next
Print

{{vbcomment|Nur für die Temperatur wichtige Daten ausgeben}}
Print Hex(sep(2));
Print Hex(sep(1))

Else
Print "Fehler"
End If

Wait 1

Loop

Die SerienNr. des gewünschten Gerätes muss im Array Ar() stehen, bevor es mit <tt>1wverify</tt> gesucht wird, dies ist auch gleichzeitig der ROM-Befehl, diesem kann der Memory-Befehl folgen, und anschließend die Daten übertragen werden.

== Prüfsumme ==

Da wegen der einen Datenleitung durchaus mit Störungen zu rechnen ist, wird jeder Übertragung ein Prüfbyte angehängt, mit dem sich die Korrektheit der Daten überprüfen lässt.

Config 1wire = Portc.7

Dim Ar(8) As Byte {{vbcomment|Array für SerienNr}}
Dim I As Byte

1wreset
If Err = 0 Then
1wwrite &H33 {{vbcomment|ROM-Befehl zum lesen der SerienNr.}}
Ar(1) = 1wread(8) {{vbcomment|8 Bytes lesen}}

For I = 1 To 8
Print Hex(ar(i)); {{vbcomment|Ausgabe der SerienNr.}}
Print " ";
Next
Print

Print Hex(crc8(ar(1) , 7) ) {{vbcomment|Prüfsumme ausgeben}}

If Ar(8) = Crc8(ar(1) , 7) Then {{vbcomment|Prüfsumme vergleichen}}
Print "Daten OK"
Else
Print "Fehler"
End If

End If

Wenn das letzte Byte der Übertragung und die berechnete Prüfsumme aus den Bytes 1-7 übereinstimmt, war die Übertragung erfolgreich, und die Daten können weiterverarbeitet werden.
Beim auslesen der Temperatur werden 9 Bytes übertragen, deshalb müssen zum berechnen der Prüfsumme Byte 1-8 einbezogen werden.

== Parasitäre Stromversorgung ==

Da bei der Schaltung von oben eigentlich drei Leitungen benötigt werden, statt der einen wie man vermuten könnte, ist es mit der folgenden Schaltung immerhin möglich die Anzahl auf zwei Leitungen zu reduzieren.

[[Bild:1Wire-DS1820_parasit.png]]

Es ist aber Abhängig vom Gerät und den Umgebungsbedingungen ob es sich immer so lösen lässt. Ein Blick ins Datenblatt hilft da weiter.

== Siehe auch ==

* [[Bascom]]
* [[Bascom#1WIRE_Bus|1-Wire Bascom-Befehle]]
* [[Avr]]

== Weblinks ==

* [http://www.maxim-ic.com/quick_view2.cfm?qv_pk=2812] - Datenblatt zu DS18B20
* [http://www.maxim-ic.com/quick_view2.cfm/qv_pk/2815] - Datenblatt zu DS18S20

--[[Benutzer:Linux 80|Linux 80]] 03:16, 23. Aug 2008 (CEST)

[[Kategorie:Abkürzung]]
[[Kategorie:Grundlagen]]
[[Kategorie:Kommunikation]]
[[Kategorie:Microcontroller]]
[[Kategorie:Praxis]]
[[Kategorie:Software]]
[[Kategorie:Quellcode Bascom]]

Diskussion:Bascom und 1-Wire

2014-07-19T18:05:02Z

J-g-s: Variable SP() ändern

Bascom 2.077 mag die Variable DIM Sp(9) as Byte nicht mehr,
ist schon durch Bascom selbst in Gebrauch.

DIM SP(9) as Byte Fehler
Sp(1) = 1wread(9) Fehler
Print Hex(sp(2)); Fehler
Print Hex(sp(1)) Fehler

Schlage vor die Variable in den Beispielen "Bestimmtes Gerät ansprechen" umzubenennen
in Sep(9) oder was anderes.

DIM Sep(9) as Byte OK

Sep(1) = 1wread(9) OK
Print Hex(sep(2)); OK
Print Hex(sep(1)) OK