UPD beispiel

Übersicht

BlitzBasic

Beginners-Corner

Gehe zu Seite Zurück 1, 2

	BladeRunner Moderator	So, Aug 20, 2006 15:08 Antworten mit Zitat
Wäre unsinnig, da es ja ein edit ist, kein neuer post. Wie eben schon erwähnt- nur ein Bruchteil der User wird den edit im Normalfall verpassen. Und wer am Thema interessiert ist schaut eh öfter mal rein. Wenn Dir jemand hilft kannst Du ihn ja auch auf "privater" Ebene weiter ausquetschen, sofern er einverstanden ist. Dann gibts auch noch den Chat. Was wäre dein neues Problem ?
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

BladeRunner

Moderator

So, Aug 20, 2006 15:08
Antworten mit Zitat

Wäre unsinnig, da es ja ein edit ist, kein neuer post. Wie eben schon erwähnt- nur ein Bruchteil der User wird den edit im Normalfall verpassen. Und wer am Thema interessiert ist schaut eh öfter mal rein. Wenn Dir jemand hilft kannst Du ihn ja auch auf "privater" Ebene weiter ausquetschen, sofern er einverstanden ist.
Dann gibts auch noch den Chat.

Was wäre dein neues Problem ?

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

	Kleiner satan	So, Aug 20, 2006 15:16 Antworten mit Zitat
hab ich schonmal gesagt: die inegner IP (oder wie die heißt) hat einen negativen wert! ist sowas normal??

Kleiner satan

So, Aug 20, 2006 15:16
Antworten mit Zitat

hab ich schonmal gesagt:
die inegner IP (oder wie die heißt) hat einen negativen wert! ist sowas normal??

	BladeRunner Moderator	So, Aug 20, 2006 15:21 Antworten mit Zitat
Und ich gab Dir (siehe oben) Antwort. Wurde reineditiert. Aufmerksames lesen hilft hier enorm Aber ums Dir einfacher zu machen: Ja, das geht. Begründung: Blitz kennt nur vorzeichenbehaftete Integer. Das 32e bit der Variable gibt also an obs ein + oder ein - ist. Wenn die erste Zahl deiner IP >127 ist, wird das Vorzeichenbit gesetzt und schwupp spuckt dir BB ne negative Zahl aus.
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

BladeRunner

Moderator

So, Aug 20, 2006 15:21
Antworten mit Zitat

Und ich gab Dir (siehe oben) Antwort. Wurde reineditiert. Aufmerksames lesen hilft hier enorm Smile

Aber ums Dir einfacher zu machen: Ja, das geht.
Begründung:
Blitz kennt nur vorzeichenbehaftete Integer. Das 32e bit der Variable gibt also an obs ein + oder ein - ist. Wenn die erste Zahl deiner IP >127 ist, wird das Vorzeichenbit gesetzt und schwupp spuckt dir BB ne negative Zahl aus.

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

	Kleiner satan	So, Aug 20, 2006 16:02 Antworten mit Zitat
also: hier ist mein programm: Computer 1: Code: [AUSKLAPPEN] [EINKLAPPEN] Graphics 800,600,0,2 SetBuffer BackBuffer() stream = CreateUDPStream(8000) If stream <> 0 Then Repeat ip$ = RecvUDPMsg (stream) Print ip$ If ip$ <> 0 Then Print ReadLine(stream) EndIf Delay 2000 Flip Until KeyHit(1) Else Print "Fehler" EndIf End Computer 2: Code: [AUSKLAPPEN] [EINKLAPPEN] stream=CreateUDPStream(8000) ip$ = INT_IP("192.168.178.21") Print ip$ If stream <> 0 Then Repeat WriteLine stream,"Ich bin da." SendUDPMsg stream,ip$ Print "Gesendet" Delay 2000 Until KeyHit(1) Else Print "Fehler" EndIf End Function INT_IP(IP$) a1=Int(Left(IP$,Instr(IP$,".")-1)):IP$=Right(IP$,Len(IP$)-Instr(IP$,".")) a2=Int(Left(IP$,Instr(IP$,".")-1)):IP$=Right(IP$,Len(IP$)-Instr(IP$,".")) a3=Int(Left(IP$,Instr(IP$,".")-1)):IP$=Right(IP$,Len(IP$)-Instr(IP$,".")) a4=Int(IP$) Return (a1 Shl 24) + (a2 Shl 16) + (a3 Shl 8 ) +a4 End Function Die IP da ist die Locale IP(Netzwerk Intern) vom Rechner 1! Was mache ich falsch?

Kleiner satan

So, Aug 20, 2006 16:02
Antworten mit Zitat

also:
hier ist mein programm:

Computer 1:
Code: [AUSKLAPPEN]

Graphics 800,600,0,2
SetBuffer BackBuffer()

stream = CreateUDPStream(8000)
If stream <> 0 Then
Repeat
ip$ = RecvUDPMsg (stream)
Print ip$
If ip$ <> 0 Then
Print ReadLine(stream)
EndIf
Delay 2000
Flip
Until KeyHit(1)
Else
Print "Fehler"
EndIf

End

Computer 2:
Code: [AUSKLAPPEN]

stream=CreateUDPStream(8000)
ip$ = INT_IP("192.168.178.21")
Print ip$
If stream <> 0 Then
Repeat
WriteLine stream,"Ich bin da."
SendUDPMsg stream,ip$
Print "Gesendet"
Delay 2000
Until KeyHit(1)
Else
Print "Fehler"
EndIf
End

