Home Hardware Networking Programmazione Software Domanda Sistemi
Conoscenza Informatica >> Programmazione >> Nozioni di base di Visual Programming >> .

Come codice Chat Software senza utilizzare un database

Sapere come codificare una chat room senza utilizzare un database può aiutare a creare un server /applicazione client senza dover spendere tempo alla progettazione di un database . Un programma di chat viene creata utilizzando due applicazioni , il client e il server . L'applicazione server si occuperà di tutte le connessioni client per stabilire la comunicazione . Il programma client è installato in qualsiasi computer che desiderano connettersi al server per chattare con gli altri clienti . È possibile creare questa applicazione utilizzando Microsoft Visual Basic.NET , noto anche come VB.NET . Cose che ti serviranno
Microsoft Visual Basic Express
Mostra più istruzioni
1

Aprire Microsoft Visual Basic Express, fare clic "Nuovo progetto ... " nel riquadro sinistro dello schermo , quindi selezionare " Applicazione console. " Fare clic su "OK".
2 Premere

"Ctrl " e "A ", quindi premere "Elimina" per rimuovere tutto il codice esistente . Copia e incolla il codice sottostante nel tuo " Module1.vb " per creare l'applicazione server :

Importazioni System.Net.Sockets

Imports System.Text

Module Module1

Dim hshTbl As New Hashtable

Sub Main ( ) per

Dim svrSckt As New TcpListener ( 8888 ) per

Dim TClient Come TcpClient

dim infntCntr As Integer dim

cntr As Integer

svrSckt.Start ( ) per

msg ( " server avviato per la chat .... " ) per

cntr = 0

infntCntr = 0

infntCntr = 1 To 2

infntCntr = 1

cntr + = 1

TClient = svrSckt.AcceptTcpClient ( ) per

Dim btsFrom ( 10024 ) As Byte Dim

clientData As String Dim

NetworkStream Come NetworkStream = _

tClient.GetStream ( ) per

networkStream.Read ( btsFrom , 0 , CInt ( tClient.ReceiveBufferSize ) ) per

clientData = System.Text.Encoding.ASCII.GetString ( btsFrom ) per

clientData = _

clientData.Substring ( 0 , clientData.IndexOf ( " $ " ) ) per

hshTbl ( clientData ) = TClient

broadcast ( clientData + " ha unito " , clientData , False ) per

msg ( clientData + " ha aderito chat " ) per

Dim client As New handleClinet

client.startClient ( TClient , clientData , Sub

 

Programmazione © www.354353.com