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

Bascom Variablen

2012-01-19T14:30:10Z

Michael der Echte: /* Strings */

Variablen werden benutzt, um Daten zu speichern. Dieser Artikel soll eine Übersicht über die Variablen in Bascom bieten.

== Zur Erklärung ==
In den Quelltexten zur Erzeugung der Variablen steht "Name" immer für den Namen, der der Variablen zugewiesen werden soll (ist ja auch logisch ;-)
== Bits ==
Alle Zahlen und Buchstaben in der Digitaltechnik bestehen letztendlich aus mehreren Bits, doch dazu mehr im Abschnitt Bytes. Ein Bit kann entweder 0 oder 1 sein und ist somit die Variable mit dem kleinsten Wertebereich.

Hier der Steckbrief:

{|{{Blauetabelle}}
|'''Wertbereich:''' 0 bis 1

'''Erzeugung in Bascom:'''
Dim Name As Bit

'''Wertzuweisung in Bascom:'''
Name = 1 'setzt die Variable auf 1
Name = 0 'setzt die Variable auf 0

oder

Set Name 'setzt die Variable auf 1
Reset Name 'setzt die Variable auf 0

|}

== Bytes ==
Wie oben angesprochen setzt sich alles in der Digitaltechnik aus Bytes zusammen. Wie das funktioniert soll diese Tabelle erläutern:
{| {{Blauetabelle}}
|'''Bit-Nummer'''
|7
|6
|5
|4
|3
|2
|1
|0
|-
|'''Bit-Wert'''
|128
|64
|32
|16
|8
|4
|2
|1
|-
|'''Bitmuster'''
|0
|1
|1
|0
|0
|1
|0
|0
|}

Diese Bitfolge (Bitmuster) stellt die Zahl 100 dar. Ist das Bit unter der entsprechenden Zahl gleich 1, wird die Zahl addiert, ist das Bit 0 dann nicht. So kann man aus einsen und nullen ganze Zahlen machen. Die Menge der Bits bestimmt den Wertebereich der Variablen, z.B. hat die oben gezeigte Tabelle 8 Bits (also ein 8-Bit Byte). Würde man jetzt jedes Bit auf eins setzen, hätte man den maximalen Wertebereich, in unserem Fall 255.
In Bascom werden passenderweise auch 8-Bit Bytes verwendet.

Da hier ein Binärsystem vorliegt (Basis 2) könnte man auch die folgende Schreibweise anwenden:
{{Registertabelle8Bit|NEIN|JA|JA|NEIN|NEIN|JA|NEIN|NEIN}}
(2^2) + (2^5) + (2^6) = 100 Dez. (nur die gesetzten Bits bzw, deren Nummer als Hochzahl addieren) {2^0 = 1}.

So viel zur Theorie, kommen wir zur Praxis.

Dazu wieder ein kleiner Steckbrief:

{|{{Blauetabelle}}
|'''Wertebereich:''' 0 bis 255 und alle Buchstaben des Alphabets (ausgenommen Umlaute + das ß)

'''Erzeugung in Bascom:'''
Dim Name As Byte

'''Wertzuweisung in Bascom:'''
Name = 100 'setzt die Variable auf 100
Name = "a" 'speichert den Buchstaben a in der Variable
Name = Name + 2 'addiert 2 zur Variablen, funktioniert logischerweise nur korrekt, wenn die Variable eine Zahl als Wert hat
Name = Name + &B00000010 (auch wieder 2 Addieren allerdings in binärer (&B) Schreibweise)

|}

== Integer ==
Im Gegensatz zu Bytes können Integer (Integralzahlen) nur Zahlen und keine Buchstaben speichern.
Außerdem können sie auch Zahlen im negativen Bereich speichern.

Mehr ist dazu nicht zu sagen, also gleich der Steckbrief:

{|{{Blauetabelle}}
|'''Wertebereich:''' '''-32768''' bis '''+32767'''

'''Erzeugung in Bascom:'''
Dim Name As Integer

'''Wertzweisung in Bascom:'''
Name = 2500 'setzt die Variable auf 2500
Name = Name + 5000 'addiert 5000 zur Variablen
|}

Darstellung von Integerzahlen als Binärwert
1 = &B0000000000000001
-1 = &B1111111111111111
2 = &B0000000000000010
-2 = &B1111111111111110
255 = &B0000000011111111
-255 = &B1111111100000001
32767 = &B0111111111111111
-32768 = &B1000000000000000

Bascom Code: ''print bin (Name)''

== Long-Variablen ==
Long-Variablen haben den größten Wertebereich.

Hier wieder ein Steckbrief:

{|{{Blauetabelle}}
|'''Wertebereich:''' -2147483648 bis 2147483647

'''Erzeugung in Bascom:'''
Dim Name As Long

'''Wertzuweisung in Bascom:'''
Name = 10000000 'setzt die Variable auf 1000000
Name = Name + 30234 'addiert 30234 zur Variablen
|}

== Word-Variablen ==
Words können ebenfalls nur Zahlen speichern, aber sind nur im positivem Bereich gültig.
Steckbrief:

'''Wertebereich:''' 0 bis 65535

{| {{Blauetabelle}}
|'''Bit-Nummer'''
|15
|14
|13
|12
|11
|10
|9
|8
|7
|6
|5
|4
|3
|2
|1
|0
|-
|'''Bit-Wert'''
|32768
|16384
|8192
|4096
|2048
|1024
|512
|256
|128
|64
|32
|16
|8
|4
|2
|1
|-
|'''Bitmuster'''
|1
|1
|0
|0
|1
|1
|0
|0
|1
|1
|0
|0
|1
|1
|0
|0
|}
Dieses Bitmuster (&B1100110011001100) stellt den Wert 52428 (dez.) dar.

'''Erzeugung in Bascom:'''
Dim Name As Word

'''Wertzuweisung in Bascom:'''
Name = 3333 'setzt die Variable auf 3333
Name = Name + 20 'addiert 20 zur Variablen
Name = Name + &B00010100 'addiert auch 20 (Binär 00010100)zur Variablen

== Strings ==
Strings können sowohl Zahlen als auch Buchstaben speichern, allerdings kann man mit den Zahlen in Strings nicht rechnen.
Sie sind besonders für längere Textabschnitte wie Namen, etc. geeignet.

Aber ein Steckbrief sagt mehr als tausend Worte:

{|{{Blauetabelle}}
|'''Wertebereich:''' max. 254 Zeichen

'''Erzeugung in Bascom:'''
Dim Name As String * 50 'Die Zahl am Ende gibt an, wie viele Zeichen die Variable maximal enthalten kann
'Hier kann man 1 bis 254 auswählen

'''Wertzuweisung in Bascom:'''
Name = "Hallo! 123456" 'Weist der Variablen den Text in Anführungszeichen zu
|}

