empfangen code problem

Übersicht

BlitzBasic

Beginners-Corner

	Pummelie Betreff: empfangen code problem	Fr, Nov 28, 2008 18:35 Antworten mit Zitat
hi, ich habe mir einen kleinen TCP chat mit server/client gebastelt, nur bin ich ein bisschen ratlos beim darstellen der empfangenen information. ich hobe mir folgendes geschreiben: Code: [AUSKLAPPEN] [EINKLAPPEN] k1$ = ReadLine$(stream1) If k1$ = 0 Then Gosub nef Else Select Nachrichten(0) Case 0 Cls Text 0,10,k1$ Nachrichten(0) = 1 k1$ = 0 FlipCanvas can Gosub nef End Select Select Nachrichten(1) Case 0 Cls Text 0,15,k1$ Nachrichten(1) = 1 k1$ = 0 FlipCanvas can Gosub nef End Select Select Nachrichten(2) Case 0 Cls Text 0,15,k1$ Nachrichten(2) = 1 k1$ = 0 FlipCanvas can Gosub nef End Select Select Nachrichten(3) Case 0 Cls Text 0,15,k1$ Nachrichten(3) = 1 k1$ = 0 FlipCanvas can Gosub nef End Select Select Nachrichten(4) Case 0 Cls Text 0,15,k1$ Nachrichten(4) = 1 k1$ = 0 FlipCanvas can Gosub nef End Select Select Nachrichten(5) Case 0 Cls Text 0,15,k1$ Nachrichten(5) = 1 k1$ = 0 FlipCanvas can Gosub nef End Select Select Nachrichten(6) Case 0 Cls Text 0,15,k1$ Nachrichten(6) = 1 k1$ = 0 FlipCanvas can Gosub nef End Select Select Nachrichten(7) Case 0 Cls Text 0,15,k1$ Nachrichten(7) = 1 k1$ = 0 FlipCanvas can Gosub nef End Select Select Nachrichten(8) Case 0 Cls Text 0,15,k1$ Nachrichten(8) = 1 k1$ = 0 FlipCanvas can Gosub nef End Select Select Nachrichten(9) Case 0 Cls Text 0,15,k1$ Nachrichten(9) = 1 k1$ = 0 FlipCanvas can Gosub nef End Select Select Nachrichten(10) Case 0 Cls Text 0,15,k1$ Nachrichten(10) = 1 k1$ = 0 FlipCanvas can Gosub nef End Select Select Nachrichten(11) Case 0 Cls Text 0,15,k1$ Nachrichten(11) = 1 k1$ = 0 FlipCanvas can Gosub nef End Select Select Nachrichten(12) Case 0 Text 0,15,k1$ Nachrichten(12) = 1 k1$ = 0 Gosub nef End Select Select Nachrichten(13) Case 0 Text 0,15,k1$ Nachrichten(13) = 1 k1$ = 0 Gosub nef End Select Select Nachrichten(14) Case 0 Text 0,15,k1$ Nachrichten(14) = 1 k1$ = 0 Gosub nef End Select Select Nachrichten(19) Case 0 Text 0,15,k1$ Nachrichten(19) = 1 k1$ = 0 Gosub nef End Select Select Nachrichten(15) Case 0 Text 0,15,k1$ Nachrichten(15) = 1 k1$ = 0 Gosub nef End Select Select Nachrichten(16) Case 0 Text 0,15,k1$ Nachrichten(16) = 1 k1$ = 0 Gosub nef End Select Select Nachrichten(17) Case 0 Text 0,15,k1$ Nachrichten(17) = 1 k1$ = 0 Gosub nef End Select Select Nachrichten(18) Case 0 Text 0,15,k1$ Nachrichten(18) = 1 k1$ = 0 Gosub nef Case 1 Nachrichten(0) = 0 Nachrichten(1) = 0 Nachrichten(2) = 0 Nachrichten(3) = 0 Nachrichten(4) = 0 Nachrichten(5) = 0 Nachrichten(6) = 0 Nachrichten(7) = 0 Nachrichten(8) = 0 Nachrichten(9) = 0 Nachrichten(10) = 0 Nachrichten(11) = 0 Nachrichten(12) = 0 Nachrichten(13) = 0 Nachrichten(14) = 0 Nachrichten(15) = 0 Nachrichten(16) = 0 Nachrichten(17) = 0 Nachrichten(18) = 0 Nachrichten(19) = 0 End Select EndIf .nef Forever (leiner codeausschnitt) Aber die nachrichten werden nicht dargestellt. Ganz am anfang sendet der das programm folgendes an den server: Code: [AUSKLAPPEN] [EINKLAPPEN] Writeline(stream, qq_nick$ + " ist online") Diese nachricht wird auch noch dargestellt aber weiter nichts... Bitte um hilfe bin ratlos und ein n00b[/code]

