BASIC

Author Topic: Wie mache ich blinkenden Text?  (Read 2389 times)

Offline Worebu

  • Mr. Polyvector
  • ***
  • Posts: 174
  • Seit gemoint liebe Gemeinde
    • View Profile
Wie mache ich blinkenden Text?
« on: 2012-Apr-26 »
Hallo,
gibt es bei GLBasic einen Befehl mit dem man einen Text blinken lassen kann?

THX
« Last Edit: 2012-Apr-27 by Schranz0r »
AMD Ryzen 5 2600, RTX2080 8GB, Kraken WaKü, 16GB, 120M.2, 500GB SSD, 1GB + 3 GB HD

Offline BumbleBee

  • Global Moderator
  • Prof. Inline
  • *******
  • Posts: 891
    • View Profile
Re: Text
« Reply #1 on: 2012-Apr-27 »
Brauchst nur den Text über einen Timer anzeigen. Also vielleicht nur jede Sekunde oder je nachdem wie du es haben willst

Cheers
The day will come...

CPU Intel(R) Core(TM) i5-3570k, 3.4GHz, AMD Radeon 7800 , 8 GB RAM, Windows 10 Home 64Bit

Offline backslider

  • Community Developer
  • Prof. Inline
  • ******
  • Posts: 892
    • View Profile
Re: Text
« Reply #2 on: 2012-Apr-27 »
Und da Du noch nicht viele Posts geschrieben hast Worebu und denke ich noch Anfänger bist...
Kriegst Du von mir nun einen Vorschlag, wie man sowas baut. :D
Ich bau es Dir gleich in einem sog. Type, damit Du gleich die neue Technik kennenlernst.

Code: GLBasic [Select]
// --------------------------------- //
// Project: blinkingText
// Start: Friday, April 27, 2012
// IDE Version: 10.202


// SETCURRENTDIR("Media") // go to media files

//Das ist der Type, indem du "gekapselt" deine Daten für den blinkenden Text hast
TYPE TBlinkingText
        text$ //beinhaltet den Text, der angezeigt werden soll
        timer% //ist der Timer
        blinkEach%
        mode% = 1 //0 = aus; 1 = an
       
        //Initialisiert die Variablen
        FUNCTION Init: text$, blinkEach% = 1000
                self.text$ = text$
                self.blinkEach = blinkEach
                self.timer = GETTIMERALL() + blinkEach
        ENDFUNCTION
       
        FUNCTION Draw: x%, y%
                IF self.timer < GETTIMERALL()
                        //ändert den Modus auf an oder aus
                        SELECT self.mode
                                CASE 0
                                        self.mode = 1
                                CASE 1
                                        self.mode = 0
                        ENDSELECT
                        self.timer = GETTIMERALL() + self.blinkEach //Nun den Timer wieder hochzählen (Gesamte Programmlaufzeit + die Timerzeit
                ENDIF
                IF self.mode = 1 THEN PRINT self.text$, x, y
        ENDFUNCTION
ENDTYPE

//Nun wird der BlinkText deklariert und initialisiert
LOCAL meinText AS TBlinkingText
        meinText.Init("GLBasic for Dummies :-)")
       
LOCAL meinZweiterText AS TBlinkingText
        meinZweiterText.Init("Und nun schneller...", 500)
       
LOCAL meinDritterText AS TBlinkingText
        meinDritterText.Init("Und noooooooch schneller", 250)
       
//Nun der MainLoop
WHILE TRUE
        meinText.Draw(100, 100)
        meinZweiterText.Draw(100, 150)
        meinDritterText.Draw(100, 200)
SHOWSCREEN
WEND
 

P.S. benenne deinen Threadtitel doch bitte in "Wie mache ich blinkenden Text?" oder so um. :)

Offline BumbleBee

  • Global Moderator
  • Prof. Inline
  • *******
  • Posts: 891
    • View Profile
Re: Text
« Reply #3 on: 2012-Apr-27 »
Cool backslider, und alles noch schön kommentiert. Das muß man sogar als Anfänger verstehen.  :good:

Cheers
The day will come...

CPU Intel(R) Core(TM) i5-3570k, 3.4GHz, AMD Radeon 7800 , 8 GB RAM, Windows 10 Home 64Bit

Offline backslider

  • Community Developer
  • Prof. Inline
  • ******
  • Posts: 892
    • View Profile
Re: Text
« Reply #4 on: 2012-Apr-27 »
Na das hoffe ich doch! :)
Ist ja auch auf Anfänger ausgelegt, dass sie es verstehen und gleich lernen, Types zu benutzen! :D

Offline Worebu

  • Mr. Polyvector
  • ***
  • Posts: 174
  • Seit gemoint liebe Gemeinde
    • View Profile
Re: Text
« Reply #5 on: 2012-Apr-27 »
Danke, die Idee habe ich gleich mal so "verbaut".
AMD Ryzen 5 2600, RTX2080 8GB, Kraken WaKü, 16GB, 120M.2, 500GB SSD, 1GB + 3 GB HD

Offline Schranz0r

  • Premium User :)
  • Administrator
  • Prof. Inline
  • *******
  • Posts: 5024
  • O Rly?
    • View Profile
Re: Text
« Reply #6 on: 2012-Apr-27 »
P.S. benenne deinen Threadtitel doch bitte in "Wie mache ich blinkenden Text?" oder so um. :)


Ich war so frei, macht schon mehr Sinn!
Sollten wir uns nochmal an das Community-Projekt machen?! :D
I <3 DGArray's :D

PC:
AMD Ryzen 7 1700 @3.9GHz, 16GB HyperX Fury 3000MHz Ram, ASUS ROG GTX 1060 STRIX 6GB, Windows 10 Pro 64Bit, MSi Tomahawk B350 Mainboard

Offline backslider

  • Community Developer
  • Prof. Inline
  • ******
  • Posts: 892
    • View Profile
Re: Wie mache ich blinkenden Text?
« Reply #7 on: 2012-Apr-29 »
Ja, dann finden andere das leichter mit der Suche... An sich hätte ich auch Lust, das Projekt weiterzumachen. :)