 |
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 |
General
Anmeldungsdatum: 26.11.2006
Beiträge: 149
|
 Verfasst am: 28.01.2007, 12:36 Titel: [Fehler behoben]kein problem mehr |
 |
|
also gestern habe ich noch ganz normal programmiert, heute morgen mache ich meinen pc an und will weiter machen und es kommt das
http://img219.imageshack.us/img219/1328/bild2mm8.png
haufen fehler in den subs, aber ich weiß net warum, weil gestern ging alles noch
Zuletzt bearbeitet von General am 28.01.2007, 16:26, insgesamt 2-mal bearbeitet |
|
| Nach oben |
|
 |
ytwinky
Anmeldungsdatum: 28.05.2005
Beiträge: 2624
Wohnort: Machteburch
|
| Verfasst am: 28.01.2007, 12:52 Titel: |
|
|
Hübsches Bild, aber ein wenig groß für den Inhalt 
..daß es etwas klebrig wirkt, mag am Bonbon-Look liegen 
Das Bild läßt sich mit entsprechenden Programmen sicherlich noch schöner machen 
_________________
| v1ctor hat Folgendes geschrieben: | | Yeah, i like INPUT$(n) as much as PRINT USING.. |
..also ungefähr so, wie ich GOTO.. |
|
| Nach oben |
|
|
Mao
Anmeldungsdatum: 25.09.2005
Beiträge: 4409
Wohnort: /dev/hda1
|
| Verfasst am: 28.01.2007, 12:53 Titel: |
|
|
Zeig bitte entweder den kompletten Source oder die betroffenen Zeilen ab 172.
Es kann sein, dass du End Sub vergessen hast.
_________________
Eine handvoll Glück reicht nie für zwei.
--
 |
|
| Nach oben |
|
|
Jojo
alter Rang
Anmeldungsdatum: 12.02.2005
Beiträge: 9736
Wohnort: Neben der Festplatte
|
| Verfasst am: 28.01.2007, 12:54 Titel: |
|
|
Das Bild is doch in Ordnung? XD Klar, die PNG würde *ich* auf unter 10kb bringen, aber das is jetzt nebensache...
ich tippe darauf, dass du irgendwo eine böse zeile eingefügt hast, dafür brauchen wir den quellcode.
_________________
» Die Mathematik wurde geschaffen, um Probleme zu lösen, die es nicht gäbe, wenn die Mathematik nicht erschaffen worden wäre.
 |