Bei der Zuweisung von Text zu Stringvariablen muss man als Programmierer selbst darauf achten, dass die Stringlänge, die man mit z.B. "Dim Name As String * 50" definiert hat, nicht überschritten wird. Sonst sind unvorhersehbare Effekte und Absturz möglich.

== Konstanten ==
Wie dem Namen zu entnehmen ist, handelt es sich hier nicht wirklich um Variablen.
Aber es wäre unnötig extra dafür einen Artikel anzulegen, also wird dieses Thema hier mit behandelt.
Konstanten kann man nur einmal einen Wert zuweisen, danach ist dieser unveränderlich.
Auch sie können sowohl Zahlen als auch Buchstaben speichern.

Der Steckbrief:

{|{{Blauetabelle}}
|'''Wertebereich:'''Von mir noch nicht erprobt, sollte ihn jemand kennen bitte hier eintragen.

'''Erzeugung in Bascom + Wertzuweisung:'''
Const Name = "test" 'Weist der Konstante "Name" den Text in Anführungszeichen zu
mit Zahlen funktioniert das auch:
Const Name = 1234 'Weist der Konstante "Name" den Wert 1234 zu
|}

Wie man sieht muss man den Wert direkt bei der Erzeugung angeben.

== Und was soll das ganze? ==
Für alle die sich jetzt fragen, was genau dieser Artikel bewirken soll:

Ich weiß, dass viel erklärt wird, was die meisten sowieso schon wissen (z.B. dass die Zahlen aus Bits bestehen), aber keiner wusste es von Anfang an, jeder muss es irgendwann gelernt haben. Dennoch dient dieser Artikel nicht nur Anfängern als Tutorial, sondern auch Fortgeschrittenen als Nachschlagewerk (Ich wette es gibt nicht viele Leute, die den Wertebereich der Long-Variablen auswendig können ;-)

== Autor ==
*[[Benutzer:Shahri|Shahri]] 17:45, 17. Mai 2006 (CEST)

[[Kategorie:Microcontroller]]
[[Kategorie:Grundlagen]]
[[Kategorie:Software]]
[[Kategorie:Quellcode Bascom]]

Bascom Variablen

2012-01-19T14:29:36Z

Michael der Echte: /* Strings */

Variablen werden benutzt, um Daten zu speichern. Dieser Artikel soll eine Übersicht über die Variablen in Bascom bieten.

== Zur Erklärung ==
In den Quelltexten zur Erzeugung der Variablen steht "Name" immer für den Namen, der der Variablen zugewiesen werden soll (ist ja auch logisch ;-)
== Bits ==
Alle Zahlen und Buchstaben in der Digitaltechnik bestehen letztendlich aus mehreren Bits, doch dazu mehr im Abschnitt Bytes. Ein Bit kann entweder 0 oder 1 sein und ist somit die Variable mit dem kleinsten Wertebereich.

Hier der Steckbrief:

{|{{Blauetabelle}}
|'''Wertbereich:''' 0 bis 1

'''Erzeugung in Bascom:'''
Dim Name As Bit

'''Wertzuweisung in Bascom:'''
Name = 1 'setzt die Variable auf 1
Name = 0 'setzt die Variable auf 0

oder

Set Name 'setzt die Variable auf 1
Reset Name 'setzt die Variable auf 0

|}

== Bytes ==
Wie oben angesprochen setzt sich alles in der Digitaltechnik aus Bytes zusammen. Wie das funktioniert soll diese Tabelle erläutern:
{| {{Blauetabelle}}
|'''Bit-Nummer'''
|7
|6
|5
|4
|3
|2
|1
|0
|-
|'''Bit-Wert'''
|128
|64
|32
|16
|8
|4
|2
|1
|-
|'''Bitmuster'''
|0
|1
|1
|0
|0
|1
|0
|0
|}

Diese Bitfolge (Bitmuster) stellt die Zahl 100 dar. Ist das Bit unter der entsprechenden Zahl gleich 1, wird die Zahl addiert, ist das Bit 0 dann nicht. So kann man aus einsen und nullen ganze Zahlen machen. Die Menge der Bits bestimmt den Wertebereich der Variablen, z.B. hat die oben gezeigte Tabelle 8 Bits (also ein 8-Bit Byte). Würde man jetzt jedes Bit auf eins setzen, hätte man den maximalen Wertebereich, in unserem Fall 255.
In Bascom werden passenderweise auch 8-Bit Bytes verwendet.

Da hier ein Binärsystem vorliegt (Basis 2) könnte man auch die folgende Schreibweise anwenden:
{{Registertabelle8Bit|NEIN|JA|JA|NEIN|NEIN|JA|NEIN|NEIN}}
(2^2) + (2^5) + (2^6) = 100 Dez. (nur die gesetzten Bits bzw, deren Nummer als Hochzahl addieren) {2^0 = 1}.

So viel zur Theorie, kommen wir zur Praxis.

Dazu wieder ein kleiner Steckbrief:

{|{{Blauetabelle}}
|'''Wertebereich:''' 0 bis 255 und alle Buchstaben des Alphabets (ausgenommen Umlaute + das ß)

'''Erzeugung in Bascom:'''
Dim Name As Byte

'''Wertzuweisung in Bascom:'''
Name = 100 'setzt die Variable auf 100
Name = "a" 'speichert den Buchstaben a in der Variable
Name = Name + 2 'addiert 2 zur Variablen, funktioniert logischerweise nur korrekt, wenn die Variable eine Zahl als Wert hat
Name = Name + &B00000010 (auch wieder 2 Addieren allerdings in binärer (&B) Schreibweise)

|}

== Integer ==
Im Gegensatz zu Bytes können Integer (Integralzahlen) nur Zahlen und keine Buchstaben speichern.
Außerdem können sie auch Zahlen im negativen Bereich speichern.

Mehr ist dazu nicht zu sagen, also gleich der Steckbrief:

{|{{Blauetabelle}}
|'''Wertebereich:''' '''-32768''' bis '''+32767'''

'''Erzeugung in Bascom:'''
Dim Name As Integer

'''Wertzweisung in Bascom:'''
Name = 2500 'setzt die Variable auf 2500
Name = Name + 5000 'addiert 5000 zur Variablen
|}

Darstellung von Integerzahlen als Binärwert
1 = &B0000000000000001
-1 = &B1111111111111111
2 = &B0000000000000010
-2 = &B1111111111111110
255 = &B0000000011111111
-255 = &B1111111100000001
32767 = &B0111111111111111
-32768 = &B1000000000000000

