aldweb Site - Post an answer

aldweb

Unfold Close I. aldweb

Unfold Close II. PC Freeware

Unfold Close III. Palm Freeware

Unfold Close IV. Palm Shareware

Unfold Close V. iziBasic Palm

Unfold Close VI. Palm Knowledge

Unfold Close VII. Pocket Computer

Unfold Close VIII. miniPortail

1. miniPortail / GuppY

Special !

Mobile version of
the aldweb Site
m.aldweb.com

Neither French, nor English?
Try one of these flags then:

Weather / Spam / www

Lyon Weather

aldweb against spam

Newsletter

Family's web sites

Webmaster - Infos

Webmaster

Bookmarks

Recommend

Mobile version

Friends News

GuppY CMS

PPcompiler

Visits

visitors

visitors online

Poll

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:

The source code is very small, thanks to iziBasic's language syntax for quick developping (and I believe that iziBasic is the only one in this case...).
So, please find a copy & paste of it here under

' iBChristmas.ibas
{CREATORID "LDXM"}
{VERSION "1.0"}
{RESOURCEFILE "iBChristmas.rsrc"}

BEGIN
  S=SCREENMODES
  IF S<3 THEN
    M=MESSAGEBOX("Sorry, a color device is required.",0)
  ELSE
    S$=GETOSVER$ : S=VAL(S$)
    GOSUB _AllOK
  ENDIF
END

_AllOK:
  SETFONT 1
  BUTTON #1,"i",149,1,10,10
  SETFONT 0
  I=1 : C=COLOR(0)
  T=TICKS
  REPEAT
    E=DOEVENTS
      IF E=1 M=NOTICEBOX(1)
      IF E=1000 LET P=PENDOWN : IF P=0 LET I=I+1 : COLOR C : BOXFILLED 16,18 TO 143,160 : T=T-50 : IF I=3 LET I=1
      N=TICKS-T : IF N>50 LET T=TICKS : GOSUB _Animate
  UNTIL E=-1
RETURN

_Animate:
    J=J+1 : IF J=4 LET J=1
    K=I*10+J
    IF I=1 THEN
      IMAGE K,28,18
    ELSE
      IMAGE K,16,43
    ENDIF
    IF S>=5 LET F=TICKS-G : IF F>1000 LET G=TICKS : PLAYWAVE 1,1024,1
RETURN

In red, the new statement of iziBasic which brings the sound feature

Optimizing a little bit this source code would make the software work in less than 20 lines of source code I guess.
But, I only had 15 minutes to develop it.

So, I did it quick and dirty!

@+
aldweb

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...
 enables the emboldening of a text.
 enables the italicising of a text.
 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

Copy the text:

Top

aldweb Site - © 1999-2024 aldweb
In accordance with the French Data-processing and Freedom law (article 34), you have the right
to access, to modify, to correct and to suppress the data concerning you.
To do so, just send me an e-mail (get my e-mail address in the Webmaster box).

Document generated in 0.07 second