Very Quiet here!

Dat lijkt Wim een goed idee....

'Radiobutton test - Wim van Beek

Cijfer(0) = 1
Letter$(0) = "A"
Kleur$(0) = "ROOD"

call MaakWindow

'------------------------------------------------------------------------------------
sub MaakWindow
WindowWidth = 850
WindowHeight = 480

UpperLeftX = 20
UpperLeftY = 20

radiobutton #main.rad1, "", radioSet1, radioReset1, 30, 125, 25, 25
radiobutton #main.rad2, "", radioSet1, radioReset1, 30, 185, 25, 25
radiobutton #main.rad3, "", radioSet1, radioReset1, 30, 245, 25, 25
radiobutton #main.rad4, "", radioSet1, radioReset1, 30, 305, 25, 25
radiobutton #main.radA, "", radioSet2, radioReset2, 230, 125, 25, 25
radiobutton #main.radB, "", radioSet2, radioReset2, 230, 185, 25, 25
radiobutton #main.radC, "", radioSet2, radioReset2, 230, 245, 25, 25
radiobutton #main.radD, "", radioSet2, radioReset2, 230, 305, 25, 25
radiobutton #main.rdd1, "", radioSet3, radioReset3, 430, 125, 25, 25
radiobutton #main.rdd2, "", radioSet3, radioReset3, 430, 185, 25, 25
radiobutton #main.rdd3, "", radioSet3, radioReset3, 430, 245, 25, 25
radiobutton #main.rdd4, "", radioSet3, radioReset3, 430, 305, 25, 25

groupbox #main.radG, "Cijfer", 20, 95, 150, 250
groupbox #main.radL, "Letter", 220, 95, 150, 250
groupbox #main.radK, "Kleur", 420, 95, 150, 250

button #main.default, "Start", Start, UL, 630, 200, 120, 40
button #main.default, "Reset", Reset, UL, 630, 300, 120, 40

statictext #main.statA, "1", 60, 125, 90, 22
statictext #main.statB, "2", 60, 185, 90, 22
statictext #main.statC, "3", 60, 245, 90, 22
statictext #main.statD, "4", 60, 305, 90, 22
statictext #main.statE, "A", 260, 125, 90, 22
statictext #main.statF, "B", 260, 185, 90, 22
statictext #main.statG, "C", 260, 245, 90, 22
statictext #main.statH, "D", 260, 305, 90, 22
statictext #main.statI, "ROOD", 460, 125, 100, 22
statictext #main.statJ, "GROEN", 460, 185, 100, 22
statictext #main.statK, "BLAUW", 460, 245, 100, 22
statictext #main.statL, "GEEL", 460, 305, 100, 22
statictext #main.statM, "*", 30, 30, 400, 22
statictext #main.statN, "Daarna:", 630, 30, 200, 22

Open "Radiobutton oefening - v4" for window as #main
#main, "trapclose Sluit"
#main, "font arial 14"
#main.statM, "Maak een keuze in elke kolom:"

#main.rad1, "set"
#main.radA, "set"
#main.rdd1, "set"
wait
end sub

sub Sluit handle$
CLOSE #main
end
end sub

Sub radioSet1 handle$ 'afhandeling radiobuttons rond/ovaal
keus = 0
Txt$ = handle$
keus = val(right$(Txt$, 1))
Cijfer(0) = keus
end sub

Sub radioSet2 handle$ 'afhandeling radiobuttons parameters
keus$ = "-"
Txt$ = handle$
keus$ = right$(Txt$, 1)
Letter$(0) = keus$
end sub

Sub radioSet3 handle$ 'afhandeling radiobuttons parameters
keus = 0
Txt$ = handle$
keus = val(right$(Txt$, 1))
select case keus
case 0
keus$ = "ZWART"
case 1
keus$ = "ROOD"
case 2
keus$ = "GROEN"
case 3
keus$ = "BLAUW"
case 4
keus$ = "GEEL"
case else
keus$ = "ZWART"
end select
Kleur$(0) = keus$
end sub

sub Start handle$ 'afhandeling Start button
print "Jouw keuze is:"
print "cijfer : "; Cijfer(0)
print "letter : "; Letter$(0)
print "kleur : "; Kleur$(0)
Print
end sub

sub Reset handle$ 'afhandeling Reset button
#main.rad1, "set"
#main.radA, "set"
#main.rdd1, "set"
Cijfer(0) = 1
Letter$(0) = "A"
Kleur$(0) = "ROOD"
end sub