Help

Übersicht BlitzBasic Beginners-Corner

Neue Antwort erstellen

ToeB

Betreff: Help

BeitragDo, Nov 16, 2006 16:31
Antworten mit Zitat
Benutzer-Profile anzeigen
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... Wink

ToeB

BeitragDo, Nov 16, 2006 16:38
Antworten mit Zitat
Benutzer-Profile anzeigen
Oh sry...war das Falsche.... Embarassed
moment...hier das richtige Embarassed :
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

BeitragDo, Nov 16, 2006 16:49
Antworten mit Zitat
Benutzer-Profile anzeigen
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: user posted image


EDIT 2:
Crack-Mensch hat Folgendes geschrieben:

sagt die richtige...

Laughing
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

BeitragDo, Nov 16, 2006 16:50
Antworten mit Zitat
Benutzer-Profile anzeigen
sagt die richtige... Mad
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

BeitragDo, Nov 16, 2006 16:53
Antworten mit Zitat
Benutzer-Profile anzeigen
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

BeitragDo, Nov 16, 2006 16:58
Antworten mit Zitat
Benutzer-Profile anzeigen
Hi

wo FOODy recht hat..... Very Happy

Gosub und der Rotz, ist alles mist.

Machs mit Select Case, ist übersichtlicher, und funktioniert auch.

Grüße Beatenvoy

ToeB

BeitragDo, Nov 16, 2006 16:59
Antworten mit Zitat
Benutzer-Profile anzeigen
Hey, cool, danke! Very Happy Mr. Green
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

BeitragDo, Nov 16, 2006 17:11
Antworten mit Zitat
Benutzer-Profile anzeigen
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

BeitragDo, Nov 16, 2006 17:17
Antworten mit Zitat
Benutzer-Profile anzeigen
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.

BladeRunner

Moderator

BeitragDo, Nov 16, 2006 18:03
Antworten mit Zitat
Benutzer-Profile anzeigen
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

BeitragDo, Nov 16, 2006 18:51
Antworten mit Zitat
Benutzer-Profile anzeigen
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

BeitragDo, Nov 16, 2006 21:33
Antworten mit Zitat
Benutzer-Profile anzeigen
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

Neue Antwort erstellen


Übersicht BlitzBasic Beginners-Corner

Gehe zu:

Powered by phpBB © 2001 - 2006, phpBB Group