win1.class

来自「Gambas is a graphical development enviro」· CLASS 代码 · 共 94 行

' Gambas class file


STATIC PUBLIC SUB Main()

  ' Took me a loong time before i found out that i had to 
  ' do this to actually see someting on the screen.  

  DIM blights AS Form
  
  blights = NEW win1
  blights.Show ' Show the lights
  
  
END





PUBLIC SUB Timer1_Timer()
    
  DIM l AS Integer

  ' This will get a random value for each of the 8 lights
  ' and turn the lights on or off.


  ' Light 1
  l = Rnd()*2
  IF l = 0 THEN
    l1.Picture = Picture["bloff.xpm"]
  ELSE
    l1.Picture = Picture["blon.xpm"]
  ENDIF

  ' Light 2
  l = Rnd()*2
  IF l = 0 THEN
    l2.Picture = Picture["bloff.xpm"]
  ELSE
    l2.Picture = Picture["blon.xpm"]
  ENDIF

  ' Light 3
  l = Rnd()*2
  IF l = 0 THEN
    l3.Picture = Picture["bloff.xpm"]
  ELSE
    l3.Picture = Picture["blon.xpm"]
  ENDIF

  ' Light 4
  l = Rnd()*2
  IF l = 0 THEN
    l4.Picture = Picture["bloff.xpm"]
  ELSE
    l4.Picture = Picture["blon.xpm"]
  ENDIF

  ' Light 5
  l = Rnd()*2
  IF l = 0 THEN
    l5.Picture = Picture["bloff.xpm"]
  ELSE
    l5.Picture = Picture["blon.xpm"]
  ENDIF

  ' Light 6
  l = Rnd()*2
  IF l = 0 THEN
    l6.Picture = Picture["bloff.xpm"]
  ELSE
    l6.Picture = Picture["blon.xpm"]
  ENDIF

  ' Light 7
  l = Rnd()*2
  IF l = 0 THEN
    l7.Picture = Picture["bloff.xpm"]
  ELSE
    l7.Picture = Picture["blon.xpm"]
  ENDIF

  ' Light 8
  l = Rnd()*2
  IF l = 0 THEN
    l8.Picture = Picture["bloff.xpm"]
  ELSE
    l8.Picture = Picture["blon.xpm"]
  ENDIF

END