liberty basic noob-problem

Dieses Thema liberty basic noob-problem im Forum "Windows XP Forum" wurde erstellt von genehmster, 3. Juli 2005.

Thema: liberty basic noob-problem hier das script : NOMAINWIN WindowWidth = 600 WindowHeight = 600 UpperLeftX = 100 UpperLeftY = 100 MENU #haupt,...

  1. hier das script :

    NOMAINWIN

    WindowWidth = 600
    WindowHeight = 600
    UpperLeftX = 100
    UpperLeftY = 100

    MENU #haupt, &Datei, Speichern, [save], Laden, [load]

    GROUPBOX #haupt.wohn, Angaben zur Person, 10, 10, 235, 125
    RADIOBUTTON #haupt.herr, Herr, [herr], [nichts], 25, 25, 50, 25
    RADIOBUTTON #haupt.frau, Frau, [frau], [nichts], 75, 25, 50, 25
    TEXTBOX #haupt.name, 25, 50, 200, 25
    beruf$(0) = Schüler
    beruf$(1) = Azubi
    beruf$(2) = Student
    beruf$(3) = Geselle
    beruf$(4) = Meister
    COMBOBOX #haupt.beruf, beruf$(), [beruf], 25, 100, 200, 25
    GROUPBOX #haupt.wohn, Angaben zum Wohnort, 285, 10, 235, 100
    STATICTEXT #haupt.orth, , 300, 25, 200, 25
    orte$(0) = Haisterkirch
    orte$(1) = Bad Waldsee
    orte$(2) = Osterhofen
    orte$(3) = Hittelkofen
    orte$(4) = Molpertshaus
    LISTBOX #haupt.Wohnort, orte$(), [wohnort], 300, 50, 200, 25
    CHECKBOX #haupt.eigenheim, Eigenheim, [eigenheim], [nichts], 300, 75, 200, 25
    OPEN Skript FOR Window AS #haupt
    PRINT #haupt, trapclose [quit]
    PRINT #haupt.name, Name
    WAIT


    [wohnort]
    PRINT #haupt.Wohnort, selection?
    INPUT #haupt.Wohnort, wohnort$
    NOTICE Sie wohnen in + wohnort$
    WAIT
    [nichts]
    WAIT
    [herr]
    WAIT
    [frau]
    WAIT
    [beruf]
    WAIT
    [eigenheim]
    WAIT
    [save]
    FILEDIALOG Wählen sie den Namen der Datei und den Speicherort aus, *.dat, dateiname$
    OPEN dateiname$ FOR RANDOM AS #daten LEN = 16
    FIELD #daten, 1 AS herr, 15 AS name$
    INPUT #haupt.name, name$
    PRINT #haupt.herr, value?
    INPUT #haupt.herr, herr$
    IF (herr$ = set) THEN
    herr = 1
    ELSE
    IF (herr$ = reset) THEN
    herr = 0
    END IF
    PUT #daten, 1
    CLOSE #daten
    WAIT
    [load]
    FILEDIALOG Wählen sie den Namen der Datei und den Speicherort aus, *.dat, dateiname$
    OPEN dateiname$ FOR RANDOM AS #daten LEN = 16
    FIELD #daten, 1 AS herr, 15 AS name$
    GET #daten, 1
    IF (herr = 1) THEN
    PRINT #haupt.herr, set
    ELSE
    IF (herr = 0) THEN
    PRINT #haupt.frau, set
    END IF
    PRINT #haupt.name, name$
    CLOSE #daten
    WAIT
    [quit]
    CONFIRM Sind sie sicher?; answer$
    IF answer$ = no THEN WAIT
    CLOSE #haupt
    END

    das prob is : Es kommt immer, ich soll CLOSE befehle adden, aber da sind doch welche drin -.-.
    außerdem kommt : branch label not found : endIF0.
    Das kommt immer wenn ich speicher will


    Bitte keine blöden comments ich bin erst 15 und am anfang meiner karriere ;)
     
Die Seite wird geladen...

liberty basic noob-problem - Ähnliche Themen

Forum Datum
Compiler für Liberty Basic Windows XP Forum 30. Juni 2004
Grand Theft Auto: Episodes from Liberty City Windows 7 Forum 30. Nov. 2010
Windows Vista Basic (32bit) Windows Vista Forum 3. Mai 2014
Basic Help: Netzwerk (Performance) Analyse? Windows XP Forum 26. Juli 2010
Visual Basic 2008 - Probleme beim Debuggen Windows XP Forum 26. Dez. 2009