ingegeven Data behouden

[hatchy]

Hoi

heb een klein progje geschreven voor mijn dochter
ze moet een deel woorden ingeven in txt vakken
in txtned het nederlandse woord
in txt frans het franse woord

deze worden dan opgeslagen in txtlijstned en txtlijst frans

dan random geeft het progje een ned woord en zij moet dan het franse woord ingeven
op controle drukken en dan krijgt ze een msgbox met ok of fout

nu mijn vraag

hoe kan ik de eerder ingegeven woorden laten opslaan want elke keer ze het progje afsluit moet ze alle woorden van de dag ervoor ook opnieuw ingeven en die zouden dan ook random moeten blijven weergegeven worden

ben nog maar een beginner
werk in VB6.0

 

[That Guy]

ah, basic file handelingen, dus je moet alles opslaan in een text-bestandje. Als je google zoekt op "save text file""visual basic" moet je t kunnen vinden, zo niet, hier ff snel:

Option Explicit
Public Function LoadFileToTB(TxtBox As Object, filepath As _
   String, Optional Append As Boolean = False) As Boolean
Dim iFile As Integer
Dim s As String
If Dir(filepath) = "" Then Exit Function
On Error GoTo ErrorHandler:
s = Textx.Text
iFile = FreeFile
Open filepath For Input As #iFile
s = Input(LOF(iFile), #iFile)
If Append Then
    Textx.Text = Textx.Text & s
Else
    Textx.Text = s
End If
LoadFileToTB = True
ErrorHandler:
If iFile > 0 Then Close #iFile
End Function

Public Function SaveToFile(filepath As String, WTS As String)
Dim hFile As Long
Dim sFilename As String
   sFilename = filepath
   hFile = FreeFile
   Open sFilename For Output As #hFile
      Print #hFile, WTS
   Close #hFile
End Function

ps. als je echt een beginner bent, kun je mischien een iets makkelijker idee verzinnen, want nu zul je met posities (want het franse woord zit los van het NL-woord) moeten werken en dat gaat mischien iets te lastig worden.


V.:thumb: