Simper UDP Code

Übersicht

BlitzBasic

Codearchiv

	Goodjee Betreff: Simper UDP Code	Sa, Mai 31, 2008 19:48 Antworten mit Zitat
Heyho, es gibt zwar schon viele Codes über UPD, aber für den intressierten Einsteiger poste ich nochmal einen, der ein wenig anders ist als andere, sich aber auf das wesentliche beschränkt. Ich benutze nur einen Stream für Senden und Empfangen, weil 2 schlichtweg überflüssig sind und es auch supa so geht. Code: [AUSKLAPPEN] [EINKLAPPEN] CountHostIPs(Input("IP des Anderen?")) ;Umwandeln der eingegebenen String-IP nach IntegerIP IP=HostIP(1) ;Abspeichern der ersten möglichen Umgewandelten IP host=Input("Spielernummer(0/1)?") ;Spielernummer zum Bestimmen des Ports, wenn das Programm auf 2PCs läuft kann die nummer gleich sein stream=CreateUDPStream(6000+host) ;Erstellen eines UDPStreams zum Senden und Empfangen Repeat recv=RecvUDPMsg(stream);Nachrichten empfangen If(recv<>0) ;Wenn eine Nachricht da ist While(ReadAvail(Stream)>0) ;Solange auslesen bis keine Daten mehr da sind Print "Incoming: "+ReadInt(stream) ;Text ausgeben Wend recv=RecvUDPMsg(stream) EndIf If(KeyHit(57)) ;Nachrichten Senden Print "send" For i=0 To Rand(5) ;Zufällige Anzahl an Nachrichten schicken WriteInt(stream,Rand(0,44)) ;Eingeben einer Nachricht Next SendUDPMsg(stream,IP,6001-host) ;Absenden einer Nachricht EndIf Until KeyHit(1) CloseUDPStream stream ;Stream schließen End ;Programm terminieren Vllt hilft es noch wem Mfg lukas
"Ideen sind keine Coladosen, man kann sie nicht recyclen"-Dr. House http://deeebian.redio.de/ http://goodjee.redio.de/

Goodjee

Betreff: Simper UDP Code

Sa, Mai 31, 2008 19:48
Antworten mit Zitat

Heyho,
es gibt zwar schon viele Codes über UPD, aber für den intressierten Einsteiger poste ich nochmal einen, der ein wenig anders ist als andere, sich aber auf das wesentliche beschränkt.
Ich benutze nur einen Stream für Senden und Empfangen, weil 2 schlichtweg überflüssig sind und es auch supa so geht.

Code: [AUSKLAPPEN]

CountHostIPs(Input("IP des Anderen?")) ;Umwandeln der eingegebenen String-IP nach IntegerIP
IP=HostIP(1) ;Abspeichern der ersten möglichen Umgewandelten IP
host=Input("Spielernummer(0/1)?") ;Spielernummer zum Bestimmen des Ports, wenn das Programm auf 2PCs läuft kann die nummer gleich sein
stream=CreateUDPStream(6000+host) ;Erstellen eines UDPStreams zum Senden und Empfangen
Repeat
recv=RecvUDPMsg(stream);Nachrichten empfangen
If(recv<>0) ;Wenn eine Nachricht da ist
   While(ReadAvail(Stream)>0) ;Solange auslesen bis keine Daten mehr da sind
      Print "Incoming: "+ReadInt(stream) ;Text ausgeben
   Wend
   recv=RecvUDPMsg(stream)
EndIf
If(KeyHit(57)) ;Nachrichten Senden
   Print "send"
   For i=0 To Rand(5) ;Zufällige Anzahl an Nachrichten schicken
      WriteInt(stream,Rand(0,44)) ;Eingeben einer Nachricht
   Next
   SendUDPMsg(stream,IP,6001-host) ;Absenden einer Nachricht
EndIf
Until KeyHit(1)
CloseUDPStream stream ;Stream schließen
End ;Programm terminieren

Vllt hilft es noch wem
Mfg
lukas

"Ideen sind keine Coladosen, man kann sie nicht recyclen"-Dr. House
http://deeebian.redio.de/ http://goodjee.redio.de/