17 réponses à ce sujet

[philou-RX]

Salut à tous,

Je programme une petite application sous VB pour connaître le code couleur d'une résistance en fonction de sa valeur, ou l'inverse, si l'on connaît le code couleur on obtient la valeur de la résistance...

Je programme cette application sous VB6(VB = Visual Basic, ressemble aussi à du Delphi )

Mon problème : j'aimerai changer la priorité des mes Forms (pages ou l'on peut mettre des objets, et ensuite programmé).
Je m'explique : Lors de l'élaboration de mon programme, j'ai commencé par le programme principale, mais avec l'évolution de celui-ci, j'aimerai à l'ouverture de mon programme pouvoir choisir 2 méthode de calcul. Pour cela, j'ai créé un Form avec 2 commandButton, maintenant j'aimerai que ce Form s'affiche en premier, au lieu de mon programme principal...

J'ai essayé de voir sur la libraire MSDN, mais j'ai pas trouvé le lien ou la rubrique qui indique cela (peut-être que ma recherche n'est pas adaptée...)...

Avez-vous une solustion ??? (Tuto - lien sur MSDN - Exemple de code - autre)

Merci de m'avoir lu et pour vos futures messages
Amicalement Philou

[webshinra]

hum, si tu veut un conseil, change de langage.

[miky-mike]

[quote"webshinra"]hum, si tu veut un conseil, change de langage.[/quote]

Ouf LE conseil :D

Je ne pense pas qu'ici beaucoup code en VB6, regarde plutôt du coté du site du zero

[robocop]

Tu as donc une forme principale, et qui lancée automatiquement au démmarage, et une forme secondaire, qui est lancée par la premiere ?

[philou-RX]

Hello à tous,

@Web - @Miky : Oui effectivement, je pourrai ;-), mais comme je suis tétu, je présiste et signe :-D... Le boulet (ca passe Mardi sur France2) !!!

@Rob : Oui effectivement. J'ai commencé d'abord sur un Form... Puis après avec l'évolution de mon prog... j'en ai fait plusieurs, dont un qui est plus "Prioriatire" que celui de départ.

J'ai trouvé la solus, après avoir passé plusieurs heures sur le net, et sur VB6 :-|. Il faut aller sur le propriété du projet (la galère pour accèder au propriété), mais une fois trouvé, tout simple... Simplement choisir quel Forms tu veux placer au démarage...

Je donnerai aussi une autre solu en code, mais pas le temps de ce matin..

Amicalement Philou

[frank9321]

De mémoire (ca doit remonter à mes 12 ans), quand tu clique droit sur ton projet (le truc à droite qui contient toutes tes forms), tu vas dans propriétés (ou un truc du style) et t'as ensuite, dans un des onglets, une scroll box qui te permet de choisir ta form de démarrage.

PS @ux autres: J'ai commencé à programmer avec VB6 et ca m'a beaucoup aidé. Sans lui (qui je l'accorde, maintenant, je déteste VB6/.net) je ne programmerais peut-être pas actuellement.

[philou-RX]

Salut à tous,

Merci Frank, effectivement je l'ai aussi vu par la suite, le coups du clic droit sur projet...

Pour le sujet de la prog: effectivement que le C est plus qu'utilisé, mais il est bon de connaître d'autres langage (c'est mon avis perso)... Donc j'essaie d'alterner mes petits projets dans plusieurs langage. Car j'ai remarqué qu'on oublie vite certains détails, et pour l'ancêtre que je suis (:o Ca sera quoi à 40 Ballets), c'est mieux d'exercer ^^

A tout bientôt

Amicalement Philou

[webshinra]

non mais, apprendre le vb pour la culture ça n'a pas d'interet, regarde d'autre parafigme, comme le prolog, l'ocaml ou l'erlang, parce que connaitre plein de langage "similaire" sans raison, c'est un peu inutile

(en plus vbsapucaypalibre)

[philou-RX]

^^

Mais tu serais étonné Web que meme dans le milieu professionnel, on utilise encore ce langage, bon c'est vrai que ca programme plus sur VB.net, mais bon (pour moi j'alterne C/C++, VB, Java, Delphi... et encore Matlab pour tout ce qui est analyse mathématique...)

Par contre je vais zyeuter un oiel sur les langages que tu m'as indiqué

A+
Amicalement Philou

[frank9321]

D'un coté, VB6, pour creer des interfaces graphiquement, c'est super rapide/cool (enfin, d'un coté, j'ai pas testé le delphi ni QT).

[webshinra]

[quote"philou"]^^

Mais tu serais étonné Web que meme dans le milieu professionnel, on utilise encore ce langage, bon c'est vrai que ca programme plus sur VB.net, mais bon (pour moi j'alterne C/C++, VB, Java, Delphi... et encore Matlab pour tout ce qui est analyse mathématique...)