Pummelie

Betreff: empfangen code problem

Fr, Nov 28, 2008 18:35
Antworten mit Zitat

hi,
ich habe mir einen kleinen TCP chat mit server/client gebastelt, nur bin ich ein bisschen ratlos beim darstellen der empfangenen information.
ich hobe mir folgendes geschreiben:
Code: [AUSKLAPPEN]

k1$ = ReadLine$(stream1)
If k1$ = 0 Then
Gosub nef
Else
Select Nachrichten(0)
   Case 0
      Cls
      Text 0,10,k1$
      Nachrichten(0) = 1
      k1$ = 0
      FlipCanvas can
      Gosub nef
End Select
Select Nachrichten(1)
   Case 0
      Cls
      Text 0,15,k1$
      Nachrichten(1) = 1
      k1$ = 0
      FlipCanvas can
      Gosub nef
End Select
Select Nachrichten(2)
   Case 0
      Cls
      Text 0,15,k1$
      Nachrichten(2) = 1
      k1$ = 0
      FlipCanvas can
      Gosub nef
End Select
Select Nachrichten(3)
   Case 0
      Cls
      Text 0,15,k1$
      Nachrichten(3) = 1
      k1$ = 0
      FlipCanvas can
      Gosub nef
End Select
Select Nachrichten(4)
   Case 0
      Cls
      Text 0,15,k1$
      Nachrichten(4) = 1
      k1$ = 0
      FlipCanvas can
      Gosub nef
End Select
Select Nachrichten(5)
   Case 0
      Cls
      Text 0,15,k1$
      Nachrichten(5) = 1
      k1$ = 0
      FlipCanvas can
      Gosub nef
End Select
Select Nachrichten(6)
   Case 0
      Cls
      Text 0,15,k1$
      Nachrichten(6) = 1
      k1$ = 0
      FlipCanvas can
      Gosub nef
End Select
Select Nachrichten(7)
   Case 0
      Cls
      Text 0,15,k1$
      Nachrichten(7) = 1
      k1$ = 0
      FlipCanvas can
      Gosub nef
End Select
Select Nachrichten(8)
   Case 0
      Cls
      Text 0,15,k1$
      Nachrichten(8) = 1
      k1$ = 0
      FlipCanvas can
      Gosub nef
End Select
Select Nachrichten(9)
   Case 0
      Cls
      Text 0,15,k1$
      Nachrichten(9) = 1
      k1$ = 0
      FlipCanvas can
      Gosub nef
End Select
Select Nachrichten(10)
   Case 0
      Cls
      Text 0,15,k1$
      Nachrichten(10) = 1
      k1$ = 0
      FlipCanvas can
      Gosub nef
End Select
Select Nachrichten(11)
   Case 0
      Cls
      Text 0,15,k1$
      Nachrichten(11) = 1
      k1$ = 0
      FlipCanvas can
      Gosub nef
End Select
Select Nachrichten(12)
   Case 0
      Text 0,15,k1$
      Nachrichten(12) = 1
      k1$ = 0
      Gosub nef
End Select
Select Nachrichten(13)
   Case 0
      Text 0,15,k1$
      Nachrichten(13) = 1
      k1$ = 0
      Gosub nef
End Select
Select Nachrichten(14)
   Case 0
      Text 0,15,k1$
      Nachrichten(14) = 1
      k1$ = 0
      Gosub nef
End Select
Select Nachrichten(19)
   Case 0
      Text 0,15,k1$
      Nachrichten(19) = 1
      k1$ = 0
      Gosub nef
End Select
Select Nachrichten(15)
   Case 0
      Text 0,15,k1$
      Nachrichten(15) = 1
      k1$ = 0
      Gosub nef
End Select
Select Nachrichten(16)
   Case 0
      Text 0,15,k1$
      Nachrichten(16) = 1
      k1$ = 0
      Gosub nef
End Select
Select Nachrichten(17)
   Case 0
      Text 0,15,k1$
      Nachrichten(17) = 1
      k1$ = 0
      Gosub nef
