Choix du port Com par une optionbox

Question

bonjour,

mon application devrait écrire sur 3 à 4 ports séries différents, à cet effet, je dois avoir 3 à 4 zones de choix sous forme de frame pour choisir le numéro de ports Com de chaque sortie, est ce que celà est faisable par optionbox?

Merci

cs_Exploreur · Answer

Salut,

Quand t'entends tu par  : OptionBox ?

Case à chocher ?
Bouton options ?
A+
Exploreur

 Linux a un noyau, Windows un pépin

basamir · Answer

JE VEUX dire bouton options sur les frame, chaque sortie avec une frame pour avoir le choix de choisir les 3 ou 4 ports séries.

merci Exploreur

cs_Exploreur · Answer

Salut,

l'avantage avec le bouton option s'il y en a 2 sur la frame, c'est soit l'un ou l'utre qui est valider...

Les case à cocher c'est le contraire...

A+
Exploreur

 Linux a un noyau, Windows un pépin

basamir · Answer

oui je sais ça, par contre le problème est toujours au niveau de l'affectation du MScom1.Comport = ???

on va supposer que nous avons sur chaque frame 10 boutons option comment affecter au mscom1.comport le numéro de l'option choisie?

Merci

cs_Exploreur · Answer

Salut,

Toujours dans l'évènement click

Private Sub Option1_Click()

MScom1.Comport = TaValeur


End Sub


A+
Exploreur

 Linux a un noyau, Windows un pépin

jrivet · Answer

Salut,
Si tu mets des groupe d'option bouton (propriétés index allant de 0 a numport -1)
pourquoi ne pas faire ceci.
Private Sub Option1_Click(Index As Integer)
MSComm1.CommPort = Index + 1 '+ 1 car les groupe commence à 0
End Sub , ----
[code.aspx?ID=41455 By Renfield]

@+: Ju£i?n
Pensez: Réponse acceptée

basamir · Answer

Private Sub Option1_Click()
MScom1.Comport = TaValeur 
End Sub

je suis d'accord, un autre problème c'est que 
.PortOpen = True
Comment  résoudre ce problème?

cs_Exploreur · Answer

Salut,

C'est quoi là ton problème ?
Private Sub Option1_Click()
MScom1.Comport = TaValeur 
MScom1.PortOpen = Option1.Value ' << Je crois
End Sub

A+
Exploreur

 Linux a un noyau, Windows un pépin

cs_Exploreur · Answer

Salut,

Private Sub Option1_Click()
MScom1.PortOpen = False ' On le ferme avant toute manipe
MScom1.Comport = TaValeur 
MScom1.PortOpen = Option1.Value ' << Je crois
End Sub

Si j'ai bien compris ta demande

A+
Exploreur

 Linux a un noyau, Windows un pépin

basamir · Answer

Private Sub Option1_Click()
MScom1.PortOpen = False ' On le ferme avant toute manipe
MScom1.Comport = TaValeur 
MScom1.PortOpen = Option1.Value ' << Je crois
End Sub

oui il faut mettre la valeur option1.value = true

je vais tester celà et je te mettrai au courant.

basamir · Answer

ça marche pas explorer:

voici l'exemple, je dispose de 3 boutons options pour chaque Frame et j'en ai trois frames

Frame1:                       Frame2:                       Frame3:option1 com1          option4 com1            option7 = com1option2 com2          option5 com2            option8 = com2option3 com3          option6 com3            option9 = com3

si je choisi le com1 de frame1 les autres com1 ne doivent pas être actif, c'est simple avec:

if option1.value = true then
option4.Enabled = False
option7.Enabled = False
end if

pareil pour le reste, par contre pour la gestion des ports com c'est pas du tout facile!
if option1.value = true then

option4.Enabled = False

option7.Enabled = False
MSComm1.PortOpen = False ' On le ferme avant toute manipe
MSComm1.CommPort = 1
MSComm1.PortOpen = True

end if
mais le pb provient au moment où on s'amuse à choisir des options dès lors des com déjà ouverts sont réouverts
une vraie galère koi

Aidez moi svp

cs_Exploreur · Answer

Salut,

