RULE test

Algemene discussies en vragen omtrent Liberty BASIC programma's. Stuur zoveel mogelijk delen van listings (snippets) in als je hulp wilt.

Moderators: anthonio, Abcott

RULE test

Berichtdoor bluatigro » ma jun 23, 2014 10:13 am

hier bij n test van alle rules
Code: Selecteer alles
WindowWidth = DisplayWidth
WindowHeight = DisplayHeight
global winx , winy , clr$
winx = WindowWidth
winy = WindowHeight
clr$ = "black red green yellow blue white"
nomainwin
open "rule test"for graphics as #m
  #m "trapclose [quit]"
  #m "fill lightgray"
  for kl = 1 to 6
    #m "color " ; word$( clr$ , kl )
    #m "backcolor " ; word$( clr$ , kl )
    #m "goto " ; kl * 200 ; " 0"
    #m "down"
    #m "boxfilled " ; kl * 200 + 100 ; " " ; winy
    #m "up"
  next kl
  #m "size 5"

  #m "rule " ; _R2_BLACK
  call horizontal 0
  #m "rule " ; _R2_WHITE
  call horizontal 50
  #m "rule " ; _R2_NOP
  call horizontal 100
  #m "rule " ; _R2_NOT
  call horizontal 150
  #m "rule " ; _R2_COPYPEN          '' de default LB teken regels
  call horizontal 200
  #m "rule " ; _R2_NOTCOPYPEN
  call horizontal 250
  #m "rule " ; _R2_MERGEPENNOT
  call horizontal 300
  #m "rule " ; _R2_MASKPENNOT
  call horizontal 350
  #m "rule " ; _R2_MERGENOTPEN
  call horizontal 400
  #m "rule " ; _R2_MASKNOTPEN
  call horizontal 450
  #m "rule " ; _R2_MERGEPEN
  call horizontal 500
  #m "rule " ; _R2_NOTMERGEPEN
  call horizontal 550
  #m "rule " ; _R2_MASKPEN
  call horizontal 600
  #m "rule " ; _R2_NOTMASKPEN
  call horizontal 650
  #m "rule " ; _R2_XORPEN
  call horizontal 700
  #m "rule " ; _R2_NOTXORPEN        '' de xor LB teken regel
  call horizontal 750
wait
sub horizontal y
  for kl = 1 to 6
    #m "color " ; word$( clr$ , kl )
    #m "down"
    #m "line 0 " ; y + kl * 5 ; " " ; winx ; " " ; y + kl * 5
    #m "up"
  next kl
end sub
[quit]
  close #m
end
bluatigro
 
Berichten: 306
Geregistreerd: za sep 27, 2008 6:01 pm

Keer terug naar Liberty BASIC Code

Wie is er online

Gebruikers op dit forum: Geen geregistreerde gebruikers. en 1 gast

cron