Voting
Category
real language
Bookmarking
Language DBase 2000
| Date: | 04/20/05 |
| Author: | Anonymous |
| URL: | n/a |
| Comments: | 0 |
| Info: | n/a |
| Score: |  (3.00 in 10 votes) |
//
// Generated on 10/11/2002
//
parameter bModal
local f
f = new _9Form()
if (bModal)
f.mdi = false // ensure not MDI
f.readModal()
else
f.open()
endif
class _9Form of FORM
with (this)
onClose = {;form.Release()}
height = 22.1818
left = -0.1429
top = -0.0455
width = 109.8571
text = "99 Bottles of Beer"
endwith
this.EDITOR1 = new EDITOR(this)
with (this.EDITOR1)
height = 20
left = 2
top = 0.5
width = 107
value = ""
endwith
this.PUSHBUTTON1 = new PUSHBUTTON(this)
with (this.PUSHBUTTON1)
onClick = class::PUSHBUTTON1_ONCLICK
height = 1.5
left = 1
top = 20.5
width = 107
text = "Start"
borderStyle = 7 // Client
endwith
function PUSHBUTTON1_onClick
form.Editor1.Value = ""
form.suffix = "s "
for i = 99 to 1 step -1
if i = 1
form.suffix = " "
endif
form.num = transform(i,"999") + " "
form.num2 = transform(i - 1,"999") + " "
form.Editor1.Value = form.Editor1.Value + form.num + "bottle" +;
form.suffix + "of beer on the wall, " +;
form.num + "bottle" + form.suffix +;
"of beer. Take one down and pass it around, "+;
iif(i > 1,form.num2 + "bottle" + iif(i > 2,form.suffix," "),"No more bottles ") + ;
"of beer on the wall." +;
chr(13)
next
form.Editor1.Value = form.Editor1.Value + " No more bottles of beer on the wall, " + chr(13) + ;
" no more bottles of beer. " + chr(13) +;
" Go to the store and get some more." + chr(13) +;
" 99 bottles of beer on the wall"
return
endclass
Download Source | Write Comment
Download Source | Write Comment
Add Comment
Please provide a value for the fields Name,
Comment and Security Code.
This is a gravatar-friendly website.
E-mail addresses will never be shown.
Enter your e-mail address to use your gravatar.
Please don't post large portions of code here! Use the form to submit new examples or updates instead!
Comments