Important K8055 + check box

Question

Bonjour je travail avec une carte  K8055 de chez velleman

Mon projet, faire un ascenseur 



mon probl&#232;me ,



Private Sub Check3_Click(Index As Integer)

    Dim i As Long

    Dim n As Long

    n = 0

    For i = 0 To 7

        n = n + Check3(i).Value * (2 ^ i)

    Next

    If Not DoNothing Then WriteAllDigital n

End Sub



Ceci = dans le code de la carte velleman ce code permet une fois la carte d&#233;tect&#233; grace a un dll fournis par velleman

d'allum&#233; des led sur la carte et donc de donn&#233; une tension de sortie



sur le programe ce code coresspond

&#224; un frame et 8 check box incorpor&#233;



si on clique sur une des 8 check box on obtien ce code



Mon probl&#232;me cerait de remplacer ces check box par des boutons

mais je ne vois absolument pas comment faire



j ai &#233;t&#233; jusqu'a en calcul&#233; la valeur de i

et tombe sur n=896i 



Si quelqu'un pouvait m'aider &#224; remplacer ceci par des boutons

Renfield · Answer

les boutons....... pour les etages, je suppose, non ?

Renfield
Admin CodeS-SourceS - MVP Visual Basic

cs_xa4ke · Answer

oui ce sont des boutons pour les etages 

parceque on ne voit pas souvent des ascenseurs a check box :p mdr

Renfield · Answer

je dirai qu'une fois les boutons en place, et avec leur propri&#233;t&#233; Index renseign&#233;e (groupe de controles)

il suffit de :

 Private Sub Command1_Click(Index As Integer)
    If Not DoNothing Then WriteAllDigital  2 ^ Index
End Sub

Renfield
Admin CodeS-SourceS - MVP Visual Basic

cs_xa4ke · Answer

le 2 ^ index   =  2^ i ?



et i = index c'est sa ? 



je vais essay&#233; sa ce soir et je poste ma r&#233;ponce se soir :)

cs_xa4ke · Answer

Impossible sa ne marche pas :s

nono7380 · Answer

tu caches les checksbox par checkx.visible= false et avec ton bouton, tu execute le code checkx.value =1

Adn56 · Answer

Essayes de regarder par ici => http://www.vbfrance.com/code.aspx?ID=50597
@++

Tiens les balises ne sont pas reconnues ^_____^, zut alors.....

Important K8055 + check box

7 réponses

Discussions similaires