DIM Problem

Übersicht

BlitzBasic

Beginners-Corner

	Schoppy Betreff: DIM Problem	Di, März 01, 2005 15:13 Antworten mit Zitat
Hi, hier mal mein code, irgendwie speichert er das nicht korrekt: Code: [AUSKLAPPEN] [EINKLAPPEN] For i=0 To Galaxie_System_Anzahl ; Alle Galaxien menge_Planeten_galxie% = Sonnensysteme$(4,i) ; Menge der planeten in der galaxy For t=0 To menge_Planeten_galxie% ; bis zur ermittelten menge wertn1 = Rand(0,25) ; Zufallsnamen Generieren wertn2 = Rand(0,25) ; Zufallsnamen Generieren wertn3 = Rand(0,9) ; Zufallsnamen Generieren wertn4 = Rand(0,9) ; Zufallsnamen Generieren Planetenname$ = Planetenbuchstaben$(wertn1,0)+Planetenbuchstaben$(wertn2,0)+" "+wertn3 +wertn4 ;namen erstellen ;- Jetzt den erstellten Namen in der DIM sichern Planeteneigenschaften$(name,system) = Planetenname$ name = name + 1 If t = menge_Planeten_galxie% Then system = system + 1 Next Next In "i" ist ja die Galaxie gespeichert, die möchte ich mit in der Datenbank speichern, so: Planeteneigenschaften$(Planetennamen,Galaxienummer) Wäre schön wenn mir jemand nen Code für mich hat !!! Danke

Schoppy

Betreff: DIM Problem

Di, März 01, 2005 15:13
Antworten mit Zitat

Hi, hier mal mein code, irgendwie speichert er das nicht korrekt:

Code: [AUSKLAPPEN]

For i=0 To Galaxie_System_Anzahl ; Alle Galaxien

menge_Planeten_galxie% = Sonnensysteme$(4,i) ; Menge der planeten in der galaxy

For t=0 To menge_Planeten_galxie% ; bis zur ermittelten menge

wertn1 = Rand(0,25) ; Zufallsnamen Generieren
wertn2 = Rand(0,25) ; Zufallsnamen Generieren
wertn3 = Rand(0,9) ; Zufallsnamen Generieren
wertn4 = Rand(0,9) ; Zufallsnamen Generieren

Planetenname$ = Planetenbuchstaben$(wertn1,0)+Planetenbuchstaben$(wertn2,0)+" "+wertn3 +wertn4 ;namen erstellen

;- Jetzt den erstellten Namen in der DIM sichern
Planeteneigenschaften$(name,system) = Planetenname$
name = name + 1

If t = menge_Planeten_galxie% Then system = system + 1

Next

Next

In "i" ist ja die Galaxie gespeichert, die möchte ich mit in der Datenbank speichern,

so: Planeteneigenschaften$(Planetennamen,Galaxienummer)

Wäre schön wenn mir jemand nen Code für mich hat !!!

Danke

	Artemis Betreff: Re: DIM Problem	Di, März 01, 2005 17:00 Antworten mit Zitat
Schoppy hat Folgendes geschrieben: For i=0 To Galaxie_System_Anzahl ; Alle Galaxien menge_Planeten_galxie% = Sonnensysteme$(4,i) ; Menge der planeten in der galaxy For t=0 To menge_Planeten_galxie% ; bis zur ermittelten menge wertn1 = Rand(0,25) ; Zufallsnamen Generieren wertn2 = Rand(0,25) ; Zufallsnamen Generieren wertn3 = Rand(0,9) ; Zufallsnamen Generieren wertn4 = Rand(0,9) ; Zufallsnamen Generieren Planetenname$ = Planetenbuchstaben$(wertn1,0)+Planetenbuchstaben$(wertn2,0)+" "+wertn3 +wertn4 ;namen erstellen ;- Jetzt den erstellten Namen in der DIM sichern Planeteneigenschaften$(name,system) = Planetenname$ name = name + 1 If t = menge_Planeten_galxie% Then system = system + 1 Next Next sollten die variablen nicht gleich sein?????

Artemis

Betreff: Re: DIM Problem

Di, März 01, 2005 17:00
Antworten mit Zitat

Schoppy hat Folgendes geschrieben:

sollten die variablen nicht gleich sein?????