Anonymous user
Pinstripe/Display: Difference between revisions
no edit summary
(added FreeBASIC) |
No edit summary |
||
Line 352:
'Print : Print "hit any key to end program"
Sleep
End</lang>
=={{header|Gambas}}==
<lang gambas>'WARNING this takes a time to display
Public Sub Form_Open()
Dim iColour As Integer[] = [Color.Black, Color.white]
Dim hPanel As Panel
Dim siCount, siCounter, siSet As Short
With Me
.Arrangement = Arrange.Row
.Border = False
.Height = 1080
.Width = 400
.Fullscreen = True
End With
For siCounter = 1 To 4
For siCount = 0 To Desktop.Width Step siCounter
hpanel = New Panel(Me)
hpanel.Width = siCounter
hpanel.Height = Desktop.Height / 4
HPanel.Background = iColour[siSet]
Inc siSet
If siSet > 1 Then siSet = 0
Next
Next
End</lang>
| |||