[Mening] VB Cookie Klikker

Antonn schreef:

My.Settings.Points = CStr(Val(lblAantal.Text))

lblAantal is het label.
lblAantal.Text is de tekst van een label, wat zowiezo een string is.
CStr(Val(lblAantal.Text)) is de tekst van een label, door de functie Val() en opnieuw omgevormd tot string

Ik denk dat je eerder de middelste moet hebben.

Thijmgrijs schreef:

Eerdere citaten tonen

Alef schreef:

Ik heb onlangs zelf een kleine clicker gemaakt, onafgemaakt.

Maar ik heb toevallig die automatische save wel gemaakt.

Private Sub Save_Tick(sender As System.Object, e As System.EventArgs) Handles Save.Tick
My.Settings.Points = CStr(Val(LabelNaam.Text))
My.Settings.Save()
End Sub

Wat het precies doet, het haalt het aantal clicks op wat je op dit moment beschikbaar hebt. In jouw geval je label: Val(LabelNaam.Text)

Dus als je, in jouw geval, de CheckBox aanvinkt, moet je zorgen dat de Timer gaat tikken. (TimerName.Start())

Waarom moeilijk doen, als het ook makkelijk kan.

Hij pakt hem niet helaas,
ik heb dit:

Private Sub CheckBox1_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CheckBox1.CheckedChanged
        If CheckBox1.Checked = True Then
            timersave.Enabled = True
            timersave.Start()
        End If

        If CheckBox1.Checked = False Then
            timersave.Enabled = False
            timersave.Stop()
        End If
    End Sub

    Private Sub timersave_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles timersave.Tick
        My.Settings.Points = CStr(Val(lblAantal.Text))
        My.Settings.Save()
    End Sub

En in mn settings heb ik staan:

Points - string - user

Wat doe ik nu verkeerd?

Alef schreef:

Eerdere citaten tonen

Thijmgrijs schreef:

Eerdere citaten tonen

Alef schreef:

Ik heb onlangs zelf een kleine clicker gemaakt, onafgemaakt.

Maar ik heb toevallig die automatische save wel gemaakt.

Private Sub Save_Tick(sender As System.Object, e As System.EventArgs) Handles Save.Tick
My.Settings.Points = CStr(Val(LabelNaam.Text))
My.Settings.Save()
End Sub

Wat het precies doet, het haalt het aantal clicks op wat je op dit moment beschikbaar hebt. In jouw geval je label: Val(LabelNaam.Text)

Dus als je, in jouw geval, de CheckBox aanvinkt, moet je zorgen dat de Timer gaat tikken. (TimerName.Start())

Waarom moeilijk doen, als het ook makkelijk kan.

Hij pakt hem niet helaas,
ik heb dit:

Private Sub CheckBox1_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CheckBox1.CheckedChanged
        If CheckBox1.Checked = True Then
            timersave.Enabled = True
            timersave.Start()
        End If

        If CheckBox1.Checked = False Then
            timersave.Enabled = False
            timersave.Stop()
        End If
    End Sub

    Private Sub timersave_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles timersave.Tick
        My.Settings.Points = CStr(Val(lblAantal.Text))
        My.Settings.Save()
    End Sub

En in mn settings heb ik staan:

Points - string - user

Wat doe ik nu verkeerd?

Heb je al een Timer geplaatst die checkt of de Checkbox is aangevinkt?

Private Sub checkbox_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles checkbox.Tick
If CheckBox1.Checked = True Then
timersave.Enabled = True
Else : timersave.Enabled = False
End If
End Sub

Vergeet de Timer niet standaard te Enablen als hij opstart.

Private Sub timersave_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles timersave.Tick
        If CheckBox1.Checked = True Then
            timersave.Enabled = True
        Else : timersave.Enabled = False
        End If
        My.Settings.Points = CStr(Val(lblAantal.Text))
        My.Settings.Save()
    End Sub

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        timersave.Enabled = True
        timersave.Start()
    End Sub

Thijmgrijs schreef:

Eerdere citaten tonen

Antonn schreef:

My.Settings.Points = CStr(Val(lblAantal.Text))

lblAantal is het label.
lblAantal.Text is de tekst van een label, wat zowiezo een string is.
CStr(Val(lblAantal.Text)) is de tekst van een label, door de functie Val() en opnieuw omgevormd tot string

Ik denk dat je eerder de middelste moet hebben.

Dan pakt die hem nog niet.
En die val is wel nodig aangezien het aantal van die label cijfers zijn en je niet cijfers kan ombuigen tot string. dus danis die val wel nodig.

Alef schreef:

Die code doesnt make sense.

Bij het laden van je Form Enable je standaard je timersave.Timer,
en bij de timersave_Tick kijk je of de CheckBox is aangevinkt,
zoja, start je de Timer opnieuw op?

Het lijkt me logischer om te hebben:

Videotube schreef:

Je weet dat de cursors niet worden opgeslagen als je die koopt?

Alef schreef:

Sterker nog, je moet alles opnieuw kopen als je hem weg klikt.
Dus je moet als het ware gewoon opnieuw beginnen, dat is wel jammer.

Misschien was het ook een leuke feature om er een deuntje bij te doen of wat dan ook.

Thijmgrijs schreef:

Eerdere citaten tonen

Videotube schreef:

Je weet dat de cursors niet worden opgeslagen als je die koopt?

Nee weet ik,
Was ook niet de opdracht van mijn docent haha.
Moest hem precies uitwerken zoals hij dat vroeg.

toevoeging op 8 januari 2014, 17:00:28:

Eerdere citaten tonen

Alef schreef:

Sterker nog, je moet alles opnieuw kopen als je hem weg klikt.
Dus je moet als het ware gewoon opnieuw beginnen, dat is wel jammer.

Misschien was het ook een leuke feature om er een deuntje bij te doen of wat dan ook.

Ga ik gewoon binnenkort naar kijken als ik wat meer tijd heb