End Select
Select Nachrichten(18)
   Case 0
      Text 0,15,k1$
      Nachrichten(18) = 1
      k1$ = 0
      Gosub nef
   Case 1
      Nachrichten(0) = 0
      Nachrichten(1) = 0
      Nachrichten(2) = 0
      Nachrichten(3) = 0
      Nachrichten(4) = 0
      Nachrichten(5) = 0
      Nachrichten(6) = 0
      Nachrichten(7) = 0
      Nachrichten(8) = 0
      Nachrichten(9) = 0
      Nachrichten(10) = 0
      Nachrichten(11) = 0
      Nachrichten(12) = 0
      Nachrichten(13) = 0
      Nachrichten(14) = 0
      Nachrichten(15) = 0
      Nachrichten(16) = 0
      Nachrichten(17) = 0
      Nachrichten(18) = 0
      Nachrichten(19) = 0
End Select
EndIf
.nef
Forever

(leiner codeausschnitt)
Aber die nachrichten werden nicht dargestellt.
Ganz am anfang sendet der das programm folgendes an den server:
Code: [AUSKLAPPEN]

Writeline(stream, qq_nick$ + " ist online")

Diese nachricht wird auch noch dargestellt aber weiter nichts...

Bitte um hilfe bin ratlos und ein n00b[/code]

	Tigerkev	Mo, Dez 08, 2008 22:12 Antworten mit Zitat
mehr code wäre hilfreich edit: ups garnicht gesehen wie alt der thread ist sry...

Tigerkev

Mo, Dez 08, 2008 22:12
Antworten mit Zitat

mehr code wäre hilfreich Very Happy

edit: ups garnicht gesehen wie alt der thread ist sry...

	TimBo	Mo, Dez 08, 2008 23:14 Antworten mit Zitat
Hi, ich befasse mich gleich mit dem Problem aber mal ne Sache Code: [AUSKLAPPEN] [EINKLAPPEN] Nachrichten(0) = 0 Nachrichten(1) = 0 Nachrichten(2) = 0 Nachrichten(3) = 0 Nachrichten(4) = 0 Nachrichten(5) = 0 Nachrichten(6) = 0 Nachrichten(7) = 0 Nachrichten(8) = 0 Nachrichten(9) = 0 Nachrichten(10) = 0 Nachrichten(11) = 0 Nachrichten(12) = 0 Nachrichten(13) = 0 Nachrichten(14) = 0 Nachrichten(15) = 0 Nachrichten(16) = 0 Nachrichten(17) = 0 Nachrichten(18) = 0 Nachrichten(19) = 0 ist gleich Code: [AUSKLAPPEN] [EINKLAPPEN] for i=0 to 19 Nachrichten(i)=0 next Edit: ich "behaupte" es liegt nicht an dem Clienten-Code-Ausschnitt. Sicher, dass die Infos überhaupt an den Clienten angelagen, oder überhaupt losgesendet werden ? mfg TimBo
mfg Tim Borowski // CPU: Ryzen 2700x GPU: Nvidia RTX 2070 OC (Gigabyte) Ram: 16GB DDR4 @ 3000MHz OS: Windows 10 Stolzer Gewinner des BCC 25 & BCC 31 hat einen ersten Preis in der 1. Runde beim BWInf 2010/2011 & 2011/12 mit BlitzBasic erreicht.

TimBo

Mo, Dez 08, 2008 23:14
Antworten mit Zitat

Hi,

ich befasse mich gleich mit dem Problem aber mal ne Sache

Code: [AUSKLAPPEN]

Nachrichten(0) = 0
Nachrichten(1) = 0
Nachrichten(2) = 0
Nachrichten(3) = 0
Nachrichten(4) = 0
Nachrichten(5) = 0
Nachrichten(6) = 0
Nachrichten(7) = 0
Nachrichten(8) = 0
Nachrichten(9) = 0
Nachrichten(10) = 0
Nachrichten(11) = 0
Nachrichten(12) = 0
Nachrichten(13) = 0
Nachrichten(14) = 0
Nachrichten(15) = 0
Nachrichten(16) = 0
Nachrichten(17) = 0
Nachrichten(18) = 0
Nachrichten(19) = 0

ist gleich

Code: [AUSKLAPPEN]

for i=0 to 19
Nachrichten(i)=0
next

Edit:
ich "behaupte" es liegt nicht an dem Clienten-Code-Ausschnitt. Sicher, dass die Infos überhaupt an den Clienten angelagen, oder überhaupt losgesendet werden ?

mfg
TimBo

mfg Tim Borowski // CPU: Ryzen 2700x GPU: Nvidia RTX 2070 OC (Gigabyte) Ram: 16GB DDR4 @ 3000MHz OS: Windows 10
Stolzer Gewinner des BCC 25 & BCC 31
hat einen ersten Preis in der 1. Runde beim BWInf 2010/2011 & 2011/12 mit BlitzBasic erreicht.