|
| Nach oben |
|
|
General
Anmeldungsdatum: 26.11.2006
Beiträge: 149
|
| Verfasst am: 28.01.2007, 13:09 Titel: |
|
|
hmm irh werdet mich jetzt hassen, aber ich muss euch den ganzen code reinstellen weil ich jetzt net weiter weiß
| Code: |
'Einrichten des Bildschirm und der Grafik
dim as integer breite, hoehe,a,b
declare sub datein
declare sub grafik
declare sub anfang
declare sub zensuren
declare sub klassen
declare sub balken
declare sub maus
declare sub maus2
declare sub maus3
declare sub auslesen
declare sub auslesen2
declare sub auslesen3
declare sub faecher
dim as string x,t
SCREEN 20
shell"md,Fächer"
datein
grafik
'Tastenabfrage#######################################
do
x=inkey$
if x=chr$(13) then
anfang
end if
if x=chr$(27) then
end
end if
loop until x=chr$(27) or x=chr$(13)
' Zensuren###############################
zensuren
'SUBS####################################
sub datein
if dir("Fächer\Mathe.txt")="" then
open"Fächer\Mathe.txt" for output as #1
close #1
end if
if dir("Fächer\Deutsch.txt")="" then
open"Fächer\Deutsch.txt" for output as #1
close #1
end if
if dir("Fächer\Englisch.txt")="" then
open "Fächer\Englisch.txt" for output as #1
close #1
end if
if dir("Fächer\Sonstige-Mathe.txt")="" then
open"Fächer\Sonstige-Mathe.txt" for output as #1
close #1
end if
if dir("Fächer\Sonstige-Deutsch.txt")="" then
open"Fächer\Sonstige-Deutsch.txt" for output as #1
close #1
end if
if dir("Fächer\Sonstige-Englisch.txt")="" then
open"Fächer\Sonstige-Englsich.txt" for output as #1
close #1
end if
end sub
sub grafik
color,0125
cls
dim as integer breite,hoehe
breite = 1024: hoehe = 768
LINE (0,0)-(breite-1,99),7153,BF
LINE (0,hoehe-101)-(breite-1,hoehe-1),7153,BF
color 15,7153
locate 3,43
?"IHR PERS";chr$(153);"NLICHES ZENSURENVERWALTUNGSPROGRAMM"
color 15,7153
locate 43,1
?"Copyright Christopher Kruczek"
locate 45,1
?"Findsch-Geil@web.de"
locate 47,1
?"Alle Rechte Vorbehalten"
'Menüs###############################################
color 15,0125
locate 20,44
?"[ENTER]Programm starten"
color 15,0125
locate 25,44
?"[ESC]Programm beenden"
end sub
sub anfang
color,0125
cls
dim as integer breite,hoehe
breite = 1024: hoehe = 768
LINE (0,0)-(breite-1,99),7153,BF
LINE (0,hoehe-101)-(breite-1,hoehe-1),7153,BF
color 15,7153
locate 3,43
?"IHR PERS";chr$(153);"NLICHES ZENSURENVERWALTUNGSPROGRAMM"
color 15,7153
locate 43,1
?"Copyright Christopher Kruczek"
locate 45,1
?"Findsch-Geil@web.de"
locate 47,1
?"Alle Rechte Vorbehalten"
locate 43,114
?"[Z]Zur";chr$(129);"ck"
end sub
sub zensuren
dim as string x
do
x=inkey$
color 15,0125
locate 20,42
?"[1]Zensuren eintragen?"
locate 22,42
?"[2]Zensuren anschauen?"
locate 24,42
?"[ESC] Beenden"
if x=chr$(27) then
end
end if
if x=chr$(49) then
anfang
faecher
end if
loop until x=chr$(27) or x=chr$(49)
end sub
'Die Sache mit Noten#######################
do
x=inkey$
select case x
case chr$(27)
end
case chr$(122)
anfang
zensuren
case chr$(109)
anfang
balken
klassen
maus
case chr$(100)
anfang
balken
klassen
maus2
case chr$(101)
anfang
balken
klassen
maus3
end select
loop
sleep
sub klassen
color 15,0125
locate 10,15
?" Klassenarbeiten"
locate 10,70
?" Sonstige Leistungen"
end sub
sub balken
line (111,160)-(264,143),0,b
line (551,160)-(736,143),0,b
locate 10,10
end sub
sleep
sub maus
dim as integer x,y,a,b
dim button as integer
do
' Lade Mauskoordinaten ohne Mausrad.
GETMOUSE x, y,, button
if x>111 and x<264 and y>143 and y<160 and bit(button,0) then
locate 13,15
input"Ihre Note";a
open"Fächer\Mathe.txt" for append as #1
print #1,a
close #1
locate 15,15
?"Gespeichert"
end if
if x>551 and x<736 and y>143 and y<160 and bit(button,0) then
locate 13,70
input"Ihre Note?";b
open"Fächer\Sonstige-Mathe.txt" for append as #1
print #1," ",b
close #1
locate 15,70
?"Gespeichert"
end if
LOOP until bit(button,0)
end sub
sub maus2
dim as integer x,y,a,b
dim button as integer
do
' Lade Mauskoordinaten ohne Mausrad.
GETMOUSE x, y,, button
if x>111 and x<264 and y>143 and y<160 and bit(button,0) then
locate 13,15
input"Ihre Note";a
open"Fächer\Deutsch.txt" for append as #1
print #1,a
close #1
locate 15,15
?"Gespeichert"
end if
if x>551 and x<736 and y>143 and y<160 and bit(button,0) then
locate 13,70
input"Ihre Note?";b
open"Fächer\Sonstige-Deutsch.txt" for append as #1
print #1," ",b
close #1
locate 15,70
?"Gespeichert"
end if
LOOP until bit(button,0)
end sub
sub maus3
dim as integer x,y,a,b
dim button as integer
do
' Lade Mauskoordinaten ohne Mausrad.
GETMOUSE x, y,, button
if x>111 and x<264 and y>143 and y<160 and bit(button,0) then
locate 13,15
input"Ihre Note";a
open"Fächer\Englisch.txt" for append as #1
print #1,a
close #1
locate 15,15
?"Gespeichert"
end if
if x>551 and x<736 and y>143 and y<160 and bit(button,0) then
locate 13,70
input"Ihre Note?";b
open"Fächer\Sonstige-Englisch.txt" for append as #1
print #1," ",b
close #1
locate 15,70
?"Gespeichert"
end if
LOOP until bit(button,0)
end sub
sub faecher
color 15,0125
locate 20,44
?"[M] Mathe"
locate 22,44
?"[D] Deutsch"
locate 24,44
?"[E] Englisch"
end sub
sub auslesen
dim as integer x,y,a,button
do
' Lade Mauskoordinaten ohne Mausrad.
GETMOUSE x, y,, button
if x>111 and x<264 and y>143 and y<160 and bit(button,0) then
locate 13,15
?"Ihre Noten";
open "Fächer\Mathe.txt" for input as #1
end if
do until eof(1)
input #1,a
print a
loop
close #1
if x>551 and x<736 and y>143 and y<160 and bit(button,0) then
locate 13,70
?"Ihre Noten";
open "Fächer\Sonstige-Mathe.txt" for input as #1
end if
do until eof(1)
input #1,a
print a
loop
close #1
loop until bit(button,0)
end sub
|
also ich weiß sicherlich habt ihr verbesserungs vorschläge aber is ja erstma nebensächlich, für mich is die problem stelle hier
| Code: |
sub zensuren
dim as string x
do
x=inkey$
color 15,0125
locate 20,42
?"[1]Zensuren eintragen?"
locate 22,42
?"[2]Zensuren anschauen?"
locate 24,42
?"[ESC] Beenden"
if x=chr$(27) then
end
end if
if x=chr$(49) then
anfang
faecher
end if
loop until x=chr$(27) or x=chr$(49)
end sub |
da betshet meien frage, wie kann ich es so machen das wenn die taste 2 gedrückt wird,ioch dann wieder auswählen kann welches fach und dann zum schluss die noten aus den datein ausgelesen werden, ich denke ma der sub mit dem auslesen is noch net ganz fertig, hoffe ihr blickt durch und könnt mir helfen
achja ich habe die meisten meiner subs ganz unten angeordnte, bis auf ein paar, hoffe ihr blickt durch SORRY
EDIT: also es geht alles an dem programm, das ich noten eintragen kann und und,,aber halt nur net das ich das selbe fürs auslesen machen kann |
|
| Nach oben |
|
|
ytwinky
Anmeldungsdatum: 28.05.2005
Beiträge: 2624
Wohnort: Machteburch
|
| Verfasst am: 28.01.2007, 13:27 Titel: |
|
|
| General hat Folgendes geschrieben: | | Code: | if dir("Fächer\Sonstige-Englisch.txt")="" then
open"Fächer\Sonstige-Englsich.txt" for output as #1
close #1
end if |
|
..kannste mir mal erklären, was hier passieren soll?
Oder ist das ein MixUp aus Englisch und Religion 
_________________
| v1ctor hat Folgendes geschrieben: | | Yeah, i like INPUT$(n) as much as PRINT USING.. |
..also ungefähr so, wie ich GOTO.. |
|
| Nach oben |
|
|
General
Anmeldungsdatum: 26.11.2006
Beiträge: 149
|
| Verfasst am: 28.01.2007, 13:32 Titel: |
|
|
| naja was soll da passieren, der überprüft ob die datei schon existiert wenn sie das noch ent tut dann erstellt sie, weil wenn ich das programm zum prüfen starte und ich das net mit reinnehmen würde dann würde er die datei doch immer wieder neu erstellen und das bringt doch nix oer, dann hab die die datei zg tausen ma , dat will ick net, naja hast du denn ne lösung zu meinem problem |
|
| Nach oben |
|
|
ytwinky
Anmeldungsdatum: 28.05.2005
Beiträge: 2624
Wohnort: Machteburch
|
| Verfasst am: 28.01.2007, 13:39 Titel: |
|
|
| nochmalzummitlesenundnichtnurüberfliegen hat Folgendes geschrieben: | if dir("Fächer\Sonstige-Englisch.txt")="" then
open"Fächer\Sonstige-Englsich.txt" for output as #1
close #1
end if |
..wenn es also die Datei Fächer\Sonstige-Englisch.txt nicht gibt,
wird die Datei Fächer\Sonstige-Englsich.txt erstellt ?
Und dann beim nächsten Aufruf sind die Daten wech
Ich empfehle für die Dateinamen Variablen, dann brauchste Schreibfehler nur einmal zu berichtigen..
_________________
| v1ctor hat Folgendes geschrieben: | | Yeah, i like INPUT$(n) as much as PRINT USING.. |
..also ungefähr so, wie ich GOTO..
Zuletzt bearbeitet von ytwinky am 28.01.2007, 13:42, insgesamt einmal bearbeitet |
|
| Nach oben |
|
|
General
Anmeldungsdatum: 26.11.2006
Beiträge: 149
|
| Verfasst am: 28.01.2007, 13:41 Titel: |
|
|
nene die sind und bleiben da, seit dem ich die das programm das erste ma ausgeführt habe mit der funktion, also wenn das programm ausgeführt wird dann prüft es ob es die datei schon gibt wenn ja dann geht das programm weiter und es wird nix erstellt, aber wenn es die datei net geben sollte, wird sie erstellt, damit will ich verhindern das ich tausende datein erstelle,
P.S. noch ma danke an jojo der hat mir dabei geholfen |
|
| 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