Bascom Code: ''print bin (Name)''

== Long-Variablen ==
Long-Variablen haben den größten Wertebereich.

Hier wieder ein Steckbrief:

{|{{Blauetabelle}}
|'''Wertebereich:''' -2147483648 bis 2147483647

'''Erzeugung in Bascom:'''
Dim Name As Long

'''Wertzuweisung in Bascom:'''
Name = 10000000 'setzt die Variable auf 1000000
Name = Name + 30234 'addiert 30234 zur Variablen
|}

== Word-Variablen ==
Words können ebenfalls nur Zahlen speichern, aber sind nur im positivem Bereich gültig.
Steckbrief:

'''Wertebereich:''' 0 bis 65535

{| {{Blauetabelle}}
|'''Bit-Nummer'''
|15
|14
|13
|12
|11
|10
|9
|8
|7
|6
|5
|4
|3
|2
|1
|0
|-
|'''Bit-Wert'''
|32768
|16384
|8192
|4096
|2048
|1024
|512
|256
|128
|64
|32
|16
|8
|4
|2
|1
|-
|'''Bitmuster'''
|1
|1
|0
|0
|1
|1
|0
|0
|1
|1
|0
|0
|1
|1
|0
|0
|}
Dieses Bitmuster (&B1100110011001100) stellt den Wert 52428 (dez.) dar.

'''Erzeugung in Bascom:'''
Dim Name As Word

'''Wertzuweisung in Bascom:'''
Name = 3333 'setzt die Variable auf 3333
Name = Name + 20 'addiert 20 zur Variablen
Name = Name + &B00010100 'addiert auch 20 (Binär 00010100)zur Variablen

== Strings ==
Strings können sowohl Zahlen als auch Buchstaben speichern, allerdings kann man mit den Zahlen in Strings nicht rechnen.
Sie sind besonders für längere Textabschnitte wie Namen, etc. geeignet.

Aber ein Steckbrief sagt mehr als tausend Worte:

{|{{Blauetabelle}}
|'''Wertebereich:''' max. 70 Zeichen

'''Erzeugung in Bascom:'''
Dim Name As String * 50 'Die Zahl am Ende gibt an, wie viele Zeichen die Variable maximal enthalten kann
'Hier kann man 1 bis 255 auswählen

'''Wertzuweisung in Bascom:'''
Name = "Hallo! 123456" 'Weist der Variablen den Text in Anführungszeichen zu
|}

Bei der Zuweisung von Text zu Stringvariablen muss man als Programmierer selbst darauf achten, dass die Stringlänge, die man mit z.B. "Dim Name As String * 50" definiert hat, nicht überschritten wird. Sonst sind unvorhersehbare Effekte und Absturz möglich.

== Konstanten ==
Wie dem Namen zu entnehmen ist, handelt es sich hier nicht wirklich um Variablen.
Aber es wäre unnötig extra dafür einen Artikel anzulegen, also wird dieses Thema hier mit behandelt.
Konstanten kann man nur einmal einen Wert zuweisen, danach ist dieser unveränderlich.
Auch sie können sowohl Zahlen als auch Buchstaben speichern.

Der Steckbrief:

{|{{Blauetabelle}}
|'''Wertebereich:'''Von mir noch nicht erprobt, sollte ihn jemand kennen bitte hier eintragen.

'''Erzeugung in Bascom + Wertzuweisung:'''
Const Name = "test" 'Weist der Konstante "Name" den Text in Anführungszeichen zu
mit Zahlen funktioniert das auch:
Const Name = 1234 'Weist der Konstante "Name" den Wert 1234 zu
|}

Wie man sieht muss man den Wert direkt bei der Erzeugung angeben.

== Und was soll das ganze? ==
Für alle die sich jetzt fragen, was genau dieser Artikel bewirken soll:

Ich weiß, dass viel erklärt wird, was die meisten sowieso schon wissen (z.B. dass die Zahlen aus Bits bestehen), aber keiner wusste es von Anfang an, jeder muss es irgendwann gelernt haben. Dennoch dient dieser Artikel nicht nur Anfängern als Tutorial, sondern auch Fortgeschrittenen als Nachschlagewerk (Ich wette es gibt nicht viele Leute, die den Wertebereich der Long-Variablen auswendig können ;-)

== Autor ==
*[[Benutzer:Shahri|Shahri]] 17:45, 17. Mai 2006 (CEST)

[[Kategorie:Microcontroller]]
[[Kategorie:Grundlagen]]
[[Kategorie:Software]]
[[Kategorie:Quellcode Bascom]]

Bascom Variablen

2012-01-19T14:28:53Z

Michael der Echte: /* Strings */

Variablen werden benutzt, um Daten zu speichern. Dieser Artikel soll eine Übersicht über die Variablen in Bascom bieten.

== Zur Erklärung ==
In den Quelltexten zur Erzeugung der Variablen steht "Name" immer für den Namen, der der Variablen zugewiesen werden soll (ist ja auch logisch ;-)
== Bits ==
Alle Zahlen und Buchstaben in der Digitaltechnik bestehen letztendlich aus mehreren Bits, doch dazu mehr im Abschnitt Bytes. Ein Bit kann entweder 0 oder 1 sein und ist somit die Variable mit dem kleinsten Wertebereich.

Hier der Steckbrief:

{|{{Blauetabelle}}
|'''Wertbereich:''' 0 bis 1

'''Erzeugung in Bascom:'''
Dim Name As Bit

'''Wertzuweisung in Bascom:'''
Name = 1 'setzt die Variable auf 1
Name = 0 'setzt die Variable auf 0

oder

Set Name 'setzt die Variable auf 1
Reset Name 'setzt die Variable auf 0

|}

== Bytes ==
Wie oben angesprochen setzt sich alles in der Digitaltechnik aus Bytes zusammen. Wie das funktioniert soll diese Tabelle erläutern:
{| {{Blauetabelle}}
|'''Bit-Nummer'''
|7
|6
|5
|4
|3
|2
|1
|0
|-
|'''Bit-Wert'''
|128
|64
|32
|16
|8
|4
|2
|1
|-
|'''Bitmuster'''
|0
|1
|1
|0
|0
|1
|0
|0
|}

Diese Bitfolge (Bitmuster) stellt die Zahl 100 dar. Ist das Bit unter der entsprechenden Zahl gleich 1, wird die Zahl addiert, ist das Bit 0 dann nicht. So kann man aus einsen und nullen ganze Zahlen machen. Die Menge der Bits bestimmt den Wertebereich der Variablen, z.B. hat die oben gezeigte Tabelle 8 Bits (also ein 8-Bit Byte). Würde man jetzt jedes Bit auf eins setzen, hätte man den maximalen Wertebereich, in unserem Fall 255.
In Bascom werden passenderweise auch 8-Bit Bytes verwendet.

