Chatproblem

Übersicht BlitzBasic Allgemein

Neue Antwort erstellen

 

Tidus85

Betreff: Chatproblem

 BeitragMi, März 21, 2007 21:52
Antworten mit Zitat
Benutzer-Profile anzeigen
Hi und zwar habe ich mal weider ein Problem und zwar wollte ich einen kleinen Chat für mich und meinen Bruder basteln doch das Problem ist das die Nachrichten nie bei ihm ankommen Sad Also auf den Server (meinem PC) kann er connecten nur leider kommen keine Nachrichten an. Wäre nett wenn mir jemand bitte den Fehler in meinem Code zeigen könnte. Danke

Code: [AUSKLAPPEN]


Print "Drücken Sie [1], um den Chat zu starten."
Print "Drücken Sie [2], um an dem Chat teilzunehmen."
Wahl = Input("Ihre Wahl: ")
Name$ = Input("Name des Chatrooms: ")
If Wahl=2 Then IP$ = Input("IP-Adresse des Hosts:")
If Wahl=1 Then Spiel = HostNetGame(Name$)
If Wahl=2 Then Spiel = JoinNetGame(Name$, IP$)
If Spiel=0 Then Print("Fehler in der Eingabe")
If Spiel=1 Then Print("Client auf dem Server")
If Spiel=2 Then Print("Host des Servers")
Spieler$ = Input$("Chatname:")
SpielerNr = CreateNetPlayer(Spieler$)
Print "Chatnummer: " + ChatNr
Repeat
NachrichtAn$ = Input("Nachricht eingeben: ")
SendNetMsg 1, NachrichtAn$, SpielerNr, 0
While RecvNetMsg() = 1
Select NetMsgType()
Case 100 Print "Chatter " +NetPlayerName$(NetMsgFrom()) + " beigetreten"
Case 101 Print "Chatter " +NetPlayerName$(NetMsgFrom()) + " ausgetreten"
Case 102 Print "Host ausgetreten"
Case 200 Print "Verbindung abgebrochen"
Default Print "Nachricht von " + NetPlayerName$(NetMsgFrom()) + ": " +"
NetMsgData$()
End Select
Wend
Until NachrichtAn$ = "Ende"
WaitKey



P.S.: Ist nur mal ein kleines Projekt um zu sehen wie weit ich komm und hier seh ich gar nimmer durch, das ist wohl zu viel und würde mich über jede Hilfe freuen. Very Happy

P.S.: Wenn es im falschen Forum sein sollte bitte verschieben. Danke

MFG Jan

EDIT: Ach und wenn jemand helfen will bitte keine Codeteile anbieten sondern nur Hinweise wo der Fehler liegen könnte weil würde das doch ganz gern selber lösen. Nur weiß ich leider nicht wo derzeit mein fehler liegt.

EDIT 2: Shit hab grad gesehen das es normalerweise bei Blitz Basic rein muss und nicht hier wäre nett wenn das ein Admin verschieben könnte.

d-bug

 BeitragMi, März 21, 2007 22:39
Antworten mit Zitat
Benutzer-Profile anzeigen
Bin zwar kein Admin, aber ich mach es trotzdem mal Wink

~VERSCHOBEN~
Dieser Thread passte nicht in das Forum, in dem er ursprünglich gepostet wurde.


der bug
 

Tidus85

 BeitragDo, März 22, 2007 20:21
Antworten mit Zitat
Benutzer-Profile anzeigen
Ok also ich hab es jetzt diie ganze zeit nochmal probiert aber das funzt net so we es aoll ich denk das ist z.zt. noch zu hoch für mich werd mich erstmal an was anderem probieren. also von mir aus kann der thread gelöscht werden Wink

mfg jan

pixelshooter

 BeitragDo, März 22, 2007 21:25
