Mr.highpower
22.04.2010, 22:16
Hallo
Ich 16J habe mir ein C-Controlboard Pro Mega 128
gekauft und und Auch schon mein erstes Programm zum laufen
gebracht :
'----------------------------------------------------------------------------------
'----- DEMO ----- DEMO ----- DEMO ----- DEMO ----- DEMO ----- DEMO ----- DEMO -----
'----------------------------------------------------------------------------------
'Projektname: Hallo_Welt.cprj
'Benötigte Libs´s: IntFunc_lib.cc, LCD_Lib.cc
'Routinen: Hallo Welt.cbas
'Autor: Ulli Sommer
'Datum: 03.08.2007
'Funktion: Text am LCD-Display ausgeben "Hallo Welt"
'Notitz: Am Ende wird noch hochgezählt, 0 bis 9
'----------------------------------------------------------------------------------
'Hauptprogramm
Sub main()
Dim zeile_1_text(9) As Char 'Charakter für Zeile 1 definieren
Dim zeile_2_text(9) As Char 'Charakter für Zeile 2 definieren
Dim zeile_3_text(9) As Char 'Charakter für Zeile 3 definieren
Dim zeile_4_text(9) As Char 'Charakter für Zeile 4 definieren
Dim zeile_5_text(9) As Char 'Charakter für Zeile 5 definieren
Dim zeile_6_text(9) As Char 'Charakter für Zeile 6 definieren
Dim zeile_7_text(9) As Char 'Charakter für Zeile 7 definieren
Dim zeile_8_text(9) As Char 'Charakter für Zeile 8 definieren
Dim zeile_9_text(9) As Char 'Charakter für Zeile 9 definieren
Dim zeile_10_text(9) As Char 'Charakter für Zeile 10 definieren
Dim zeile_11_text(9) As Char 'Charakter für Zeile 11 definieren
Dim zeile_12_text(9) As Char 'Charakter für Zeile 12 definieren
Dim zeile_13_text(9) As Char 'Charakter für Zeile 13 definieren
Dim zeile_14_text(9) As Char 'Charakter für Zeile 14 definieren
Dim zeile_15_text(9) As Char 'Charakter für Zeile 15 definieren
Dim zeile_16_text(9) As Char 'Charakter für Zeile 16 definieren
Dim zeile_17_text(9) As Char 'Charakter für Zeile 17 definieren
Dim zeile_18_text(9) As Char 'Charakter für Zeile 18 definieren
Dim zeile_19_text(9) As Char 'Charakter für Zeile 19 definieren
Dim zeile_20_text(9) As Char 'Charakter für Zeile 20 definieren
Dim zeile_1_Zahlen As Word 'Zahlen für Zeile 1 definieren
Dim zeile_2_Zahlen As Word 'Zahlen für Zeile 2 definieren
Dim zeile_3_Zahlen As Word 'Zahlen für Zeile 3 definieren
Dim zeile_4_Zahlen As Word 'Zahlen für Zeile 4 definieren
Dim zeile_5_Zahlen As Word 'Zahlen für Zeile 5 definieren
Dim zeile_6_Zahlen As Word 'Zahlen für Zeile 6 definieren
Dim zeile_7_Zahlen As Word 'Zahlen für Zeile 7 definieren
Dim zeile_8_Zahlen As Word 'Zahlen für Zeile 8 definieren
Dim zeile_9_Zahlen As Word 'Zahlen für Zeile 9 definieren
Dim zeile_10_Zahlen As Word 'Zahlen für Zeile 10 definieren
Dim zeile_11_Zahlen As Word 'Zahlen für Zeile 11 definieren
Dim zeile_12_Zahlen As Word 'Zahlen für Zeile 12 definieren
Dim zeile_13_Zahlen As Word 'Zahlen für Zeile 13 definieren
Dim zeile_14_Zahlen As Word 'Zahlen für Zeile 14 definieren
Dim zeile_15_Zahlen As Word 'Zahlen für Zeile 15 definieren
Dim zeile_16_Zahlen As Word 'Zahlen für Zeile 16 definieren
Dim zeile_17_Zahlen As Word 'Zahlen für Zeile 17 definieren
Dim zeile_18_Zahlen As Word 'Zahlen für Zeile 18 definieren
Dim zeile_19_Zahlen As Word 'Zahlen für Zeile 19 definieren
Dim zeile_20_Zahlen As Word 'Zahlen für Zeile 20 definieren
Dim Counter As Word
Lab Start
lcd_start() 'LCD Initialisieren
zeile_1_text = "Text" 'Text für Zeile 1
zeile_2_text = "Text" 'Text für Zeile 2
zeile_3_text = "Text" 'Text für Zeile 1
zeile_4_text = "Text" 'Text für Zeile 2
zeile_5_text = "Text" 'Text für Zeile 1
zeile_6_text = "Text" 'Text für Zeile 2
zeile_7_text = "Text" 'Text für Zeile 1
zeile_8_text = "Text" 'Text für Zeile 2
zeile_9_text = "Text" 'Text für Zeile 1
zeile_10_text = "Text" 'Text für Zeile 2
zeile_11_text = "Text" 'Text für Zeile 1
zeile_12_text = "Text" 'Text für Zeile 2
zeile_13_text = "Text" 'Text für Zeile 1
zeile_14_text = "Text" 'Text für Zeile 2
zeile_15_text = "Text" 'Text für Zeile 1
zeile_16_text = "Text" 'Text für Zeile 2
zeile_17_text = "Text" 'Text für Zeile 1
zeile_18_text = "Text" 'Text für Zeile 2
zeile_19_text = "Text" 'Text für Zeile 1
zeile_20_text = "Text" 'Text für Zeile 2
'Text ausgeben
LCD_CursorPos(&H0) 'Cursor auf Zeile 1 Pos 0 (0 bis 31)
LCD_WriteText(zeile_1_text) 'Zeile 1 schreiben
LCD_CursorPos(&H40) 'Cursor auf Zeile 2 Pos 0 (40 bis 71)
LCD_WriteText(zeile_2_text) 'Zeile 2 schreiben
AbsDelay(6000) '6sec warten
lcd_start() 'LCD Initialisieren
'Text ausgeben
LCD_CursorPos(&H0) 'Cursor auf Zeile 3 Pos 0 (0 bis 31)
LCD_WriteText(zeile_3_text) 'Zeile 3 schreiben
LCD_CursorPos(&H40) 'Cursor auf Zeile 4 Pos 0 (40 bis 71)
LCD_WriteText(zeile_4_text) 'Zeile 4 schreiben
AbsDelay(6000) '6sec warten
lcd_start() 'LCD Initialisieren
'Text ausgeben
LCD_CursorPos(&H0) 'Cursor auf Zeile 5 Pos 0 (0 bis 31)
LCD_WriteText(zeile_5_text) 'Zeile 5 schreiben
LCD_CursorPos(&H40) 'Cursor auf Zeile 6 Pos 0 (40 bis 71)
LCD_WriteText(zeile_6_text) 'Zeile 6 schreiben
AbsDelay(6000) '6sec warten
lcd_start() 'LCD Initialisieren
'Text ausgeben
LCD_CursorPos(&H0) 'Cursor auf Zeile 7 Pos 0 (0 bis 31)
LCD_WriteText(zeile_7_text) 'Zeile 7 schreiben
LCD_CursorPos(&H40) 'Cursor auf Zeile 8 Pos 0 (40 bis 71)
LCD_WriteText(zeile_8_text) 'Zeile 8 schreiben
AbsDelay(6000) '6sec warten
lcd_start() 'LCD Initialisieren
'Text ausgeben
LCD_CursorPos(&H0) 'Cursor auf Zeile 9 Pos 0 (0 bis 31)
LCD_WriteText(zeile_9_text) 'Zeile 9 schreiben
LCD_CursorPos(&H40) 'Cursor auf Zeile 10 Pos 0 (40 bis 71)
LCD_WriteText(zeile_10_text) 'Zeile 10 schreiben
AbsDelay(6000) '6sec warten
lcd_start() 'LCD Initialisieren
'Text ausgeben
LCD_CursorPos(&H0) 'Cursor auf Zeile 11 Pos 0 (0 bis 31)
LCD_WriteText(zeile_11_text) 'Zeile 11 schreiben
LCD_CursorPos(&H40) 'Cursor auf Zeile 12 Pos 0 (40 bis 71)
LCD_WriteText(zeile_12_text) 'Zeile 12 schreiben
AbsDelay(7000) '7sec warten
lcd_start()
'Text ausgeben
LCD_CursorPos(&H0) 'Cursor auf Zeile 13 Pos 0 (0 bis 31)
LCD_WriteText(zeile_13_text) 'Zeile 13 schreiben
LCD_CursorPos(&H40) 'Cursor auf Zeile 14 Pos 0 (40 bis 71)
LCD_WriteText(zeile_14_text) 'Zeile 14 schreiben
AbsDelay(7000) '7sec warten
lcd_start()
'Text ausgeben
LCD_CursorPos(&H0) 'Cursor auf Zeile 15 Pos 0 (0 bis 31)
LCD_WriteText(zeile_15_text) 'Zeile 15 schreiben
LCD_CursorPos(&H40) 'Cursor auf Zeile 16 Pos 0 (40 bis 71)
LCD_WriteText(zeile_16_text) 'Zeile 16 schreiben
AbsDelay(5000) '5sec warten
lcd_start()
'Text ausgeben
LCD_CursorPos(&H0) 'Cursor auf Zeile 17 Pos 0 (0 bis 31)
LCD_WriteText(zeile_17_text) 'Zeile 17 schreiben
LCD_CursorPos(&H40) 'Cursor auf Zeile 18 Pos 0 (40 bis 71)
LCD_WriteText(zeile_18_text) 'Zeile 18 schreiben
AbsDelay(5000) '5sec warten
lcd_start()
'Text ausgeben
LCD_CursorPos(&H0) 'Cursor auf Zeile 19 Pos 0 (0 bis 31)
LCD_WriteText(zeile_19_text) 'Zeile 19 schreiben
LCD_CursorPos(&H40) 'Cursor auf Zeile 20 Pos 0 (40 bis 71)
LCD_WriteText(zeile_20_text) 'Zeile 20 schreiben
AbsDelay(7000) '7sec warten
lcd_start()
Goto Start
Do While 1
AbsDelay(250)
End While
End Sub
'---------------------------------------------
'---| ab hier folgen Subs und Funktionen |----
'---------------------------------------------
'LCD Initialisieren
Sub lcd_start()
LCD_Init() 'LCD high-level Initialisierung
LCD_ClearLCD() 'LCD Display löschen
LCD_CursorPos(&H0) 'Curser Zeile 1 auf Pos 0
LCD_CursorOn() 'Curser ausschalten
End Sub
Das Programm basiert auf eine Demo die Hallo World anzeigt.
Es fehlt mir selber sehr schwer brauchbare Unterlagen zu finden.
Deshalb kann ich und muss ich mir alles aus Demos herbeileiten.
Jetzt möchte ich mein Programm auch in der Praxis zum Einsatz bringen Z.b Roboter,Kurze Botschaften.
Meine Frage ist : Wie kann ich das so programmieren das sich das Programm mit Tastern starten lässt z.b (board sw1/sw2)
Z.b Taster 1=Motor startet=Display startet und zeigt an (Motor an) :mrgreen: O:)
Ich 16J habe mir ein C-Controlboard Pro Mega 128
gekauft und und Auch schon mein erstes Programm zum laufen
gebracht :
'----------------------------------------------------------------------------------
'----- DEMO ----- DEMO ----- DEMO ----- DEMO ----- DEMO ----- DEMO ----- DEMO -----
'----------------------------------------------------------------------------------
'Projektname: Hallo_Welt.cprj
'Benötigte Libs´s: IntFunc_lib.cc, LCD_Lib.cc
'Routinen: Hallo Welt.cbas
'Autor: Ulli Sommer
'Datum: 03.08.2007
'Funktion: Text am LCD-Display ausgeben "Hallo Welt"
'Notitz: Am Ende wird noch hochgezählt, 0 bis 9
'----------------------------------------------------------------------------------
'Hauptprogramm
Sub main()
Dim zeile_1_text(9) As Char 'Charakter für Zeile 1 definieren
Dim zeile_2_text(9) As Char 'Charakter für Zeile 2 definieren
Dim zeile_3_text(9) As Char 'Charakter für Zeile 3 definieren
Dim zeile_4_text(9) As Char 'Charakter für Zeile 4 definieren
Dim zeile_5_text(9) As Char 'Charakter für Zeile 5 definieren
Dim zeile_6_text(9) As Char 'Charakter für Zeile 6 definieren
Dim zeile_7_text(9) As Char 'Charakter für Zeile 7 definieren
Dim zeile_8_text(9) As Char 'Charakter für Zeile 8 definieren
Dim zeile_9_text(9) As Char 'Charakter für Zeile 9 definieren
Dim zeile_10_text(9) As Char 'Charakter für Zeile 10 definieren
Dim zeile_11_text(9) As Char 'Charakter für Zeile 11 definieren
Dim zeile_12_text(9) As Char 'Charakter für Zeile 12 definieren
Dim zeile_13_text(9) As Char 'Charakter für Zeile 13 definieren
Dim zeile_14_text(9) As Char 'Charakter für Zeile 14 definieren
Dim zeile_15_text(9) As Char 'Charakter für Zeile 15 definieren
Dim zeile_16_text(9) As Char 'Charakter für Zeile 16 definieren
Dim zeile_17_text(9) As Char 'Charakter für Zeile 17 definieren
Dim zeile_18_text(9) As Char 'Charakter für Zeile 18 definieren
Dim zeile_19_text(9) As Char 'Charakter für Zeile 19 definieren
Dim zeile_20_text(9) As Char 'Charakter für Zeile 20 definieren
Dim zeile_1_Zahlen As Word 'Zahlen für Zeile 1 definieren
Dim zeile_2_Zahlen As Word 'Zahlen für Zeile 2 definieren
Dim zeile_3_Zahlen As Word 'Zahlen für Zeile 3 definieren
Dim zeile_4_Zahlen As Word 'Zahlen für Zeile 4 definieren
Dim zeile_5_Zahlen As Word 'Zahlen für Zeile 5 definieren
Dim zeile_6_Zahlen As Word 'Zahlen für Zeile 6 definieren
Dim zeile_7_Zahlen As Word 'Zahlen für Zeile 7 definieren
Dim zeile_8_Zahlen As Word 'Zahlen für Zeile 8 definieren
Dim zeile_9_Zahlen As Word 'Zahlen für Zeile 9 definieren
Dim zeile_10_Zahlen As Word 'Zahlen für Zeile 10 definieren
Dim zeile_11_Zahlen As Word 'Zahlen für Zeile 11 definieren
Dim zeile_12_Zahlen As Word 'Zahlen für Zeile 12 definieren
Dim zeile_13_Zahlen As Word 'Zahlen für Zeile 13 definieren
Dim zeile_14_Zahlen As Word 'Zahlen für Zeile 14 definieren
Dim zeile_15_Zahlen As Word 'Zahlen für Zeile 15 definieren
Dim zeile_16_Zahlen As Word 'Zahlen für Zeile 16 definieren
Dim zeile_17_Zahlen As Word 'Zahlen für Zeile 17 definieren
Dim zeile_18_Zahlen As Word 'Zahlen für Zeile 18 definieren
Dim zeile_19_Zahlen As Word 'Zahlen für Zeile 19 definieren
Dim zeile_20_Zahlen As Word 'Zahlen für Zeile 20 definieren
Dim Counter As Word
Lab Start
lcd_start() 'LCD Initialisieren
zeile_1_text = "Text" 'Text für Zeile 1
zeile_2_text = "Text" 'Text für Zeile 2
zeile_3_text = "Text" 'Text für Zeile 1
zeile_4_text = "Text" 'Text für Zeile 2
zeile_5_text = "Text" 'Text für Zeile 1
zeile_6_text = "Text" 'Text für Zeile 2
zeile_7_text = "Text" 'Text für Zeile 1
zeile_8_text = "Text" 'Text für Zeile 2
zeile_9_text = "Text" 'Text für Zeile 1
zeile_10_text = "Text" 'Text für Zeile 2
zeile_11_text = "Text" 'Text für Zeile 1
zeile_12_text = "Text" 'Text für Zeile 2
zeile_13_text = "Text" 'Text für Zeile 1
zeile_14_text = "Text" 'Text für Zeile 2
zeile_15_text = "Text" 'Text für Zeile 1
zeile_16_text = "Text" 'Text für Zeile 2
zeile_17_text = "Text" 'Text für Zeile 1
zeile_18_text = "Text" 'Text für Zeile 2
zeile_19_text = "Text" 'Text für Zeile 1
zeile_20_text = "Text" 'Text für Zeile 2
'Text ausgeben
LCD_CursorPos(&H0) 'Cursor auf Zeile 1 Pos 0 (0 bis 31)
LCD_WriteText(zeile_1_text) 'Zeile 1 schreiben
LCD_CursorPos(&H40) 'Cursor auf Zeile 2 Pos 0 (40 bis 71)
LCD_WriteText(zeile_2_text) 'Zeile 2 schreiben
AbsDelay(6000) '6sec warten
lcd_start() 'LCD Initialisieren
'Text ausgeben
LCD_CursorPos(&H0) 'Cursor auf Zeile 3 Pos 0 (0 bis 31)
LCD_WriteText(zeile_3_text) 'Zeile 3 schreiben
LCD_CursorPos(&H40) 'Cursor auf Zeile 4 Pos 0 (40 bis 71)
LCD_WriteText(zeile_4_text) 'Zeile 4 schreiben
AbsDelay(6000) '6sec warten
lcd_start() 'LCD Initialisieren
'Text ausgeben
LCD_CursorPos(&H0) 'Cursor auf Zeile 5 Pos 0 (0 bis 31)
LCD_WriteText(zeile_5_text) 'Zeile 5 schreiben
LCD_CursorPos(&H40) 'Cursor auf Zeile 6 Pos 0 (40 bis 71)
LCD_WriteText(zeile_6_text) 'Zeile 6 schreiben
AbsDelay(6000) '6sec warten
lcd_start() 'LCD Initialisieren
'Text ausgeben
LCD_CursorPos(&H0) 'Cursor auf Zeile 7 Pos 0 (0 bis 31)
LCD_WriteText(zeile_7_text) 'Zeile 7 schreiben
LCD_CursorPos(&H40) 'Cursor auf Zeile 8 Pos 0 (40 bis 71)
LCD_WriteText(zeile_8_text) 'Zeile 8 schreiben
AbsDelay(6000) '6sec warten
lcd_start() 'LCD Initialisieren
'Text ausgeben
LCD_CursorPos(&H0) 'Cursor auf Zeile 9 Pos 0 (0 bis 31)
LCD_WriteText(zeile_9_text) 'Zeile 9 schreiben
LCD_CursorPos(&H40) 'Cursor auf Zeile 10 Pos 0 (40 bis 71)
LCD_WriteText(zeile_10_text) 'Zeile 10 schreiben
AbsDelay(6000) '6sec warten
lcd_start() 'LCD Initialisieren
'Text ausgeben
LCD_CursorPos(&H0) 'Cursor auf Zeile 11 Pos 0 (0 bis 31)
LCD_WriteText(zeile_11_text) 'Zeile 11 schreiben
LCD_CursorPos(&H40) 'Cursor auf Zeile 12 Pos 0 (40 bis 71)
LCD_WriteText(zeile_12_text) 'Zeile 12 schreiben
AbsDelay(7000) '7sec warten
lcd_start()
'Text ausgeben
LCD_CursorPos(&H0) 'Cursor auf Zeile 13 Pos 0 (0 bis 31)
LCD_WriteText(zeile_13_text) 'Zeile 13 schreiben
LCD_CursorPos(&H40) 'Cursor auf Zeile 14 Pos 0 (40 bis 71)
LCD_WriteText(zeile_14_text) 'Zeile 14 schreiben
AbsDelay(7000) '7sec warten
lcd_start()
'Text ausgeben
LCD_CursorPos(&H0) 'Cursor auf Zeile 15 Pos 0 (0 bis 31)
LCD_WriteText(zeile_15_text) 'Zeile 15 schreiben
LCD_CursorPos(&H40) 'Cursor auf Zeile 16 Pos 0 (40 bis 71)
LCD_WriteText(zeile_16_text) 'Zeile 16 schreiben
AbsDelay(5000) '5sec warten
lcd_start()
'Text ausgeben
LCD_CursorPos(&H0) 'Cursor auf Zeile 17 Pos 0 (0 bis 31)
LCD_WriteText(zeile_17_text) 'Zeile 17 schreiben
LCD_CursorPos(&H40) 'Cursor auf Zeile 18 Pos 0 (40 bis 71)
LCD_WriteText(zeile_18_text) 'Zeile 18 schreiben
AbsDelay(5000) '5sec warten
lcd_start()
'Text ausgeben
LCD_CursorPos(&H0) 'Cursor auf Zeile 19 Pos 0 (0 bis 31)
LCD_WriteText(zeile_19_text) 'Zeile 19 schreiben
LCD_CursorPos(&H40) 'Cursor auf Zeile 20 Pos 0 (40 bis 71)
LCD_WriteText(zeile_20_text) 'Zeile 20 schreiben
AbsDelay(7000) '7sec warten
lcd_start()
Goto Start
Do While 1
AbsDelay(250)
End While
End Sub
'---------------------------------------------
'---| ab hier folgen Subs und Funktionen |----
'---------------------------------------------
'LCD Initialisieren
Sub lcd_start()
LCD_Init() 'LCD high-level Initialisierung
LCD_ClearLCD() 'LCD Display löschen
LCD_CursorPos(&H0) 'Curser Zeile 1 auf Pos 0
LCD_CursorOn() 'Curser ausschalten
End Sub
Das Programm basiert auf eine Demo die Hallo World anzeigt.
Es fehlt mir selber sehr schwer brauchbare Unterlagen zu finden.
Deshalb kann ich und muss ich mir alles aus Demos herbeileiten.
Jetzt möchte ich mein Programm auch in der Praxis zum Einsatz bringen Z.b Roboter,Kurze Botschaften.
Meine Frage ist : Wie kann ich das so programmieren das sich das Programm mit Tastern starten lässt z.b (board sw1/sw2)
Z.b Taster 1=Motor startet=Display startet und zeigt an (Motor an) :mrgreen: O:)