Da hier ein Binärsystem vorliegt (Basis 2) könnte man auch die folgende Schreibweise anwenden:
{{Registertabelle8Bit|NEIN|JA|JA|NEIN|NEIN|JA|NEIN|NEIN}}
(2^2) + (2^5) + (2^6) = 100 Dez. (nur die gesetzten Bits bzw, deren Nummer als Hochzahl addieren) {2^0 = 1}.

So viel zur Theorie, kommen wir zur Praxis.

Dazu wieder ein kleiner Steckbrief:

{|{{Blauetabelle}}
|'''Wertebereich:''' 0 bis 255 und alle Buchstaben des Alphabets (ausgenommen Umlaute + das ß)

'''Erzeugung in Bascom:'''
Dim Name As Byte

'''Wertzuweisung in Bascom:'''
Name = 100 'setzt die Variable auf 100
Name = "a" 'speichert den Buchstaben a in der Variable
Name = Name + 2 'addiert 2 zur Variablen, funktioniert logischerweise nur korrekt, wenn die Variable eine Zahl als Wert hat
Name = Name + &B00000010 (auch wieder 2 Addieren allerdings in binärer (&B) Schreibweise)

|}

== Integer ==
Im Gegensatz zu Bytes können Integer (Integralzahlen) nur Zahlen und keine Buchstaben speichern.
Außerdem können sie auch Zahlen im negativen Bereich speichern.

Mehr ist dazu nicht zu sagen, also gleich der Steckbrief:

{|{{Blauetabelle}}
|'''Wertebereich:''' '''-32768''' bis '''+32767'''

'''Erzeugung in Bascom:'''
Dim Name As Integer

'''Wertzweisung in Bascom:'''
Name = 2500 'setzt die Variable auf 2500
Name = Name + 5000 'addiert 5000 zur Variablen
|}

Darstellung von Integerzahlen als Binärwert
1 = &B0000000000000001
-1 = &B1111111111111111
2 = &B0000000000000010
-2 = &B1111111111111110
255 = &B0000000011111111
-255 = &B1111111100000001
32767 = &B0111111111111111
-32768 = &B1000000000000000

Bascom Code: ''print bin (Name)''

== Long-Variablen ==
Long-Variablen haben den größten Wertebereich.

Hier wieder ein Steckbrief:

{|{{Blauetabelle}}
|'''Wertebereich:''' -2147483648 bis 2147483647

'''Erzeugung in Bascom:'''
Dim Name As Long

'''Wertzuweisung in Bascom:'''
Name = 10000000 'setzt die Variable auf 1000000
Name = Name + 30234 'addiert 30234 zur Variablen
|}

== Word-Variablen ==
Words können ebenfalls nur Zahlen speichern, aber sind nur im positivem Bereich gültig.
Steckbrief:

'''Wertebereich:''' 0 bis 65535

{| {{Blauetabelle}}
|'''Bit-Nummer'''
|15
|14
|13
|12
|11
|10
|9
|8
|7
|6
|5
|4
|3
|2
|1
|0
|-
|'''Bit-Wert'''
|32768
|16384
|8192
|4096
|2048
|1024
|512
|256
|128
|64
|32
|16
|8
|4
|2
|1
|-
|'''Bitmuster'''
|1
|1
|0
|0
|1
|1
|0
|0
|1
|1
|0
|0
|1
|1
|0
|0
|}
Dieses Bitmuster (&B1100110011001100) stellt den Wert 52428 (dez.) dar.

'''Erzeugung in Bascom:'''
Dim Name As Word

'''Wertzuweisung in Bascom:'''
Name = 3333 'setzt die Variable auf 3333
Name = Name + 20 'addiert 20 zur Variablen
Name = Name + &B00010100 'addiert auch 20 (Binär 00010100)zur Variablen

== Strings ==
Strings können sowohl Zahlen als auch Buchstaben speichern, allerdings kann man mit den Zahlen in Strings nicht rechnen.
Sie sind besonders für längere Textabschnitte wie Namen, etc. geeignet.

Aber ein Steckbrief sagt mehr als tausend Worte:

{|{{Blauetabelle}}
|'''Wertebereich:''' max. 70 Zeichen

'''Erzeugung in Bascom:'''
Dim Name As String * 50 'Die Zahl am Ende gibt an, wie viele Zeichen die Variable maximal enthalten kann
'Hier kann man 0 bis 50 auswählen

'''Wertzuweisung in Bascom:'''
Name = "Hallo! 123456" 'Weist der Variablen den Text in Anführungszeichen zu
|}

Bei der Zuweisung von Text zu Stringvariablen muss man als Programmierer selbst darauf achten, dass die Stringlänge, die man mit z.B. "Dim Name As String * 50" definiert hat, nicht überschritten wird. Sonst sind unvorhersehbare Effekte und Absturz möglich.

== Konstanten ==
Wie dem Namen zu entnehmen ist, handelt es sich hier nicht wirklich um Variablen.
Aber es wäre unnötig extra dafür einen Artikel anzulegen, also wird dieses Thema hier mit behandelt.
Konstanten kann man nur einmal einen Wert zuweisen, danach ist dieser unveränderlich.
Auch sie können sowohl Zahlen als auch Buchstaben speichern.

Der Steckbrief:

{|{{Blauetabelle}}
|'''Wertebereich:'''Von mir noch nicht erprobt, sollte ihn jemand kennen bitte hier eintragen.

'''Erzeugung in Bascom + Wertzuweisung:'''
Const Name = "test" 'Weist der Konstante "Name" den Text in Anführungszeichen zu
mit Zahlen funktioniert das auch:
Const Name = 1234 'Weist der Konstante "Name" den Wert 1234 zu
|}

Wie man sieht muss man den Wert direkt bei der Erzeugung angeben.

== Und was soll das ganze? ==
Für alle die sich jetzt fragen, was genau dieser Artikel bewirken soll:

Ich weiß, dass viel erklärt wird, was die meisten sowieso schon wissen (z.B. dass die Zahlen aus Bits bestehen), aber keiner wusste es von Anfang an, jeder muss es irgendwann gelernt haben. Dennoch dient dieser Artikel nicht nur Anfängern als Tutorial, sondern auch Fortgeschrittenen als Nachschlagewerk (Ich wette es gibt nicht viele Leute, die den Wertebereich der Long-Variablen auswendig können ;-)

== Autor ==
*[[Benutzer:Shahri|Shahri]] 17:45, 17. Mai 2006 (CEST)

