braesident
Anmeldungsdatum: 15.04.2008
Beiträge: 189
Wohnort: Berlin
|
 Verfasst am: 06.02.2012, 00:52 Titel: Codeausführung endet ungewollt |
 |
|
OK, nachdem mein QB Prog zu groß zum kombilieren geworden ist, habt ihr mich überredet auf FB umzusteigen, soweit so gut... die ersten Probleme dabei hatten wir schon hier besprochen.
Binary macht doch nicht so ganz das was ich möchte und
Random scheint nun doch zu gehen wenn die Längenangabe am Ende von OPEN richtig ist
Hab OPEN jetzt mehrmals getestet mit BINARY und RANDOM
Ich kann ein paar mal abwechselnd auf meine Buttons klicken und die Daten werden bei RANDOM auch richtig gespeichert. doch nach einigen klicken bricht das Prog einfach ab.
| Code: | #include "fbgfx.bi"
DECLARE SUB autowrite (c as integer,ze as integer,sp as integer,wort as string)
DECLARE SUB button (cb1 as integer,cb2 as integer,ze as integer,sp as integer,c as integer,wort as string)
dim as integer halb, i
dim as string txt,bust,wort
dim Tist as string*3
dim as integer xmaus,ymaus,mrad,mbuttons,mclib,mrad2,mradoffset
TYPE ContactInformation
strasse AS STRING * 10
ContactName AS STRING * 10
PhoneNumber AS STRING * 10
Email AS STRING * 10
END TYPE
DIM Contact AS ContactInformation
windowtitle "MyTour"
screenres 800,480,8,,
close
mytourstart:
do:sleep 1
button (7,9,200,360,15,"open test")
button (7,9,225,360,15,"tour")
locate 4,1:? EXEPATH
getmouse (xmaus,ymaus,mrad,mbuttons,mclib) 'xmaus = wide/ymaus = hide
mrad2=mrad-mradoffset 'mrad erhält 2te variable zum späteren zurücksetzen
'beispiel: if mbuttons = 1 then mradoffset=mrad ..... zum zurücksetzen des rades
color 15:locate 1,1:? xmaus,ymaus,mrad2,mbuttons,mclib
if multikey (fb.sc_escape) then end
'auswertung open test
if mbuttons = 1 and xmaus > 359 and xmaus < 441 and _
ymaus > 199 and ymaus < 211 then
Touren:cls 'Touren
OPEN Exepath + "\tmp.dat" FOR random AS #1 LEN=LEN(Contact)
Contact.strasse = "polo ave 17"
Contact.ContactName = "Marko Polo"
Contact.PhoneNumber = "(030)3344 1212"
Contact.Email = "marko@polo.com"
put #1,2,Contact
close #1
? "gespeichert - drücke eine Taste"
GETKEY
end if
'auswertung tour
if mbuttons = 1 and xmaus > 359 and xmaus < 441 and _
ymaus > 224 and ymaus < 236 then
open EXEPATH +"\exist.dat" for RANDOM as #1 LEN=LEN(Tist)
get #1,31,Tist
if Tist <> "NEU" then
Tist = "---"
FOR i = 2 to 30
put #1,i, Tist
NEXT i
Tist = "NEU"
put #1,1, Tist: put #1,31, Tist
close #1
else
? CURDIR, "exist.dat ist erstellt":sleep 3000
end if
end if
loop
|
|
|
FAQ
Suchen
Mitgliederliste
Benutzergruppen
Registrieren
Profil
Einloggen, um private Nachrichten zu lesen
Login
