Discussion :

[kazylax]

Bonsoir,

Je viens de trouver un code mais je n'arrive pas a comprendre comment declaré les nom

Vb.net

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6

PrivateSub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) HandlesMyBase.Load
ofstream fichier;
fichier.open("wolfenstein.txt", ios::out | ios::trunc); 
fichier << nIp << " " << nPort << " " << nPasse << " " << nMod; 

Pouvez vous m'aider pour les déclarations des noms ?

Merci
Cordialement,

[smyley]

C'est du C++ ou du VB.Net ?
En tout cas il faudrait surement explorer les classes de System.IO ( nottement FileStream et StreamWriter ) ...

[Aspic]

C'est du C++ ou du VB.Net ?
En tout cas il faudrait surement explorer les classes de System.IO ( nottement FileStream et StreamWriter ) ...

En tout cas c'est pas du. NET, je déplace dans le C++

[nikko34]

euh le code qu'il a trouvé est peut être du C++, mais à la base ce ne serait pas une question VB?

[kazylax]

Bonjour,

si bien sur mais bon... il déplace les messages sans savoir.
c'est pas grave je ferme le sujet.

Pour info je fait que du VB.net donc merci si ya des reponses

Cordialement,

[Aspic]

Merci de le preciser dans le message d'origine !

On ne peux pas deviner vu que tu postes un code C++ sans un forum VB.NET

Cordialement Aspic

[kazylax]

Comment re mettre un code de se type en vb ?

[Aspic]

Comment re mettre un code de se type en vb ?

Bon je n'y connais rien en C++ donc explique ligne à ligne ce que ton code fait et j'essayerais de te le traduire en VB.NET

[kazylax]

Bonjour,

avec se code je voudrais le mettre dans mon appli en VB 2005
que les cases nIp nport se sauvegarde dans un txt pour que je puisse tout réavoir une fois l'appli re lancer

Avez vous compris ?

Cordialement,

[Aspic]

Bonjour,

avec se code je voudrais le mettre dans mon appli en VB 2005
que les cases nIp nport se sauvegarde dans un txt pour que je puisse tout réavoir une fois l'appli re lancer

Avez vous compris ?

Cordialement,

Oui ca va

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
  Private Sub Sauvegarder(ByVal nIp As String, ByVal nPort As Integer, ByVal Npass As String, ByVal Nmod As String)
        Dim flux As New IO.StreamWriter("Chemin de ton fichier texte", False)
        flux.Write(nIp & vbCrLf & nPort.ToString & vbCrLf & Npass & vbCrLf & Nmod) 'ecris les données
        flux.Close() 'ferme le fichier
    End Sub

[kazylax]

Salut,

Normalement il faut pas le mettre dans le Load du form ?

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7

PrivateSub Form1_Load(ByVal nIp AsString, ByVal nPort AsInteger, ByVal sender As System.Object, ByVal e As System.EventArgs) HandlesMyBase.Load
Dim flux AsNew IO.StreamWriter("saveinfos.txt", False)
flux.Write(nIp & vbCrLf & nPort.ToString) 'ecris les données
flux.Close() 'ferme le fichier
EndSub

Cordialement,

[Aspic]

Salut,

Normalement il faut pas le mettre dans le Load du form ?

Cordialement,

Comme tu veux mais le mieux est d'appeller la procédure :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Sauvegarder(T_Ip.text, T_Port.Text, ..., ....) 'appel de la procédure

Tu mets ce code de le load de ta form.

[kazylax]

Re,

Non ca ne marche pas comme ceci

Erreur

Erreur 1 Option Strict On interdit les conversions implicites de 'String' en 'Integer'

Code 1

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5

PrivateSub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) HandlesMyBase.Load
Sauvegarder(Textip.text, Textport.Text)
EndSub

Le programme me demande de corriger donc je fait

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Sauvegarder(Textip.Text,

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

CInt(Textport.Text))

Code 2

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7

PrivateSub Sauvegarder(ByVal nIp AsString, ByVal nPort AsInteger)
Dim flux AsNew IO.StreamWriter("saveinfos.txt", False)
flux.Write(nIp & vbCrLf & nPort.ToString) 'ecris les données
flux.Close() 'ferme le fichier
EndSub

Avez vous une idée?

Cordialement,

[Aspic]

Pas de soucis :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
 
PrivateSub Sauvegarder(ByVal nIp As String, ByVal nPort As String)
Dim flux AsNew IO.StreamWriter("saveinfos.txt", False) 'attention chemin complet ici !!
flux.Write(nIp & vbCrLf & nPort.ToString) 'ecris les données
flux.Close() 'ferme le fichier
EndSub

Et pour l'appel :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Sauvegarder(T_Ip.text, T_Port.Text) 'pas besoin de Cint

[Aspic]

Normal Dans la fonction c'est un Integer et toi tu passes un String, il faut donc changer Interger en String

Cf mon post que je viens de poster

[kazylax]

Re,

les codes son bon Merci je cherche pourquoi ca save pas dans mon txt

Merci encore

Cordialement,

[Aspic]

Peut etre parce que tu n'as pas mis le chemin complet... De plus tu dois bien avoir une erreur en retour ? Soit plus explicite !

[kazylax]

Non aucune erreur le ficher se place bien dans mon dossier mais aucune info n'est dans le fichier une fois que je l'ouvre ou dans mes texbox

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) HandlesMyBase.Load
Sauvegarder(Textip.Text, Textport.Text) 
End Sub

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7

Private Sub Sauvegarder(ByVal nIp As String, ByVal nPort As String)
Dim flux As New IO.StreamWriter("saveinfos.txt", False) 'attention chemin complet ici !!
flux.Write(nIp & vbCrLf & nPort.ToString) 'ecris les données
flux.Close() 'ferme le fichier
End Sub

[Aspic]

Comment il peut etre la ou tu veux alors que tu n'as pas indiqué de chemin pour ton fichier texte ?

Met un Try Catch pour intercepter l'erreur !

[smyley]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
 
flux.Write(nIp & vbCrLf & nPort.ToString) 'ecris les données
flux.Flush() 'qui sais, ça pourrai peut être marcher
flux.Close() 'ferme le fichier