bonjour les amis

Question

Mon pb est que j aimerais que quqnd je selectionne un numero se trouvant dans mon Combo qu il m affiche l equivalent de ce num
ex;
Je suppose que j ai depose un combo et une zone de texte sur un formulaire. Dans le combo j 'ai mis les nombres de 1 a 8 
je veux quand je prend 1 il m affiche le pays correspondant...........
Merci

PCPT · Answer

le pays?

.....





Private Sub Combo1_Click()

    Text1.Text "Pays choisi n&#176;" & Combo1.Text

End Sub

jpleroisse · Answer

Bonjour,

Tu as mis des chiffres de 1 &#224; 8 dans ta Combo, mais les pays, ils sont o&#249; ???.



jpleroisse

Lucyberad · Answer

j'aimerais jsute te dire que ton titre est pourri !
fait attention la prochaine fois, utilise un titre appropri&#233;.

<hr size="2" width="100%">
L U C Y I3 E R @ D

cs_rt15 · Answer

Salut pcpt,

Bonjour le autres,

Dim AstrPays(1 To 2) As String

Private Sub Combo1_Click()
Text1.Text = AstrPays(Combo1.Text)
End Sub

Private Sub Form_Load()
Combo1.AddItem ("1")
Combo1.AddItem ("2")
Combo1.Text = 1

AstrPays(1) = "Pay des merveilles"
AstrPays(2) = "DTC"
Text1.Text = "Pays des merveilles"
End Sub

PCPT · Answer

salut RT15 je me permet de modifier juste à cause des types Option Explicit Dim AstrPays(1 To 2) As String ' Private Sub Form_Load() 'init avant non? '* AstrPays(1) = "Pay des merveilles" AstrPays(2) = "DTC" ' Combo1.AddItem "1" Combo1.AddItem "2" Combo1.Text = "1" '* ' 'pas de code en cas de changeement, plus pratique Call Combo1_Click '* End Sub ' Private Sub Combo1_Click() Text1.Text = AstrPays(Val(Combo1.Text)) '* Val important End Sub Coloration syntaxique automatique [AFCK] miagisteiai1 il serait peut-être temps de te manifester non? qu'est-ce qu'on dit? merci RT15 de me mâcher le boulot!! PS pour RT15 (sans rapport) : je n'ai toujours rien trouvé au sujet de Integer ou Long .... (tu te souviens?) ++

cs_rt15 · Answer

Merci pour la correction du code !

(Pour les Long vs integer, si ça te turlupine... Bin y a qu'à faire un essai de vitesse. Je vais voir ce que je peux faire ce weekend.)

PCPT · Answer

(beh moi qui cherche souvent le cot&#233; vitesse justement, c'est le cas
inverse cette fois-ci. c'est la r&#233;elle occupation m&#233;moire.... 

mais ta d&#233;monstration assembleur avec ton explication &#233;tait plus qu'explicite. &#231;&#224; me turlupine, en effet!

pour la vitesse, je ferai aussi des tests et les posterai ici, je suis certain que ce sujet passionne particuli&#232;rement miagisteiai1 )

cs_rt15 · Answer

(Pour la vitesse, apparement, les longs se défendent très bien. En compilant avec les optimisations cochées, je ne suis pas vraiment arrivé à les départager: il semblerait que cela dépende des opérations. C'est vrai que l' "interface" du proce est un peu moins bien armé pour les calculs sur 16bits. Pour la taille, si j'ai le courage, je te fais une impression d'écran d'un tableau de 16 et d'un de 32 en mémoire. De vague notions d'hexa devrait te permettre de constater la différence.)

PCPT · Answer

(salut, ok pour le screen. on en est donc &#224; peu pr&#232;s au m&#234;me point?)

cs_rt15 · Answer

(En bas de cette page :
http://forumtsi.forumactif.com/viewtopic.forum?p=11730#11730
)

PCPT · Answer

(que de parenth&#232;ses...

pourquoi de la faute de little indian, tu penses que ton appli inverse les colonnes par paire?

en tout cas c'est clair et je vais me fier &#224; ce d&#233;tail. merci beaucoup!



j'ai repris ton exemple pour tester la rapidit&#233; en compil&#233; (sachant que ce n'&#233;tait pas l&#224; mon tracas ^^) :



INTEGER

Nombre de Tests : 5000

Vitesse min = 0,0316ms

Vitesse max = 19,6207ms

Moyenne = 0,0408ms



LONG

Nombre de Tests : 5000

Vitesse min = 0,0305ms

Vitesse max = 16,1518ms

Moyenne = 0,0398ms



tr&#232;s comparable.....@+               )

cs_rt15 · Answer

(little indian, c'est une convention de représentation en mémoire adoptée par intel (Big Indian sur mac, il me semble). Si mon appli affiche les long inversé, c'est que je lui demande de les affichés comme étant des Integer VB6. Je n'ai pas changé l'affichage pour qu'il y est plus d'homogénéité entre les deux impressions d'écran.

@+
)

Bonjour les amis

12 réponses