-
        

Ergebnis 1 bis 3 von 3

Thema: Hielfe zum C-Controlboard Pro Mega 128

  1. #1
    Neuer Benutzer Öfters hier
    Registriert seit
    20.04.2010
    Ort
    Hameln
    Alter
    24
    Beiträge
    8

    Hielfe zum C-Controlboard Pro Mega 128

    Anzeige

    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)

  2. #2
    Neuer Benutzer Öfters hier
    Registriert seit
    20.04.2010
    Ort
    Hameln
    Alter
    24
    Beiträge
    8
    He Leute was ist los?!

    will oder kann mir keiner Helfen,wo liegt das Problem?

  3. #3
    Erfahrener Benutzer Fleißiges Mitglied Avatar von Robotniks
    Registriert seit
    13.10.2007
    Beiträge
    168
    Hi,

    mach vor den Programmstart eine Tasterabfrage rein mit While Taster nicht gedrückt laufe ich hier in der Schleife... nur so als Tipp


    Grüße

Berechtigungen

  • Neue Themen erstellen: Nein
  • Themen beantworten: Nein
  • Anhänge hochladen: Nein
  • Beiträge bearbeiten: Nein
  •