Je pense qu'avant toute ouverture d'un port, tu devrais vérifier s'il n'y a pas un port déjà ouvert...

Aussi, une fois que tu as fait toutes tes manipes sur ton com, bien refermer celui-ci...

A+
Exploreur

 Linux a un noyau, Windows un pépin

cs_Nicko11 · Answer

Salut,

comment voudrait tu que cela fonctionne, car :

soit tu veux que des que l'on change de bouton option, on change le port COM
soit tant que tu n'as pas fait ton transfert de données sur le port COM, tu verouilles les bouton options.

Par contre, passe vraiment par un groupe d'option car ca t'evitera de faire des gestions inutilies:

if option1.value =  true then
option4.Enabled = False
option7.Enabled = False
MSComm1.PortOpen = False ' On le ferme avant toute manipe
MSComm1.CommPort = 1
MSComm1.PortOpen = True
end if

Avec un groupe d'options, ca donnerait :

if  controle.value <> 0  then 'cas ou aucune option n'est cochée
   MSComm1.PortOpen  = False ' On le ferme avant toute manipe
   MSComm1.CommPort =   control.value 
   MSComm1.PortOpen  = True
end if

basamir · Answer

en fait le problème est plus complexe, je dois pas cocher le port com x quand je veux transferer les données et le refermé.
les ports com choisis doivent restés ouverts tant que l'application tourne, en cas où on voudrait changer de port, si on coche une option le port en question doit etre fermé automatiquement et réouvrir celui nouvellement coché ainsi de suite.

Vous voyez la nature de l'application?

Merci à vous tous

cs_Nicko11 · Answer

Donc, d'apres mes 2 propositions, tu te reproche plus de celle-ci

tu veux que dès que l'on change de bouton option, on change le port COM (apres avoir fermé le précédant)

basamir · Answer

tout à fait

beh tu sais, il y aura trois frames avec exactement les memes ports com, une fois un est choisi (p.e: Com 1) il ne saura plus possible de le choisir pour les autres frames tu vois le genre?

Merci

basamir · Answer

rebonjour les amis, 
voici un bout de code avec les checkbox mais il y a toujours des erreurs de com n'est pas ouvert lors du changement des ports:
Private Sub Check4_Click(Index As Integer)
MSComm1.PortOpen = False ' On le ferme avant toute manipe
For w = 0 To 2
If Check4(w).Value = 1 Then
z = Check4(w).Index
GoTo 3333
End If
Next
3333:
If w = 3 Then
MsgBox ("Erreur")
GoTo fin
End If
MSComm1.CommPort = z + 1
MSComm1.PortOpen = True 'Option1.Value ' << Je crois
trame = "        "
bits = 8
Text15.Text = "Port Com ouvert est " & MSComm1.CommPort
fin:
End Sub

Private Sub Check5_Click(Index As Integer)
MSComm2.PortOpen = False
For w = 0 To 2
If Check5(w).Value = 1 Then
z = Check5(w).Index
GoTo 3333
End If
Next
3333:
If w = 3 Then
MsgBox ("Erreur")
GoTo fin
End If
MSComm2.CommPort = z + 1
MSComm2.PortOpen = True 'Option1.Value ' << Je crois
trame = "        "
bits = 8
Text16.Text = "Port Com ouvert est " & MSComm2.CommPort
fin:
End Sub

cs_Nicko11 · Answer

Le connaissance pas trop les instructions liées au port com, je ne peux que te conseiller d'aller sur ce page.
http://grafikm.developpez.com/portcomm/
Habitues toi aussi a nous donner les lignes ou interviennent tes erreurs et comment elles se produisent.

cs_Exploreur · Answer

Salut Basamir et Nicko ,

Un petit truc aussi Basamir, déclare bien tes variables, qu'elles aient un nom significatif... Toi même, tu t'y retrouvera mieux...

A+
Exploreur

 Linux a un noyau, Windows un pépin

basamir · Answer

Nicko11, c'est la page que tu m'as donnée qui m a fait comprendre les trucs de mscomm, je me tue à résoudre ce grave pb sans réussite

domamge

Choix du port Com par une optionbox

40 réponses

Votre réponse

Discussions similaires