Voting

Category

real language

Bookmarking

Del.icio.us Digg Diigo DZone Earthlink Google Kick.ie
Windows Live LookLater Ma.gnolia Reddit Rojo StumbleUpon Technorati

Language MediaBASIC

Date:04/20/05
Author:Anonymous
URL:n/a
Comments:0
Info:http://www.uolang.org/mediabasic
Score: (2.25 in 4 votes)
'99 bottles of beer using  a TListbox in MediaBASIC ;)
'For more info on MediaBASIC, please visit http://www.uolang.org/mediabasic

Sub Main ()

Form = Self.Create("TForm") 
Form.Caption = "[99 Bottles of Beer]"
 
ListBox = Form.Create("TListBox")
  With ListBox 
    .Parent = Form
    .Align= "alClient"
End With

For b = 99 To 1 Step -1
with Listbox.Items
      .Add (b & " bottle(s) of beer on the wall, " & b & " bottle(s) of beer.")
      .Add ("Take one down, pass it around, " & (b-1) & " bottle(s) of beer on the wall.")
      .Add ("")
End With
Next

Form.ShowModal 
Form.Free 
End Sub

Download Source | Write Comment

Alternative Versions

Comments

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!

Name:

eMail:

URL:

Security Code:
  
Comment: