Buchempfehlung
Mikrocomputertechnik mit Controllern der Atmel AVR-RISC-Familie
Mikrocomputertechnik mit Controllern der Atmel AVR-RISC-Familie
Umfassend, aber leicht verständlich führt dieses Buch in die Programmierung von ATMEL AVR Mikrocontrollern ein. [Mehr Infos...]
FreeBASIC-Chat
Es sind Benutzer im FreeBASIC-Chat online.
(Stand:  )
FreeBASIC bei Twitter
Twitter FreeBASIC-Nachrichten jetzt auch über Twitter erhalten. Follow us!

Code-Beispiel

Code-Beispiele » Maus und Tastatur

Maus (Für Anfänger)

Lizenz:Erster Autor:Letzte Bearbeitung:
k. A.Mitgliedhelloworld 16.04.2010
Screen 19, 32
Dim As Any Ptr bild
Dim As String datei, lizenz
Dim As Integer breite, hoehe
Dim As Integer x, y, wheel, buttons

datei = "DeinBild.bmp"
breite = 467
hoehe = 236

bild = ImageCreate (breite, hoehe, 0)
BLoad datei, bild
Put (100, 100), bild, PSet


Do
    GetMouse x, y, wheel, buttons

    If buttons = 1 Then
        Locate 1, 1
        Print x, y

        If x < 280 Then
            Print "c"
        Else
            Print "b"
        EndIf
    EndIf

    Sleep 1 'Auslastung des Prozessors in der Schleife senken

Loop Until InKey = Chr(27) 'Die Schleife mit ESC verlassen

ImageDestroy(bild) 'Nicht vergessen - den Speicher für das Bild wieder freigeben



Nun folgt eine kleine Erklärung:
Mit

GetMouse x, y, wheel, buttons

wird der Zustand der Maus abgerufen
x = Die X Koordinate
y = Die Y Koordinate
wheel = Mausrad-Stellung
buttons = Maustasten : 0 keine, 1 linke, 2 rechte

Mit dem If wird ermittelt welche Hälfte des bildes geklickt wird
(die Koordinate die gewählt werden muss kann so ermittelt werden:

Screen 19, 32
Dim As Any Ptr bild
Dim As String datei, lizenz
Dim As Integer breite, hoehe
Dim As Integer x, y, wheel, buttons

datei = "DeinBild.bmp"
breite = 467
hoehe = 236

bild = ImageCreate (breite, hoehe, 0)
BLoad datei, bild
Put (100, 100), bild, PSet


Do
    GetMouse x, y, wheel, buttons

    Print x, y

    Sleep 1 'Auslastung des Prozessors in der Schleife senken

Loop Until InKey = Chr(27) 'Die Schleife mit ESC verlassen

ImageDestroy(bild) 'Nicht vergessen - den Speicher für das Bild wieder freigeben

Zusätzliche Informationen und Funktionen
  • Das Code-Beispiel wurde am 03.04.2010 von Mitgliedhelloworld angelegt.
  • Die aktuellste Version wurde am 16.04.2010 von RedakteurMOD gespeichert.
  Bearbeiten Bearbeiten  

  Versionen Versionen