Par contre je vais zyeuter un oiel sur les langages que tu m'as indiqué

A+
Amicalement Philou [/quote]
non, je n'en suis pas étonnée, une partie de l'ago de cryptage du passport éléctronique du kazakhstan a été fait avec il y a 1 ans alors...

(ouais, ça fait peur)

[philou-RX]

Salut à tous,

C'est encore moi avec un nouveau problème en VB, je fais appel à vos idées, même si je sais que vous ne programmez pas beaucoup en VB ; En cherchant que ce soit dans la librairie MSDN de Mircosoft ou sur le net, j'ai pas trouvé de solus alors je fais appel à vous !!!

J'expose mon soucis : J'ai créé un CommandButton, et j'aimerai pouvoir changer la couleur de cette commande chaque fois que je passe dessus avec le pointeur.

Je vous mets le code déjà fait : effectivement cela ne marche pas, mais je ne comprends pas pourquoi... avez-vous une explication.
Private Sub Cmd_reset_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)

Line -(X, Y)
Cmd_reset.BackColor = &H80FF& 'Orange
'Cmd_reset.

End Sub
[/code]

la ligne de code "Line -(x,y)" s'affiche en haut à gauche de ma page :mort:

Maintenant en regardant sur le net, j'ai vu comment certains faisant avec des labels, en les rendant visibles ou non ; j'ai compris les codes d'exemples mais je me demande si il y aurait une autre méthode avec les commandes.

Avez-vous des explications sur ce sujet, car j'aimerai utilisé ce principe sur d'autres boutons, mais avec d'autres actions.

Merci de m'avoir lu et pour vos futures suggestions ou réponses

A tout bientôt
Amicalement Philou


[zeqL]

Juste pour ceux qui se moquaient un peu de VB :

En entreprise VBA (donc le VB appliqué pour la suite office) est souvent utilisé, car en achetant la suite office, et en utilisant Excel, alors là on comprend toute la puissance de VBA, c'est peut-être un langage assez simple, mais il permet néanmoins de faire des programmes complexes à moindre coût, car il n'y a pas besoin d'investir dans des compilateurs, des IDEs, des librairies graphiques et tout, et cela permet à de nombreuses personnes qui n'ont pas forcément faire des études de programmation de faire des choses très utiles.

Personnellement mon maître d'apprentissage à développer une macro excel vraiment impressionnante : elle va recherche des fichiers contenant des erreurs émises lors de tests de calculateurs, puis fait de l'extraction de données (puisque les fichiers sont formatés) et traite toutes ces données, créé des graphiques, etc. Cette macro permet de gagner un temps fou en analyse voire permet de voir des choses qui serait quasiment impossible à voir si on le faisait manuellement.

Et je sais aussi que des 4e années de mon école, en stage, on aussi fait du développement VBA Excel pendant leur 6 mois de stage. De même certaines applications interne à l'entreprise, utilisées dans certains services ont été fait grâce à VBA et Excel.


Enfin, philou, je te conseille de jeter un oeil sur www.developpez.com qui est beaucoup plus professionnel que le site du zéro. :)

[frank9321]

Salut,
si je me souviens bien, les commandbutton on une propriété "mouseover".
Tu devrais aussi, comme tu l'as mentionné, creer des label en visible = none.
Ensuite, tu fais un truc du style:
Sub CommandButton.MouseOver 'Ca doit ressembler à ca
Label1.visible = true
EndSub

'Fin je sais, ca doit être plus ou moins ca.

[philou-RX]

Hello,

Voilà c'est trouvé, merci à vous deux (Zeql et FranK)... Ce que je ne savais pas, c'est qu'il faut mettre le CommandButton en mode Graphique, autrement il y a simplement l'événement du clic qui fonctionne et rien d'autre.

Je vous mets une partie du code :