Function INT_IP(IP$)
a1=Int(Left(IP$,Instr(IP$,".")-1)):IP$=Right(IP$,Len(IP$)-Instr(IP$,"."))
a2=Int(Left(IP$,Instr(IP$,".")-1)):IP$=Right(IP$,Len(IP$)-Instr(IP$,"."))
a3=Int(Left(IP$,Instr(IP$,".")-1)):IP$=Right(IP$,Len(IP$)-Instr(IP$,"."))
a4=Int(IP$)
Return (a1 Shl 24) + (a2 Shl 16) + (a3 Shl 8 ) +a4
End Function

Die IP da ist die Locale IP(Netzwerk Intern) vom Rechner 1!

Was mache ich falsch?

	Holzchopf Meisterpacker	So, Aug 20, 2006 16:24 Antworten mit Zitat
Lokal wirst du das nicht testen können, denn pro Port kann man nur einen Stream erstellen, nimm beim Clienten nen anderen Port oder lass ihn ganz weg, der Server findet ja dann heraus von welchem Port aus gesendet wurde und kann dorthin wieder zurücksenden. Und dann musst du natürlich bei SendUDPMsg einen Empfänger-Port angeben.
Erledige alles Schritt um Schritt - erledige alles. - Holzchopf CC BY ♫ BinaryBorn - Yogurt ♫ (31.10.2018) Im Kopf da knackt's und knistert's sturm - 's ist kein Gedanke, nur ein Wurm

Holzchopf

Meisterpacker

So, Aug 20, 2006 16:24
Antworten mit Zitat

Lokal wirst du das nicht testen können, denn pro Port kann man nur einen Stream erstellen, nimm beim Clienten nen anderen Port oder lass ihn ganz weg, der Server findet ja dann heraus von welchem Port aus gesendet wurde und kann dorthin wieder zurücksenden.

Und dann musst du natürlich bei SendUDPMsg einen Empfänger-Port angeben.

Erledige alles Schritt um Schritt - erledige alles. - Holzchopf
CC BY ♫ BinaryBorn - Yogurt ♫ (31.10.2018)
Im Kopf da knackt's und knistert's sturm - 's ist kein Gedanke, nur ein Wurm

	Kleiner satan	So, Aug 20, 2006 16:27 Antworten mit Zitat
und was soll ich dann als stream dort angeben?

Kleiner satan

So, Aug 20, 2006 16:27
Antworten mit Zitat

und was soll ich dann als stream dort angeben?

	Smokie	So, Aug 20, 2006 16:41 Antworten mit Zitat
Wenn du machst: Code: [AUSKLAPPEN] [EINKLAPPEN] stream = createudpstream() Dann sucht BB einen zufällig freien Port. Beim Clienten ist das egal. Aber vom Serrver sollte der Port bekannt sein, das selbe spiel wie mit der IP. Port eines Absenders kann man mit udpmsgport() herausfinden. Grüße
M-Soft Studios Mit selbst gemachtem Forum!!! Unbequem lebt's sich schwer. Musik macht erst Spaß, wenn man sie mit 2,8 facher Geschwindigkeit hört Zuletzt bearbeitet von Smokie am Fr Jan 01, 1888 51:58 PM, insgesamt 1000-mal bearbeitet

Smokie

So, Aug 20, 2006 16:41
Antworten mit Zitat

Wenn du machst:
Code: [AUSKLAPPEN]

stream = createudpstream()

Dann sucht BB einen zufällig freien Port. Beim Clienten ist das egal. Aber vom Serrver sollte der Port bekannt sein, das selbe spiel wie mit der IP. Port eines Absenders kann man mit udpmsgport() herausfinden.

Grüße

M-Soft Studios Mit selbst gemachtem Forum!!!
Unbequem lebt's sich schwer.
Musik macht erst Spaß, wenn man sie mit 2,8 facher Geschwindigkeit hört
Zuletzt bearbeitet von Smokie am Fr Jan 01, 1888 51:58 PM, insgesamt 1000-mal bearbeitet

	Kleiner satan	So, Aug 20, 2006 16:44 Antworten mit Zitat
und dann würde das ganzr gehen(also auch in meinem netzwerk) ?

Kleiner satan

So, Aug 20, 2006 16:44
Antworten mit Zitat

und dann würde das ganzr gehen(also auch in meinem netzwerk) ?

	Smokie	So, Aug 20, 2006 17:05 Antworten mit Zitat
Probiers doch einfach aus Wenn du dazu keine Lust hast [spoiler]ja[/spoiler] Grüße
M-Soft Studios Mit selbst gemachtem Forum!!! Unbequem lebt's sich schwer. Musik macht erst Spaß, wenn man sie mit 2,8 facher Geschwindigkeit hört Zuletzt bearbeitet von Smokie am Fr Jan 01, 1888 51:58 PM, insgesamt 1000-mal bearbeitet

Smokie

So, Aug 20, 2006 17:05
Antworten mit Zitat

Probiers doch einfach aus Smile

Wenn du dazu keine Lust hast [spoiler]ja[/spoiler]

Grüße

	Kleiner satan	So, Aug 20, 2006 17:08 Antworten mit Zitat
spoiler???

Kleiner satan

So, Aug 20, 2006 17:08
Antworten mit Zitat

spoiler???

	BladeRunner Moderator	So, Aug 20, 2006 17:15 Antworten mit Zitat
[ot] http://de.wikipedia.org/wiki/Spoiler_%28Medien%29 [/ot]
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

BladeRunner

Moderator

So, Aug 20, 2006 17:15
Antworten mit Zitat

[ot] http://de.wikipedia.org/wiki/Spoiler_%28Medien%29 [/ot]

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

Gehe zu Seite Zurück 1, 2

Übersicht

BlitzBasic

Beginners-Corner

Nach Oben

BlitzBasic Portal

UPD beispiel