Antworten mit Zitat
Benutzer-Profile anzeigen
weißt du, DP macht bei mir oft iwelche probleme, ich mag es auch nicht. versuch dich lieber an den tcp befehlen...
>> Musikerstellung, Grafik und Design: http://www.pixelshooter.net.tc
 

BlackTermi

Betreff: Re: Chatproblem

 BeitragFr, März 23, 2007 9:41
Antworten mit Zitat
Benutzer-Profile anzeigen
Hi, habe mir das jetzt nur mal oberflächlich angeschaut aber mir sind schon ein paar Sachen aufgefallen die nicht "gut" sind, falls dein Programm funktionieren soll:

1. Du gibts den Text mithilfe eines Input Befehles in der Hauptschleife ein - stoppt das nicht das ganze Programm? Also müsstest du immer einmal Enter drücken um die neuesten Msg an dich abzufragen - besser wäre hier natürlich eine eigene Eingabefunktion - kannst du glaub ich in deinem Projekt finden, da hat jemand eine gepostet.

2. Du sendest immer mit NetSendMsg, unabhängig davon ob etwas eingegeben wurde, ich hab zwar keine Ahnung von DP Befehlen, aber ganz kann das nicht im Sinne des ENtwicklers sein. - Evtl. eine If Abfrage einbauen.

3. Machst du eine Schleife bei RecvNetMsg, ich hab keine Ahnung ob das auch andere so machen aber ich würde da eher eine If Abfrage machen, obwohl das von dir prinzipiell nicht falsch ist, weil die Schleife ja immer am Anfang geprüft wird.

4. Würde ich dir raten weniger mit Input und Print Befehlen zu arbeiten, das ist zwar ganz nett aber eigentlich nicht notwendig, diese Befehle braucht man eigentlich nur wenn man ein Konsolenprogramm erstellen will (vllt. einen Server der nur die Daten ausgibt oder eine kleine Zahlenspielerei oder was weiss ich) ansonsten sind solche Befehle wie "Text" angebrachter, wozu arbeiten wir denn mit BB?

/edit eigentlich wollte ich die Stellen die ich meine Fett markieren, funktioniert aber irgendwie nicht...

[quote="Tidus85"]

Code: [AUSKLAPPEN]


Print "Drücken Sie [1], um den Chat zu starten."
Print "Drücken Sie [2], um an dem Chat teilzunehmen."
Wahl = Input("Ihre Wahl: ")
Name$ = Input("Name des Chatrooms: ")
If Wahl=2 Then IP$ = Input("IP-Adresse des Hosts:")
If Wahl=1 Then Spiel = HostNetGame(Name$)
If Wahl=2 Then Spiel = JoinNetGame(Name$, IP$)
If Spiel=0 Then Print("Fehler in der Eingabe")
If Spiel=1 Then Print("Client auf dem Server")
If Spiel=2 Then Print("Host des Servers")
Spieler$ = Input$("Chatname:")
SpielerNr = CreateNetPlayer(Spieler$)
Print "Chatnummer: " + ChatNr
Repeat
[b]NachrichtAn$ = Input("Nachricht eingeben: ")[/b]
[b]SendNetMsg 1, NachrichtAn$, SpielerNr, 0[/b]
[b]While RecvNetMsg() = 1[/b]
Select NetMsgType()
Case 100 Print "Chatter " +NetPlayerName$(NetMsgFrom()) + " beigetreten"
Case 101 Print "Chatter " +NetPlayerName$(NetMsgFrom()) + " ausgetreten"
Case 102 Print "Host ausgetreten"
Case 200 Print "Verbindung abgebrochen"
Default Print "Nachricht von " + NetPlayerName$(NetMsgFrom()) + ": " +"
NetMsgData$()
End Select
Wend
Until NachrichtAn$ = "Ende"
WaitKey

Neue Antwort erstellen


Übersicht BlitzBasic Allgemein

Nach Oben

Gehe zu:

Powered by phpBB © 2001 - 2006, phpBB Group