[[Kategorie:Microcontroller]]
[[Kategorie:Grundlagen]]
[[Kategorie:Software]]
[[Kategorie:Quellcode Bascom]]

Bascom Variablen

2012-01-19T14:18:27Z

Michael der Echte: /* Konstanten */

Variablen werden benutzt, um Daten zu speichern. Dieser Artikel soll eine Übersicht über die Variablen in Bascom bieten.

== Zur Erklärung ==
In den Quelltexten zur Erzeugung der Variablen steht "Name" immer für den Namen, der der Variablen zugewiesen werden soll (ist ja auch logisch ;-)
== Bits ==
Alle Zahlen und Buchstaben in der Digitaltechnik bestehen letztendlich aus mehreren Bits, doch dazu mehr im Abschnitt Bytes. Ein Bit kann entweder 0 oder 1 sein und ist somit die Variable mit dem kleinsten Wertebereich.

Hier der Steckbrief:

{|{{Blauetabelle}}
|'''Wertbereich:''' 0 bis 1

'''Erzeugung in Bascom:'''
Dim Name As Bit

'''Wertzuweisung in Bascom:'''
Name = 1 'setzt die Variable auf 1
Name = 0 'setzt die Variable auf 0

oder

Set Name 'setzt die Variable auf 1
Reset Name 'setzt die Variable auf 0

|}

== Bytes ==
Wie oben angesprochen setzt sich alles in der Digitaltechnik aus Bytes zusammen. Wie das funktioniert soll diese Tabelle erläutern:
{| {{Blauetabelle}}
|'''Bit-Nummer'''
|7
|6
|5
|4
|3
|2
|1
|0
|-
|'''Bit-Wert'''
|128
|64
|32
|16
|8
|4
|2
|1
|-
|'''Bitmuster'''
|0
|1
|1
|0
|0
|1
|0
|0
|}

Diese Bitfolge (Bitmuster) stellt die Zahl 100 dar. Ist das Bit unter der entsprechenden Zahl gleich 1, wird die Zahl addiert, ist das Bit 0 dann nicht. So kann man aus einsen und nullen ganze Zahlen machen. Die Menge der Bits bestimmt den Wertebereich der Variablen, z.B. hat die oben gezeigte Tabelle 8 Bits (also ein 8-Bit Byte). Würde man jetzt jedes Bit auf eins setzen, hätte man den maximalen Wertebereich, in unserem Fall 255.
In Bascom werden passenderweise auch 8-Bit Bytes verwendet.

Da hier ein Binärsystem vorliegt (Basis 2) könnte man auch die folgende Schreibweise anwenden:
{{Registertabelle8Bit|NEIN|JA|JA|NEIN|NEIN|JA|NEIN|NEIN}}
(2^2) + (2^5) + (2^6) = 100 Dez. (nur die gesetzten Bits bzw, deren Nummer als Hochzahl addieren) {2^0 = 1}.

So viel zur Theorie, kommen wir zur Praxis.

Dazu wieder ein kleiner Steckbrief:

{|{{Blauetabelle}}
|'''Wertebereich:''' 0 bis 255 und alle Buchstaben des Alphabets (ausgenommen Umlaute + das ß)

'''Erzeugung in Bascom:'''
Dim Name As Byte

'''Wertzuweisung in Bascom:'''
Name = 100 'setzt die Variable auf 100
Name = "a" 'speichert den Buchstaben a in der Variable
Name = Name + 2 'addiert 2 zur Variablen, funktioniert logischerweise nur korrekt, wenn die Variable eine Zahl als Wert hat
Name = Name + &B00000010 (auch wieder 2 Addieren allerdings in binärer (&B) Schreibweise)

|}

== Integer ==
Im Gegensatz zu Bytes können Integer (Integralzahlen) nur Zahlen und keine Buchstaben speichern.
Außerdem können sie auch Zahlen im negativen Bereich speichern.

Mehr ist dazu nicht zu sagen, also gleich der Steckbrief:

{|{{Blauetabelle}}
|'''Wertebereich:''' '''-32768''' bis '''+32767'''

'''Erzeugung in Bascom:'''
Dim Name As Integer

'''Wertzweisung in Bascom:'''
Name = 2500 'setzt die Variable auf 2500
Name = Name + 5000 'addiert 5000 zur Variablen
|}

Darstellung von Integerzahlen als Binärwert
1 = &B0000000000000001
-1 = &B1111111111111111
2 = &B0000000000000010
-2 = &B1111111111111110
255 = &B0000000011111111
-255 = &B1111111100000001
32767 = &B0111111111111111
-32768 = &B1000000000000000

Bascom Code: ''print bin (Name)''

== Long-Variablen ==
Long-Variablen haben den größten Wertebereich.

Hier wieder ein Steckbrief:

{|{{Blauetabelle}}
|'''Wertebereich:''' -2147483648 bis 2147483647

'''Erzeugung in Bascom:'''
Dim Name As Long

'''Wertzuweisung in Bascom:'''
Name = 10000000 'setzt die Variable auf 1000000
Name = Name + 30234 'addiert 30234 zur Variablen
|}

== Word-Variablen ==
Words können ebenfalls nur Zahlen speichern, aber sind nur im positivem Bereich gültig.
Steckbrief:

'''Wertebereich:''' 0 bis 65535

{| {{Blauetabelle}}
|'''Bit-Nummer'''
|15
|14
|13
|12
|11
|10
|9
|8
|7
|6
|5
|4
|3
|2
|1
|0
|-
|'''Bit-Wert'''
|32768
|16384
|8192
|4096
|2048
|1024
|512
|256
|128
|64
|32
|16
|8
|4
|2
|1
|-
|'''Bitmuster'''
|1
|1
|0
|0
|1
|1
|0
|0
|1
|1
|0
|0
|1
|1
|0
|0
|}
Dieses Bitmuster (&B1100110011001100) stellt den Wert 52428 (dez.) dar.

'''Erzeugung in Bascom:'''
Dim Name As Word

'''Wertzuweisung in Bascom:'''
Name = 3333 'setzt die Variable auf 3333
Name = Name + 20 'addiert 20 zur Variablen
Name = Name + &B00010100 'addiert auch 20 (Binär 00010100)zur Variablen

== Strings ==
Strings können sowohl Zahlen als auch Buchstaben speichern, allerdings kann man mit den Zahlen in Strings nicht rechnen.
Sie sind besonders für längere Textabschnitte wie Namen, etc. geeignet.

Aber ein Steckbrief sagt mehr als tausend Worte:

