aide visual basic

Question

bonjour, je suis en train de creer un programm avec visual basic6 qui permet de transformer des series de chiffres en lettres. jai creer deux text box l'un est text1 et lautre est text2. et jai aussi creer une commande Command1. dans le code du command1 jai ecrit " if text1.text=1 then
text2.text="a"
elseif text1.text=2 then
text2.text="b"
end if
 cela marche, quand je rentre le chiffre 1 dans le text box 1 et ke je click sur la comande1 la lettre "a" apparait dans le text box2. mai le problem est ke kan je rentre le chiffre 2 a la suite du 1 je n'obtien plus rien.je pense ke lordi ne reconnai ni un 1 ni un 2 mai un "12"..donc le code que jai erit ne me permet que de transformer un chiffre a la fois, eske vous pouvez maider a ecrire un code qui peut me permettre de tranformer une serie de chiffre et non pa chiffre pa chiffre. par exemple, je rentre 1-2-3-4 et j'obtiens "a-b-c-d" merci pour votre aide, je vous remerci davance.

Tidodo · Answer

Private Sub Command1_Click()

Dim i As Integer

Lettre = Array("a", "b", "c", "d")

Nb_car = Len(Text1.Text)


For i = 1 To Nb_car

j = Text1.Text(i)


Text2.Text = Lettre(j - 1)
Next



End Sub


mais Text1.TExt(i) ne marche pas , essaye de trouver moi je trouve pas

Mr.Ibourk · Answer

j'ai réaliser cette fonction pour vous :
-----------------------------------------------
Function Cryptage(Texte As String)
TableEntree = Array("1", "2", "3", "4", "5", "6", "7", "8", "9")   'elements a crypté
TableSortie = Array("a", "b", "c", "d", "e", "f", "g", "h", "i")   'leurs equivalents

Dim sortie As String  ' chaine de sortie
For i = 1 To Len(Texte)
For j = 0 To 8    'nombre darguments en TableEntree
Dim temp As String
temp = Mid(Texte, i, 1)
If TableEntree(j) = Mid(Texte, i, 1) Then
temp = TableSortie(j)
Exit For
End If
Next j
sortie = sortie + temp
Next i
Cryptage = sortie
End Function

exemple d'etulisation :

Text2.Text = Cryptage(Text1.Text)

asian style · Answer

Mr.ibourk, merci de m'avoir ecrit ce code..sa va parraitre bete, mai je ne sai pa ou je sui suposer placer ce code, et c ke je doi faire avec. pouvez vous me donner kelkes explications et des information que vous juger necessaire? sachez ke je sui novice en visaul basic 6..je vous remecie..

Mr.Ibourk · Answer

la fonction doit etre placcez dan un module

Menu Projet -->Ajouter un module --> ouvrir

une fenetre de code vide s'ouvre  , placcer ce code dedans
----------------------------------------------------------------------

Function Cryptage(Texte As String) 
TableEntree = Array("1", "2", "3", "4", "5", "6", "7", "8", "9")    'elements a crypté 
TableSortie = Array("a", "b", "c", "d", "e", "f", "g", "h", "i")   'leurs equivalents 
Dim sortie As String ' chaine de sortie 
For i = 1 To Len(Texte) 
For j = 0 To 8 'nombre darguments en TableEntree 
Dim temp As String 
temp = Mid(Texte, i, 1) 
If TableEntree(j) = Mid(Texte, i, 1) Then 
temp = TableSortie(j) 
Exit For 
End If 
Next j 
sortie = sortie + temp 
Next i 
Cryptage = sortie 
End Function 

------------------------------------------------------------------------

et revient a votre form ou il y a le button et les zonnes de text

et aissay sette exemple
--------------------------------
Private Sub Command1_Click() 

Text2.Text = Cryptage(Text1.Text)

End Sub

--------------------------

peterbet · Answer

J’ai créé un fichier de traitement des données pour exemple Traitements.XLS
Ce fichier comporte 3 onglets :

1 traitement
2 base chargée
3 Menu et config

Dans l’onglet : Menu et Config

Un champ nommé ConfigZomm paramêtre du Zomm
Un champ nommé RepProgram Répertoire programme
Un champ nommé RepDB Répertoire de travail
Un champ nommé FichierDB Fichier base de données

Sous le répertoire C:\Programme\bases\ j’ai 3 bases de données DB-essai1.Xls, DB-Essai2.xls et Db-essai3.XLS

La validation des changements permet de la prise en compte des données entrées dans Auto_open

Dans l’application Traitement.xls , je clique sur un bouton macro afin de charger la base entrée (DB-Essai1.xls)
Cette base étant chargée, la zone sélectionnée est collée dans l’onglet « Base chargée » du fichier Traitement.xls
Une fois la commande exécutée je n’ai plus besoin du fichier DB-essai1.xls je veux donc le fermer.

Voila comment est écrite la macro

Dim Rep As Variant
Dim Repfichier As Variant
Dim VDB As Variant
Dim FichierDB As Variant
Dim Cheminfich
Rep = Range("RepDB")
VDB = Range("FichierDB")
Cheminfich1 = Rep & "\" & VDB Jusque là pas de probléme
ActiveWorkbook.PrecisionAsDisplayed = False
Workbooks.Open Filename:=Cheminfich1
Windows("Traitement.xls").Activate
ActiveWorkbook.PrecisionAsDisplayed = False
Workbooks.Open Filename:=Cheminfich1
Application.Goto Reference:="R1C1"
Range(Selection, Selection.End(xlDown)).Select
Range(Selection, Selection.End(xlToRight)).Select
Selection.Copy
Windows("traitement.xls").Activate
Sheets("Base chargée").Select
Application.Goto Reference:="ChampG8"
ActiveSheet.Paste A ce stade toujours aucun probléme

Je voudrai maintenant activer la fenêtre du fichier .xls chargé (en l’occurrence DB-Essai1.xls) afin de la fermer.

Si j’écris : Windows("DB-Essai1.xls").Activate
Puis : Workbook.close le programme fonctionne bien et DB-Essai.xls est fermé et ne reste que Traitement.xls
Le seul problème c’est DB-Essai1.xls ne peut être figé si je rentre dans le champ fichierDB : DB-essai3.xls, cela ne marche pas.
DB-essai1.xls est indiqué en clair dans le champ ayant pour nom FichierDB dont la variable VDB prend la valeur indiquer dans ce champ.

La question : Comment écrire la fonction windows activate pour un fichier lu dans la donnée variable (VDB) ?

Merci por vos solutions</gras>

Aide visual basic

5 réponses

Discussions similaires

Newsletters