Centrer 16 caractère sur vb ?

Question

Bonjour a tous :

J'aurais besoin d'aide en visual basic . Mon professeur de sti nous a demander sur visual
basic de faire un programme permettant , sur une borne comme celle si : https://www.velleman.eu/images/products/6/mml4w.jpg ,
D'envoyer entre 0 et 16 caractères a la borne et que ces caractères soir centrée .
Pour nous aider il nous a dit de faire une boucle qui calcul le nombre d'espace a mettre avant et après pour que les caractères que l'on va envoyer soit au centre de la borne .
J'ai beau chercher et travailler dessus je ne trouve vraiment pas comment faire ceci pourriez vous m'aider ?

Merci d'avance .

moiced59 · Answer

Bonjour

Exemple par mi tant d'autre .

Dim Nbre_Envoye as integer ' le nbre a envoyé
Dim Nbre_Espace as integer
Dim Message as string
Message = ""

if len(Nbre_Envoye) <> 0 then
Nbre_Espace = round((16 - len(Nbre_Envoye)/2),0)

do while Nbre_Espace <> 0
Message = Message & " "
Nbre_Espace = Nbre_Espace -1
loop
end if
Message = Message & Nbre_Envoye

Je n'est pas tester le code mais voila comment je ferais

rastiben · Answer

Je ne rien compris imagine que je test avec deux textbox et un boutton ,
je part d'une textbox je clique sur le bouton et sa m'affiche le text centré dans la deuxiéme textbox ? 
peut tu m'ecrire le code comme cela ?

moiced59 · Answer

'Nbre_Envoye c'est le nom de la teste box 1
Dim Nbre_Espace as integer
Dim Message as string
dim lg as integer
lg = len(me.Nbre_Envoye)
Message = ""

if lg <> 0 and lg <16 then
Nbre_Espace = (16 - lg) /2

do while Nbre_Espace <> 0
Message = Message & " "
Nbre_Espace = Nbre_Espace -1
loop
end if
Ta Texte box de reponse = Message & Nbre_Envoye

Voila c'est bon ???

rastiben · Answer

ok merci =)

Centrer 16 caractère sur vb ?

4 réponses

Discussions similaires

Newsletters