UN DELIRE DE TECHNO

XGuarden Messages postés 259 Date d'inscription dimanche 14 juillet 2002 Statut Membre Dernière intervention 17 août 2012 - 11 nov. 2002 à 20:38
jamesX001 Messages postés 24 Date d'inscription mercredi 30 octobre 2002 Statut Membre Dernière intervention 24 novembre 2002 - 11 nov. 2002 à 21:38

Cette discussion concerne un article du site. Pour la consulter dans son contexte d'origine, cliquez sur le lien ci-dessous.

https://codes-sources.commentcamarche.net/source/5039-un-delire-de-techno

jamesX001 Messages postés 24 Date d'inscription mercredi 30 octobre 2002 Statut Membre Dernière intervention 24 novembre 2002
11 nov. 2002 à 21:38

avais pas vu

cs_iubito Messages postés 629 Date d'inscription mercredi 3 juillet 2002 Statut Membre Dernière intervention 9 octobre 2006
11 nov. 2002 à 21:04

je vois ke ta source apparaît 2 fois dans la liste mais une fois elle é pa complète... Tu sais qu'au lieu d'ajouter une 2e source complète, tu peux modifier la première avec "Modifier votre source" à gauche

jamesX001 Messages postés 24 Date d'inscription mercredi 30 octobre 2002 Statut Membre Dernière intervention 24 novembre 2002
11 nov. 2002 à 20:58

mais je suis TRES debutant , et urtout j'ai pas de prof !! J'ai fait ce truc pour un copain et disans que " Elle en ai encore a WORD !! J'en suis au visual basic :)"

jamesX001 Messages postés 24 Date d'inscription mercredi 30 octobre 2002 Statut Membre Dernière intervention 24 novembre 2002
11 nov. 2002 à 20:57

Je sais que ça sert a rien :)

Weado Messages postés 119 Date d'inscription mercredi 19 juin 2002 Statut Membre Dernière intervention 21 avril 2009
11 nov. 2002 à 20:46

bof ça sert à rien, mais continu à programmeron sait jamais may be one day

XGuarden Messages postés 259 Date d'inscription dimanche 14 juillet 2002 Statut Membre Dernière intervention 17 août 2012
11 nov. 2002 à 20:45

Bon sé un deémo detabulation vite fait mais autre truc
For X = 1 to 100
ligne = 100
....
Sa vas dire 100 fois que ligne =100
met plutot:

LIGNE = 100
Gauche = 100
Droite = Form1.Width - 100
Bas = Form1.Height - 100
apres tu met for X 1 to 100 a moin bien sur que ses valeur cahge durant la procédre et quil doive redevenir a 100 mais a se que jai vu sé pas le cas...Analise un peu ton code et esaye doptiniser si tu peu sa serasi plus cool que de voir 100 fois une varaible fixe se répéter:0)Enfin bonne chance(«Je donne pas de note alors si tu te remasse avec une moyenne désagréable sa seras pas de ma phaute)(par contre sé bine moi qui fait des phautes de francais lol)

XGuarden Messages postés 259 Date d'inscription dimanche 14 juillet 2002 Statut Membre Dernière intervention 17 août 2012
11 nov. 2002 à 20:40

Bon sé un deémo detabulation vite fait mais autre truc
For X = 1 to 100

cs_OphidiaN Messages postés 235 Date d'inscription mercredi 4 avril 2001 Statut Membre Dernière intervention 9 novembre 2007
11 nov. 2002 à 20:38

sympa la fonction TextWidth() jconnaissais pas ça.... :)

XGuarden Messages postés 259 Date d'inscription dimanche 14 juillet 2002 Statut Membre Dernière intervention 17 août 2012
11 nov. 2002 à 20:38

Bon pour etre honete sé tres débutant et as tres peu d'utiliter.
Il y ades déja des example sur vb france de se genre de truc mais avec pus doption.
Miais sé pas pour dire que ses nul mais juste pour te dire qe tudevrai pserser a l'utiliter que sa vas avoir ici,mais n'empeche continue a programmer quand meme et découragetoi pas.

Quelque conseil,ignore se que tedit ton prof et tabulle ton code.Sub Main()
For X = 0 To 100
LIGNE = 100
Gauche = 100
Droite = Form1.Width - 100
Bas = Form1.Height - 100
img = Clipboard.GetData
D = Date$
B = "Mon nom ;)"
CurrentX = Droite - TextWidth(B)
CurrentY = LIGNE
Print B
B = "4 eme C"
CurrentX = Droite - TextWidth(B)
Print B
Line (0, Rnd * Droite)-(Rnd * Droite, Rnd * Bas)
Picture1.Top = Bas / 2
Picture1.Left = Droite / 2
CurrentY = Bas - 1000
B = " Année scolaire : " + D + " Professeur M.pahin"
CurrentX = Droite - TextWidth(B) - 100
CurrentX = Picture1.Left
CurrentY = Picture1.Top
Circle (Picture1.Top, Picture1.Left), Rnd * 1000, Rnd * 640, Rnd * 5, Rnd * -5
Print B
Next
End Sub

Private Sub Form_KeyPress(KeyAscii As Integer)
If KeyAscii = vbKeyTab Then
Cls
Main
End If
End Sub

Votre réponse