travail de qualifiquation urgent

Question

j'ai beaucoup de probleme avec mon programme si quelqu'un pourrais m'accorder quelque minute par msn mon adresse: rider_lover @hotmail.com.
je dois rendre ce prog. lundi... :s
merci.

mortalino · Answer

Salut,

expose ton problème ici, si on peut t'aider, on le fera !

@++ 

<hr size="2" width="100%" />
  --Mortalino--
Le mystérieux chevalier, ~Provençal, le Gaulois~

rider_bxl · Answer

je n'arrive pas a uttiliser les fonction "get" je voudrai enregistrer les modification que je porte a mes txt et option value ainsi qu'au combobox en fichier .dat...via une common dialog

mortalino · Answer

Quel est ton code ?
Pour infos, si tu écris dans un fichier Texte, sauf si tu écris en mode Append (inscrit les données à partir de la fin de ton fichier), tu ne peux pas modifier une ligne, il faut réécrire le fichier

@++ 

<hr size="2" width="100%" />
  --Mortalino--
Le mystérieux chevalier, ~Provençal, le Gaulois~

rider_bxl · Answer

c'est assez compliquer il faudrai que j'envoi le prog en zip pour que tu voyes...mais j'ai deja repondu sur le forum

rider_bxl · Answer

Option Explicit
Dim choixdest As String
Dim choixdep As String

' Jour et Heure

Public dtOldTime As Date
Public dtNewTime As Date
Private Sub Init(strNomFichier As String)
    Dim intClient As Integer
    Dim udtenrclient As StrucClient
    udtenrclient.strNomExp = Space(20)
    udtenrclient.strTelExp = Space(10)
    Close #1
    Open strNomFichier For Random As #1 Len = Len(udtenrclient)
    
End Sub

Private Sub Form_Activate()

' Caractéristiques de la police utilisée
lblDateTime.FontName = GetSetting("Horloge.PV", "Font", "Name", "Arial")
lblDateTime.FontSize = GetSetting("Horloge.PV", "Font", "Size", 12)
lblDateTime.FontItalic = GetSetting("Horloge.PV", "Font", "Italic", False)
lblDateTime.FontBold = GetSetting("Horloge.PV", "Font", "Bold", True)
lblDateTime.FontStrikethru = GetSetting("Horloge.PV", "Font", "Strikethru", False)
lblDateTime.FontUnderline = GetSetting("Horloge.PV", "Font", "Underline", False)
lblDateTime.ForeColor = GetSetting("Horloge.PV", "Font", "Color", 0)
' Format d'affichage
lblDateTime.Tag = GetSetting("Horloge.PV", "Format", "Date", "dd\/mm\/yy" & vbCrLf)
tmrHorloge.Tag = GetSetting("Horloge.PV", "Format", "Heure", "hh:nn")
End Sub

Private Sub Image1_Click()
frmAide.Show
End Sub

Private Sub mnuFichierEnregistrer_Click()

On Error GoTo nouvGestErr
    dlgClient.CancelError = True
    dlgClient.Flags = cdlOFNOverwritePrompt
    dlgClient.Filter = "Data(*.dat)|*.dat"
    dlgClient.ShowSave
    Call Init(dlgClient.FileName)
    Exit Sub
nouvGestErr:
   
End Sub

Private Sub mnuFichierOuvrir_Click()
Dim intClient As Integer, udtenrclient As StrucClient
    On Error GoTo OuvrirGestErr
    dlgClient.CancelError = True
    dlgClient.Flags = cdlOFNFileMustExist
    dlgClient.Filter = "Data(*.dat)|*.dat"
    dlgClient.FileName = ""
    dlgClient.ShowOpen
    Close #1
    Open dlgClient.FileName For Random As #1 Len = Len(udtenrclient)
    frmcolis.Caption = dlgClient.FileName
    
    Exit Sub
    
OuvrirGestErr:
End Sub

Private Sub Picture1_Click()

choixdest = Combo1.Text
choixdep = Combo2.Text
 Dim intClient As Integer
    Dim udtenrclient As StrucClient
   
    frmcolis.Caption = intClient
Get #1, , udtenrclient
        frmcolis.TxtNomExp.Text = Trim(udtenrclient.strNomExp)
        frmcolis.TxtTelExp.Text = udtenrclient.strTelExp
End Sub

Public Sub tmrHorloge_Timer()
' Mise à l'heure
dtNewTime = Now
If (dtOldTime <> dtNewTime) Then
    ' Applique le nouveau format
    lblDateTime.Caption = Format(dtNewTime, lblDateTime.Tag & tmrHorloge.Tag)
    lblDateTime.Left = 0
    lblDateTime.Top = 0
    dtOldTime = dtNewTime
End If
End Sub

rider_bxl · Answer

la plus part du code est pour une horloge mais sinon le reste bloque au niveau du get

mortalino · Answer

Tu as déjà répondu, c'est à dire ??
A part ce topic, tu n'as aucune demande.

Sinon, ton code pour écrire dans le texte, et les cas de modifs, ne devraient pas être long à exposer, je ne vois pas pourquoi tu tentes d'envoyer ton dev !

@++ 

<hr size="2" width="100%" />
  --Mortalino--
Le mystérieux chevalier, ~Provençal, le Gaulois~

rider_bxl · Answer

j'ai repondu en meme temp que toi je n'avais pas vu ta deuxieme reponse...  sorry

mortalino · Answer

Je suis pas calé dans le mode Random, mais ce qui est bizarre, c'est que tu fermes un fichier (dans Init) apellé depuis ta Sub d'enregistrement, alors qu'il n'est pas ouvert, ensuite tu le lis..

Revois (dans F1) comment manipuler un fichier Texte

Open ... For Random .. Len
    Get
Close ..

@++ 

<hr size="2" width="100%" />
  --Mortalino--
Le mystérieux chevalier, ~Provençal, le Gaulois~

jmfmarques · Answer

Bonsoir,

Je viens de lire ce code et me pose réellement une question : Non pas qu'est-ce ne marche pas mais... qu'est-ce qui marche ???
J'y vois des choses un peu "jetées là" (presque au hasard !...)
Si rider veut de l'aide, je crois bien qu'il va lui falloir commencer par mettre, dans son code, beaucoup de commentaires pour dire ce qu'il pense que son code devrait faire exactement ...

rider_bxl · Answer

merci

42wawa42 · Answer

Hello rider_bxl
 615490  jmfmarques 



t'as donné une bonne  réponse a ton code de mon côte j'ai charger ton programme et je me suis mise au travail, mais il y a beaucoup trop de chose qui ne sont pas juste. Après une demi-heure je me suis dis que probablement ce que je fais n’est pas ce que tu veux. Donc j'ai tous effacé. Sorry.<?xml:namespace prefix  o ns "urn:schemas-microsoft-com:office:office" /??>






 







Type Record   ' Define user-defined type.








   ID As Integer








   Name As String * 20







End Type








 





Dim MyRecord As Record, Position   ' Declare variables.







' Open sample file for random access.







Open "TESTFILE" For Random As #1 Len = Len(MyRecord)







' Read the sample file using the Get statement.







Position = 3   ' Define record number.







Get #


1


,


 Position


,


 MyRecord   ' Read third record.








Close #1   ' Close file













 






A plus sur VBFrance.com





42wawa42

Travail de qualifiquation urgent

12 réponses

Votre réponse