Types

Übersicht

BlitzBasic

Beginners-Corner

	ssj-goku Betreff: Types	Fr, Jun 03, 2005 15:46 Antworten mit Zitat
Hi, ich beschäftige mich zur Zeit mit Types und möchte gern ein kleines Adressenbuch coden, wo man seinen Namen, Vornamen und Strasse eingeben kann und dieses in Types gespeichert wird, dass ich dann wiederum abrufen kann, indem ich den Namen eingebe. Nun ich habe z.B. Type adresse und diese beinhaltet name$, vorname$, strasse$ wie kann ich jetzt in diese Variablen mit dem befehl type etwas reinschreiben? so hab ich versucht: BlitzBasic: [AUSKLAPPEN] [EINKLAPPEN] Type Adresse Field Name$ Field Vorname$ Field Strasse$ End Type Local person.Adresse person=New Adresse person\Name$=Name$ person\Vorname$=Vorname$ person\Strasse$=Strasse$ Name$ = Input$(\"Name:\") Vorname$ = Input$(\"Vorname:\") Strasse$ = Input$(\"Strasse:\") Print person\Name$ Print person\Vorname$ Print person\Strasse$ thx im voraus mfg Goku

ssj-goku

Betreff: Types

Fr, Jun 03, 2005 15:46
Antworten mit Zitat

Hi,
ich beschäftige mich zur Zeit mit Types und möchte gern ein kleines Adressenbuch coden, wo man seinen Namen, Vornamen und Strasse eingeben kann und dieses in Types gespeichert wird, dass ich dann wiederum abrufen kann, indem ich den Namen eingebe.

Nun ich habe z.B. Type adresse und diese beinhaltet name$, vorname$, strasse$ wie kann ich jetzt in diese Variablen mit dem befehl type etwas reinschreiben?

so hab ich versucht:
BlitzBasic: [AUSKLAPPEN]


Type Adresse
Field Name$
Field Vorname$
Field Strasse$
End Type

Local person.Adresse

person=New Adresse
person\Name$=Name$
person\Vorname$=Vorname$
person\Strasse$=Strasse$

Name$ = Input$(\"Name:\")
Vorname$ = Input$(\"Vorname:\")
Strasse$ = Input$(\"Strasse:\")

Print person\Name$
Print person\Vorname$
Print person\Strasse$

thx im voraus

mfg Goku

	simi	Fr, Jun 03, 2005 15:54 Antworten mit Zitat
Ich verstehe dein Problem nicht ganz, aber versuchs doch mal so: Code: [AUSKLAPPEN] [EINKLAPPEN] Type Adresse Field Name$ Field Vorname$ Field Strasse$ End Type Local person.Adresse person=New Adresse person\Name$=Input$("Name:") person\Vorname$=Input$("Vorname:") person\Strasse$=Input$("Strasse:") Print person\Name$ Print person\Vorname$ Print person\Strasse$ So sollte es eigentlich gehen.....

simi

Fr, Jun 03, 2005 15:54
Antworten mit Zitat

Ich verstehe dein Problem nicht ganz, aber versuchs doch mal so:
Code: [AUSKLAPPEN]

Type Adresse
Field Name$
Field Vorname$
Field Strasse$
End Type

Local person.Adresse

person=New Adresse
person\Name$=Input$("Name:")
person\Vorname$=Input$("Vorname:")
person\Strasse$=Input$("Strasse:")

Print person\Name$
Print person\Vorname$
Print person\Strasse$

So sollte es eigentlich gehen.....

	ssj-goku	Fr, Jun 03, 2005 16:01 Antworten mit Zitat
Danke genau das wollte ich auch haben

ssj-goku

Fr, Jun 03, 2005 16:01
Antworten mit Zitat

Danke genau das wollte ich auch haben Smile

	ssj-goku	Fr, Jun 03, 2005 17:45 Antworten mit Zitat
So hab jetzt noch ne Frage. Hier ma der noobige code Code: [AUSKLAPPEN] [EINKLAPPEN] Graphics 800,600,16,2 SetBuffer BackBuffer() ;;;;;;;Type Type Adresse Field Name$ Field Vorname$ Field Strasse$ End Type Global person.Adresse person = New Adresse ;;;;;;;Hauptschleife Repeat Cls ;;;;;;;Auswahl eintragen = Input$("1 -Eintragen \| 2 -Suchen \| 3 -Exit :") If eintragen = 1 Then eintrag() If eintragen = 2 Then such() If eintragen = 3 Then End Flip Until KeyHit(1) ;;;;;;;Funktionen Function eintrag() Cls person\Name$ = Input$("Name: ") person\Vorname$ = Input$("Vorname: ") person\Strasse$ = Input$("Strasse: ") Flip End Function Function such() Cls Name$ = Input$("Bitte geben Sie einen Namen: ") If Name$ = person\Name$ Then Print person\Vorname$ + " " + person\Name$ + " " + person\Strasse$ Delay 2000 Else Print "Nicht vorhanden" Delay 2000 EndIf Flip End Function WaitKey Nun kann ich zwar etwas eintragen und speichern und dann abfragen, nun will ich aber nicht ein eintrage machen können sondern mehrere wie soll ich das in types realisieren

ssj-goku

Fr, Jun 03, 2005 17:45
Antworten mit Zitat

So hab jetzt noch ne Frage.

Hier ma der noobige code

Code: [AUSKLAPPEN]

Graphics 800,600,16,2
SetBuffer BackBuffer()
;;;;;;;Type
Type Adresse
Field Name$
Field Vorname$
Field Strasse$
End Type

Global person.Adresse

person = New Adresse
;;;;;;;Hauptschleife
Repeat
Cls
;;;;;;;Auswahl
eintragen = Input$("1 -Eintragen | 2 -Suchen | 3 -Exit :")

If eintragen = 1 Then eintrag()
If eintragen = 2 Then such()
If eintragen = 3 Then End
Flip
Until KeyHit(1)
;;;;;;;Funktionen
Function eintrag()
Cls
person\Name$ = Input$("Name: ")
person\Vorname$ = Input$("Vorname: ")
person\Strasse$ = Input$("Strasse: ")
Flip
End Function

Function such()
Cls
Name$ = Input$("Bitte geben Sie einen Namen: ")
If Name$ = person\Name$ Then
Print person\Vorname$ + " " + person\Name$ + " " + person\Strasse$
Delay 2000
Else
Print "Nicht vorhanden"
Delay 2000
EndIf
Flip
End Function

WaitKey

Nun kann ich zwar etwas eintragen und speichern und dann abfragen, nun will ich aber nicht ein eintrage machen können sondern mehrere wie soll ich das in types realisieren Confused

	hitokiri	Fr, Jun 03, 2005 18:26 Antworten mit Zitat
ganz einfach in dem du die funktion mehrmals aufrufst, types ergeben eine linked list. beim suchen sagst du dann einfach: for (identifier).adresse = each adresse ist auf blitzbase.de im types tutorial eigentlich wirklich genial erklärt, nicht bei der befehlsreferenz sondern dem tutorial

hitokiri

Fr, Jun 03, 2005 18:26
Antworten mit Zitat

ganz einfach in dem du die funktion mehrmals aufrufst, types ergeben eine linked list.
beim suchen sagst du dann einfach:
for (identifier).adresse = each adresse

ist auf blitzbase.de im types tutorial eigentlich wirklich genial erklärt, nicht bei der befehlsreferenz sondern dem tutorial Smile

	ssj-goku	Fr, Jun 03, 2005 18:58 Antworten mit Zitat
Joah wusst ich jetzt nicht danke aber

ssj-goku

Fr, Jun 03, 2005 18:58
Antworten mit Zitat

Joah wusst ich jetzt nicht danke aber Smile

Übersicht

BlitzBasic

Beginners-Corner

Nach Oben

BlitzBasic Portal

Types

ssj-goku

Betreff: Types

simi

ssj-goku

ssj-goku

hitokiri

ssj-goku