Ciao ragazzi buona sera ,sono nuovo del forum .
da poco ho iniziato a programmare con vb , ho conoscenze relative alle basi della programmazione.
sto facendo un programma di prenotazione numero, in pratica l'utente dopo aver inserito i suoi dati preme un bottone e prenota un numero .
i dati di ogni textbox(relativi a nome,cognome,codice di sconto) li visualizzo in output con debug.WriteLine.
la cosa che non riesco ,e' salvare i dati , ovvero ,quando il programma termina vorrei salvare i dati in modo da trovarli di nuovo ad apertura del programma. ho provato a leggere dalla documentazione, da altri forum ma nn ci ho capito veramente nulla , vi illustro il codice:
____________________________________
Module commerciale
Class magazzino
Public Function prenota_numero()
Dim pn(10) As String
Dim persona As String
Dim cognome As String
Dim codsconto As String
persona = Form1.TextBox1.Text
cognome = Form1.TextBox2.Text
codsconto = Form1.TextBox3.Text
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
Form1.mem = Form1.mem + 1 ''incremento il vettore dopo l'exit for
For i As Integer = 0 To pn.Length - 2
pn(Form1.mem) = Form1.mem
Debug.WriteLine(pn(Form1.mem))
Exit For
Next
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
pn(1) = persona & cognome & codsconto
Form1.TextBox1.ResetText()
Form1.TextBox2.ResetText()
Form1.TextBox3.ResetText()
pn(2) = persona & cognome & codsconto
Form1.TextBox1.ResetText()
Form1.TextBox2.ResetText()
Form1.TextBox3.ResetText()
pn(3) = persona & cognome & codsconto
Form1.TextBox1.ResetText()
Form1.TextBox2.ResetText()
Form1.TextBox3.ResetText()
pn(4) = persona & cognome & codsconto
Form1.TextBox1.ResetText()
Form1.TextBox2.ResetText()
Form1.TextBox3.ResetText()
pn(5) = persona & cognome & codsconto
Form1.TextBox1.ResetText()
Form1.TextBox2.ResetText()
Form1.TextBox3.ResetText()
pn(6) = persona & cognome & codsconto
Form1.TextBox1.ResetText()
Form1.TextBox2.ResetText()
Form1.TextBox3.ResetText()
pn(7) = persona & cognome & codsconto
Form1.TextBox1.ResetText()
Form1.TextBox2.ResetText()
Form1.TextBox3.ResetText()
pn(8) = persona & cognome & codsconto
Form1.TextBox1.ResetText()
Form1.TextBox2.ResetText()
Form1.TextBox3.ResetText()
pn(9) = persona & cognome & codsconto
Form1.TextBox1.ResetText()
Form1.TextBox2.ResetText()
Form1.TextBox3.ResetText()
pn(10) = persona & cognome & codsconto
Form1.TextBox1.ResetText()
Form1.TextBox2.ResetText()
Form1.TextBox3.ResetText()
Debug.WriteLine(persona)
Debug.WriteLine(cognome)
Debug.WriteLine(codsconto)
End Function
Public Function verifica_paga1()
MsgBox("Grazie e arrivederci")
End Function
Public Function verifica_paga2()
MsgBox("attenda ancora un po")
End Function
_______________________________________________
ora vorrei fare una funzione salva dati ma nn so come proseguire, potete dirmi come potrei fare??