Scrollender Graph.

[Frabbing]

Als Basis zum herum spielen:

'
' © Frank Abbing für Paules-PC-Forum
' http://www.paules-pc-forum.de/forum/xprofan/
'

$H windows.ph

Declare rect#, region&, x&, y&
Dim rect#, 16

WindowStyle 512 + 26
Cls
~GetWindowRect(%hwnd, rect#)
region& = ~CreateRectRgn(0 ,0, Width(%hwnd), Height(%hwnd)) 
    
SetTimer 10

y& = Height(%hwnd)/2

While 1
  WaitInput
  
  ~ScrollDC(%hdc, -1, 0, 0, 0, region&, rect#)
  SetPixel (Width(%hwnd)-2), (Height(%hwnd)/2), RGB(200,200,200)
  SetPixel (Width(%hwnd)-2), y&, RGB(0,0,0)
  
  If Rnd(2) = 0
    y& = y& + Rnd(4)
  Else
    y& = y& - Rnd(4)
  EndIf
  Case y& >= Width(%hwnd): y& = Width(%hwnd)
  Case y& <= 0: y& = 0
  
  Case %key=2: BREAK
  
EndWhile

KillTimer
Dispose rect#

End

[p. specht]

Cool, ein Pseudo Random Walk! Das freut sicher alle MonteCarlo-Simulanten

[Frabbing]

Stimmt, da gabs mal so ein uraltes C64-Spielchen...

[Frabbing]

Hier noch mal eine Variation auf einem Static-Control:

'
' © Frank Abbing für Paules-PC-Forum
' http://www.paules-pc-forum.de/forum/xprofan/
'

$H windows.ph

Declare rect#, region&, x&, y&, static&, dc&
Dim rect#, 16

Def SetWindowPixel(4) ! "gdi32","SetPixel"

WindowStyle 512 + 26
Cls

static& = Create("Text", %hwnd, "", 80, 80, 400, 200)

~GetWindowRect(static&, rect#)
region& = ~CreateRectRgn(Long(rect#,0) ,Long(rect#,4), Width(static&), Height(static&))

SetTimer 10

y& = Height(static&)/2
dc& = ~GetWindowDC(static&)
While 1
  WaitInput

  ~ScrollDC(dc&, -1, 0, 0, 0, region&, rect#)
  SetWindowPixel(dc&, (Width(static&)-2), (Height(static&)/2), RGB(200,200,200))
  SetWindowPixel(dc&, (Width(static&)-2), y&, RGB(0,0,0))

  If Rnd(2) = 0
    y& = y& + Rnd(4)
  Else
    y& = y& - Rnd(4)
  EndIf
  Case y& >= Width(static&): y& = Width(static&)
  Case y& <= 0: y& = 0

  Case %key=2: BREAK

EndWhile

KillTimer
Dispose rect#

End

[p. specht]

TOLL ... und durch eine kleine Änderung von 0 auf 1 lässt sich die Entwicklung des Goldpreises in den letzten Monaten simulieren (Scherz):

~ScrollDC(dc&, -1, +1), 0, 0, region&, rect#)

Interessante Effekte ergeben sich auch bei

~ScrollDC(dc&, -2, 0, 0, 0, region&, rect#)

[Frabbing]

Genau, einfach mal rumprobieren.
Interessant dürfte auch sein, wenn mal mal keine rechteckige Region verwendet, sondern z.B. eine runde.