 |
Das deutsche QBasic- und FreeBASIC-Forum
Fόr euch erreichbar unter qb-forum.de, fb-forum.de und freebasic-forum.de!
|
| Vorheriges Thema anzeigen :: Nδchstes Thema anzeigen |
| Autor |
Nachricht |
Jet X
gesperrt
Anmeldungsdatum: 05.01.2005
Beitrδge: 447
|
 Verfasst am: 08.03.2005, 15:21 Titel: Vorschlδge ..... |
 |
|
So , ich abe ein Programm geschreiben ! Habt ihr wiliecht vorschlδge zur verbesserung ? Wisst ihr was ich machen muss damit der Text unter Windows eingegeben werden muss ? Hier der Code :
| Code: |
DECLARE SUB BMX ()
DECLARE SUB BMXp (u%, b$)
m:
DATA"@A@A@@QogIogAogYogwogooggog5ggQggIggAggYggwggoggggg5ogQ5gI5gA5gY5gw5go5gg5g5wgQwgIwgAwgYwgwwgowggwg5YgQIgIIgAIgYIgwIgoIggIg5AgQAgIAgAAgYAgwAgoAggAg5IgQYgIYgAYgYYgwYgoYggYg5QgQQgIQgAQgYQgwQgoQggQgIowAow5gwQowoowgowYowwgwIgwAgw5YwQgwogwggwYgwwow@AA"
DATA"gggoopA@A@@@AA@@@A@;9IwwAww5owQwwowwgwwYwwwYwIIwAIw5AwQIwoIwgIwYIwwAwIAwAAw55gQAwoAwgAwYAwwIwIYwAYw5QwQYwoYwgYwYYwwQwIQwAQw5IwQQwoQwgQwYQwQoAYoAAoAIoAwoA5oAgoAooAQgAYgAAgAIgAwgA5gAggAogAQ5AY5AA5AI5Aw5A55Ag5Ao5AQwAYwAAwAIwAwwA5wAgwAowAQIAYIAw4wpy9"
DATA"wIA5IAgIAoIAAgAggAAAAgAAAggwwwAAggAgQYAYYAAYAIYAwYA5YAgYAoYAQQAYQAAQAIQAwQA5QAgQAoQAQoQYoQAoQIoQwoQ5oQgoQooQQgQYgQAgQIgQwgQ5gQggQogQQ5QY5QA5QI5Qw5Q55Qg5Qo5QQwQYwQAwQIwQwwQ5wQgwQowQQIQYIQAIQIIQwIQ5IQgIQoIQQAQYAQAAQIAQwAQ5AQgAQoAQQYQYYQAYQIYQwYQ5YQ"
DATA"gYQoYQQQQYQQAQQIQQwQQ5QQgQQoQQ@A@&20#16#08?#83???#38??#29??#12???$24#16#10?#81???#38??#28???#10#07?$22#16??#06??#80????#37??#26#05?#10????$22#16??#07??#79????#37??#26#05?#"
DATA"09??#05??$21#16??#07?????#05???????#07???#05?????#08???#05?????#12?????????#08??????????????#08???#14??#09??#05??$21#16??#07??#07?#05?#05?#07?#08?#07?#08?#10????#08?"
DATA"#08?#06?#08?#07?#12??#09??#05??$21#16??#06???????????????????????????????#10?????????????????????????????#12??#09??#05??$21#16#10???#05????"
DATA"???#06??#05????#05????#05????#05??#08??#05????#05????#05??#08????#05????#05??#11??#09??#05??$21#16#08?#09???#05??????#05????#05??#09???#05??#08#09???#05????#05??#05#05???#05??#09?"
DATA"#11??#09??#05??$21#16??#10#09???#07?????#05????#05??#09???#05??#07#11???#05????#05?????????#05??#09?#11??#09??#05??$21#16??#10??#09??#09????#05????#05????#09??#05??#07??#07????#05??"
DATA"??#05????????#05????#18??#09??#05??$21#16??#11????????????????#05????????#05??#07??#07????#05?????????????????????#11??#10????$22#16??#11#07???#05#05?"
DATA"#07???#05??#07???#05??#06??#09????#05??#08?#09?#08?#07?#12??#05??#07?$22#16??#13???#05??#06???#07???#05??#05??#05???#05??#05??#06??#09????#05??#05????????????????#08???#14??#05??#05???$"
DATA"24$27??#05??$84$28????$85$28#07?$85$30???$87&20$71#08?#17#12?#12??#09??#25#12???#09??#13??#21$71#09?#16#12?#12?"
DATA"?#09??#25#12???#09??#13??#21$71??#05???#20??#17??#41??#06??#24??#21$71??#06??#20??#17??#41??#06??#24??#21$71??#06????#05??#10??#09???#05?????#05??????#06???#13??#06?????#05??#05???#05??#21$71??#05?"
DATA"????#05??#10??#07#07?#08???#06?#05?#12??#06#08???#07???#21$71#09???#05??#10??#07?????????????????????#11??#06?????????????#21$71#09?????#11??#06??#05????#05?"
DATA"???#08?????#15??#06??#05??????#05????#21$71??#05???????#11??#06??#05????#05????#05#05?????#13??#06??#05????#09???#21$71??#06??????#12??#06??#05????#05?????????#05???#12??#06??#0"
DATA"5????#09???#21$71??#06??????#12??#06??#05????#05????????#07??#11??#06??#05??????#09??#21$71??#05???#05?#12??#07????????????????????#11??#06??#05??????????#21$71"
DATA"#09?#05???#13??#07#07?#08???#09?#05?#12??#06??#05????#07???#21$71#08?#06???#13??#09???#05?????#05???????????#13??#06??#05????#05???#05??#21$85??$33$83????$33$83???$34&20"
DATA""
DATA#
BMX
SLEEP
SCREEN 12
COLOR 7
PRINT " Personen Angabe 1.0 "
PRINT " "
PRINT ""
PRINT " Taste Dr?cken um zu beginnen ! "
SLEEP
CLS
COLOR 3
PRINT " Bitte keine Umlaute wie , , ? "
INPUT ""; Test$
INPUT ""; Test$
INPUT ""; Test$
INPUT " Name : "; Name$
INPUT " Vorname : "; Vorname$
INPUT " Alter : "; Alter$
INPUT " Land : "; Land$
INPUT " Wohnort : "; Wohnort$
INPUT " Straαe Hausnummer : "; sh$
INPUT " Tel : "; Tel$
INPUT " Handy : "; Handy$
INPUT " Beruf : "; Beruf$
INPUT " Freundin / Freund "; Freund$
INPUT " Sonstiges / Kommentar : "; kom$
PRINT ""
PRINT ""
PRINT ""
PRINT " Alle Angaben abgeschlossen . "
PRINT ""
PRINT ""
PRINT ""
PRINT ""
PRINT ""
PRINT ""
PRINT " Bitte Taste Dr?cken . "
SLEEP
COLOR 6
PRINT " Name : "; Name$
PRINT " Vorname : "; Vorname$
PRINT " Alter : "; Alter$
PRINT " Land : "; Land$
PRINT " Wohnort : "; Wohnort$
PRINT " Straαe / Hausnummer : "; sh$
PRINT " Tel : "; Tel$
PRINT " Handy : "; Handy$
PRINT " Beruf : "; Beruf$
PRINT " Freundin/Freund : "; Freund$
PRINT " Sonstiges / Kommentar : "; kom$
PRINT ""
PRINT ""
PRINT " Taste dr?cken um Schreibvorgang zu beginnen . "
SLEEP
OPEN "c:\Antrag.doc" FOR OUTPUT AS #1
WRITE #1, " Name : " + Name$
WRITE #1, " Vorname : " + Vorname$
WRITE #1, " Alter : " + Alter$
WRITE #1, " Land : " + Alter$
WRITE #1, " Wohnort : " + Wohnort$
WRITE #1, " Straαe / Hausnummer : " + sh$
WRITE #1, " Tel : " + Tel$
WRITE #1, " Handy : " + Handy$
WRITE #1, " Beruf : " + Beruf$
WRITE #1, " Freund/Freundin : " + Freund$
WRITE #1, " Sonstiges / Kommentar : " + kom$
CLOSE
PRINT " 10 % "
SLEEP 30
CLS
PRINT " 20 % "
SLEEP 30
CLS
PRINT " 30 % "
SLEEP 30
CLS
PRINT " 40 % "
SLEEP 30
CLS
PRINT " 50 % "
SLEEP 30
CLS
PRINT " 60 % "
SLEEP 30
CLS
PRINT " 70 % "
SLEEP 30
CLS
PRINT " 80 % "
SLEEP 30
CLS
PRINT " 90 % "
SLEEP 30
CLS
PRINT " 100 % "
SLEEP 30
CLS
PRINT " Schreibvorgang abgeschlossen . "
PRINT ""
PRINT " Sie finden alle Angaben unter C:\ wieder ! "
PRINT ""
PRINT ""
PRINT " BY TOBIAS THIEL IN 2005 "
SLEEP
SYSTEM
END
SUB BMX
LOCATE 4, 5: PRINT "loading...": DEFINT A-Z: DIM num$(640): min = 0: ff = 0
FOR A = 0 TO 639: ff = ff + 1: IF ff = 128 THEN min = min + 128
b = A
IF A < 128 * 4 THEN
IF A < 128 * 3 THEN
IF A < 256 THEN
IF A > 127 THEN
b = b - 128: nr$ = CHR$(3) + CHR$(b + 128)
ELSE
nr$ = CHR$(b + 128)
END IF
ELSE
b = b - 128 * 2: nr$ = CHR$(4) + CHR$(b + 128)
END IF
ELSE
b = b - 128 * 3: nr$ = CHR$(5) + CHR$(b + 128)
END IF
ELSE
b = b - 128 * 4: nr$ = CHR$(6) + CHR$(b + 128)
END IF
C = A - min: num$(A) = nr$: NEXT
OPEN "C.atm" FOR OUTPUT AS #1
DO UNTIL A$ = "#"
READ A$
FOR A = 1 TO LEN(A$)
C$ = MID$(A$, A, 1)
IF C$ = CHR$(8) THEN PRINT #1, b$: b$ = "": C$ = ""
b$ = b$ + C$
NEXT A
LOOP
CLOSE #1
z = -3
OPEN "c.atm" FOR INPUT AS #1
OPEN "BILD.atm" FOR OUTPUT AS #2
LINE INPUT #1, pal$
PRINT #2, pal$
DO UNTIL EOF(1)
OA$ = A$
LINE INPUT #1, A$
IF A$ = "" THEN A$ = OA$
FOR A = 1 TO LEN(A$)
C = 11
OOOB$ = OOB$
OOB$ = OB$
OB$ = b$
b$ = RIGHT$(LEFT$(A$, A), 1)
r = ASC(b$)
IF r >= 35 AND r <= 43 THEN C = 12: z = 3
IF z >= -1 THEN z = z - 1: IF z >= -1 THEN C = 14
IF z = -1 THEN
H$ = STR$(ASC(OOOB$) - 35)
G$ = RIGHT$(H$, LEN(H$) - 1) + OOB$ + OB$ + b$
ZE$ = ZE$ + STRING$(VAL(LEFT$(G$, 3)), RIGHT$(G$, 1))
END IF
IF C = 11 THEN ZE$ = ZE$ + b$
oc = C
NEXT
PRINT #2, ZE$
ZE$ = ""
LOOP
CLOSE #1: CLOSE #2: A = 0: SCREEN 13
FOR e = 3 TO LEN(pal$) STEP 3
F$ = RIGHT$(LEFT$(pal$, e), 3): OUT &H3C8, A
BMXp b, LEFT$(F$, 1): OUT &H3C9, b
BMXp C, RIGHT$(LEFT$(F$, 2), 1): OUT &H3C9, C
BMXp d, RIGHT$(F$, 1): OUT &H3C9, d
A = A + 1
NEXT
OPEN "BILD2.atm" FOR OUTPUT AS #3
OPEN "BILD.atm" FOR INPUT AS #1
LINE INPUT #1, pal$
DO WHILE NOT EOF(1)
LINE INPUT #1, A$
FOR A = 1 TO LEN(A$)
OB$ = b$
b$ = RIGHT$(LEFT$(A$, A), 1)
d = ASC(b$)
IF d > 2 AND d < 7 THEN nr = 2
IF nr >= 0 THEN nr = nr - 1: q = 0: IF nr > 0 THEN q = 1
IF nr = 0 THEN
FOR ww = 0 TO 639
IF num$(ww) = b$ THEN EXIT FOR
NEXT ww
d = ww: q = 0
END IF
IF q = 0 THEN PSET (x, y), d - 128: x = x + 1
NEXT
x = 0
y = y + 1
LOOP
CLOSE : KILL "*.atm"
END SUB
SUB BMXp (u, b$) : FOR u = 0 TO 64: b = u + 65: IF u > 25 THEN b = 71 + u: IF u > 51 THEN b = u - 3: IF u > 62 THEN b = u + 1: IF u = 64 THEN b = 46
IF b$ = CHR$(b) THEN EXIT FOR
NEXT: END SUB
|
_________________
Courage ist gut, aber Ausdauer ist besser. |
|
| Nach oben |
|
 |
