aldweb Site - Poster une réponse

aldweb

Déplier Fermer I. aldweb

Déplier Fermer II. Gratuitiels PC

Déplier Fermer III. Gratuitiels Palm

Déplier Fermer IV. Partagiciels Palm

Déplier Fermer V. iziBasic Palm

Déplier Fermer VI. Connaissance Palm

Déplier Fermer VII. Ordinateur Poche

Déplier Fermer VIII. miniPortail

1. miniPortail / GuppY

Spécial !

Version mobile
de l'aldweb Site
m.aldweb.com

Ni Français, ni Anglais ?
Essayez donc l'un de ces drapeaux :

Recherche

Météo / Spam / www

Météo Lyon

aldweb contre le SPAM

Newsletter

Sites web de la famille

Webmaster - Infos

Webmestre

Favoris

Recommander

Version mobile

News Amis

GuppY CMS

PPcompiler

Visites

visiteurs

visiteurs en ligne

Sondage

Poster une réponse

Je vous remercie de prendre le temps d'écrire ce message.

Votre nom (ou pseudo) :

Votre e-mail :

Masquer aux visiteurs votre adresse e-mail :

Note : l'adresse e-mail utilisée est protégée contre le SPAM.

S'abonner à ce fil de discussion :

Vous répondez à aldweb qui a écrit :

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

Aide :

Syntaxe du code :

<color=CodeHexadécimale></color> permet de colorer un texte.
Remarque : Vous pouvez préciser à la place du code hexadécimal (#??????), le nom de la couleur (red, yellow, orange, green, blue, etc...). Pour plus de détails...
<bgcolor=CodeHexadécimale></bgcolor> permet de surligner en couleur un texte.
Remarque : Vous pouvez préciser à la place du code hexadécimal (#??????), le nom de la couleur (red, yellow, orange, green, blue, etc...). Pour plus de détails...
 permet de mettre en gras un texte.
 permet de mettre en italique un texte.
 permet de souligner un texte.
<cite></cite> permet d'insérer une citation.
Remarque : Vous pouvez préciser le nom de l'auteur de la citation en écrivant <cite=Auteur>
<code></code> permet d'insérer du code.
Remarque : Vous pouvez préciser le langage en écrivant <code=NomduLangage>
<left></left> permet d'aligner à gauche.
<center></center> permet d'aligner au centre.
<right></right> permet d'aligner à droite.
<link></link> permet d'insérer un lien.
Remarque : Vous pouvez préciser l'url du lien en écrivant <link=URL>texte</link>. Si vous ne précisez pas l'url du lien, l'url sera ce qui se trouve entre les deux balises.<link>URL</link>
<img=NomduSmiley> permet d'insérer un smiley.
Remarque : Les noms des smileys de base disponibles sont : cool, wink, biggrin, smile, frown, eek, mad, confused, rolleyes, tongue, cry. Pour plus de détails...

Raccourcis clavier (sous Windows) :

Touche SHIFT + flèche (droite ou gauche) permet de sélectionner du texte
Touche ALT + 2 permet de sélectionner la barre d'outils
Touche ALT + 3 permet de sélectionner la zône d'édition
Touche ALT + 4 permet d'afficher l'aide
Touche ALT + 5 permet de masquer l'aide
Touche TAB permet de passer d'une sélection à la suivante
Touche SHIFT + TAB permet de passer d'une sélection à la précédente
Touche ALT + flèche (vers le bas ou vers le haut) permet de déplier le menu sélectionné
Touche ALT + flèche (vers le bas ou vers le haut) permet de replier un menu déplié
Touche flèche (vers le bas ou vers le haut) permet de naviguer dans un menu déplié
Touche ALT + s permet d'envoyer le formulaire

Recopier le code :

Haut

aldweb Site - © 1999-2024 aldweb
Conformément à la loi française Informatique et Liberté (article 34), vous disposez d'un droit
d'accès, de modification, de rectification et de suppression des données vous concernant.
Pour ce faire, il vous suffit de m'en faire la demande par e-mail (adresse dans la boîte Webmaster).

Document généré en 0.08 seconde