Besoin d'aide VB pour stockage données

Question

Bonjour à tous,

Je viens vers vous car j'ai un petit problème sur VB6.

Je suis entrain de créer un petit programme de controle de relais a distance avec VB.
La communication se fait, le controle des relais aussi, grace a la bonne commande WINSOCK ^^
Avec seulement 3 boutons
+; - et Entrée

J'incremente ou décremente ma valeur comprise entre 1 et 144.


Le petit problème, est que maintenant on me demande de faire une définition (Donner un nom à ces relais ) 

Quand je passe à 1 ; On souhaite un label ou il y a ecrit ce que fait le relais N°1
Quand je passe à 2 ; le label affiche l'action du relais 2 
etc

Je suis parti donc sur l'idée de créer un onglet définition avec toujours +; - et entrée
Mais il faudrait qu'une textbox souvre et me stocke les 144 noms des relais. 
Et ensuite lorsque je change d'onglet et que je passe sur mise en route, que les nom apparaissent dans le label.

Par la suite, si possible de pouvoir importer un exporter un fichier txt ou xls, ou je ne sais pas quoi d'autre pour charger ou sauvegarde mes 144 mots.

Auriez-vous cette solution?

Merci d'avance

NHenry · Answer

Bonjour,

Je te suggère une solution :
Lister dans un fichier texte pour chaque élément :
<NumRelai>
Description

ou encore plus simple
1 ligne par relai

Il s'agit de fichiers simple, mais ça peut être un début.

Ensuite pour l'édition :
Une section où pour chaque numéro de relai, tu récupère la description
Ensuite, sur validation d'un bouton, tu modifie la valeur dans ton fichier et en mémoire.

Mon site

ucfoutu · Answer

Bonjour,

je ne comprends pour ma part pas tout-à-fait ceci :
Mais il faudrait qu'une textbox souvre et me stocke les 144 noms des relais.
Et ensuite lorsque je change d'onglet et que je passe sur mise en route, que les nom apparaissent dans le label.

Pourquoi une textbox etr non une listbox ?
Que sont exactement ces "onglets" dont tu ne parles pas auparavant ?
____________________
Utiliser le bouton "REPONSE ACCEPTEE" sur une réponse exacte facilite les recherches ultérieures d'autres forumeurs. PENSEZ-Y SVP

ucfoutu · Answer

Dis-nous quand même (on ne sait jamais) : travailles-tu avec VB6 ou avec VBA/Excel ?


____________________
Utiliser le bouton "REPONSE ACCEPTEE" sur une réponse exacte facilite les recherches ultérieures d'autres forumeurs. PENSEZ-Y SVP

JJbs01 · Answer

Ucfoutu => je suis sur vb6

Les onglets dont je parle sont sous programme vb qui me permettent d avoir, a l'écran les différentes parties de mon programme

Onglet 1 : définition des noms des relais.
Onglet 2 : activation des différents relais

Sinon pour la listbox, j'avais pas pensée,
Donc voila, je pense avoir donné toutes les infos possible

Merci,

NHenry · Answer

Bonjour,

Ne mets "Réponse acceptée" sur le ou les messages qui t'ont aidés que si ton pb est résolu.

Si ce n'est pas le cas, précises ce qu'il te manque.

Mon site

JJbs01 · Answer

J'ai eu une erreur de selection.
L'ecran sur le téléphone est trop petit ....

JJbs01 · Answer

petit UP!!

NHenry · Answer

Bonjour,

Il te manques quoi ?
Je pense qu'avec toutes les informations fournies, tu as de quoi avancer.
Sur quoi tu bloques ?

Mon site

JJbs01 · Answer

Ben le truc qu'il me manque, C'est l'importation ou exportation d'un fichier TXT ...

Sinon pour stocké, j'ai trouvé un truc tout bête

Dim Nom(0to143) as string

Et des inputbox, car la définition n'est pas obligatoire pour l'ensemble des relais.

NHenry · Answer

Bonjour, 

Regardes les instructions :
- Open
- Close
- Print #Num,Donnees
- Line Input #Num, Donnees

---------------------------------------------------------------------
[list][*]Quand vous postez un code, merci d'utiliser la coloration syntaxique (3ième icône en partant de la droite : )
[*]Si votre problème est résolu, pensez à mettre "Réponse acceptée" sur le ou les messages qui vous ont aidés./list
---
Mon site

JJbs01 · Answer

J'ai trouvé la solution :

Exportation donnée :


Dim f As Integer

f = FreeFile
Open "C:\Users\jbs\Feux" & Ville & ".txt" For Output As #f
For i = 0 To 143
Print #f, Nom(i)
Next i
Close #f


Importation des données :
Dim i As Integer
Open "C:\Users\jbs\Feux" & Ville & ".txt" For Input As #1
For i = 0 To NB

    Input #1, a$
    Nom(i) = a$
Next i

NHenry · Answer

Bonjour, 

Pour la lecture, je te conseil de contrôler la fin du fichier par EOF(F).

Sinon, quand tu poste du code, merci d'utiliser la coloration syntaxique.

---------------------------------------------------------------------
[list][*]Quand vous postez un code, merci d'utiliser la coloration syntaxique (3ième icône en partant de la droite : )
[*]Si votre problème est résolu, pensez à mettre "Réponse acceptée" sur le ou les messages qui vous ont aidés./list
---
Mon site

Besoin d'aide VB pour stockage données

12 réponses

Votre réponse

Discussions similaires