frmBattagliaNavaleFromVb

Client semplice per l'applicazione di BattagliaNavale implementata in Java.

Autore: Giorgio Bernardi
E-Mail: Giorgio.Bernardi@studio.unibo.it
Web: http://Giorgio_Bernardi.tripod.com
Data : Settembre 2004

Questo progetto mostra come sia possibile utilizzare il progetto Simple Message Oriented Middleware fra una applicazione Visual Basic e Java utilizzando semplici messaggi.

Codice
Const Summary
Private mDEFAULTSERVERPORT
Private mWBWRAPPERID
Identificativo del VbWrapper
 
Field Summary
Private(CTCPManager) Manager
Riferimento la Manager utilizzato
Private(String) mstrSenderObjectID
Nome generato automaticamente per il sender
 
Properties Summary
Get Private(String)
Property Get JavaServerAddress()

Codice
Get Private(String)
Property Get PersonalServerOID()

Codice
Indica il server personale che gestisce il gioco
Get Private(CRemoteHost)
Property Get RemoteIp()

Codice
Porta selezionata dall'utente
Get Private(Long)
Property Get RemotePort()

Codice
Porta selezionata dall'utente
 
Method Summary
Private cmdConnetti_Click()
Codice
Private cmdIstruzioni_Click()
Codice
Private cmdNuovaPartita_Click()
Codice
Private Command2_Click()
Codice
Private(CEnvelope) CreateByeByeMsg()
Codice
Crea un messaggio di tipo Bye per il server
Private(CEnvelope) CreateByeMsg()
Codice
Crea un messaggio di tipo Bye per il server personale
Private(CEnvelope) CreateHelloMsg()
Codice
Crea un messaggio di tipo Hello
Private(CEnvelope) CreateNewGameMsg()
Codice
Crea un messaggio di tipo New Game
Private(CEnvelope) CreateReadInstructions()
Codice
Crea un messaggio di tipo Read Instructions
Private Form_Initialize()
Codice
Private Form_Load()
Codice
Private Form_Unload( Cancel As Integer)
Codice
Private Gioca()
Codice
Private(String) ISender_getObjectID()
Codice
Private txtServerPort_Validate( Cancel As Boolean)
Codice
 
Details

mDEFAULTSERVERPORT

Private Const mDEFAULTSERVERPORT    As Integer = 6450

Codice

mWBWRAPPERID

Private Const mWBWRAPPERID  As String = "VbWrapper"

Codice
Identificativo del VbWrapper

Manager

Private Manager             As New SMom.CTCPManager

Codice
Riferimento la Manager utilizzato

mstrSenderObjectID

Private mstrSenderObjectID  As String

Codice
Nome generato automaticamente per il sender

JavaServerAddress

Private Property Get JavaServerAddress() As String

Codice

PersonalServerOID

Private Property Get PersonalServerOID() As String

Codice
Indica il server personale che gestisce il gioco

RemoteIp

Private Property Get RemoteIp() As SMom.CRemoteHost

Codice
Porta selezionata dall'utente

RemotePort

Private Property Get RemotePort() As Long

Codice
Porta selezionata dall'utente

cmdConnetti_Click

Private Sub cmdConnetti_Click()

Codice

cmdIstruzioni_Click

Private Sub cmdIstruzioni_Click()

Codice

cmdNuovaPartita_Click

Private Sub cmdNuovaPartita_Click()

Codice

Command2_Click

Private Sub Command2_Click()

Codice

CreateByeByeMsg

Private Function CreateByeByeMsg() As SMom.CEnvelope

Codice
Crea un messaggio di tipo Bye per il server

CreateByeMsg

Private Function CreateByeMsg() As SMom.CEnvelope

Codice
Crea un messaggio di tipo Bye per il server personale

CreateHelloMsg

Private Function CreateHelloMsg() As SMom.CEnvelope

Codice
Crea un messaggio di tipo Hello

CreateNewGameMsg

Private Function CreateNewGameMsg() As SMom.CEnvelope

Codice
Crea un messaggio di tipo New Game

CreateReadInstructions

Private Function CreateReadInstructions() As SMom.CEnvelope

Codice
Crea un messaggio di tipo Read Instructions

Form_Initialize

Private Sub Form_Initialize()

Codice

Form_Load

Private Sub Form_Load()

Codice

Form_Unload

Private Sub Form_Unload(Cancel As Integer)

Codice

Gioca

Private Sub Gioca()

Codice

ISender_getObjectID

Private Function ISender_getObjectID() As String

Codice

txtServerPort_Validate

Private Sub txtServerPort_Validate(Cancel As Boolean)

Codice