Das deutsche QBasic- und FreeBASIC-Forum

[newbe]

also..ich möchte gerne sowas wie ein einfaches verwaltungsproggi schreiben.d.h. ich will am anfang z.b. einfach nur "1234" eingeben müssen und dann springt das proggi dan zu einem punkt.kann mir jemand helfen,habe schon alles (mir) erdenkliche ausprobiert(siehe name).wäre dankbar für hilfe.thx
_________________
PRINT "Soll Windows beendet werden?"
INPUT "J/N",a$
IF a$ = "J" THEN END
IF a$ = "N" THEN END
END

[Jan]

kannste das ein bisschen konkretisieren. Ich versteh das im MOment nicht was du möchtest.
HAste ein Code Beispiel??

[newbe]

der code funzt zwar nicht aber vieleicht versteht mann dann was ich will.
Beispiel:
Code:
Input "Barcode:",a$ 'Hier gebe ich jetzt zb 1234 ein.
gosub a$ 'und hier sollte das proggi dann zu der marke
springen die 1234 heißt.

end
1234
print "testmarke" 'und das sollte ich dann auf dem monitor sehen.
____________________________________________________________-
würde mich über hilfe freun.p.s ich weiß das der code oben nicht funzt!
_________________
PRINT "Soll Windows beendet werden?"
INPUT "J/N",a$
IF a$ = "J" THEN END
IF a$ = "N" THEN END
END

[Paul]

nein nein das geht so nicht^^

[newbe]

diese art es zu machen hatte ich auch schon.das heist das ich schön brav alles einzelnd eingeben muss.hatte gehofft es geht das sich qb die marke direkt aus dem input befehl raus such und hinspringt.also muss ich immer brav auf die marke verweisen sehe ich das richtig.
_________________
PRINT "Soll Windows beendet werden?"
INPUT "J/N",a$
IF a$ = "J" THEN END
IF a$ = "N" THEN END
END

[jb]

Versuchs doch ohne Marken

Sollte auch möglich sein, zumal das Arbeiten mit Zeilennummern und Sprungverweisen
wie etwa GOTO schnell zu einem unübersichtlichen Code führt...

jb

[MisterD]

Also ich würd statt gosub das ganze so machen:

[Xolios]

Hallo.

Ich hab keinen Blassen dunst was du meinst.
Hier wenn es richtig ist freu dich:

PRINT "(1) zu 1"
PRINT "(2) zu 2"
PRINT "(3) zu 3"
PRINT "(4) zu 4"
DO
a$=inkey$
If a$="1" then goto 1
If a$="2" then goto 2
If a$="3" then goto 3
If a$="4" then goto 4
LOOP

1
PRINT "1"
END

2
PRINT "2"
END

3
PRINT "3"
END

4
PRINT "4"
END

Man kann natürlich auch Subs nehmen...

Gruß
Ray
_________________
www.ray-earth.de
Anm.: Neue ICQ

[OdinX]

INPUT "Barcode: ", a$
SELECT CASE a$
CASE "1234"
GOSUB Marke1
CASE "HALLO"
GOSUB Marke2
END SELECT
SYSTEM

Marke1:
PRINT "Herzlich wilkommen newbe"
SYSTEM

Marke2:
PRINT "Herzlich wilkommen Hans Muster"
SYSTEM


wars das, was du wolltest???

[Sebastian]

Hallo.

Wenn das z.B. für eine Kassensoftware sein soll, dann nützt einem all das nichts. Du musst dann die Datensätze zu den Barcodes in eine Datei schreiben und dann daraus lesen und überprüfen, was kommen soll. In etwa so:

Zuerst legst du mal von Hand im QBasic Ordner die Datei CODES.TXT mit folgendem Inhalt an:
"1234","Banane"
"4312","Pril"
"1111","Milka Schokolade"
"9234","Sprengstoff"

Dann schreibst du dieses QBasic Programm:

[d.j.peters]

Wenn die Eingabe auch ein Integer sein kann dann gibt es in QB doch bestimmt auch ON var GOTO / GOSUB oder?

Grüsse Joshy
(unter Linux habe ich kein qb)