aldweb

Close I. aldweb

Close II. PC Freeware

Close III. Palm Freeware

Close IV. Palm Shareware

Close V. iziBasic Palm

Close VI. Palm Knowledge

Close VII. Pocket Computer

Close VIII. miniPortail

Special !

Mobile version of
the aldweb Site
m.aldweb.com

Neither French, nor English?

Try one of these flags then:
[de] [es] [it] [pt]
Search




Weather / Spam / www

Lyon Weather

aldweb against spam

Newsletter
To receive news about this website, consider subscribing to our Newsletter.
Subscribe
Unsubscribe
298 Subscribers
Family's web sites

Webmaster - Infos
Write to aldweb  Webmaster
Add to bookmarks  Bookmarks
Recommend this site to a friend  Recommend
Mobile version  Mobile version
Friends News
Visits

   visitors

   visitors online

Poll
What do you think of the new design of the aldweb Site?
 
Great !
Beautiful
Average
So ugly...
Results
forum.gifForum - iziBasic - Topic #1538

Forum - Forum
iziBasic - iziBasic


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

active  Topic # 1538  Save and load informaions in a databank

30/04/2007 @ 06:22
by Markus

Anonymous
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

  Post an answer  Top

[]   


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

Anonymous

visitor
 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
Write to aldweb   Post an answer  Top

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

Anonymous

visitor
 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
Write to Markus   Post an answer  Top

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

Anonymous

visitor
 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
Write to aldweb   Post an answer  Top

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

Anonymous

visitor
 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
Write to Markus   Post an answer  Top

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

Anonymous

visitor
 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
Write to aldweb   Post an answer  Top
active topic active   closed topic closed   Sticky Sticky   New New message   -   Correct Correct message   Close Close topic   Make sticky Make sticky
[]
Forum Topic  Forum 



 
^ Top ^