[déplacer VB.NET -> VBA] action touche et mesure de temps [Résolu]
kayis06s
- Messages postés
- 52
- Date d'inscription
- jeudi 4 novembre 2010
- Statut
- Membre
- Dernière intervention
- 3 mars 2011
- Messages postés
- 3258
- Date d'inscription
- jeudi 26 novembre 2009
- Statut
- Membre
- Dernière intervention
- 3 décembre 2019
A voir également:
- Nombre aleotoir
- Action vb - Meilleures réponses
- Vb action - Meilleures réponses
- [déplacé VB.NET -> VBA] Revoie un format texte ✓ - Forum - Visual Basic 6
- [déplacé VB.NET -> VBA] replacer un signe moins ✓ - Forum - Visual Basic 6
- [déplacé VB.NET -> VBA] Détecter si l'explorateur Windows a déja été ouvert en V ✓ - Forum - Visual Basic 6
- [déplacé VB.NET -> VBA] problème de variables boucle loop ✓ - Forum - Visual Basic 6
- [déplacé VB.NET -> VBA] Excel - Copie du contenu gauche/droit d'une comboBox dan ✓ - Forum - Visual Basic 6
20/70 réponses
Meilleure réponse
- Messages postés
- 3258
- Date d'inscription
- jeudi 26 novembre 2009
- Statut
- Membre
- Dernière intervention
- 3 décembre 2019
Salut
ton projet si tu es toujours intéressé
http://www.megaupload.com/?d=7J8YCC17
ton projet si tu es toujours intéressé
http://www.megaupload.com/?d=7J8YCC17
Quelques mots de remerciements seront grandement appréciés. Ajouter un commentaire
190 internautes nous ont dit merci ce mois-ci
- Messages postés
- 3258
- Date d'inscription
- jeudi 26 novembre 2009
- Statut
- Membre
- Dernière intervention
- 3 décembre 2019
Dim dt1 As DateTime
Dim dt2 As DateTime
Dim ts As TimeSpan
dans la sub où tu affiches l'image
dt1 = DateTime.Now
dans l'évenement keypress ou keyup (touche appuyée ou touche relevé à toi de voir) où tu verifies si
la touche est bien x
dt2 = DateTime.Now
ts = dt2.Subtract(dt1)
http://articles.techrepublic.com.com/5100-10878_11-5760752.html
C'est pour un jeu de reflex ?
Dim dt2 As DateTime
Dim ts As TimeSpan
dans la sub où tu affiches l'image
dt1 = DateTime.Now
dans l'évenement keypress ou keyup (touche appuyée ou touche relevé à toi de voir) où tu verifies si
la touche est bien x
dt2 = DateTime.Now
ts = dt2.Subtract(dt1)
http://articles.techrepublic.com.com/5100-10878_11-5760752.html
C'est pour un jeu de reflex ?
- Messages postés
- 52
- Date d'inscription
- jeudi 4 novembre 2010
- Statut
- Membre
- Dernière intervention
- 3 mars 2011
Option Explicit
Private Sub CommandButton1_Click()
Dim fin
Dim rep As String
With Ark1
fin = Ark1.Range("a65536").End(xlUp).Row
Ark1.Cells(fin + 1, 1) = TextBox1
Ark1.Cells(fin + 1, 2) = TextBox6
Ark1.Cells(fin + 1, 3) = ComboBox1
If OptionButton2.Value True Then rep "fille"
If OptionButton1.Value True Then rep "garçon"
Ark1.Cells(fin + 1, 4) = rep
If OptionButton3.Value True Then rep "Droitier"
If OptionButton4.Value True Then rep "Gaucher"
Ark1.Cells(fin + 1, 5) = rep
UserForm1.Hide
UserForm2.Show
End With
Ark1.Select
End Sub
Private Sub CommandButton2_Click()
UserForm1.Hide
End Sub
Private Sub OptionButton1_Click()
UserForm1.BackColor = &HC0C000
UserForm1.Frame1.BackColor = &HC0C000
UserForm1.Frame1.OptionButton2.BackColor = &HC0C000
UserForm1.Frame1.OptionButton1.BackColor = &HC0C000
UserForm1.Label1.BackColor = &HC0C000
UserForm1.Label3.BackColor = &HC0C000
UserForm1.Label4.BackColor = &HC0C000
UserForm1.Frame2.BackColor = &HC0C000
UserForm1.Frame2.OptionButton3.BackColor = &HC0C000
UserForm1.Frame2.OptionButton4.BackColor = &HC0C000
End Sub
Private Sub OptionButton2_Click()
UserForm1.BackColor = &HFFC0FF
UserForm1.Frame1.BackColor = &HFFC0FF
UserForm1.Frame1.OptionButton2.BackColor = &HFFC0FF
UserForm1.Frame1.OptionButton1.BackColor = &HFFC0FF
UserForm1.Label1.BackColor = &HFFC0FF
UserForm1.Label3.BackColor = &HFFC0FF
UserForm1.Label4.BackColor = &HFFC0FF
UserForm1.Frame2.BackColor = &HFFC0FF
UserForm1.Frame2.OptionButton3.BackColor = &HFFC0FF
UserForm1.Frame2.OptionButton4.BackColor = &HFFC0FF
End Sub
Private Sub UserForm_Initialize()
Dim i As Long
For i = 10 To 30
ComboBox1.AddItem i
Next
End Sub
.....................................'
pour le moment c'est ca...
j'aimerai que useform 2 sert de bases a l'algorithme que je n'arrive pas a mettre en place.
merci
l'image voulu est un fond unie de couleur alors si tu connais un moieyn plus rapide sa serrais aussi sympa ;)
merci encore
Private Sub CommandButton1_Click()
Dim fin
Dim rep As String
With Ark1
fin = Ark1.Range("a65536").End(xlUp).Row
Ark1.Cells(fin + 1, 1) = TextBox1
Ark1.Cells(fin + 1, 2) = TextBox6
Ark1.Cells(fin + 1, 3) = ComboBox1
If OptionButton2.Value True Then rep "fille"
If OptionButton1.Value True Then rep "garçon"
Ark1.Cells(fin + 1, 4) = rep
If OptionButton3.Value True Then rep "Droitier"
If OptionButton4.Value True Then rep "Gaucher"
Ark1.Cells(fin + 1, 5) = rep
UserForm1.Hide
UserForm2.Show
End With
Ark1.Select
End Sub
Private Sub CommandButton2_Click()
UserForm1.Hide
End Sub
Private Sub OptionButton1_Click()
UserForm1.BackColor = &HC0C000
UserForm1.Frame1.BackColor = &HC0C000
UserForm1.Frame1.OptionButton2.BackColor = &HC0C000
UserForm1.Frame1.OptionButton1.BackColor = &HC0C000
UserForm1.Label1.BackColor = &HC0C000
UserForm1.Label3.BackColor = &HC0C000
UserForm1.Label4.BackColor = &HC0C000
UserForm1.Frame2.BackColor = &HC0C000
UserForm1.Frame2.OptionButton3.BackColor = &HC0C000
UserForm1.Frame2.OptionButton4.BackColor = &HC0C000
End Sub
Private Sub OptionButton2_Click()
UserForm1.BackColor = &HFFC0FF
UserForm1.Frame1.BackColor = &HFFC0FF
UserForm1.Frame1.OptionButton2.BackColor = &HFFC0FF
UserForm1.Frame1.OptionButton1.BackColor = &HFFC0FF
UserForm1.Label1.BackColor = &HFFC0FF
UserForm1.Label3.BackColor = &HFFC0FF
UserForm1.Label4.BackColor = &HFFC0FF
UserForm1.Frame2.BackColor = &HFFC0FF
UserForm1.Frame2.OptionButton3.BackColor = &HFFC0FF
UserForm1.Frame2.OptionButton4.BackColor = &HFFC0FF
End Sub
Private Sub UserForm_Initialize()
Dim i As Long
For i = 10 To 30
ComboBox1.AddItem i
Next
End Sub
.....................................'
pour le moment c'est ca...
j'aimerai que useform 2 sert de bases a l'algorithme que je n'arrive pas a mettre en place.
merci
l'image voulu est un fond unie de couleur alors si tu connais un moieyn plus rapide sa serrais aussi sympa ;)
merci encore
- Messages postés
- 52
- Date d'inscription
- jeudi 4 novembre 2010
- Statut
- Membre
- Dernière intervention
- 3 mars 2011
visual basic 2008 express edition
jaimerai faire un interface dans lequel la personne s'enregistre ( nom prenom age...)
sa enregistre quand on valide ...
juste apres une seconde page s'ouvre dans laquelle des images passent de facon alleatoire (ou pas) (au plus simple)
certain image sont bleu et dautre vert d'autre des deux couleurs...¨
quand on vois le bleu on appuis sur "b" quand on vois du vert on appui sur "v"
(il y a aussi des pieges)
et apres une dizaine d'image on as la moyenne des fautes et du temps de reaction mis sur chaque touche ("b" et "v")
tu crois que ce sois possible?
jaimerai faire un interface dans lequel la personne s'enregistre ( nom prenom age...)
sa enregistre quand on valide ...
juste apres une seconde page s'ouvre dans laquelle des images passent de facon alleatoire (ou pas) (au plus simple)
certain image sont bleu et dautre vert d'autre des deux couleurs...¨
quand on vois le bleu on appuis sur "b" quand on vois du vert on appui sur "v"
(il y a aussi des pieges)
et apres une dizaine d'image on as la moyenne des fautes et du temps de reaction mis sur chaque touche ("b" et "v")
tu crois que ce sois possible?
- Messages postés
- 3258
- Date d'inscription
- jeudi 26 novembre 2009
- Statut
- Membre
- Dernière intervention
- 3 décembre 2019
Oui c'est possible mais il manque encore de précision
si je comprends
il faut remplir un formulaire nom et prénom
ça enregistre oui mais ou dans une base de donné
un fichier txt
pourquoi as tu besoin d'enregistrer ?
après passent les images défilent sur l'écran
de façon aléotoir
quand on vois le bleu on appuis sur "b"
mais si sur l'écran il y a plusieurs images
sur quoi je vais appuyé b v
c'est pas clair
c'est un jeu
essayes de bien détailler ce que tu veux faire
comme çà c'est beaucoup plus facile pour coder
si je comprends
il faut remplir un formulaire nom et prénom
ça enregistre oui mais ou dans une base de donné
un fichier txt
pourquoi as tu besoin d'enregistrer ?
après passent les images défilent sur l'écran
de façon aléotoir
quand on vois le bleu on appuis sur "b"
mais si sur l'écran il y a plusieurs images
sur quoi je vais appuyé b v
c'est pas clair
c'est un jeu
essayes de bien détailler ce que tu veux faire
comme çà c'est beaucoup plus facile pour coder
- Messages postés
- 52
- Date d'inscription
- jeudi 4 novembre 2010
- Statut
- Membre
- Dernière intervention
- 3 mars 2011
j'aimerai que le formulaire sois enregistrer dans un tableau type access mais un .txt ne me derange pas du tout.
c'est pour une sorte de sondage...
ben si l'image bleu et vert sort ben on appui sur "b" et sur "v" et si l'image et ni vert ni bleu ben on appui sur espace mais sa ne compte pas en temps
j'ai deja fait plusieur images en .bitmap
c'est pour une sorte de sondage...
ben si l'image bleu et vert sort ben on appui sur "b" et sur "v" et si l'image et ni vert ni bleu ben on appui sur espace mais sa ne compte pas en temps
j'ai deja fait plusieur images en .bitmap
- Messages postés
- 3258
- Date d'inscription
- jeudi 26 novembre 2009
- Statut
- Membre
- Dernière intervention
- 3 décembre 2019
avec l'Access j'ai un prob technique donc
avec un fichier txt
que doit inclure ton fichier
nom prénom age c'est tout ?
chacun a le droit de jouer une seule fois ?
il ne faut pas inscrire la personne plusieurs fois
pour les images je n'ai pas bien saisi
par ex je valide
il n'y a qu'une image qui apparait mais combien
de temps elle reste visible ou tant que je n'ai
pas appuyé sur v ou b l'image reste visible
il n'y a seulement que 2 couleurs ?
Tu veux verifier qui est daltonien
avec un fichier txt
que doit inclure ton fichier
nom prénom age c'est tout ?
chacun a le droit de jouer une seule fois ?
il ne faut pas inscrire la personne plusieurs fois
pour les images je n'ai pas bien saisi
par ex je valide
il n'y a qu'une image qui apparait mais combien
de temps elle reste visible ou tant que je n'ai
pas appuyé sur v ou b l'image reste visible
il n'y a seulement que 2 couleurs ?
Tu veux verifier qui est daltonien