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

Offline Worebu

  • Mr. Polyvector
  • ***
  • Posts: 185
  • 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 »
Intel I7 - RTX 2080 Super, WaKü, 32GB RAM, 512SSD, 4TB 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: 185
  • Seit gemoint liebe Gemeinde
    • View Profile
Re: Text
« Reply #5 on: 2012-Apr-27 »
Danke, die Idee habe ich gleich mal so "verbaut".
Intel I7 - RTX 2080 Super, WaKü, 32GB RAM, 512SSD, 4TB HD,

Offline Schranz0r

  • Premium User :)
  • Administrator
  • Prof. Inline
  • *******
  • Posts: 5056
  • 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. :)