Help
Übersicht

![]() |
ToeBBetreff: Help |
![]() Antworten mit Zitat ![]() |
---|---|---|
Könnt ihr mir helfen?
Ich hab ne "Kartei" geschrieben. mit Sub's... nur der, wenn ich das programm starte, und ich rufe darüberdas unterprogramm ".Mutter" auf, dann zeigt der immer nur das von ".Vater" könnt ihr mir helfen?Hier der Code: Code: [AUSKLAPPEN] Print "Welche Kartei möchten Sie sich anschauen?" Print " V = Vater" Print " M = Mutter" Print "k1 = Kind 1" Print "k2 = Kind 2" Frage$ = Input ("H = Hund ------> :") If Frage$ = "V" Or "v" Then Gosub Vater Type Person Field Name$ Field Alter Field wo$ Field ErSieEs$ End Type Global Vater.Person Global Mutter.Person Global Kind2.Person Global Kind1.Person Global Hund.Person Vater.Person = New Person Mutter.Person = New Person Kind1.Person = New Person Kind2.Person = New Person Hund.Person = New Person Cls .Vater Vater\Name$ = "Franz" Vater\Alter = 52 Vater\wo$ = "Neuss" Vater\ErSieEs$ = "Männlich" Text 1, 1," Name : "+ Vater\Name$ Text 1, 21," Alter : "+ Vater\Alter Text 1, 41, " Wohnort : "+ Vater\wo$ Text 1, 61, "Geschlecht : "+ Vater\ErSieEs$ .Mutter Mutter\Name$ = "Margret" Mutter\Alter = 47 Mutter\wo$ = "Neuss" Mutter\ErSieEs$ = "Weiblich" Text 1, 1," Name : "+ Vater\Name$ Text 1, 21," Alter : "+ Vater\Alter Text 1, 41, " Wohnort : "+ Vater\wo$ Text 1, 61, "Geschlecht : "+ Vater\ErSieEs$ .Kind1 Kind1\Name$ = "Tobias" Kind1\Alter = 13 Kind1\wo$ = "Neuss" Kind1\ErSieEs$ = "Männlich" Text 1, 1," Name : "+ Vater\Name$ Text 1, 21," Alter : "+ Vater\Alter Text 1, 41, " Wohnort : "+ Vater\wo$ Text 1, 61, "Geschlecht : "+ Vater\ErSieEs$ .Kind2 Kind2\Name$ = "Frederik" Kind2\Alter = 10 Kind2\wo$ = "Neuss" Kind2\ErSieEs$ = "Männlich" Text 1, 1," Name : "+ Vater\Name$ Text 1, 21," Alter : "+ Vater\Alter Text 1, 41, " Wohnort : "+ Vater\wo$ Text 1, 61, "Geschlecht : "+ Vater\ErSieEs$ .Hund Hund\Name$ = "Ronja" Hund\Alter = 3 Hund\wo$ = "Neuss" Hund\ErSieEs$ = "Weiblich" Text 1, 1," Name : "+ Vater\Name$ Text 1, 21," Alter : "+ Vater\Alter Text 1, 41, " Wohnort : "+ Vater\wo$ Text 1, 61, "Geschlecht : "+ Vater\ErSieEs$ ja ? Danke schonma... ![]() |
||
![]() |
ToeB |
![]() Antworten mit Zitat ![]() |
---|---|---|
Oh sry...war das Falsche.... ![]() moment...hier das richtige ![]() Code: [AUSKLAPPEN] Gosub menü .Menü Cls Locate 1,1 Print " K A R T E I " Print " Vater -> 'v' Eingeben" Print "Mutter -> 'm' Eingeben" Print "Kind 1 -> 'k1' Eingeben" Print "Kind 2 -> 'k2' Eingeben" Print " Hund -> 'h' Eingeben" Text 1, 280, "Zum beenden 'x' Eingeben" Locate 1, 75 Go$ = Input ("->->->") If Go$ = "V" Then Gosub Vater If Go$ = "M" Then Gosub Mutter If Go$ = "K1"Then Gosub Kind1 If Go$ = "K2"Then Gosub Kind2 If Go$ = "H" Then Gosub Hund If Go$ = "X" Then Gosub Ende Type Person Field Name$ Field Alter% Field wo$ Field ErSieEs$ End Type Local Vater.Person Local Mutter.Person Local Kind2.Person Local Kind1.Person Local Hund.Person Vater.Person = New Person Mutter.Person = New Person Kind1.Person = New Person Kind2.Person = New Person Hund.Person = New Person Cls Vater\Name$ = "Franz" Vater\Alter% = 52 Vater\wo$ = "Neuss" Vater\ErSieEs$ = "Männlich" Mutter\Name$ = "Margret" Mutter\Alter% = 47 Mutter\wo$ = "Neuss" Mutter\ErSieEs$ = "Weiblich" Kind1\Name$ = "Tobias" Kind1\Alter% = 13 Kind1\wo$ = "Neuss" Kind1\ErSieEs$ = "Männlich" Kind2\Name$ = "Frederik" Kind2\Alter% = 10 Kind2\wo$ = "Neuss" Kind2\ErSieEs$ = "Männlich" Hund\Name$ = "Ronja" Hund\Alter% = 3 Hund\wo$ = "Neuss" Hund\ErSieEs$ = "Weiblich" .Vater Cls Text 1, 1, "Vater.Person" Text 1, 21," Name : "+ Vater\Name$ Text 1, 41," Alter : "+ Vater\Alter% Text 1, 61, " Wohnort : "+ Vater\wo$ Text 1, 81, "Geschlecht : "+ Vater\ErSieEs$ Text 1, 101, "Beliebige Taste zum Fortsetzen drücken!" WaitKey Gosub menü .Mutter Cls Text 1, 1, "Mutter.Person" Text 1, 21," Name : "+ Mutter\Name$ Text 1, 41," Alter : "+ Mutter\Alter% Text 1, 61, " Wohnort : "+ Mutter\wo$ Text 1, 81, "Geschlecht : "+ Mutter\ErSieEs$ Text 1, 101, "Beliebige Taste zum Fortsetzen drücken!" WaitKey Gosub menü .Kind1 Cls Text 1, 1, "Kind1.Person" Text 1, 21," Name : "+ Kind1\Name$ Text 1, 41," Alter : "+ Kind1\Alter% Text 1, 61, " Wohnort : "+ Kind1\wo$ Text 1, 81, "Geschlecht : "+ Kind1\ErSieEs$ Text 1, 101, "Beliebige Taste zum Fortsetzen drücken!" WaitKey Gosub menü .Kind2 Cls Text 1, 1, "Kind2.Person" Text 1, 21," Name : "+ Kind2\Name$ Text 1, 41," Alter : "+ Kind2\Alter% Text 1, 61, " Wohnort : "+ Kind2\wo$ Text 1, 81, "Geschlecht : "+ Kind2\ErSieEs$ Text 1, 101, "Beliebige Taste zum Fortsetzen drücken!" WaitKey Gosub menü .Hund Cls Text 1, 1, "Hund.Person" Text 1, 21," Name : "+ Hund\Name$ Text 1, 41," Alter : "+ Hund\Alter% Text 1, 61, " Wohnort : "+ Hund\wo$ Text 1, 81, "Geschlecht : "+ Hund\ErSieEs$ Text 1, 101, "Beliebige Taste zum Fortsetzen drücken!" WaitKey Gosub menü .Ende End ^^ |
||
Religiöse Kriege sind Streitigkeiten erwachsener Männer darum, wer den besten imaginären Freund hat.
Race-Project - Das Rennspiel der etwas anderen Art SimpleUDP3.0 - Neuste Version der Netzwerk-Bibliothek Vielen Dank an dieser Stelle nochmal an Pummelie, welcher mir einen Teil seines VServers für das Betreiben meines Masterservers zur verfügung stellt! |
![]() |
FOODy |
![]() Antworten mit Zitat ![]() |
---|---|---|
Hallo?
Kapierst du nicht was dir D2006 die ganze Zeit sagen will, verdammt? Du sollst entlichmal den Edit Button benutzen. (VORALLEM BEI 7min UNTERSCHIED O_o) Der steht da nicht umsonst! Ich musste das jetzt mal sagen, weil das jetzt sowas von dreist von dir ist, "Möchtegern Crack", wie du die "aufforderungen" von D2006 die ganze Zeit ignorierst. Außerdem sollst du dir mal nen besseren Thread Namen ausdenken. Gruß, FOODy EDIT: Hier ist er: ![]() EDIT 2: Crack-Mensch hat Folgendes geschrieben: sagt die richtige... ![]() Nur so mal nebenbei: Ich bin kein Weib. ;D EDIT 3: Ich hoffe mal das mein Post getrashed wird. Ist mir ja schon peinlich hier geschrieben zu haben o_O Einige Leute lernen einfach echt nichts dazu. [schimp]Dickkopf![/schmipf] |
||
- Zuletzt bearbeitet von FOODy am Do, Nov 16, 2006 17:13, insgesamt 4-mal bearbeitet
![]() |
ToeB |
![]() Antworten mit Zitat ![]() |
---|---|---|
sagt die richtige... ![]() |
||
Religiöse Kriege sind Streitigkeiten erwachsener Männer darum, wer den besten imaginären Freund hat.
Race-Project - Das Rennspiel der etwas anderen Art SimpleUDP3.0 - Neuste Version der Netzwerk-Bibliothek Vielen Dank an dieser Stelle nochmal an Pummelie, welcher mir einen Teil seines VServers für das Betreiben meines Masterservers zur verfügung stellt! |
Steve0 |
![]() Antworten mit Zitat ![]() |
|
---|---|---|
Ich denke du müsstest den Teil in dem die Abfragen kommen kurz vor der Sprungmarke ".Vater" platzieren. Dann oben das "Gosub .menü" löschen. Und dann im Programm die Buchstaben Groß eingeben. Fertig. | ||
Pixelgenaue 2D SingleSurface Engine!!! |
Beatenvoy |
![]() Antworten mit Zitat ![]() |
|
---|---|---|
Hi
wo FOODy recht hat..... ![]() Gosub und der Rotz, ist alles mist. Machs mit Select Case, ist übersichtlicher, und funktioniert auch. Grüße Beatenvoy |
||
![]() |
ToeB |
![]() Antworten mit Zitat ![]() |
---|---|---|
Hey, cool, danke! ![]() ![]() |
||
Religiöse Kriege sind Streitigkeiten erwachsener Männer darum, wer den besten imaginären Freund hat.
Race-Project - Das Rennspiel der etwas anderen Art SimpleUDP3.0 - Neuste Version der Netzwerk-Bibliothek Vielen Dank an dieser Stelle nochmal an Pummelie, welcher mir einen Teil seines VServers für das Betreiben meines Masterservers zur verfügung stellt! |
![]() |
darth |
![]() Antworten mit Zitat ![]() |
---|---|---|
hmm, ich muss Beatenvoy leider widersprechen.
gosub ist alles andere als mist. mit gosub lassen sich geniale dinge vollbringen. lässt sich ähnlich handhaben wie eine funktion, ausser dass man alles mitgeben (oder globalisieren) muss und liefert soviel zurück wie man will. gosub ist herrlich... allerdings ist das OT, aber ich habe eigentlich nicht vor mich zum thema zu äussern -.- das niveau ist ... ach vergessen wirs einfach. |
||
Diese Signatur ist leer. |
Beatenvoy |
![]() Antworten mit Zitat ![]() |
|
---|---|---|
Coden mit gosub, ist nicht grade ein guter Programmierstil.
Das gibt einen wirren Code, den dann keiner mehr folgen kann, wenn man mal ein größeres Projekt plant. |
||
![]() |
BladeRunnerModerator |
![]() Antworten mit Zitat ![]() |
---|---|---|
So, und das ist hier die letzte Chance für dich. Beim nächsten Doppelpost wird nicht nur geschlossen sondern es gibt ne Verwarnung.
Allgemein verweise ich hier noch auf den Wunsch nach vernünftigem Umgangston. Gosub kann durchaus vernünftigen und sauberen Code erzeugen vorausgesetzt man wendet es richtig an. Ich persönlich ziehe dennoch Functions (grade wegen der Scope-Trennung) vor. Zum Thema: wenn du dich näher mit Types befasst wirst du merken dass der Ansatz über tausende Typeinstanzen mit eigenen Subs und Namen den Sinn eben jener ad absurdum führt. Grade als universell ansprechbare Kollektion ist der Type wertvoll. Ich empfehle hierzu mal die Forensuche zu befreagen, es gibt schon mehrere Threads zur Erläuterung der Types. (siehe zB hier: https://www.blitzforum.de/foru...246#101246 ) |
||
Zu Diensten, Bürger.
Intel T2300, 2.5GB DDR 533, Mobility Radeon X1600 Win XP Home SP3 Intel T8400, 4GB DDR3, Nvidia GF9700M GTS Win 7/64 B3D BMax MaxGUI Stolzer Gewinner des BAC#48, #52 & #92 |
![]() |
ToeB |
![]() Antworten mit Zitat ![]() |
---|---|---|
okay^^danke | ||
Religiöse Kriege sind Streitigkeiten erwachsener Männer darum, wer den besten imaginären Freund hat.
Race-Project - Das Rennspiel der etwas anderen Art SimpleUDP3.0 - Neuste Version der Netzwerk-Bibliothek Vielen Dank an dieser Stelle nochmal an Pummelie, welcher mir einen Teil seines VServers für das Betreiben meines Masterservers zur verfügung stellt! |
![]() |
PSY |
![]() Antworten mit Zitat ![]() |
---|---|---|
Beatenvoy hat Folgendes geschrieben: Coden mit gosub, ist nicht grade ein guter Programmierstil.
Das gibt einen wirren Code, den dann keiner mehr folgen kann, wenn man mal ein größeres Projekt plant. Ich glaube du verwechselst gosub mit goto... Die Codestruktur bleibt gleich, egal ob ich jetzt gosub oder ne function benutze. Der einzige Unterschied ist die Variablenbehandlung und die Fähigkeit von functions, Rückgabewerte zu liefern. L8er, PSY |
||
Übersicht


Powered by phpBB © 2001 - 2006, phpBB Group