{|{{Blauetabelle}}
|'''Wertebereich:''' max. 70 Zeichen

'''Erzeugung in Bascom:'''
Dim Name As String * 50 'Die Zahl am Ende gibt an, wie viele Zeichen die Variable maximal enthalten kann
'Hier kann man 0 bis 70 auswählen

'''Wertzuweisung in Bascom:'''
Name = "Hallo! 123456" 'Weist der Variablen den Text in Anführungszeichen zu
|}

Bei der Zuweisung von Text zu Stringvariablen muss man als Programmierer selbst darauf achten, dass die Stringlänge, die man mit z.B. "Dim Name As String * 50" definiert hat, nicht überschritten wird. Sonst sind unvorhersehbare Effekte und Absturz möglich.

== Konstanten ==
Wie dem Namen zu entnehmen ist, handelt es sich hier nicht wirklich um Variablen.
Aber es wäre unnötig extra dafür einen Artikel anzulegen, also wird dieses Thema hier mit behandelt.
Konstanten kann man nur einmal einen Wert zuweisen, danach ist dieser unveränderlich.
Auch sie können sowohl Zahlen als auch Buchstaben speichern.

Der Steckbrief:

{|{{Blauetabelle}}
|'''Wertebereich:'''Von mir noch nicht erprobt, sollte ihn jemand kennen bitte hier eintragen.

'''Erzeugung in Bascom + Wertzuweisung:'''
Const Name = "test" 'Weist der Konstante "Name" den Text in Anführungszeichen zu
mit Zahlen funktioniert das auch:
Const Name = 1234 'Weist der Konstante "Name" den Wert 1234 zu
|}

Wie man sieht muss man den Wert direkt bei der Erzeugung angeben.

== Und was soll das ganze? ==
Für alle die sich jetzt fragen, was genau dieser Artikel bewirken soll:

Ich weiß, dass viel erklärt wird, was die meisten sowieso schon wissen (z.B. dass die Zahlen aus Bits bestehen), aber keiner wusste es von Anfang an, jeder muss es irgendwann gelernt haben. Dennoch dient dieser Artikel nicht nur Anfängern als Tutorial, sondern auch Fortgeschrittenen als Nachschlagewerk (Ich wette es gibt nicht viele Leute, die den Wertebereich der Long-Variablen auswendig können ;-)

== Autor ==
*[[Benutzer:Shahri|Shahri]] 17:45, 17. Mai 2006 (CEST)

[[Kategorie:Microcontroller]]
[[Kategorie:Grundlagen]]
[[Kategorie:Software]]
[[Kategorie:Quellcode Bascom]]

Bascom und LCD's

2011-09-15T23:16:13Z

Michael der Echte: /* Das Programm für das LCD */

== Mit Bascom, LCD-Displays ansteuern ==

===LCD Display===

Ein LCD-Display kann man mit wenig Aufwand an einen AVR anschließen. Ein paar Leitungen, ein kleines Programm und schon hat man eine Anzeige für den AVR.

Es gibt unter den Displays zwei große Gruppen.

Die einen sind die Text-Displays (können nur Text und deren Sonderzeichen darstellen), die anderen sind die Grafik-Displays.

Hier geht es um Text- Displays.

====Anschlüsse:====

Die meisten Text-LCD’s haben einen 14 poligen bzw. einen 16 poligen Anschluss.
14 polig ist meist ein LCD ohne Hintergrundbeleuchtung und beim 16 poligen ist meist der Pin 15 und 16 die Beleuchtung.

Die Anschlüsse vom LCD-Display:

{|{{Blauetabelle}}
|1
|Vss
|GND
|-
|2
|Vcc
|5V
|-
|3
|Vee
|Kontrastspannung (0V bis 1,5V)
|-
|4
|RS
|Register Select (Befehle/Daten)
|-
|5
|RW
|Read/Write
|-
|6
|E
|Enable
|-
|7
|DB0
|Datenbit 0
|-
|8
|DB1
|Datenbit 1
|-
|9
|DB2
|Datenbit 2
|-
|10
|DB3
|Datenbit 3
|-
|11
|DB4
|Datenbit 4
|-
|12
|DB5
|Datenbit 5
|-
|13
|DB6
|Datenbit 6
|-
|14
|DB7
|Datenbit 7
|-
|15
|Beleuchtung
|GND
|-
|16
|Beleuchtung
|5V über mindestens einen 5 Ohm Widerstand anschließen)
|}

In den meisten Displays wird der Controllerchip HD44780 von Hitachi eingesetzt, oder auch der kompatible Bruder SED1278 von Epson. Auch in Verbindung mit dem Chip HD44100. (Auf der Rückseite vom Display nachschauen) Für alle diese trifft das obige Anschlussbild zu.

Hier ein LCD mit 16 Zeichen mal 2 Zeilen (16*2)
[[Bild:LCD 16 2 Vorderseite.jpg|center]]

Und davon die Rückseite, mit Chip HD44100 und HD44780
[[Bild:LCD_16_2_Rückseite_kleiner.jpg|center]]

Hier ein LCD mit 24 Zeichen in je 2 Zeilen
[[Bild:LCD_24_2_Vorderseite_kleiner.jpg|center]]

Und die Rückseite
[[Bild:LCD_24_2_Rückseite_kleiner.jpg|center]]

==== Anschluss ====
Die Stromversorgung eines LCD sieht so aus:
[[Bild:Stromversorgung.jpg|center]]

Mit dieser Beschaltung kann man schon mal probieren, ob man durch verdrehen des Kontrast-Potie, dunkle Vierecke zu sehen bekommt. Wenn ja, ist bis hier her schon mal alles ok .
Den Kontrast jetzt so einstellen, dass man gerade, diese dunklen Vierecke nicht mehr sieht.

==== Anschlussmöglichkeiten des Displays ====

Das Display besitzt neben der Stromversorgung noch die Anschlüsse: RW, RS , E und 8 Datenleitungen.

Es gibt zwei Möglichkeiten, wie man die 8 Datenleitungen des Displays an den AVR anschließen kann. 
Einmal den 8-Bit Modus und einmal den 4-Bit Modus.
Beim 8 Bit Modus schließt man alle 8 Datenleitungen an den AVR und kann in einem Schritt ein Zeichen (=1 Byte )in das Display übertragen.
Oder man macht es im 4 Bit Modus mit nur 4 Datenleitungen und muss dafür 2*4 Bit für ein Zeichen übertragen (4 Bit = ein Nibble)

Der Vorteil: 
Ich erspare mir somit 4 Leitungen des AVR’s und kann sie anderweitig nutzen.

Der Nachteil: 
Ich muss für ein Zeichen nun 2*4 Bit übertragen (= langsamer)

