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
News Amis
Visites

   visiteurs

   visiteurs en ligne

Sondage
Comment trouve-tu le nouvel habillage de l'aldweb Site ?
 
Superbe !
Joli
Moyen
Moche...
Résultats
forum.gifForum - iziBasic - Sujet n°1538

Forum - Forum
iziBasic - iziBasic


Warning: A non-numeric value encountered in /web5/aldweb/www/aldweb_com/www/thread.php on line 257

actif  Sujet n° 1538  Save and load informaions in a databank

le 30/04/2007 @ 06:22
par Markus

Anonyme



Hello aldweb,

now i finished my first program with izibasic. I is a progamm to calculate prices.
In that programm i use 9 TEXTFIELDS to insert informations(Mesures, thickness, price,...) and 3 TEXTFIELDS to show the calculated prices(price, profit,...).

I use 5 CHECKBOXES for different ways to produce.

how can i save/record or load my calculated prices in a databank?

Where can i find samplecode.

Tanks a lot.


Markus

  Poster une réponse  Haut

[]   


Warning: A non-numeric value encountered in /web5/aldweb/www/aldweb_com/www/thread.php on line 497
Réponse n° 1
--------
le 30/04/2007 @ 23:20
par aldweb

Anonyme

visiteur
Hello Markus,

Maybe start by giving an attentive reading to the iBAddress source code which is a sample application to be found in the iziBasic package.

Cheers,
aldweb
Ecrire à aldweb   Poster une réponse  Haut

Warning: A non-numeric value encountered in /web5/aldweb/www/aldweb_com/www/thread.php on line 497
Réponse n° 2
--------
le 22/05/2007 @ 08:23
par Markus

Anonyme

visiteur
Thanks for the tip aldweb,

i use the iBAddress source code, to build my first programm with a databank.

But what should i do if i need more than 10 fields to save and load.

Everytime, i use more than 9 fields my system crashes.

Can u plase help me?

Best regards

Markus
Ecrire à Markus   Poster une réponse  Haut

Warning: A non-numeric value encountered in /web5/aldweb/www/aldweb_com/www/thread.php on line 497
Réponse n° 3
--------
le 22/05/2007 @ 14:39
par aldweb

Anonyme

visiteur
Hello Markus,

Sure I would like to help. But, there, you don't give much information to figure out what's going on!

Cheers,
aldweb
Ecrire à aldweb   Poster une réponse  Haut

Warning: A non-numeric value encountered in /web5/aldweb/www/aldweb_com/www/thread.php on line 497
Réponse n° 4
--------
le 22/05/2007 @ 22:43
par Markus

Anonyme

visiteur
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
Ecrire à Markus   Poster une réponse  Haut

Warning: A non-numeric value encountered in /web5/aldweb/www/aldweb_com/www/thread.php on line 497
Réponse n° 5
--------
le 23/05/2007 @ 22:21
par aldweb

Anonyme

visiteur
Hello Markus,

The source code was truncated before the end (this is my anti-spam system which did it). Just send it to me by e-mail and I will give a look to it.

Cheers,
aldweb
Ecrire à aldweb   Poster une réponse  Haut
actif sujet actif   clos sujet clos   Important! Important!   Nouveau Nouveau message   -   Rectifier Rectifier message   Clôturer Clôturer sujet   Remonter Remonter
[]
Catégories de discussion  Forum 



 
^ Haut ^