OVH Cloud OVH Cloud

Affichage HTML

4 réponses
Avatar
bzai
Bonjour,

J'ai eu l'information concernant la possibilité d'afficher un texte HTML
avec Webbrowser et c'est marche. Mais j'ai un problème un peu plus
spécifique.

A partir de variable élaborée dans VB, je voudrais écrire un texte en
HTML dans le cadre d'un diagnostic, par exemple

On élabore l'indice pondéral IP d'une personne à partir de sa taille et
de son poids, ensuite on donne un diagnostic

si IP < 18 " vous risquez d'être anorexiques"
Si IP entre 18 et 25 "Tout va bien"
etc....

Faut il passer par un fichier texte dans lequel on va mettre toutes les
variables et qui alimentera la page HTML, ou bien y a t il une solution
plus simple

merci

4 réponses

Avatar
jean-marc
"bzai" wrote in message
news:##
Bonjour,

J'ai eu l'information concernant la possibilité d'afficher un texte HTML
avec Webbrowser et c'est marche. Mais j'ai un problème un peu plus
spécifique.

A partir de variable élaborée dans VB, je voudrais écrire un texte en
HTML dans le cadre d'un diagnostic, par exemple

On élabore l'indice pondéral IP d'une personne à partir de sa taille et
de son poids, ensuite on donne un diagnostic

si IP < 18 " vous risquez d'être anorexiques"
Si IP entre 18 et 25 "Tout va bien"
etc....

Faut il passer par un fichier texte dans lequel on va mettre toutes les
variables et qui alimentera la page HTML, ou bien y a t il une solution
plus simple



Hello,

quelque chose comme ceci te donne t'il une piste?

Private Sub Command1_Click()
Dim IP As Single
Dim sHtml As String
Dim diagnostic As String
Dim f As Integer

' calcul IP
' IP = CalculIP( .... )
If IP < 18 Then
diagnostic = "Risque Anorexie"
ElseIf IP < 25 Then
diagnostic = "Tout va bien!"
Else
diagnostic = "Problème de surpoids?"
End If

sHtml = "<html><body><p>Voici votre diagnostic</p><br>"
sHtml = sHtml & "<p>" & diagnostic & "</p>"
sHtml = sHtml & "</body></html>"

f = FreeFile
Open App.Path & "diagnostic.html" For Output As #f
Print #f, sHtml
Close #f
WebBrowser1.navigate2 (App.Path & "diagnostic.html")
End Sub

--
Jean-marc
"There are only 10 kind of people
those who understand binary and those who don't."
Avatar
bzai
jean-marc a écrit :
"bzai" wrote in message
news:##

Bonjour,

J'ai eu l'information concernant la possibilité d'afficher un texte HTML
avec Webbrowser et c'est marche. Mais j'ai un problème un peu plus
spécifique.

A partir de variable élaborée dans VB, je voudrais écrire un texte en
HTML dans le cadre d'un diagnostic, par exemple

On élabore l'indice pondéral IP d'une personne à partir de sa taille et
de son poids, ensuite on donne un diagnostic

si IP < 18 " vous risquez d'être anorexiques"
Si IP entre 18 et 25 "Tout va bien"
etc....

Faut il passer par un fichier texte dans lequel on va mettre toutes les
variables et qui alimentera la page HTML, ou bien y a t il une solution
plus simple




Hello,

quelque chose comme ceci te donne t'il une piste?

Private Sub Command1_Click()
Dim IP As Single
Dim sHtml As String
Dim diagnostic As String
Dim f As Integer

' calcul IP
' IP = CalculIP( .... )
If IP < 18 Then
diagnostic = "Risque Anorexie"
ElseIf IP < 25 Then
diagnostic = "Tout va bien!"
Else
diagnostic = "Problème de surpoids?"
End If

sHtml = "<html><body><p>Voici votre diagnostic</p><br>"
sHtml = sHtml & "<p>" & diagnostic & "</p>"
sHtml = sHtml & "</body></html>"

