Neuen Type Eintrag an bestimmter stelle

Übersicht

BlitzBasic

Beginners-Corner

	US-Blitz ehemals "SimssmiS" Betreff: Neuen Type Eintrag an bestimmter stelle	Di, Jan 17, 2012 21:26 Antworten mit Zitat
Hi, ich möchte einen neuen Type Eintrag an eine bestimmte Stelle einfügen. Wie kann ich das machen? Hier mein Versuch der leider nicht funktioniert hat: BlitzBasic: [AUSKLAPPEN] [EINKLAPPEN] Type highscore Field name$ Field score End Type Function hs_new_score(name$,points) Local new_hscore.highscore new_hscore.highscore = New highscore new_hscore\name=name new_hscore\score=points Local foundlower Local hscore.highscore For hscore.highscore= Each highscore If hscore\score<points foundlower=True Exit EndIf Next If foundlower=True hscore=Before hscore EndIf Insert new_hscore After hscore End Function wäre froh wenn ihr mir helfen könntet

US-Blitz

ehemals "SimssmiS"

Betreff: Neuen Type Eintrag an bestimmter stelle

Di, Jan 17, 2012 21:26
Antworten mit Zitat

Hi,
ich möchte einen neuen Type Eintrag an eine bestimmte Stelle einfügen. Wie kann ich das machen?

Hier mein Versuch der leider nicht funktioniert hat:
BlitzBasic: [AUSKLAPPEN]


Type highscore
	Field name$
	Field score
End Type

Function hs_new_score(name$,points)
	Local new_hscore.highscore
	new_hscore.highscore = New highscore
    new_hscore\name=name
	new_hscore\score=points
	
	Local foundlower
	Local hscore.highscore
	For hscore.highscore= Each highscore
		If hscore\score<points
			foundlower=True
			Exit
		EndIf
	Next
	
	If foundlower=True
		hscore=Before hscore
	EndIf
	Insert new_hscore After hscore
	
	
End Function

wäre froh wenn ihr mir helfen könntet

	Addi	Di, Jan 17, 2012 21:37 Antworten mit Zitat
Vlt. klappt es so: Function hs_new_score(name$,points) Local new_hscore.highscore new_hscore.highscore = New highscore new_hscore\name=name new_hscore\score=points Local hscore.highscore For hscore.highscore= Each highscore If hscore\score<points Insert new_hscore After hscore exit EndIf Next End Function

Addi

Di, Jan 17, 2012 21:37
Antworten mit Zitat

Vlt. klappt es so:

Function hs_new_score(name$,points)
Local new_hscore.highscore
new_hscore.highscore = New highscore
new_hscore\name=name
new_hscore\score=points

Local hscore.highscore
For hscore.highscore= Each highscore
If hscore\score<points
Insert new_hscore After hscore
exit
EndIf
Next

End Function

Zuletzt bearbeitet von Addi am Di, Jan 17, 2012 21:44, insgesamt einmal bearbeitet

	US-Blitz ehemals "SimssmiS"	Di, Jan 17, 2012 21:43 Antworten mit Zitat
Das hatte ich wie man vielleicht sieht auch versucht jedoch scheitere ich weiterhin. Ich erhoffe mir das mir jemand bei dem Verfahren und vorallem bei Insert hilft.

US-Blitz

ehemals "SimssmiS"

Di, Jan 17, 2012 21:43
Antworten mit Zitat

Das hatte ich wie man vielleicht sieht auch versucht jedoch scheitere ich weiterhin.
Ich erhoffe mir das mir jemand bei dem Verfahren und vorallem bei Insert hilft.

	Xeres Moderator	Di, Jan 17, 2012 21:45 Antworten mit Zitat
Ich würde immer empfehlen, Schlüsselwörter aus zu schreiben. Spare dir das Then nicht, erhöht die Lesbarkeit. Die Variable foundlower kannst du auch einsparen - mit Return kannst du die Funktion prompt verlassen - und hscore enthält den Eintrag, der einen geringeren Punktwert hat. BlitzBasic: [AUSKLAPPEN] [EINKLAPPEN] For hscore.highscore= Each highscore If hscore\score<points Then Insert new_hscore After hscore Return EndIf Next
Win10 Prof.(x64)/Ubuntu 16.04\|CPU 4x3Ghz (Intel i5-4590S)\|RAM 8 GB\|GeForce GTX 960 Wie man Fragen richtig stellt \|\| "Es geht nicht" \|\| Video-Tutorial: Sinus & Cosinus THERE IS NO FAIR. THERE IS NO JUSTICE. THERE IS JUST ME. (Death, Discworld)

Xeres

Moderator

Di, Jan 17, 2012 21:45
Antworten mit Zitat

Ich würde immer empfehlen, Schlüsselwörter aus zu schreiben. Spare dir das Then

nicht, erhöht die Lesbarkeit. Die Variable foundlower kannst du auch einsparen - mit Return

kannst du die Funktion prompt verlassen - und hscore enthält den Eintrag, der einen geringeren Punktwert hat.
BlitzBasic: [AUSKLAPPEN]

For hscore.highscore= Each highscore
	If hscore\score<points Then
		Insert new_hscore After hscore
		Return
	EndIf
Next

Win10 Prof.(x64)/Ubuntu 16.04|CPU 4x3Ghz (Intel i5-4590S)|RAM 8 GB|GeForce GTX 960
Wie man Fragen richtig stellt || "Es geht nicht" || Video-Tutorial: Sinus & Cosinus
THERE IS NO FAIR. THERE IS NO JUSTICE. THERE IS JUST ME. (Death, Discworld)

	Addi	Di, Jan 17, 2012 21:46 Antworten mit Zitat
Sry war zu schnell mit dem Antworten Versuch es mal so Vlt. klappt es so: BlitzBasic: [AUSKLAPPEN] [EINKLAPPEN] Function hs_new_score(name$,points) Local new_hscore.highscore new_hscore.highscore = New highscore new_hscore\name=name new_hscore\score=points Local hscore.highscore For hscore.highscore= Each highscore If hscore\score<points Insert new_hscore After hscore Exit EndIf Next End Function

Addi

Di, Jan 17, 2012 21:46
Antworten mit Zitat

Sry war zu schnell mit dem Antworten

Versuch es mal so

Vlt. klappt es so:

BlitzBasic: [AUSKLAPPEN]

Function hs_new_score(name$,points)
Local new_hscore.highscore
new_hscore.highscore = New highscore
new_hscore\name=name
new_hscore\score=points

Local hscore.highscore
For hscore.highscore= Each highscore
If hscore\score<points
Insert new_hscore After hscore
Exit
EndIf
Next

End Function

Übersicht

BlitzBasic

Beginners-Corner

Nach Oben

BlitzBasic Portal

Neuen Type Eintrag an bestimmter stelle

US-Blitz

Betreff: Neuen Type Eintrag an bestimmter stelle

Addi

US-Blitz

Xeres

Addi