Ci-dessous, c'est pour changer la couleur du CommandButton quant on passe dessus
Private Sub Cmd_reset_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Cmd_reset.BackColor = &H80FF& 'Orange
End Sub
[/code]

L'autre, c'est pour réinitialiser la couleur du CommandButton, c'est partie doit se faire le Form (page principal)
Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Cmd_reset.BackColor = &H8000000F 'Gris initialisation
Cmd_Retour.BackColor = &H8000000F 'Gris initilaisation

Marche_3.BackColor = &HFF& 'Rouge
Marche_3.FontBold = False 'texte gras

If Marche_1.BackColor = &HFF& Then
Marche_2.BackColor = &HFF00& 'Vert
Marche_2.FontBold = True 'texte gras
End If

End Sub
[/code]

Voilà, Bonne programmation à vous tous, quelque soit le langage :tare: :p



[philou-RX]

Bonsoir à tous, c'est encore moi !!!

Je me suis pris la tête hier soir sur mon prog en VB, je n'ai pas trouvé de réponse ni au niveau de la librairie MSDN ni sur le net, Donc c'est tout naturel que je fais appel à vos suggestions, idées,...

J'expose mon soucis :

Voilà j'ai textBox (fenêtre où soit on peut isncrire du code manuellement ou soit on peut afficher du texte) , dans celui-ci j'affiche une valeur numérique (qui est un calcul), mais j'aimerai aussi dans le même textbox après ce calcul, afficher du texte (indice de puissance, genre "k, M, G") et un caractère sprécial la lettre Grec Omega...

Je vous mets le code que j'ai commencer à taper... Ce que j'ai pu observer : si je mets que la valeur numérique cela fonctionne, si je mets que du texte cela fonctionne, mais je mets les deux ensembles, fonctionne plus ... Et comme c'est pas du C, je peux pas mettre l'instruction : printf("%f k", ma_variable)

Voilà mon code:
'******************************************************************************************************'
' Fonction "Calcul" : Additionne les résultats des différentes barres de couleurs
' Paramètres ; entrées : 3x Val_barrex% ; 2x Val_barrex# ; Val_choix_barre (bool)
' sortie : -
' IN/OUT : -
' Remarque : '%' --> pour entier ; '#' --> pour flottant
'******************************************************************************************************'
Sub Calcul(Val_barre1%, Val_barre2%, Val_barre3%, Val_barre4#, Val_barre5#, Val_choix_barre As Boolean)

'Choix si 2 ou 3 barres pour calcul
If Val_choix_barre = True Then
Resultat = (Val_barre1 * 100 + Val_barre2 * 10 + Val_barre3) * Val_barre4
If Resultat < 1000 Then
Screen_resultat.Text = Resultat + "ohms"
'Screen_resultat.Text = "ohms"
ElseIf Resultat < 1000000 Then
Screen_resultat.Text = Resultat + "k ohms"
ElseIf Resultat < 1000000000 Then
Screen_resultat.Text = Resultat + "M ohms"
Else
Screen_resultat.Text = Resultat + "G ohms"
End If
Else
Resultat = (Val_barre1 * 10 + Val_barre2) * Val_barre4
Screen_resultat.Text = Resultat
End If
End Sub

[/code]

Voilà, si vous avez des idées, des explications, des exemples de codes, ou autres, je suis preneur...
J'ai encore une dernière question, est-ce que vous savez comment on insère un caractère spécial, lettre Grecs en l'occurence ? (image ?)

Par avance Merci de m'avoir lu... A tout bientôt

Amicalement Philou


[robocop]

Normal, résultat a le type integer, et "ohms" string. Toi tu additionnes les deux, ce qui n'a aucun sens. Converti d'abord ton nombre en stirng, et ensutie concate les deux.
A+

[philou-RX]

Désolé du retard pour la réponse !!!

Effectivement, j'ai vu mon erreur, Merci "Rob". De plus, je ne voulais pas additionné ces 2 valeurs, mais simplement les "imbriqués" ensemble.

Voilà ce que cela donne après plusieurs corrections :

Screen_resultat2.SelText = CStr(Resultat) & " k"
[/code]

J'ai remarqué encore qu'il y avait une subtilité pour affiché des caractères spéciaux, il faut utiliser une RichTextBox...

Encore merci pour la réponse.

Bon développement à tous.
Amicalement Philou