f = FreeFile
Open App.Path & "diagnostic.html" For Output As #f
Print #f, sHtml
Close #f
WebBrowser1.navigate2 (App.Path & "diagnostic.html")
End Sub

--
Jean-marc
"There are only 10 kind of people
those who understand binary and those who don't."






Jean Marc,

Je voudrais tout d'abord te remercier pour ta contribution efficace et
précise. Cela répond parfaitement à ma demande, merci beaucoup.

Je voudrais aussi profiter de la présente pour féliciter et remercier
les contributeurs à ce forum pour la qualité de leur contribution.
Personnellement, je fais partie du monde des seniors, et sans être
informaticien, je suis passionné par les applications informatiques.
Il est toujours très difficile de se débrouiller seul en face d'un
problème spécifique, les solutions sont souvent simples (comme l'oeuf de
Christophe !), mais on galère souvent avant de les trouver.
Longtemps j'ai hésité longtemps avant d' aller sur les news, par ignorance.

Bravo à tous et continuez dans la voie de la qualité.

Voici mon adresse personnelle

Avatar
Jean-Marc
"bzai" a écrit dans le message de
news:
jean-marc a écrit :
> "bzai" wrote in message
> news:##



Je voudrais aussi profiter de la présente pour féliciter et remercier
les contributeurs à ce forum pour la qualité de leur contribution.
Personnellement, je fais partie du monde des seniors, et sans être
informaticien, je suis passionné par les applications informatiques.
Il est toujours très difficile de se débrouiller seul en face d'un
problème spécifique, les solutions sont souvent simples (comme l'oeuf de
Christophe !), mais on galère souvent avant de les trouver.
Longtemps j'ai hésité longtemps avant d' aller sur les news, par


ignorance.

Bravo à tous et continuez dans la voie de la qualité.



Re Hello,

C'est vrai que ce newsgroup est de bonne qualité, et que l'ambiance y est
plutot sympa :-)

A mon tour de te remercier pour ton sympathique message. C'est vrai
qu'il est agréable de recevoir un petit merci de temps en temps :-)

<HS>
petit conseil: sur les news, évite de poster ton @email en clair, il y
a malheureusement des outils qui scannent les messages pour récupérer
des adresses email valides et s'en servent pour du spam.
utilise plutot des choses genre:

</HS>

Cordialement,

--
Jean-marc
"There are only 10 kind of people
those who understand binary and those who don't."
Avatar
Jean-Marc
"bzai" a écrit dans le message de
news:
jean-marc a écrit :
> "bzai" wrote in message
> news:##



Je voudrais tout d'abord te remercier pour ta contribution efficace et
précise. Cela répond parfaitement à ma demande, merci beaucoup.

Je voudrais aussi profiter de la présente pour féliciter et remercier
les contributeurs à ce forum pour la qualité de leur contribution.
Personnellement, je fais partie du monde des seniors, et sans être
informaticien, je suis passionné par les applications informatiques.
Il est toujours très difficile de se débrouiller seul en face d'un
problème spécifique, les solutions sont souvent simples (comme l'oeuf de
Christophe !), mais on galère souvent avant de les trouver.
Longtemps j'ai hésité longtemps avant d' aller sur les news, par


ignorance.

Bravo à tous et continuez dans la voie de la qualité.



Re Hello,

C'est vrai que ce newsgroup est de bonne qualité, et que l'ambiance y est
plutot sympa :-)

A mon tour de te remercier pour ton sympathique message. C'est vrai
qu'il est agréable de recevoir un petit merci de temps en temps :-)

<HS>
petit conseil: sur les news, évite de poster ton @email en clair, il y
a malheureusement des outils qui scannent les messages pour récupérer
des adresses email valides et s'en servent pour du spam.
utilise plutot des choses genre:

</HS>

Cordialement,

--
Jean-marc
"There are only 10 kind of people
those who understand binary and those who don't."