Aber da in diesem Fall die Geschwindigkeit nicht so eine große Rolle spielt und wir lieber 4 Leitungen mehr am AVR haben möchten, schließen wird das Display im 4Bit Modus an.

Anschlussbelegung für das Display im 4-Bit Modus: (Als Beispiel am Port D)

{|{{Blauetabelle}}
|
|Display
|Am AVR
|-
|1
|Vss
|GND
|-
|2
|Vcc
|5V
|-
|3
|Vee
|Poti (siehe oben)
|-
|4
|RS
|PD4 am AVR
|-
|5
|RW
|GND
|-
|6
|E
|PD5 am AVR
|-
|7
|DB0
|GND
|-
|8
|DB1
|GND
|-
|9
|DB2
|GND
|-
|10
|DB3
|GND
|-
|11
|DB4
|PD0 am AVR
|-
|12
|DB5
|PD1 am AVR
|-
|13
|DB6
|PD2 am AVR
|-
|14
|DB7
|PD3 am AVR
|-
|15
|Beleu.
|frei
|-
|16
|Beleu.
|frei
|}

Die vier Datenleitungen vom Display, die wir nicht brauchen, legen wir auf Masse. Zu den vier Datenleitungen brauchen wir noch die Leitungen RS und E. Den Anschluss RW brauchen wir nicht und legen ihn deshalb auch auf Masse.

Wir kommen somit für das Display mit 6 Datenleitungen aus, die wir alle an das Port D (vom Mega 8) anschließen.

=== Das Programm für das LCD ===
<pre>
$regfile = "m8def.dat"
$crystal = 4000000

Config Lcd = 16 * 2
Config Lcdpin = Pin , Db4 = Portd.0 , Db5 = Portd.1 , Db6 = Portd.2 , Db7 = Portd.3 , E = Portd.5 , Rs = Portd.4

Cls
Locate 1 , 1
Lcd "Hallo Welt"
</pre>
Dieses Programm gibt den Text „Hallo Welt“ auf dem Display aus.

'''Erklärung:'''
<pre>
$regfile = "m8def.dat"
$crystal = 4000000
</pre>
Definiert den Mega8 als Prozessor und einen 4 Mhz Quarz.

<pre>
Config Lcd = 16 * 2
</pre>
Definiert das LCD-Display als 16*2 Anzeige.
Sind somit zwei Zeilen mit jeweils 16 Zeichen. 
Folgende weitere Typen von LCD’s könnte man angeben:
16*1 , 16*2 , 16*4 , 20*2 , 20*4 , 40*4

<pre>
Config Lcdpin = Pin , Db4 = Portd.0 , Db5 = Portd.1 , Db6 = Portd.2 , Db7 = Portd.3 , E = Portd.5 , Rs = Portd.4
</pre>
Definiert, wo das Display an den AVR angeschlossen wird. Db4, Db5, Db6....., E , RS sind die Pins vom LCD (siehe Tabelle) 
Portd.0, Portd.1 u.s.w., sind die Ports vom Mega8 (Port D) 
Heißt also: Die Leitung Db4 vom LCD wird an den Port PD0
angeschlossen (Pin 2 am Mega8) 
Mit diesem Befehl, kann man das LCD auch an andere Pins vom AVR anschließen

<pre>
Cls
Locate 1 , 1
</pre>
Cls löscht das LCD-Display und Locate 1,1 definiert die nächste Ausgabe mit 1.) Zeile, 1.)Position 
(Locate 2,10 wäre dann Ausgabe in Zeile 2 und an zehnter Position )

<pre>
Lcd "Hallo Welt"
</pre>
Mit LCD kann man nun den Text ausgeben. :-)

== Sonderfall: LCDs mit mehr als 80 Zeichen ==
(mehr kann der Hitachi Controller nicht verarbeiten) Dieses betrifft z.B. die Module mit 4 * 27, bzw. 4 * 40 Zeichen. Um das Problem zu lösen wurde diesen Displays eine zweite E Leitung spendiert, alle anderen Leitungen des zweiten Controllers sind parallel angeschlossen. In jedem Fall ist das Datenblatt des Herstellers zu Rate zu ziehen.
In Bascom wird eine zusätzliche Bibliothek geladen um solche Displays ansprechen zu können. Dadurch ist es möglich quasi 2 Displays getrennt anzusteuern, bei einem 4 Zeilen-Display sind die beiden oberen und die zwei unteren getrennt zu selektieren.

=== Das zusätzliche Programm für das LCD, bzw. die Änderungen ===

<pre>
'Einbindung der LCD-Bibliothek für ein 2-Prozessor-Display
$lib "lcd4e2.lbx"

'Bascom kennt keine Display mit 27 * 4 Zeichen, daher 40 * 4 verwenden
Config Lcd = 40 * 4

'man achte auf die Ergänzung E2
Config Lcdpin = Pin , Db4 = Portd.0 , Db5 = Portd.1 , Db6 = Portd.2 , Db7 = Portd.3 , E = Portd.5 , E2 = Portd.6 ,Rs = Portd.4

' Systemvariable der LCD-Bibliothek (wichtig, bloß nicht ändern)
Dim ___lcde As Byte

' wählt die beiden oberen Zeilen aus
___lcde = 0

' löscht die beiden oberen Zeilen
Cls
' wählt die obere Zeile aus
Upperline
' schreibt in die erste Zeile an Position 3
Locate 1 , 3
' den Text in Anführungszeichen
Lcd "Zeile 1"
' wählt die zweite Zeile aus
Lowerline
' schreibt in die zweite Zeile an Position 2
Locate 2 , 2
' in diesem Fall den Inhalt der Variablem mit dem Namen Variable
Lcd Variable
' unterdrückt den Cursor
Cursor Off

' wählt die beiden unteren Zeilen aus
___lcde = 1
Waitms 100
Cls
Thirdline
Locate 1 , 1
Lcd "Zeile 3"
Fourthline
Locate 2 , 1
Lcd "Zeile 4"
Cursor Off

</pre>

==Autor==
* [[Benutzer:Roberto|Roberto]]

==Siehe auch==
* [[Avr]]
* [[Bascom]]
* [[LCD an RN-Control]]

