Buchempfehlung
Windows System Programming
Windows System Programming
Das Kompendium liefert viele interessante Informationen zur Windows-Programmierung auf Englisch. [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!

fb:porticula NoPaste

Info
Info / Hilfe
Liste
Übersicht / Liste
Neu
Datei hochladen
Suche
Quellcode suchen
Download
Dateidownload

Hintergrund scrollen

Uploader:Redakteurnemored
Datum/Zeit:31.05.2015 21:38:30

' Hintergrundscrolling abhängig von der Mausposition
' Scrolling bei Linksklick; Ende bei Tastendruck
'
' dient nur als Grundgerüst

#include once "fbgfx.bi"
dim as integer screenX = 1024, screenY = 768, mausX, mausY, mausButton, dx, dy
dim as double bx, by, posX = 0, posY = 0, geschwindigkeit = 0.1
screenres screenX, screenY, 32
line (screenX\2-200, screenY\2-200)-step(400, 400), &hff0000, bf ' Hintergrundbildchen ...
dim as FB.Image ptr hintergrund = imagecreate(screenX, screenY)
get (0, 0)-step(screenX-1, screenY-1), hintergrund

do
  if getmouse(mausX, mausY,, mausButton) = 0 andalso mausButton = 1 then
    dx = screenX\2 - mausX
    dy = screenY\2 - mausY
    by = sqr(geschwindigkeit^2/(dx^2/dy^2 + 1))
    bx = sqr(geschwindigkeit^2 - geschwindigkeit^2/(dx^2/dy^2 + 1))
    posX += bx*sgn(dx)
    posY += by*sgn(dy)
    put (posX, posY), hintergrund, pset
  end if
loop until len(inkey)