Compteur de lettres avec faux loading aidez moi sur les variables et donnez moi des conseils.

Soyez le premier à donner votre avis sur cette source.

Vue 3 345 fois - Téléchargée 189 fois

Description

c'est un compteur de lettres qu'on écrit(il calcul les actions fait dans la textbox) j'ai utiliser if et then et des variables. apres une minute, il affiche le score sur une label. quand on clique sur terminer dans le mnuficher, il unload(faux)

J'AI FAIT CA POUR LE FUN DES VARIABLES QUE J'AI APPRIT HIER SOIR GRACE A YOMAN64

Bye

Source / Exemple :


'dans le zip!

Conclusion :


Je voudrais des personnes qui m'aide. Ajoutez moi a vos contacts, je veux de l'aide.

coolsalex666@hotmail.com

Codes Sources

A voir également

Ajouter un commentaire

Commentaires

cs_bloom1
Messages postés
328
Date d'inscription
jeudi 26 août 2004
Statut
Membre
Dernière intervention
8 mars 2007
-
j'ai fait un montage d'image, il ne s'affcihent pas tous en meme temps.
lui en rouge, il s'affiche en premier, et le prog en deuxieme. Quand on clique sur quitter, c'est lui en bleu qui apparait
zemetafyzik
Messages postés
119
Date d'inscription
jeudi 17 juin 2004
Statut
Membre
Dernière intervention
3 novembre 2007
1 -
je me suis amuser avec ta premiere form, dison que pour afficher pas mal de chose ( du genre load c:\java\applet.html ) le "select case" me semble tres pratique

comme je sais pas si tu connai, j'ai refet le deb avec "select case", il te suffit de copier sa dans ta premiere form :



Public lol As Integer

Private Sub Timer1_Timer()

Shape1.Width = Shape1.Width + 20

Select Case lol
Case Is < 5
Label1.Caption = "load c:\windows"
Case Is < 10
Label1.Caption = "load e:\jeux\pong.exe"
Case Is < 15
Label1.Caption = "load e:\qqchose.rtt"
Case Is < 20
Label1.Caption = "load e:\progz\msn.exe"
Case Is < 25
Label1.Caption = "load e:\windows\system32"
Case Is < 30
Label1.Caption = "load c:\coucou sa va ?\question bidon\il est tard !!.bmp"
Case Is < 35
Label1.Caption = "load e:\tvadsl.sys"
Case Is < 40
Label1.Caption = "load e:\money2039.avi"
lol = 0 'et on retourne au debut :)
End Select



If Shape1.Width > 4600 Then
Unload Form1
Form2.Show
End If

Form1.Caption = Label1.Caption
lol = lol + 1

End Sub




bon, et comme il est tard (ou tot ??) jarrive plus tres bien a m'exprimer nis a reflechir

bye et bonne continuation.
cs_bloom1
Messages postés
328
Date d'inscription
jeudi 26 août 2004
Statut
Membre
Dernière intervention
8 mars 2007
-
c sur mais les variables ca fonctionne plus vite que les case(j'ai fait des variables pour que les mots passent lus vite)

Mais en tou cas, je suis débutant et merci pour m,avoir montrer les select case
cs_bloom1
Messages postés
328
Date d'inscription
jeudi 26 août 2004
Statut
Membre
Dernière intervention
8 mars 2007
-
Ajoute moia tes contacts MSN. J'ai besoisn de conseils, ca fait un mois que j,ai commencé le vb alors c pas sis pire pour un début
cs_clementpat
Messages postés
406
Date d'inscription
lundi 2 décembre 2002
Statut
Membre
Dernière intervention
25 janvier 2014
-
salut a toi , achete toi un livre de base sur vb, tu apprendra le b a BA

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.