==Weblinks==
* [http://www.sprut.de/electronic/lcd/index.htm#einleitung Sprut]

[[Kategorie:Robotikeinstieg]]
[[Kategorie:Microcontroller]]
[[Kategorie:Software]]
[[Kategorie:Praxis]]
[[Kategorie:Quellcode Bascom]]

LCD an RN-Control

2011-09-15T23:12:35Z

Michael der Echte: /* Selbsterklärendes Bascom Beispielprogramm */

Es gibt verschiedene Möglichkeiten um ein LCD an [[RN-Control]] anzuschließen. Zwei besonders bequeme stellen entweder das Board [[RN-KeyLCD]] oder der Adapter RN-LCDAdapter dar. Dieses Beispiel demonstriert die Verwendung von RN-LCDAdapter.

==Vorteile des Adapters==
Dieser Adapter erleichtert die Verwendung eines sogenannten DIP-LCD´s erheblich, denn diese LCD´s haben ein etwas ungünstiges Raster und könnten daher nicht mit herkömmlichen Experimentierplatinen genutzt werden. Das LCD wird einfach in den Adapter eingesteckt (oder gelötet) und der Adapter über ein 10 poliges Flachkabel mit dem Controllerboard verbunden. Es kann also alles gesteckt werden. Ein Poti auf der Rückseite der Platine stellt den Kontrast ein. Der Adapter bietet auch die Möglichkeit per Software die Beleuchtung abzuschalten.

[[Bild:rn_lcd_adapter_hand.gif|framed|center|Display kann auch gesteckt werden.]]

==Einfacher Anschluss über Port B==
In unserem Beispiel verwenden wir den Wannenstecker von Port B damit wir keine wichtigen Ports wie I2C, RS232 etc. belegen. Allerdings kann es hier Konflikte geben wenn gleichzeitig der Motortreiber genutzt wird, denn zwei Ports überscheiden sich. Wenn man beides hintereinander nutzt kann man das per Software allerdings schon regeln.

[[Bild:rn_lcd_adapter_rncontrol.gif|framed|center|Ein LCD mittels RN-LCDAdapter angeschlossen.]]

==Selbsterklärendes Bascom Beispielprogramm==

<pre>
'###################################################
'Ein LCD EADIP204 mit RN-LCDAdapter an Port B
'von RN-Control angeschlossen
'rnlcdadaptertest.bas
'
'Autor: Frank
'Verwendet wurden: RN-Control & RN-LCDAdapter (robotikhardware.de)
'Weitere Beispiele sind im Roboternetz gerne willkommen!
'##############################################################

$programmer = 12 'MCS USB (Zeile weglassen wenn anderer Programmer)

' -------------- RN-Control übliche _____________________
Declare Function Tastenabfrage() As Byte

$regfile = "m32def.dat"
$framesize = 32
$swstack = 32
$hwstack = 64

$crystal = 16000000 'Quarzfrequenz
$baud = 9600
Config Scl = Portc.0 'Ports fuer IIC-Bus
Config Sda = Portc.1

Config Adc = Single , Prescaler = Auto 'Für Tastenabfrage und Spannungsmessung
Config Pina.7 = Input 'Für Tastenabfrage
Porta.7 = 1 'Pullup Widerstand ein
Dim Taste As Byte
Dim Ton As Integer

I2cinit
Start Adc
Sound Portd.7 , 400 , 450 'BEEP
Sound Portd.7 , 400 , 250 'BEEP
Sound Portd.7 , 400 , 450 'BEEP
Print
Print "**** RN-CONTROL V1.4 *****"
Print "Demoprogramm um Zusatzboard RN-LCDAdapter zu demonstrieren"
Print
' -------------- Ende RN-Control übliche _____________________

Config Pinb.4 = Output 'Spannung an LCD aktivieren
Lcdpower Alias Portb.4

Config Pinb.6 = Output
Lcd_rw Alias Portb.6
Lcd_rw = 0

Lcdpower = 1
Wait 1

Config Lcd = 20 * 4a , Chipset = Ks077
Config Lcdpin = Pin , Db4 = Portb.3 , Db5 = Portb.2 , Db6 = Portb.1 , Db7 = Portb.0 , E = Portb.5 , Rs = Portb.7

Initlcd

Cls
Locate 1 , 1 'Cursor auf 1 Zeile, 1 Spalte
Lcd "RN-LCDADAPTER"
Locate 2 , 1
Lcd "an RN-Control"
Locate 3 , 1
Lcd "beides Bausaetze von"
Locate 4 , 1
Lcd "robotikhardware.de"

Do
Taste = Tastenabfrage()
If Taste <> 0 Then

Select Case Taste

Case 1:
Cls
Locate 1 , 1
Lcd "Gedrueckt wurde nun:"
Locate 2 , 1
Lcd "Taste 1"

Case 2
Cls
Locate 1 , 1
Lcd "Gedrueckt wurde nun:"
Locate 2 , 1
Lcd "Taste 2"

Case 3
Cls
Locate 1 , 1
Lcd "Gedrueckt wurde nun:"
Locate 2 , 1
Lcd "Taste 3"

Case 4
Cls
Locate 1 , 1
Lcd "Gedrueckt wurde nun:"
Locate 2 , 1
Lcd "Taste 4"

Case 5
Cls
Locate 1 , 1
Lcd "Licht wird umgeschaltet"
Toggle Lcdpower

End Select
Sound Portd.7 , 400 , 500 'BEEP
End If

Waitms 100
Loop

End

' Diese Unterfunktion fragt die Tastatur am analogen Port ab
' Sollte beim betätigen einer Taste kein Quittungston kommen, dann
' muss die die Tastenabfrage (Select Case Anweisung in Funktion )
' an ihr Board angepaßt werden. Widerstandstoleranzen sorgen in
' Einzelfällen manchmal dafür das die Werte etwas anders ausfallen
' Am besten dann den WS wert mit Print für jede Taste ausgeben lassen

Function Tastenabfrage() As Byte
Local Ws As Word

Tastenabfrage = 0
Ton = 600
Ws = Getadc(7)
' Print "ws= " ; Ws
If Ws < 1010 Then
Select Case Ws
Case 400 To 455
Tastenabfrage = 1
Ton = 550
Case 335 To 380
Tastenabfrage = 2
Ton = 500
Case 250 To 305
Tastenabfrage = 3
Ton = 450
Case 180 To 220
Tastenabfrage = 4
Ton = 400
Case 100 To 130
Tastenabfrage = 5
Ton = 350
End Select
Sound Portd.7 , 400 , Ton 'BEEP
End If

End Function
</pre>

==Siehe auch==
* [[RN-Control]]
* [[RN-KeyLCD]]
* [[Bascom]]
* [[Avr]]
* [[Bascom und LCD's]]
* [[LCD an I2C Huckepack auf RN-Miniplatine]]

==Weblinks==

* [http://www.roboternetz.de/phpBB2/dload.php?action=file&file_id=341 Anleitung zum RN-LCDAdapter]

[[Kategorie:Quellcode Bascom]]
[[Kategorie:Robotikeinstieg]]
[[Kategorie:Praxis]]
[[Kategorie:Microcontroller]]
[[Kategorie:Projekte]]