aldweb

Close I. aldweb

Close II. PC Freeware

Close III. Palm Freeware

Close IV. Palm Shareware

Close V. iziBasic Palm

Close VI. Palm Knowledge

Close VII. Pocket Computer

Close VIII. miniPortail

Special !



Mobile version of
the aldweb Site

m.aldweb.com


Neither French, nor English?

Try one of these flags then:
[de] [es] [it] [pt]
Search




Weather / Spam / www

Lyon Weather


aldweb against spam


Newsletter
To receive news about this website, consider subscribing to our Newsletter.
Subscribe
Unsubscribe
298 Subscribers
Family's web sites

Webmaster - Infos
Friends News
Visits

   visitors

   visitors online

Poll
What do you think of the new design of the aldweb Site?
 
Great !
Beautiful
Average
So ugly...
Results
Post an answer

Thanks for taking the time to write this message.

Your user name :

Your e-mail :

Hide your e-mail address to visitors:      
Note: the e-mail address is protected against SPAM.

Subscribe to this thread :      

You are answering to aldweb who wrote:


No more bump!

' Mini Cash Case.ibas

' Listing generated by ViziBasic v2.1
' 17/04/2009 @ 18:04:37

{CREATORID "WTVr"}
{VERSION "0.1"}
'{MINOSVERSION "3.0"}
'{PARSER OFF}
'{KEYEVENTS OFF}
'{SECUREFILES ON}
'{CONSOLEFONT ON}

DIM %EVT%,%P1%,%P2%,%P3%
DIM %P1$,%P2$,%P3$,%BTN%,%AARRAY$
DIM %BTN$,%TXT$,%VLU%,%LOP%
DIM A(80)
DIM %AARRAY%,%AARRAY2%

_Clicky:
%TXT$="You clicked case #"+%BTN$
UPDATELABEL #9,%TXT$
%BTN% = VAL(%BTN$)

%AARRAY2% = A(%BTN%)
%AARRAY$ = STR$(%AARRAY2%,0)
%TXT$="It was worth $" + %AARRAY$
UPDATELABEL #10,%TXT$
%EVT%=WAITEVENT
RETURN

_TryAgainLabel:
%LOP% = %LOP% + 1
%VLU% = RND(8)
if %VLU%=0 let %VLU%=1
A(%LOP%)=%VLU%
%AARRAY% = A(%LOP%)
return

BEGIN
GOSUB _OnAppStart
%P1$="This is just a *very* rough draftv.0.1"
ABOUTBOX %P1$
GOSUB _GenerateGUI

A(1)=0

WHILE %LOP% <> 9
gosub _TryAgainLabel
%AARRAY2%=A(1) : if %AARRAY%=%AARRAY2% gosub _TryAgainLabel
%AARRAY2%=A(2) : if %AARRAY%=%AARRAY2% gosub _TryAgainLabel
%AARRAY2%=A(3) : if %AARRAY%=%AARRAY2% gosub _TryAgainLabel
%AARRAY2%=A(4) : if %AARRAY%=%AARRAY2% gosub _TryAgainLabel
%AARRAY2%=A(5) : if %AARRAY%=%AARRAY2% gosub _TryAgainLabel
%AARRAY2%=A(6) : if %AARRAY%=%AARRAY2% gosub _TryAgainLabel
%AARRAY2%=A(7) : if %AARRAY%=%AARRAY2% gosub _TryAgainLabel
%AARRAY2%=A(8) : if %AARRAY%=%AARRAY2% gosub _TryAgainLabel
WEND


GOSUB _EventsLoop
GOSUB _OnAppExit
END

_GenerateGUI:
%P1$="#1"
SETFONT 0
BUTTON #1,%P1$,5,20,15,15
%P1$="#2"
SETFONT 0
BUTTON #2,%P1$,25,20,15,15
%P1$="#3"
SETFONT 0
BUTTON #3,%P1$,45,20,15,15
%P1$="#4"
SETFONT 0
BUTTON #4,%P1$,65,20,15,15
%P1$="#5"
SETFONT 0
BUTTON #5,%P1$,5,40,15,15
%P1$="#6"
SETFONT 0
BUTTON #6,%P1$,25,40,15,15
%P1$="#7"
SETFONT 0
BUTTON #7,%P1$,45,40,15,15
%P1$="#8"
SETFONT 0
BUTTON #8,%P1$,65,40,15,15
%P1$="You clicked case ..."
SETFONT 0
LABEL #9,%P1$,5,60
%P1$="It was worth..."
SETFONT 0
LABEL #10,%P1$,5,60
RETURN