Xolios
aka Ray
Anmeldungsdatum: 07.12.2004
Beitrδge: 589
Wohnort: Wildeshausen
|
| Verfasst am: 08.03.2005, 15:31 Titel: omg |
|
|
Hallo.
Also auf den ersten blick omg. 
Ich habe mir nicht alles durchgesehen aber 
nimm die ganzen sleeps da weg oder setzte sie auf 1
Das warten is doch der Horror!
Gruί
Ray
_________________
www.ray-earth.de
Anm.: Neue ICQ |
|
| Nach oben |
|
|
Devilkevin
aka Kerstin
Anmeldungsdatum: 11.11.2004
Beitrδge: 2532
Wohnort: nδhe Mannheim
|
| Verfasst am: 08.03.2005, 16:12 Titel: |
|
|
Kannst du mal erklδren fόr was die ganzen DATA Befehle sind  ?
Es scheint ja ne Art "Steckbrief-Manager" zu sein !
Sag mal bitte was genau das Prog machen soll - der Code ist nδhmlich naja Unόbersichtlich und die Reihenfolge Unlogisch 
Ein Tip hδtte ich aber schon, benutze anstatt WRITE einfach PRINT
dk
_________________
www.piratenpartei.de |
|
| Nach oben |
|
|
jb
Anmeldungsdatum: 14.01.2005
Beitrδge: 2010
|
| Verfasst am: 08.03.2005, 16:34 Titel: |
|
|
Hallo.
Das
| Code: |
PRINT " 10 % "
SLEEP 30
CLS
PRINT " 20 % "
SLEEP 30
CLS
PRINT " 30 % "
SLEEP 30
CLS
PRINT " 40 % "
SLEEP 30
CLS
PRINT " 50 % "
SLEEP 30
CLS
PRINT " 60 % "
SLEEP 30
CLS
PRINT " 70 % "
SLEEP 30
CLS
PRINT " 80 % "
SLEEP 30
CLS
PRINT " 90 % "
SLEEP 30
CLS
PRINT " 100 % "
SLEEP 30
|
kφnnte man durch
| Code: |
FOR p% = 1 to 10
CLS
PRINT RTRIM$(LTRIM$(STR$(p% * 10)))
SLEEP 3
NEXT p%
|
Ist ca. 9 mal kόrzer...
| Jet X hat Folgendes geschrieben: |
So , ich abe ein Programm geschreiben !
|
Wδre aber schφn zu erfahren, was das Programm genau machen sollte...
Ich mein, es ist klar, das es ein Personen-Registrator sein soll,
aber was sollen die ganzen DATAs??
| Devilkevin hat Folgendes geschrieben: |
Ein Tip hδtte ich aber schon, benutze anstatt WRITE einfach PRINT
|
Was ist der entscheidende Unterschied zwischen WRITE und PRINT??
Ist das nicht wurscht?
EDIT: Warum murkst du so mit den Dateien rum?
Um eine einfache Grafik anzuzeigen, solltest du lieber
SCREEN 13 anstatt SCREEN 12 benutzen, und fόr die Grafik
BSAVE/BLOAD oder einen BMP-Loader benutzen.
jb |
|
| Nach oben |
|
|
code
Anmeldungsdatum: 19.01.2005
Beitrδge: 154
|
| Verfasst am: 08.03.2005, 17:30 Titel: |
|
|
| Zitat: | Was ist der entscheidende Unterschied zwischen WRITE und PRINT??
Ist das nicht wurscht? |
ist nicht wurscht. so weit ich weiί fόgt write ein koma hinter dem zu schreibenden ein. (und setzt es glaub ich in Anfόhrungszeichen). |
|
| Nach oben |
|
|
Jet X
gesperrt
Anmeldungsdatum: 05.01.2005
Beitrδge: 447
|
| Verfasst am: 08.03.2005, 17:53 Titel: Also so ist das ....... |
|
|
Das Programm dient dazu einfache Abfragen die man selbst beantwortet unter Windows abzuspeichern !
Den Quell Text habe ich einfach in Qbasic so abgespeichert das man es als Benutzer lesen kann ! Manche Befehle sind plφtzlich anders als ursprόnglich !
PS : Kann mit jemand noch eine gute Lade Rotine mit Zahlen sagen ?
Viele Grόίe JET X !
Und ...... wo zu ist der Befehl Write ?
_________________
Courage ist gut, aber Ausdauer ist besser. |
|
| Nach oben |
|
|
Sebastian
Administrator
Anmeldungsdatum: 10.09.2004
Beitrδge: 5969
Wohnort: Deutschland
|
|
| Nach oben |
|
|
jb
Anmeldungsdatum: 14.01.2005
Beitrδge: 2010
|
| Verfasst am: 08.03.2005, 18:41 Titel: |
|
|
| Jet X hat Folgendes geschrieben: |
Das Programm dient dazu einfache Abfragen die man selbst beantwortet unter Windows abzuspeichern !
|
Dazu machst du dir aber sehr viel Arbeit.
Hier mal ein (Beispiel-)Code:
| Code: |
REM Ein Typ fόr die Eingaben erstellen
TYPE Daten
BenutzerName AS STRING
Telefonnummer AS STRING
HausNr AS INTEGER
END TYPE
DIM User AS Daten
SCREEN 0
CLS
PRINT
PRINT "Geben sie bitte ihre Daten ein!"
PRINT
LINE INPUT " Name --> "; User.BenutzerName
LINE INPUT " Telefonnummer --> "; Telefonnummer
LINE INPUT " Hausnummer -->"; Dummy$
User.HausNr = VAL(Dummy$)
REM Und alles unter C:\TEXT.TXT abspeichern
OPEN "C:\TEXT.TXT" FOR OUTPUT AS #1
WRITE #1, User.BenutzerName, User.Telefonnummer, User.HausNr
CLOSE #1
REM Daten aus Variable User lφschen:
User.BenutzerName = ""
User.Telefonnummer = ""
User.HausNr = 0
REM Daten wieder einlesen:
OPEN "C:\TEXT.TXT" FOR INPUT AS #1
INPUT #1, User.BenutzerName, User.Telefonnummer, User.HausNr
CLOSE #1
REM und ausgeben:
PRINT
PRINT " Die Daten wurden gespeichert und werden nun angezeigt -->"
PRINT " Name --> "; User.BenutzerName
PRINT " Die Telefonnummer --> "; User.Telefonnummer
PRINT " Die Hausnummer --> "; User.HausNr
END
|
Zugegeben, es geht auch kόrzer, aber ich finde, das άbersichtlichkeit und
Struktur sehr wichtig sind.
jb |
|
| Nach oben |
|
|
Devilkevin
aka Kerstin
Anmeldungsdatum: 11.11.2004
Beitrδge: 2532
Wohnort: nδhe Mannheim
|
| Verfasst am: 08.03.2005, 20:24 Titel: |
|
|
Ich versteh das mit den DATA's immer noch nicht
| Zitat: | Was ist der entscheidende Unterschied zwischen WRITE und PRINT??
Ist das nicht wurscht?
|
Wen du die Datei mit Write schreibst und dann z.b. in Word φffnest sehen alle Sδtze so aus: "xyz"
dk
_________________
www.piratenpartei.de |
|
| Nach oben |
|
|
jb
Anmeldungsdatum: 14.01.2005
Beitrδge: 2010
|
| Verfasst am: 08.03.2005, 20:55 Titel: |
|
|
Die DATAs brauch er fόr irgendein Startbild am Anfang.
Den tieferen Sinn verstehe ich aber auch nicht...
| Devilkevin hat Folgendes geschrieben: |
Wen du die Datei mit Write schreibst und dann z.b. in Word φffnest sehen alle Sδtze so aus: "xyz"
|
Haha, wenn man sie όberhaupt mit WORD geφffnet kriegt, von wegen
"Falsches Format, blablabla".
Herrlich, dieses Windows, oder?
jb |
|
| Nach oben |
|
|
|
|
Du kannst keine Beitrδge in dieses Forum schreiben.
Du kannst auf Beitrδge in diesem Forum nicht antworten.
Du kannst deine Beitrδge in diesem Forum nicht bearbeiten.
Du kannst deine Beitrδge in diesem Forum nicht lφschen.
Du kannst an Umfragen in diesem Forum nicht mitmachen.
|
|
FAQ
Suchen
Mitgliederliste
Benutzergruppen
Registrieren
Profil
Einloggen, um private Nachrichten zu lesen
Login
