[tutorial]Chat Program

Delta · **Posted:** Fri Mar 21, 2003 6:55 pm

This is all you need to create the base of any chat program in TURING

code:

var stream : int := 0 % Used for sending data
var msgBack : string % The message that gets sent back and forth
var address : string % IP address for each computer
var message : string % Message that you send
var status : int % Status host/client

const PORT := 5555 % Port to connect through

put "What would you like to do?"
put "1:Host"
put "2:Join"

get status

if status = 1 then
stream := Net.WaitForConnection (PORT, address) % Wait for a user to connect
else
put "What is the IP of the computer you want to connect to?"
get address
stream := Net.OpenConnection (address, PORT) % Connect to the IP inputted
end if
cls
put "Connected to ", address

loop
if hasch then % If key pressed
get message : * % store all input in var message when enter is pressed
put : stream, message % Send the message over the stream
end if
if Net.LineAvailable (stream) then % If a line of text has been sent
get : stream, msgBack : * % grab the line of text
put msgBack % print it to the screen
end if
end loop

MOD Edit: Woot, first user submited tutorial. Thx Delta +10 bits - Tony

Blade · **Posted:** Sat Mar 22, 2003 12:16 am

haha yeah! Very Happy

*eyeballs it* looks kinda familiar... haha maybe its cuz he wrote it for me to learn off of Very Happy

i'm so special! Very Happy

Delta · **Posted:** Sat Mar 22, 2003 12:59 am

If anyone has any problems don't be shy ask me them through the forum and I might be able to help you or you can email me. Very Happy

THNX

leepham · **Posted:** Mon Mar 24, 2003 3:22 pm

Is there any reason why it doesn't work properly? The text is delayed, and it seems like it doesn't register some of the text sometimes.

Lee Pham

Tony · **Posted:** Mon Mar 24, 2003 4:36 pm

turing is not the best language to code networked data exchange for a bunch of reasons. Its slow and unreliable. The code here is fine, its the language itself (or perhaps the network Confused

)

turing also has a bug where sometimes it cuts off first few characters of the message send... so you might want to add a space or two at the beginning of the line just in case

Miyoko · **Posted:** Mon Mar 31, 2003 1:30 pm

I have a problem with it, some computers will wait for a client

Quote:

stream := Net.WaitForConnection (PORT, address)

others will just bypass this line and foget the wait which makes to program crash when you get to

Quote:

put "Connected to ", address

Delta · **Posted:** Mon Mar 31, 2003 2:03 pm

Yeah I had the same problem I couldn't find a way to get around it.

ferrara_999 · **Posted:** Tue Sep 09, 2003 4:44 pm

what are the addesses for the various messenger services so it'll connect to em? (like msn messenger and icq)

Homer_simpson · **Posted:** Tue Sep 09, 2003 4:55 pm

bwahahahaha!!! i doubt that very highly...

octopi · **Posted:** Tue Sep 09, 2003 8:44 pm

msn is 1863, icq is 4000

You will need to impliment such things as a SSL connection...which I doubt turing can handle for msn, and icq will probally be trickier.

ferrara_999 · **Posted:** Tue Sep 09, 2003 8:52 pm

nm, lol, screw it then

Tony · **Posted:** Tue Sep 09, 2003 10:25 pm

I came across a custom MSN client writen in VB... with source code and all...

though it doesnt matter, cuz M$ patched their servers and users are forced to use MSN 5+

octopi · **Posted:** Tue Sep 09, 2003 11:04 pm

Your only required to use MSNP9 which is msn's latest protocol for the msn clients.

Its not really that hard to do. Just not posible on turing, but in php, perl, c, c++, it is.

	Computer Science Canada Programming C, C++, Java, PHP, Ruby, Turing, VB Username: Password: Register
Wiki Blog Search Turing Chat Room Members