 |
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 |
vinny
Anmeldungsdatum: 27.02.2007
Beiträge: 32
|
 Verfasst am: 28.02.2007, 22:39 Titel: |
 |
|
Hi!
soa... das grundgerüst steht:) allerdings habe ich noch problem, dass der die tastenkürzel auch benutzt, wenn ich das garnicht will. wenn ich also zum beispiel im hauptmenu 1 drücke um zur mitgliederveraltung zu gelangen komme ich auch da hin, wenn ich aber dann in der neuen auswahl zum beispiel 2 drücke, komme ich zu den listen. kann man das so einstellen, dass der nur im hauptmenu in diese unterordner geht, damit ich dann in den unterordnern die tasten wieder frei habe für neue aufgaben?
außerdem würde ich gerne wissen, mit welchem code ich wieder injs hauptmenu komme, egal in welchen Unterordner ich mich befinde.
Gruß vinny |
|
| Nach oben |
|
 |
General
Anmeldungsdatum: 26.11.2006
Beiträge: 149
|
| Verfasst am: 28.02.2007, 22:45 Titel: |
|
|
| stell doch nochma den code rein den du jetzt hast ?achja du hast post;) |
|
| Nach oben |
|
|
vinny
Anmeldungsdatum: 27.02.2007
Beiträge: 32
|
| Verfasst am: 28.02.2007, 22:47 Titel: |
|
|
| Code: | dim as string taste
dim as integer wert1,wert2,wert3,wert4,wert5,wert6
screen 19
print "VEREINSVERWALTUNG"
print "Zum Starten 's' druecken"
print "Zum Beenden 'Esc' druecken"
do
taste=inkey$
if taste ="s" then
cls
print "VEREINSVERWALTUNG"
print "(1) Mitgliederverwaltung"
print "(2) Listen"
print "(3) Geburtstage etc."
print "(4) Mitgliedersuche"
print "Zum Beenden 'Esc' druecken"
sleep
end if
IF taste ="1" then
cls
print "Mitglied hinzufuegen"
print "Mitglied loeschen"
print "Zum Beenden 'Esc' druecken"
sleep
end if
IF taste ="2" then
cls
print "Mitgliederliste"
sleep
end if
IF taste ="3" then
cls
print " Aktuelle Geburtstage anzeigen"
print " Aktuelle Jubilaeen anzeigen"
print " Aktuelle Hochzeitstage anzeigen"
print "Zum Beenden 'Esc' druecken"
sleep
end if
IF taste ="4" then
cls
print "Zum Beenden 'Esc' druecken"
print "MITGLIEDER NACH KRITERIEN SUCHEN"
INPUT "Name: ", wert1
input "Vorname: ", wert2
input "Strasse: ", wert3
input "PLZ: ", wert4
input "Ort: ", wert5
input "Alter: ", wert6
print "->Die Daten wurden eingetragen<-"
end if
loop until taste=chr$(27)
|
|
|
| Nach oben |
|
|
General
Anmeldungsdatum: 26.11.2006
Beiträge: 149
|
| Verfasst am: 28.02.2007, 22:50 Titel: |
|
|
| hmm... naja ich habe dir doch einen code von mir geschickt. da kannste sehen wie man wieder zurückkehren kann und usw... was du gefragt hast .Guck ihn dir ma an.Denn ich frage mich wo trägst du denn die Daten rein?? |
|
| Nach oben |
|
|
vinny
Anmeldungsdatum: 27.02.2007
Beiträge: 32
|
| Verfasst am: 28.02.2007, 22:53 Titel: |
|
|
Hi!
hab ich dir auch grad geschickt  ich hab vor die daten inne *.dat datei zu schreiben... geht das?
ist das mit dem abtrennen wie bei deinem code das mit sub und end sub? |
|
| Nach oben |
|
|
General
Anmeldungsdatum: 26.11.2006
Beiträge: 149
|
| Verfasst am: 28.02.2007, 22:57 Titel: |
|
|
| richtig ich würde dir empfehlen bei größeren programmen viel mit subs und functionen zu arbeiten, da erspart man sich das lässtige "goto", aber probier dich ma |
|
| Nach oben |
|
|
vinny
Anmeldungsdatum: 27.02.2007
Beiträge: 32
|
| Verfasst am: 28.02.2007, 23:00 Titel: |
|
|
Hi!
jo ich weiß schon mal was ich dieses we primär machen werde  |
|
| Nach oben |
|
|
vinny
Anmeldungsdatum: 27.02.2007
Beiträge: 32
|
| Verfasst am: 01.03.2007, 15:41 Titel: |
|
|
Hi!
langsam wirds mir peinlich, dass ich mich schon wieder melden muss-_-°
irgentwie beschwert sich freebasic über das y=inkey$ in Zeile 36:wall:
der macht unten in dem feld wo die fehler angezeigt werden unter dem i einen pfeil und zeigt unter error nr eine 26...
@general: ich hoffe, es stört dich nicht, dass ich so viel von deinem code abgekupfert habe. ansonsten änder ich ihn selbstverständlich um;)
| Code: |
declare sub anfang
declare sub anfang2
declare sub nummer1
declare sub nummer2
declare sub nummer3
declare sub nummer4
declare sub nummer5
declare sub rueck
anfang
anfang2
sub anfang
screen 19,,,1
locate 1,27
print"+++++++++++++++++++++++++++++++++++++++++++"
locate 2,27
print"+ VEREINSVERWALTUNG +"
locate 3,27
print"+++++++++++++++++++++++++++++++++++++++++++"
locate 8,2
?"1.) Mitgliederverwaltung"
locate 12,2
?"2.) Listen anzeigen"
locate 16,2
?"3.) Geburtstage, Feiertage etc."
locate 20,2
?"4.) Mitgliedersuche"
locate 24,2
?"5.) Formulare"
locate 28,2
?"6.) Beenden"
sleep
end sub
sub anfang2
do
y=inkey$
if y="1" then nummer1
if y="2" then nummer2
if y="3" then nummer3
if y="4" then nummer4
if y="5" then nummer5
if y="6" or y=chr$(27) then end
loop
end sub
sub nummer1
cls
locate 1,27
print"+++++++++++++++++++++++++++++++++++++++++++"
locate 2,27
print"+ Mitgliederverwaltung +"
locate 3,27
print"+++++++++++++++++++++++++++++++++++++++++++"
locate 8,2
?"1.) Mitglied hinzufuegen"
locate 12,2
?"2.) Mitglied loeschen"
locate 35,2
?"Zurueck mit 'Esc'"
rueck
end sub
sub nummer2
cls
locate 1,27
print"+++++++++++++++++++++++++++++++++++++++++++"
locate 2,27
print"+ Listen +"
locate 3,27
print"+++++++++++++++++++++++++++++++++++++++++++"
locate 8,2
?"1.) Listen einsehen"
locate 35,2
?"Zurueck mit 'Esc'"
rueck
end sub
sub nummer3
cls
locate 1,27
print"+++++++++++++++++++++++++++++++++++++++++++"
locate 2,27
print"+ Geburtstage, Feiertage etc. +"
locate 3,27
print"+++++++++++++++++++++++++++++++++++++++++++"
locate 8,2
?"1.) Aktuelle Geburtstage anzeigen"
locate 12,2
?"2.) Aktuelle Hochzeitstage anzeigen"
locate 35,2
?"Zurueck mit 'Esc'"
rueck
end sub
sub nummer4
cls
locate 1,27
print"+++++++++++++++++++++++++++++++++++++++++++"
locate 2,27
print"+ Mitgliedersuche +"
locate 3,27
print"+++++++++++++++++++++++++++++++++++++++++++"
locate 8,2
?"1.) Hier kommen Suchkriterien hin"
locate 35,2
?"Zurueck mit 'Esc'"
rueck
end sub
sub nummer5
cls
locate 1,27
print"+++++++++++++++++++++++++++++++++++++++++++"
locate 2,27
print"+ Formulare +"
locate 3,27
print"+++++++++++++++++++++++++++++++++++++++++++"
locate 8,2
?"1.) Glueckwunschformulare"
locate 12,2
?"2.) Mitteilungsformulare"
locate 35,2
?"Zurueck mit 'Esc'"
rueck
end sub
sub rueck
do
y=inkey$
if y=chr$(27) then
anfang
anfang2
end if
loop
end sub
|
[/code] |
|
| Nach oben |
|
|
Eternal_pain
Anmeldungsdatum: 08.08.2006
Beiträge: 1783
Wohnort: BW/KA
|
| Verfasst am: 01.03.2007, 15:45 Titel: |
|
|
so wie ich das sehe hast Du eines vergessen:
_________________
 |
|
| Nach oben |
|
|
vinny
Anmeldungsdatum: 27.02.2007
Beiträge: 32
|
| Verfasst am: 01.03.2007, 15:58 Titel: |
|
|
Hi!
ja genau das wars  danke!!!! |
|
| Nach oben |
|
|
General
Anmeldungsdatum: 26.11.2006
Beiträge: 149
|
| Verfasst am: 01.03.2007, 16:06 Titel: |
|
|
| @vinny,nein kein thema kannst ihn frei benutzen solange du damit kein schabernak treibst |
|
| Nach oben |
|
|
vinny
Anmeldungsdatum: 27.02.2007
Beiträge: 32
|
| Verfasst am: 01.03.2007, 16:15 Titel: |
|
|
Hi!
ne keine Sorge;)
jedenfalls solange du in einem uhralten konservativen Taubenzüchterverein aus Sachsen keinen Schabernak siehst (ich komm zwar aus Niedersachsen und bin nichmal in dem Verein, mache die datenbank aber trotzdem für meinen onkel) |
|
| 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
