Select case

Bonjours a Tous .

Je me m'appelle leo j'ai 14 ans et je souhaite creer un logiciel pour mon usage personnelle c'est un logiciel qui utilise pas la simple connection mais la reverse ( Reseau) J'ai demandé a des copain ce qui falait faire il m'ont dit d'inversé mais j'ai pas trop compris et une autre question je n'arrive pas a utiliser les select case .

Exemple :

Select case ( Que faut t'il mettre la sachant que mon winsock se nomme winsock 1 )

case "1"

opencd

end select

end sub

Merci d'avoir li et repondu

Ps: Pouvez vous me donner tous le code du client et du serveur svp

Merci +++

Tout d'abord tu peux trouver beaucoup d'aide en ligne (F1), en particulier select case

Select case toto 'dans notre cas toto contient une chaine, sinon pas de "" dans les cases
case "ici"
XXXXXXX
else case
YYYY
end select

Plus de données sur VB.net ici: http://plasserre.developpez.com/vsommair.htm

SAlut,

Ps: Pouvez vous me donner tous le code du client et du serveur svp:  il y a une section code qui regorge d'exemples a toi de chercher un peu

principe du select case

Dim Str As String Str = "Toto" Select Case Str    Case "ICI": CodeAExecuterSiStrVautICI    'c'est celui la qui sera executer dans l'exemple    Case "Toto": CodeAExecuterSiStrVautToto    Case Else: CodeAExectuerPourToutAutreValeur End Select

By Renfield

@+: Ju£i€n
Pensez: Réponse acceptée

Je n'est pas trop compris

Peut tu m' expliquer pourquoi tu a mi toto ?
Moi je ve pouvoir executer la commande a distance et la commande c'est open cd je connait le code pour ouvrir c'est : mciSendString "SetCDAudioDoorOpenWait", 0&, 0, 0

Et dans le module je met : private Declare Function mciSendString Lib "winmm.dll" Alias "mciSendStringA" _
                                       (ByVal lpstrCommand AsString, ByVal lpstrReturnString As Any, _
                                       ByVal wReturnLength As Integer, ByVal hCallback As Integer) As Long                

Donc peut tu me faire toto avec ce ke je t'est donner
                          

Salut,

Il faudrait expliquer un peu plus ce que tu cherches à faire..
Le select case permet de faire telle ou telle action suivant la valeur de la variable que tu selectionnes.
Exemple:
Dim i as integer
i=1
select case i
case 1 :
'condition vraie-> on a initialisé i à 1 donc le code ici sera effectué
mciSendString "SetCDAudioDoorOpenWait", 0&, 0, 0
case 2 :
'condition fausse donc le code ici ne sera pas effectué.
case else:
'condition fausse donc le code ici ne sera pas effectué.
End select.

Bon voila le code de mon client :
Private Sub Command1_Click()
Winsock.Close
Winsock.Connect Text1.Text, 15555
End Sub
Private Sub Winsock_Close()
Winsock.Close
Winsock.Listen
End Sub
Private Sub Winsock_Connect()
Winsock.SendData "Connecté"
End Sub
Private Sub Winsock_ConnectionRequest(ByVal requestID As Long)
Winsock.Close
Winsock.Accept requestID
End Sub

Et Voici celui du serveur

Private Sub Winsock_ConnectionRequest(ByVal requestID As Long)
Winsock.Close
Winsock.Accept requestID
End Sub
Private Sub Form_Load()
Winsock.Close
Winsock.Listen
End Sub
Private Sub Winsock_Close()
Winsock.Close
Winsock.Listen
End Sub

Private Sub Winsock_DataArrival(ByVal bytesTotal As Long)
Dim data As String
Winsock.GetData data
If Left(data, 8) = "Connecté" Then Label1.Caption = "Connecté"
End Sub

Je souhaite rajouter la fonction arreter le pc .
Et je souhaite si possible de le mettre en reverse

JE vais donc traduire :

Sallu,

Ils fodrez expliké un peut plusse se ke tus cherche a faires..
Leu select case permmets deux fère tel houx telles aksion suivants là valleur deux l'a varriable ke tu sailecttionne.

Exammple:

Dim i as integer
i=1
select case i
case 1 :
'condi ssion vrét-> ont n'a initiallizzé i a 1 donc le code ici sera effectué
mciSendString "SetCDAudioDoorOpenWait", 0&, 0, 0
case 2 :
'condi sion fosse donc le code ici ne sera pas effectué.
case else:
'condi sion fosse donc le code ici ne sera pas effectué.
End select.


______________________________________________________________________
Je nait pa trôt compris

Peut tu m' expliquer pourquoi tu a mi toto ?
Moi je ve pouvoir executer la commande a distance et la commande c'est open cd je connait le code pour ouvrir c'est : mciSendString "SetCDAudioDoorOpenWait", 0&, 0, 0

Et dans le module je met : private Declare Function mciSendString Lib "winmm.dll" Alias "mciSendStringA" _
                                       (ByVal lpstrCommand AsString, ByVal lpstrReturnString As Any, _
                                       ByVal wReturnLength As Integer, ByVal hCallback As Integer) As Long                

Donc peut tu me faire toto avec ce ke je t'est donner

Bon voila le code de mon client :
Private Sub Command1_Click()
Winsock.Close
Winsock.Connect Text1.Text, 15555
End Sub
Private Sub Winsock_Close()
Winsock.Close
Winsock.Listen
End Sub
Private Sub Winsock_Connect()
Winsock.SendData "Connecté"
End Sub
Private Sub Winsock_ConnectionRequest(ByVal requestID As Long)
Winsock.Close
Winsock.Accept requestID
End Sub

Et Voici celui du serveur

Private Sub Winsock_ConnectionRequest(ByVal requestID As Long)
Winsock.Close
Winsock.Accept requestID
End Sub
Private Sub Form_Load()
Winsock.Close
Winsock.Listen
End Sub
Private Sub Winsock_Close()
Winsock.Close
Winsock.Listen
End Sub

Private Sub Winsock_DataArrival(ByVal bytesTotal As Long)
Dim data As String
Winsock.GetData data
If Left(data, 8) = "Connecté" Then Label1.Caption = "Connecté"
End Sub

Je souhaite rajouter la fonction arreter le pc .
Et je souhaite si possible de le mettre en reverse

Re,
> leo2708: ecoute un peu ce que l'ont te dit au lieu de remmettre texto la meme chose.
As tu pris la peine de testé les explications proposées????

Si tu ne prends pas très vite les bonnes habitudes (14 ans ou pas d'ailleurs) tu cours à ta perte.
@+: Ju£i€n
Pensez: Réponse acceptée

Re all je voudrais vous remercier de vos reponse mais je les ai essayé mais aucune marche mais cela doit etre de ma faute je pense que je le mais pas au bon endroit pouvait vous m'expliquez s'il vous plait avec le code que je vous ai donné .

J'aurais une autre question est ce que ont peut le mettre en reverse connection et non en simple ?

Merci a tous d'avoir repondu parce je c'est que je peut être chian desolé