Centrer 16 caractère sur vb ?
rastiben
Messages postés
9
Date d'inscription
Statut
Membre
Dernière intervention
-
rastiben Messages postés 9 Date d'inscription Statut Membre Dernière intervention -
rastiben Messages postés 9 Date d'inscription Statut Membre Dernière intervention -
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 .
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 .
A voir également:
- Centrer 16 caractère sur vb ?
- Iphone 16 - Accueil - Téléphones
- Caractère ascii - Guide
- Caractère spéciaux - Guide
- Caractere speciaux - Guide
- Caractere vide - Guide
4 réponses
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
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
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 ?
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 ?
'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 ???
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 ???