 |
Das deutsche QBasic- und FreeBASIC-Forum
Für euch erreichbar unter qb-forum.de, fb-forum.de und freebasic-forum.de!
|
| Vorheriges Thema anzeigen :: Nächstes Thema anzeigen |
| Autor |
Nachricht |
masterherpo
Anmeldungsdatum: 22.01.2006
Beiträge: 102
|
 Verfasst am: 02.07.2007, 11:10 Titel: Erdbebeneffekt? |
 |
|
Hallo,
ich wollte mal Fragen, ob es irgendwie möglich ist das Programmfenster (oder den Bildschirm bei Vollbild) zitter-artig-wackeln (bzw. vibrieren) zu lassen (oder den angezeigten Text), um einen Art "Erdbebeneffekt" zu erzeugen? |
|
| Nach oben |
|
 |
PMedia
Anmeldungsdatum: 14.08.2006
Beiträge: 2847
|
| Verfasst am: 02.07.2007, 11:12 Titel: |
|
|
| Im Vollbild wüsste ich eine Möglichkeit, im Fenstermodus könnte es mit fbgfx leicht kompliziert werden und würde nur unter Windows gehn. |
|
| Nach oben |
|
|
Eternal_pain
Anmeldungsdatum: 08.08.2006
Beiträge: 1783
Wohnort: BW/KA
|
| Verfasst am: 02.07.2007, 11:39 Titel: |
|
|
Ein kleine Beispiel....
| Code: |
Randomize Timer
const B=800
const H=600
Screen 19,32
for l as integer=0 to 99
Color Int(rnd*&hFFFFFF)
?"jhdkfjhdskjfhksjhfksdjhfkjdshf ";
next l
Dim ScreenQuake as any ptr
ScreenQuake=ImageCreate(B,H)
Get (0,0)-(B-1,H-1),ScreenQuake
Dim as Integer X,XCutL,XCutR,XS
Dim as Integer Y,YCutT,YCutB,YS
Do
XS=0:XCutL=0:XCutR=0
YS=0:YCutT=0:YCutB=0
X=int(rnd*10)-5
Y=int(rnd*10)-5
IF X<0 Then XCutL=4+X Else XCutR=X:XS=X
IF Y<0 Then YCutT=4+Y Else YCutB=Y:YS=Y
Put (XS,YS),ScreenQuake,(XCutL,YCutT)-(B-1-XCutR,H-1-YCutB),Pset
Loop Until Multikey (&h01)
ImageDestroy(ScreenQuake)
Cls
sleep
End
|
_________________
 |
|
| Nach oben |
|
|
masterherpo
Anmeldungsdatum: 22.01.2006
Beiträge: 102
|
| Verfasst am: 02.07.2007, 14:15 Titel: |
|
|
| Eternal_pain hat Folgendes geschrieben: | Ein kleine Beispiel....
| Code: |
Randomize Timer
const B=800
const H=600
Screen 19,32
for l as integer=0 to 99
Color Int(rnd*&hFFFFFF)
?"jhdkfjhdskjfhksjhfksdjhfkjdshf ";
next l
Dim ScreenQuake as any ptr
ScreenQuake=ImageCreate(B,H)
Get (0,0)-(B-1,H-1),ScreenQuake
Dim as Integer X,XCutL,XCutR,XS
Dim as Integer Y,YCutT,YCutB,YS
Do
XS=0:XCutL=0:XCutR=0
YS=0:YCutT=0:YCutB=0
X=int(rnd*10)-5
Y=int(rnd*10)-5
IF X<0 Then XCutL=4+X Else XCutR=X:XS=X
IF Y<0 Then YCutT=4+Y Else YCutB=Y:YS=Y
Put (XS,YS),ScreenQuake,(XCutL,YCutT)-(B-1-XCutR,H-1-YCutB),Pset
Loop Until Multikey (&h01)
ImageDestroy(ScreenQuake)
Cls
sleep
End
|
|
Das ist super 
Genau sowas in der Art wollte ich haben
Dankeschön   |
|
| Nach oben |
|
|
|
|
Du kannst keine Beiträge in dieses Forum schreiben.
Du kannst auf Beiträge in diesem Forum nicht antworten.
Du kannst deine Beiträge in diesem Forum nicht bearbeiten.
Du kannst deine Beiträge in diesem Forum nicht löschen.
Du kannst an Umfragen in diesem Forum nicht mitmachen.
|
|
FAQ
Suchen
Mitgliederliste
Benutzergruppen
Registrieren
Profil
Einloggen, um private Nachrichten zu lesen
Login
