OpenEuphoria

Newby ALERT

• Posted by "Harper, Brad R." <Brad.Harper at MED.VA.GOV> May 10, 2000
• 436 views

No excuses, just a newby to programming and this really awesome language.
Sorry for the length, but newby's are wordy. I've included the beginings of
my Euphoria Yahtzee program, but do not understand certain requirements. If
anyone is willing to explain, please do. Also, if I'm breaking any rules
please let me know.

Thanks in advance.

include win32lib.ew

--Globals
global constant EYwindow = create(Window,"Euphoria
Yahtzee",0,Default,Default,400,300,0)
global sequence ltxt, ltxtnum, lbtn
global integer n

--Build the interface
        --Create and populate the LOWER SCORE area
ltxt = {"1s","2s","3s","4s","5s","6s"}
ltxtnum = {1,2,3,4,5,6} -- WHY DO I HAVE TO ASSIGN A BEGINNING VALUE AND NOT
JUST THE SIZE
lbtn ={1,2,3,4,5,6} -- SAME HERE
n = 20
for i = 1 to 6 do
    ltxtnum[1] = create(CText,ltxt[i],EYwindow,n,5,20,12,0)
    lbtn[i] = create(PushButton,"",EYwindow,n,20,30,30,0)
    n = 20+(i*35)
end for
        --Create and populate the UPPER SCORE area

--Procedures start here
procedure initialize()
--Zero out scores and reset display
end procedure

--Start it all here
onOpen[EYwindow]= routine_id("initialize")
WinMain(EYwindow,Normal)