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 à Markus qui a écrit :

Hello Aldweb,

i take the ibaddress sorce code, and try to change it for my calculation programm.
It works fine util the point i try to add more than 9 fields i like to save/load.
What can i do, because i need too store about 13 fields.
I take the ibaddress as the skeleton for my programm.

first the original programm that wont store any fields.

The second my try to swich it.

' 526 Kalkulation.ibas

' Listing generated by ViziBasic v2.0
' 25/04/2007 @ 11:51:31
'Stand 05/07 von Preisliste 1/2005

{CREATORID "526A"}
{VERSION "1.0"}
{MINOSVERSION "5.0"}
{PARSER ON}
'{KEYEVENTS OFF}
'{SECUREFILES ON}
{RESOURCEFILE "526.rsrc"}

'{CONSOLEFONT ON}

DIM %EVT%,%P1%,%P2%,%P3%
DIM %P1$,%P2$,%P3$

BEGIN
GOSUB _OnAppStart
%P1$="526 Kalkulation ¶¶Ein Programm zur Kalkulation von bes"
%P2$="chichteten Plattenmaterialien¶auf einer beidseitigen B"
%P3$="ürkle Thermokaschieranlage "
ABOUTBOX %P1$+%P2$+%P3$
GOSUB _GenerateGUI
GOSUB _EventsLoop
GOSUB _OnAppExit
'REPEAT
END

_GenerateGUI:
%P1$="Länge:"
SETFONT 0
LABEL #101,%P1$,7,18
%P1$="Breite:"
SETFONT 0
LABEL #102,%P1$,80,18
%P1$="Dicke:"
SETFONT 0
LABEL #103,%P1$,7,32
%P1$="Stk.:"
SETFONT 0
LABEL #104,%P1$,51,32
COLOR 0
LINE 5,46 TO 155,46
%P1$="eins."
%P2%=1
SETFONT 0
CHECKBOX #105,%P1$,%P2%,5,49,52,12
%P1$="beids."
%P2%=0
SETFONT 0
CHECKBOX #106,%P1$,%P2%,55,49,57,12
COLOR 0
LINE 5,63 TO 155,63
%P1$="Sperrholz"
%P2%=1
SETFONT 0
CHECKBOX #108,%P1$,%P2%,5,66,55,12
%P1$="Spanpl./MDF/...."
%P2%=0
SETFONT 0
CHECKBOX #109,%P1$,%P2%,75,66,97,12
%P1$="EP Platte:"
SETFONT 0
LABEL #110,%P1$,7,83
COLOR 0
LINE 5,80 TO 155,80
%P1$="EP Besch.:"
SETFONT 0
LABEL #112,%P1$,80,83
%P1$="Breite/B:"
SETFONT 0
LABEL #113,%P1$,99,32

%P1$="Fracht:"
SETFONT 0
LABEL #114,%P1$,7,95
COLOR 0
LINE 5,108 TO 155,108
%P1$="UAK/DB:"
SETFONT 0
LABEL #116,%P1$,80,95
%P1$="Berechnen"
SETFONT 0
BUTTON #117,%P1$,7,112,47,12
%P1$="Memo"
SETFONT 0
BUTTON #118,%P1$,120,1,40,10
%P1$="EP/m2 :"
SETFONT 1
LABEL #119,%P1$,68,112
%P1$="UAK/DB:"
SETFONT 1
LABEL #120,%P1$,68,128
%P1$="VK :"
SETFONT 1
LABEL #121,%P1$,68,145
%P1$="2440"
%P2%=0
SETFONT 0
TEXTFIELD #200,%P1$,%P2%,41,18,20,11
%P1$="1220"
%P2%=0
SETFONT 0
TEXTFIELD #202,%P1$,%P2%,113,18,20,11
%P1$=""
%P2%=0
SETFONT 0
TEXTFIELD #203,%P1$,%P2%,33,32,11,11
%P1$="100"
%P2%=0
SETFONT 0
TEXTFIELD #204,%P1$,%P2%,71,32,20,11
%P1$="0"
%P2%=0
SETFONT 0
TEXTFIELD #205,%P1$,%P2%,47,83,25,11
%P1$="0"
%P2%=0
SETFONT 0
TEXTFIELD #206,%P1$,%P2%,120,83,25,11
%P1$="0"
%P2%=0
SETFONT 0
TEXTFIELD #207,%P1$,%P2%,42,95,30,11
%P1$="0"
%P2%=0
SETFONT 0
TEXTFIELD #208,%P1$,%P2%,120,95,25,11
%P1$=""
%P2%=0
SETFONT 1
TEXTFIELD #209,%P1$,%P2%,120,112,30,12
%P1$=""
%P2%=0
SETFONT 1
TEXTFIELD #210,%P1$,%P2%,120,128,30,12
%P1$=""
%P2%=0
SETFONT 1
TEXTFIELD #211,%P1$,%P2%,120,145,30,12
%P1$="Harnst."
%P2%=0
SETFONT 0
CHECKBOX #212,%P1$,%P2%,113,49,48,11
%P1$="1270"
%P2%=0
SETFONT 0
TEXTFIELD #230,%P1$,%P2%,138,32,20,11
RETURN

