aldweb

Fermer I. aldweb

Fermer II. Gratuitiels PC

Fermer III. Gratuitiels Palm

Fermer IV. Partagiciels Palm

Fermer V. iziBasic Palm

Fermer VI. Connaissance Palm

Fermer VII. Ordinateur Poche

Fermer VIII. miniPortail

Spécial !

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

Ni Français, ni Anglais ?

Essayez donc l'un de ces drapeaux :
[de] [es] [it] [pt]
Recherche




Météo / Spam / www

Météo Lyon

aldweb contre le SPAM

Newsletter
Pour avoir des nouvelles de ce site, inscrivez-vous à notre Newsletter.
S'abonner
Se désabonner
298 Abonnés
Sites web de la famille

Webmaster - Infos
Ecrire à aldweb  Webmestre
Ajouter aux favoris  Favoris
Recommander ce site à un ami  Recommander
Version mobile  Version mobile
News Amis
Visites

   visiteurs

   visiteurs en ligne

Sondage
Comment trouve-tu le nouvel habillage de l'aldweb Site ?
 
Superbe !
Joli
Moyen
Moche...
Résultats
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 à Montalvo qui a écrit :


Hi!

This was my first approach using izibasic to create a small application for palmos.

'Fechas.ibas' lets you calculate the differente in days between two specific dates, and also calculate Julian Day for each date.

- - - CUT HERE - - -
'fechas.ibas
{CreatorID "mCoB"}
{parser on}
{resourcefile "dos.rcp.txt.ro"}

const x$­­­="Programa creado con¶izibasic 4.0¶"
const y$­­­="MComm/TuPalMX¶"
const z$­­­="info@tupalmx.com"
aboutbox x$­­­+y$­­­+z$­­­

Begin
 'encabezados
 setfont 7
 label #1,"Calcula Diferencia",29,23
 label #4,"Dias Julianos",42,73
 label #8,"Diferencia",50,110
 'botones
 setfont 0
 button#2,"Fecha INI",20,45,50,10
 f$­­­=date$­­­
 t$­­­=f$­­­
 gosub _juliano
 i$­­­=trim$­­­(h$­­­)
 button#5,"Fecha FIN",100,45,50,10
 g$­­­=date$­­­
 t$­­­=g$­­­
 gosub _juliano
 j$­­­=trim$­­­(h$­­­)

 repeat
  'julianos
  label #20,i$­­­,20,90
  label #21,j$­­­,100,90
  box 1,71 to 159,106
  'fechas
  label #3,f$­­­,20,58
  label #7,g$­­­,100,58

  gosub _calcula

  x=doevents
   if x=2 then
    f$­­­=dateselect$­­­(f$­­­)
    t$­­­=f$­­­
    gosub _juliano
    i$­­­=trim$­­­(h$­­­)
   end if
   if x=5 then
    g$­­­=dateselect$­­­(g$­­­)
    t$­­­=g$­­­
    gosub _juliano
    j$­­­=trim$­­­(h$­­­)
   end if
  until x=-1

_juliano:
a$­­­=right$­­­(t$­­­,4)
a=val(a$­­­)
m$­­­=mid$­­­(t$­­­,4,2)
m=val(m$­­­)
d$­­­=left$­­­(t$­­­,2)
d=val(d$­­­)
'conversion
e=(14-m)/12
f=a+4800-e
g=m+(12*e)-3
h=d+(((153*g)+2)/5)+(365*f)+(f/4)-(f/100)+(f/ 400)-32045
h$­­­=str$­­­(h,0)
return

_calcula:
 'calcula diferencia
 k=val(i$­­­)-val(j$­­­)
 k=abs(k)
 k$­­­=str$­­­(k,0)+" Dia(s)"
 setfont 2
 label #22,k$­­­,53,130
 setfont 0
return

End

- - - CUT HERE - - -

You can find this application, the sourcecode (in DOC format) and the resource file (for the icon), here:

http://tupalmx.com/clickcount/click.php?id=20

Greetings from México!

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...
  • <b></b> permet de mettre en gras un texte.
  • <i></i> permet de mettre en italique un texte.
  • <u></u> 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
   |     |  Gras  Italique  Souligné  Insérer une Citation    Aligner à Gauche  Centrer  Aligner à Droite  Insérer un Lien  Insérer un Smiley (popup)  Prévisualiser (popup)  Afficher l'aide   
smiley tranquille  smiley complice  smiley content  smiley souriant  smiley sidéré  smiley perturbé  smiley en colère  smiley mécontent  smiley étonné  smiley moqueur  smiley malheureux 
Captcha reload
Recopier le code :


 
 
^ Haut ^