Discussion :

[kk1cp]

Re Bonjour,

Je suis nouveau dans ce Forum, que je trouve particulièrement passionnant et didactique.

Je suis lycéen en première Ssi, et cette année, conformément au programme, le TPE doit être entrepris par chaque élève. Or je suis parmi ces élèves, et mon sujet d'étude est "La serrure électrique". En effet, Je doit programmer et conceptualiser une serrure dont l'ouverture est contrainte par un code, mot de passe, ou toute autres fréquences. Donc pour pouvoir réaliser cela je dois éventuellement programmer ces codes et mots de passe depuis l'ordinateur, avec tout particulièrement Visual Basic, dont je suis actuellement novice. J'ai téléchargé la version Express 2008. j'aimerais avoir de l'aide et m'éclairer tout au long de mon parcours, je vous en serai énormément reconnaissant.

j'ai suivi des tutoriaux mais cela ne m'aident pas à mettre en place un code d'accès.

Je pense que déjà pour commencer, je devrais faire un bouton ayant pour fonction, la transmission d'une information vers la serrure, (envoyer une tension de 12 Volt, et la gâche s'ouvre), et je devrais également programmer un port parallèle...( port imprimante...) pour transmettre cette tension à la gâchette...

Cordialement.

[Danyel]

Etre developpeur, c'est un peu comme etre faconneur de pierres ...
Et ici c'est pareil, on peut aider à ameliorer sa technique, chercher un defaut sur un pierre, soumettre des conseils pour le lissage et l'eclat, mais on ne pourra jamais faire le travail de la recherche de la pierre et son polissage, jusqu'a ce qu'elle soit sur les etalles d'un magasin.

Il y a ici tous les tutotiels et faqs pour bien debuter la programmation en vb.net
Bon developpement.

[Sendusha]

Je suis tout à fait d'accord avec Danyel.
Excellent cours VB.NET conseillé aux débutants.

[kk1cp]

Voilà, mon travail, mais il n'est pas encore étoffer, il manque encore le code pour le mot de passe, Pourriez vous m'aider à programmer le menu, "Mots de passe Essayés"



J'aimerais savoir quelles variables mettre et m'éclairer pour les débuts des codes. Merci.

[hunteshiva]

ton projet a l'air assé simple sur la concéption
* mm si au fond tu triche un peut, c'est un projet de Lycée et c'est pas a nous de le résoudre ^^*

Mais bon je suis d'humeur charitable aujourd'hui
Donc si j'ais bien compris, tu veut afficher tous les codes essayés dans ta listeBox ?

Quand tu fait "Valider"

Sa va donner un truc du genre *dsl je fait sa de tête et non avec VB a coté*

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
Public sub btValider_Click(.............)

'Déclaration d'une variable pour le code
Dim Code as string
'Enregistrement du Code
Code = TextBoxCode.Text

'Test du code
Select case Code
'Cas ou le code est juste
Case "#0123456#"
tu ajoute a ta listeBox1 le code 
tu fait ta routine qui dit que c'est bon 

'Cas ou le code est faux
Case Else
tu ajoute juste le code a ta listeBox1
End Select
End Sub

[hunteshiva]

Mais je te conseil de regarder le tuto que l'on t'a conseillé
il est un peut long j'avoue
Si tu veut faire simple je peut te donner des pages de codes qui taiderons un peut

-> déclaration de chaines de caratéres

jsé pas trop ce que tu a besoin aprés ....

[kk1cp]

Je suis dans mon lycée, et mon professeur, m'autorise à m'aider de ce forum.

Public Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

'Enregistrement du Code
Code = ListBox1.Text

'Test du code
Select Case Code
'Cas ou le code est juste
Case "X123#"
'tu ajoute a ta listeBox1 le code

'Cas ou le code est faux
If Code Is Not "X123#" Then Else
'tu ajoute juste le code a ta listeBox1
End If
End Select
End Sub

Donc voilà, votre code me semble correct, je l'ai essayé mais je n'y suis pas arrivé, ce que ça donnait précédemment me le redonne maintenant.









Je demande simplement de l'aide, c'est pas un projet déjà prêt et le montrer après, Juste à la place de If sPass = False Then, que mettre parce que ça m'affiche que (La conversation de la chaîne "#123X" en type 'boolean' n'est pas valide.)
Merci beaucoup Hunteshiva

[sebnantes]

TU réponds toi même à ton problème dans ta question. C'est un soucis de type, à ton avis est ce que on peut faire l'égalité suivante :

entier = chaine de caractère ?

[kk1cp]

J'ai pas bien compris la question
Entier ==> les nombres et chiffres ?
Chaîne de caractère ==> les lettres ??

Merci de m'éclairer sur ce sujet.

[sebnantes]

En gros, tu fais un test avec deux types différents donc penses-tu que le programme comprenne ce que tu lui demandes de faire ?

[hunteshiva]

alalala
tu peut pas les renomer tes boutons !!!!!!
plutot que "bouton14" met "btValider" sa aide bcp quand tu a des codes a vérifier ....
*enfin c'est du détail*

bon ton probléme est simple
tu comparre "#123X" avec False
sa ne peut pas marcher

tu met tout a l'envers

On commence du début
est-ce-que quand tu click sur tes bouton 1,2,3[...],9,#,X
sa affiche la valeurs dans ta textBox en haut ??

[hunteshiva]

aparament oui, vue tes screens

Donc maintenant il faut que tu prenne le code qui est dans ta textbox
et que tu l'enregistre dans ta varaible sPass

Comme ceci par exemple:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

 sPass = textBox.text

Ensuite
Il faut tester cette valeur *tu y été presque*

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
'Si le Code saisi vaut bien #123X
If Spass = "#123X" then
msgBox("Mot de passe correct")
' et la tu rajoute ta routine qui va bien pour faire la suite ;)
 
'Sinon
Else
msgBox("Mot de passe incorrect")
End If

[hunteshiva]

Entier (ou integer)=> que des chiffres
Chaine de caractéres ( ou string)=> c'est tout (lettes + chiffres + caractéres scpéciaux "#,&,...")
Booléan => True ou False *seulement*

PS: tu ne peut pas comparer un string avec Booléan (ou un integer avec un string, etc .)

[kk1cp]

Ca marche impeccable!!! Je suis super content :-) Merciii beaucoup Hunteshiva
Maintenant il me reste la listbox à codé, je vais essayé mais maintenant tout me paraît dans l'ordre
Le plus dur viens juste après. Je dois, en effet, utiliser le port parallèle pour donner une tension de 12 V à la gâche de la serrure... mon autre binôme est en train de faire la plaque du circuit imprimé.

Je retourne à mes moutons, euhh boutons...
Pour le menu "messages essayés précedemment"... --"

[kk1cp]

Ah d'accord, Merci Hunteshiva de m'avoir éclairé
Boolean ==> True or False "1" ou "0"
Merci encore une fois

[hunteshiva]

De rien
je me suis bien amusé a t'aider
Moi je suis plus dans un cas d'école,
stage de 4 mois ou je doi développer un logiciel complet en VB alors sa se corse un peut ...
hésite pas si tu a besoin

PS: marque résolu si tu en a fini avec ton programme sinon j'attend tes questions

[Danyel]

Merci de penser au bouton (en bas des pages) si tel est le cas

[kk1cp]

--"
Oui, en effet, je vous prie de m'excuser.