Hejsan

Jag har skrivit ett program som räcknar hur mkt det kostar att åka te sälen *påhittade priser* Jag har använt massa forumlär, checkbox m.m. Allt funkar väl. Men frågan är finns det nån proffs som kan säga hur man kan spara allt man har prickat i eller ”bestält i en txt fil*

Typ som ett kvito som man kan spara på sin hårdisk?

Ja det är ganska enkelt men du måste visa ett exempel på vad som skall sparas.

Hej.
Jag brukar stoppa in allt i en användardefinierad typ först och sedan skriva den i en fil med Random-access eller Binary:

'användardefinierad typ:
Private Type note
price as Long 't ex. priset
flags(1 to 5) 't ex. dina CheckBoxars värde
'och alla andra variabler som du vill ha med i filen
End Type

Private Note1 As note 'deklarera ett kvitto

'stoppa in alla värden du vill ha med i kvitto-typen (exempel):
'---
Note1.price = x
Note1.flags(0) = CheckBox1.Value
Note1.flags(1) = CheckBox2.Value
'---

'skapa och öppna filen c:\kvitto
Open c:\kvitto.txt For Random As #1 'öppna textfilen som #1 (fil-alias)
'skriv in hela kvitto-typen på första posten i fil #1
Put #1, 1, Note1
Close #1 'stäng textfilen

Jag tror det ska funka.
Istället för Random kan man använda Binary om man vill få ner diskuttrymmet.

Hej jag är jätte nybörjare..
Jag har förstått det som du sa sist , att öppna filen o stoppa i variablerna.

Jag har typ många checkbox, label, opitonval m.m.

Hur ska jag identifera de för VB så att han kan sen spara in de som "har markerat eller beställdes och inte beställdes.

Det ser ut så här:

Private Sub aterstall_Click()
If vill_liftkort.Value = Checked Then
vill_liftkort.Value = Unchecked
liftkort_frame.Visible = False
Nar.Visible = False
End If
If vill_boende.Value = Checked Then
vill_boende.Value = Unchecked
boende_frame.Visible = False
boende_dagar.Visible = False
boende_antalrum.Visible = False
End If
If vill_skidor.Value = Checked Then
vill_skidor.Value = Unchecked
skidor_frame.Visible = False
skidor_antal.Visible = False
End If
priset_liftkort = 0
priset_boende = 0
priset_skidor = 0
summan_view.Text = ""
Antal_barn.Text = ""
antal_ungdomar.Text = ""
antal_vuxna.Text = ""
liftkort_endag.Value = False
liftkort_kvall.Value = False
boende_hogfjallet.Value = False
boende_hundfjallet.Value = False
boende_lindvalen.Value = False
boende_tandadaler.Value = False
Boende_tid_helvecka.Value = False
boende_tid_kortvecka.Value = False
boende_tid_weekend.Value = False
boende_antalrum_1.Value = False
boende_antalrum_2.Value = False
boende_antalrum_3.Value = False
boende_antalrum_4.Value = False
End Sub

Private Sub boende_antalrum_1_Click()

End Sub

Private Sub boende_antalrum_4_Click()

End Sub

Private Sub boende_antalrum_DragDrop(Source As Control, X As Single, Y As Single)

End Sub

Private Sub boende_hogfjallet_Click()
If boende_hogfjallet.Value = True Then
boende_dagar.Visible = True
End If

End Sub

Private Sub boende_hundfjallet_Click()
If boende_hundfjallet.Value = True Then
boende_dagar.Visible = True
End If
End Sub

Private Sub boende_lindvalen_Click()
If boende_lindvalen.Value = True Then
boende_dagar.Visible = True
End If
End Sub

Private Sub boende_tandadalen_Click()
If boende_tandadalen.Value = True Then
boende_dagar.Visible = True
End If
End Sub

Private Sub Boende_tid_helvecka_Click()
If Boende_tid_helvecka.Value = True Then
boende_antalrum.Visible = True
End If
End Sub

Private Sub boende_tid_kortvecka_Click()
If boende_tid_kortvecka.Value = True Then
boende_antalrum.Visible = True
End If
End Sub

Private Sub boende_tid_weekend_Click()
If boende_tid_weekend.Value = True Then
boende_antalrum.Visible = True
End If
End Sub

Private Sub Form_Load()
Dim priset_lifkort As Long
Dim priset_boende As Long
Dim priset_skidor As Long
End Sub

Private Sub liftkort_barn_Click()
If liftkort_barn.Value = True Then
Nar.Visible = True
End If
End Sub


End Sub





Private Sub liftkort_ungdom_Click()
If liftkort_ungdom.Value = True Then
Nar.Visible = True
End If
End Sub

Private Sub liftkort_vuxen_Click()
If liftkort_vuxen.Value = True Then
Nar.Visible = True
End If
End Sub

End If
End Sub





Private Sub summan_Click()
'Summan för lifkort, grund pris för barn är 150, för ungdom 200 och för vuxen 250
'obs priserna har hittat på själv

If liftkort_endag.Value = True Then priset_liftkort = (Val(Antal_barn)) * 150 + (Val(antal_ungdomar)) * 200 + (Val(antal_vuxna)) * 250
If liftkort_kvall.Value = True Then priset_liftkort = (Val(Antal_barn)) * 100 + (Val(antal_ungdomar)) * 150 + (Val(antal_vuxna)) * 200


'Summan för boende, grund pris för högfjället 2000,
'för hundfjället 2500. för lindvallen 3000
'och för Tandådalen 3500
'obs priserna har hittat på själv

If boende_hogfjallet.Value = True Then priset_boende = 2000
If boende_hundfjallet.Value = True Then priset_boende = 2000
If boende_tandadalen.Value = True Then priset_boende = 2000
If boende_lindvalen.Value = True Then priset_boende = 2000

If Boende_tid_helvecka.Value = True Then priset_boende = priset_boende + 1500
If boende_tid_kortvecka.Value = True Then priset_boende = priset_boende + 100
If boende_tid_weekend.Value = True Then priset_boende = priset_boende + 500

If boende_antalrum_1.Value = True Then priset_boende = priset_boende
If boende_antalrum_2.Value = True Then priset_boende = priset_boende + 1000
If boende_antalrum_3.Value = True Then priset_boende = priset_boende + 1500
If boende_antalrum_4.Value = True Then priset_boende = priset_boende + 2000


'hyra ut skidor
'grund pris för barn, 75, för ungdom 100 och för vuxna 150

priset_skidor = (Val(skidor_barn)) * 75 + (Val(skidor_ungdom)) * 100 + (Val(skidor_vuxen)) * 150

If skidor_antal1.Value = True Then priset_skidor = priset_skidor
If skidor_antal2.Value = True Then priset_skidor = priset_skidor * 2
If skidor_antal3.Value = True Then priset_skidor = priset_skidor * 3
If skidor_antal4.Value = True Then priset_skidor = priset_skidor * 4
If skidor_envecka.Value = True Then priset_skidor = priset_skidor + 300
spara_kvitto.Visible = True

summan_view.Text = Str(priset_liftkort + priset_boende + priset_skidor) + " kr"


End Sub


Private Sub vill_boende_Click()
If vill_boende.Value = Checked Then
boende_frame.Visible = True
Else
boende_frame.Visible = False
boende_dagar.Visible = False
boende_antalrum.Visible = False
End If
End Sub

Private Sub vill_liftkort_Click()
If vill_liftkort.Value = Checked Then
liftkort_frame.Visible = True
Nar.Visible = True
Else
liftkort_frame.Visible = False
Nar.Visible = False
End If
End Sub

Private Sub vill_skidor_Click()
If vill_skidor.Value = Checked Then
skidor_frame.Visible = True
skidor_antal.Visible = True
Else
skidor_frame.Visible = False
skidor_antal.Visible = False

End If
End Sub