Types in Types

Übersicht

BlitzBasic

Allgemein

	Lord_Vader Betreff: Types in Types	Mi, Aug 03, 2005 10:35 Antworten mit Zitat
Hi leute ich wollte ne liste von Server mit jeweils einer liste von channels machen. Das Problem: Bei jedem server werden ALLE channels von allen servern zusammen angezeigt, obwohl jeder server seine eigenen hat. Komischerweise wird auch der 2 channel (aus der datei) nicht angezeigt. Weis einer wie man das richtig löst: BlitzBasic: [AUSKLAPPEN] [EINKLAPPEN] cnt=0 For serv.server = Each server cnt=cnt+1 drawbutton(2,60+cntyplus,16,1,serv\adress$) For serv\chan=Each channel cnt=cnt+1 drawbutton(2,60+cntyplus,16,0,serv\chan\chan$) Next Next MfG Lord_Vader Edit: Hier mal ein screen: http://www.blitz-pasting.net/i...&id=97

Lord_Vader

Betreff: Types in Types

Mi, Aug 03, 2005 10:35
Antworten mit Zitat

Hi leute ich wollte ne liste von Server mit jeweils einer liste von channels machen. Das Problem: Bei jedem server werden ALLE channels von allen servern zusammen angezeigt, obwohl jeder server seine eigenen hat.

Komischerweise wird auch der 2 channel (aus der datei) nicht angezeigt.
Weis einer wie man das richtig löst:

BlitzBasic: [AUSKLAPPEN]


		cnt=0
		
		For serv.server = Each server
			
			cnt=cnt+1
		
			drawbutton(2,60+cnt*yplus,16,1,serv\adress$)
						
			For serv\chan=Each channel
			

					cnt=cnt+1
														
					drawbutton(2,60+cnt*yplus,16,0,serv\chan\chan$)
				
				
			Next
			
			
		Next

MfG Lord_Vader

Edit: Hier mal ein screen: http://www.blitz-pasting.net/i...&id=97

	Lord_Vader	Mi, Aug 03, 2005 11:13 Antworten mit Zitat
Lösung meinerseits: BlitzBasic: [AUSKLAPPEN] [EINKLAPPEN] cnt=0 scnt=0 For serv.server = Each server cnt=cnt+1 scnt=scnt+1 drawbutton(2,60+cntyplus,16,1,serv\adress$) For serv\chan=Each channel If serv\chan\nr=scnt Then cnt=cnt+1 drawbutton(2,60+cntyplus,16,0,serv\chan\chan$) End If Next Next Einfach die Types nummeriert.

Lord_Vader

Mi, Aug 03, 2005 11:13
Antworten mit Zitat

Lösung meinerseits:

BlitzBasic: [AUSKLAPPEN]


		cnt=0
		scnt=0
		
		For serv.server = Each server
			
			cnt=cnt+1
			
			scnt=scnt+1
		
			drawbutton(2,60+cnt*yplus,16,1,serv\adress$)
						
			For serv\chan=Each channel
											
					If serv\chan\nr=scnt Then 
						
						cnt=cnt+1
											
						drawbutton(2,60+cnt*yplus,16,0,serv\chan\chan$)										

					End If
				
			Next
					
		Next

Einfach die Types nummeriert.

	Omenaton_2	Mi, Aug 03, 2005 11:13 Antworten mit Zitat
Ich weiß nicht so recht was du genau machen willst. (Screenshot kann ich auch nicht anzeigen.) Ich weiß nicht ob das ein Problem ist, aber ich habe noch nie versucht (und ich verwende sehr oft Types) ein Type For Next Loop anders als "For serv.server = Each server" zu schreiben. Vielleicht geht das so gar nicht:"For serv\chan=Each channel". Versuch das zu vermeiden ! Lass Types immer mit For Next Each durchlaufen und dann per ID dort in der Loop stoppen, wo die ID zu dem momentanen Teil des Types paßt, dann kannst du um es bißchen schneller zu machen mit Exit aus der Loop aussteigen (ist aber nicht nötig). Zum Beispiel so: BlitzBasic: [AUSKLAPPEN] [EINKLAPPEN] For serv.SERVER = Each SERVER For chan.CHANNEL=Each CHANNEL If chan\ID = serv\Channel_ID Then \"Hier kann man was machen. Der Channel Type ist bei dem Eintrag, den der Channel Field des Server Types vorgibt.\" ( eventuell Exit oder Return oder Gosub ) EndIf Next Next

Omenaton_2

Mi, Aug 03, 2005 11:13
Antworten mit Zitat

Ich weiß nicht so recht was du genau machen willst. (Screenshot kann ich auch nicht anzeigen.)

Ich weiß nicht ob das ein Problem ist, aber ich habe noch nie versucht (und ich verwende sehr oft Types) ein Type For Next Loop anders als "For serv.server = Each server" zu schreiben.
Vielleicht geht das so gar nicht:"For serv\chan=Each channel".

Versuch das zu vermeiden !

Lass Types immer mit For Next Each durchlaufen und dann per ID dort in der Loop stoppen, wo die ID zu dem momentanen Teil des Types paßt, dann kannst du um es bißchen schneller zu machen mit Exit aus der Loop aussteigen (ist aber nicht nötig).

Zum Beispiel so:

BlitzBasic: [AUSKLAPPEN]

For serv.SERVER = Each SERVER

   For chan.CHANNEL=Each CHANNEL

     If chan\ID = serv\Channel_ID Then

        \"Hier kann man was machen. Der Channel Type ist bei dem Eintrag, den der Channel Field des Server Types vorgibt.\"
        ( eventuell Exit oder Return oder Gosub )

     EndIf

   Next

Next

	Lord_Vader	Mi, Aug 03, 2005 11:15 Antworten mit Zitat
Genauso hab ichs jez gemacht

Lord_Vader

Mi, Aug 03, 2005 11:15
Antworten mit Zitat

Genauso hab ichs jez gemacht Wink

Übersicht

BlitzBasic

Allgemein

Nach Oben

BlitzBasic Portal

Types in Types

Lord_Vader

Betreff: Types in Types

Lord_Vader

Omenaton_2

Lord_Vader