_EventsLoop:
REPEAT
%EVT%=WAITEVENT
SELECT CASE %EVT%
CASE 105
GOSUB _CHECKBOX_105
CASE 106
GOSUB _CHECKBOX_106
CASE 108
GOSUB _CHECKBOX_108
CASE 109
GOSUB _CHECKBOX_109
CASE 117
GOSUB _BUTTON_117
CASE 118
GOSUB _BUTTON_118
CASE 212
GOSUB _CHECKBOX_212
END SELECT
UNTIL %EVT%=-1
RETURN

_CHECKBOX_105:
%P1$="beids."
%P2%=0
SETFONT 0
CHECKBOX #106,%P1$,%P2%,55,49,57,12
RETURN

_CHECKBOX_106:
%P1$="eins."
%P2%=0
SETFONT 0
CHECKBOX #105,%P1$,%P2%,5,49,52,12
RETURN

_CHECKBOX_108:
C$=FIELD$ (#203) 'Stärke
C=VAL(C$)
IF C<2.7 THEN
ADVICEBOX 102
ENDIF
IF C>38 THEN
ADVICEBOX 102
ENDIF
A$=FIELD$ (#200) 'Länge
A=VAL(A$)
IF A<900 THEN
ADVICEBOX 103
ENDIF
IF A>3050 THEN
ADVICEBOX 103
ENDIF

%P1$="Harnst."
%P2%=0
SETFONT 0
CHECKBOX #212,%P1$,%P2%,113,49,48,11
%P1$="Spanpl./MDF/...."
%P2%=0
SETFONT 0
CHECKBOX #109,%P1$,%P2%,75,66,97,12
RETURN

_CHECKBOX_109:
C$=FIELD$ (#203) 'Stärke
C=VAL(C$)
IF C<2.5 THEN
ADVICEBOX 101
ENDIF
IF C>38 THEN
ADVICEBOX 101
ENDIF

A$=FIELD$ (#200) 'Länge
A=VAL(A$)
IF A<900 THEN
ADVICEBOX 103
ENDIF

IF A>3050 THEN
ADVICEBOX 103
ENDIF
%P1$="Harnst."
%P2%=0
SETFONT 0
CHECKBOX #212,%P1$,%P2%,113,49,48,11
%P1$="Sperrholz"
%P2%=0
SETFONT 0
CHECKBOX #108,%P1$,%P2%,5,66,55,12
RETURN

_BUTTON_117:
GOSUB_EINBEIDSEITIG
GOSUB_FLAECHE
GOSUB_RUESTBESCHKOSTEN
GOSUB_BESCHICHTUNGSKOSTEN
GOSUB_ACHTUNGABMESSUNGHARN
GOSUB_ACHTUNGABMESSUNGSPERR
GOSUB_ACHTUNGABMESSUNGSPAN
C$=FIELD$ (#203) 'Stärke
C=VAL(C$)
B$=FIELD$(#202)'Breite
E$=FIELD$(#205)'EPPlatte
F$=FIELD$ (#206)'EPBesch
H$=FIELD$ (#207)'Fracht
I$=FIELD$ (#208)'UAK/DB
M$=FIELD$(#230)'BreiteBeschichtun

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.06 seconde