_EventsLoop:

REPEAT
%EVT%=WAITEVENT
SELECT CASE %EVT%
CASE 1
GOSUB _BUTTON_1
CASE 2
GOSUB _BUTTON_2
CASE 3
GOSUB _BUTTON_3
CASE 4
GOSUB _BUTTON_4
CASE 5
GOSUB _BUTTON_5
CASE 6
GOSUB _BUTTON_6
CASE 7
GOSUB _BUTTON_7
CASE 8
GOSUB _BUTTON_8
END SELECT
UNTIL %EVT%=-1
RETURN

_BUTTON_1:
%BTN$="1"
GOSUB _Clicky
RETURN

_BUTTON_2:
%BTN$="2"
GOSUB _Clicky
RETURN

_BUTTON_3:
%BTN$="3"
GOSUB _Clicky
RETURN

_BUTTON_4:
%BTN$="4"
GOSUB _Clicky
RETURN

_BUTTON_5:
%BTN$="5"
GOSUB _Clicky
RETURN

_BUTTON_6:
%BTN$="6"
GOSUB _Clicky
RETURN

_BUTTON_7:
%BTN$="7"
GOSUB _Clicky
RETURN

_BUTTON_8:
%BTN$="8"
GOSUB _Clicky
RETURN

_OnAppStart:

RETURN

_OnAppExit:

RETURN


Help :

Code Syntax :

  • <color=CodeHexadecimal></color> enables text colouring.
    Note : Instead of the hexadecimal code (#??????), you can specify the name of the colour(red, yellow, orange, green, blue, etc...). For extra info...
  • <bgcolor=CodeHexadecimal></bgcolor> enables the colored highlighting of a text.
    Note : Instead of the hexadecimal code (#??????), you can specify the name of the colour(red, yellow, orange, green, blue, etc...). For extra info...
  • <b></b> enables the emboldening of a text.
  • <i></i> enables the italicising of a text.
  • <u></u> enables the underlining of a text.
  • <cite></cite> enables quotation inserting.
    Note : You can specify the name of the authors by typing <cite=Author>
  • <code></code> enables code inserting.
    Note : You can specify the language by typing <code=LanguageName>
  • <left></left> enables left align.
  • <center></center> enables center align.
  • <right></right> enables right align.
  • <link></link> enables link inserting.
    Note : You can specify the link URL by typing <link=URL>text</link>. If you do not specify the link URL, the URL will be the one between the two tags.<link>URL</link>
  • <img=SmileyName> enables smiley insertion.
    Note : The names of available basic smileys are : cool, wink, biggrin, smile, frown, eek, mad, confused, rolleyes, tongue, cry. For extra info...

Access keys (under Windows) :

  • Key SHIFT + arrow (right or left) enables text selection
  • Key ALT + 2 enables toolbar selection
  • Key ALT + 3 enables editing zone selection
  • Key ALT + 4 displays Help
  • Key ALT + 5 hides Help
  • Key TAB enables going from one selection to the next
  • Key SHIFT + TAB enables going from one selection to the previous
  • Key ALT + arrow (towards bottom or top) enables folding out of the selected menu
  • Key ALT + arrow (towards bottom or top) enables the folding up of a spread out menu
  • Key arrow (towards bottom or top) enables the browsing through a spread out menu
  • Key ALT + s enables form sending

   |     |  Bold  Italic  Underline  Insert a quotation    Align Left  Center justify  Align Right  Insert a link  Insert Smiley (popup)  Preview (popup)  Display Help   
smiley cool  smiley wink  smiley biggrin  smiley smile  smiley frown  smiley eek  smiley mad  smiley confused  smiley rolleyes  smiley tongue  smiley cry 
Captcha reload
Copy the text:


 
 
^ Top ^