dotNETportal.cz

Ahoj,mám takto zdrojový kód a nevím jak udělat aby Checkbox po zaškrtnutí připočetl k určitému číslu 60% :

Public Class Form1

Private Sub ComboBox1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ComboBox1.SelectedIndexChanged

End Sub

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

Dim b As Double = CDbl(ComboBox1.Text)

Dim c As Double = b * 150

TextBox1.Text = CDbl(c)

End Sub

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click

Dim b As Double = CDbl(ComboBox2.Text)

Dim c As Double = b * 100

TextBox2.Text = CDbl(c)

End Sub

Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click

Dim b As Double = CDbl(ComboBox3.Text)

Dim c As Double = b * 200

TextBox3.Text = CDbl(c)

End Sub

Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click

Dim a As Double = CDbl(TextBox1.Text)

Dim b As Double = CDbl(TextBox2.Text)

Dim c As Double = CDbl(TextBox3.Text)

Dim d As Double = a + b + c

TextBox4.Text = CDbl(d)

End Sub

Private Sub CheckBox1_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CheckBox1.CheckedChanged

Dim a As Double = CDbl(TextBox1.Text)

Dim b As Double = CDbl(TextBox1.Text)

Dim c As Double = CDbl(TextBox1.Text)

If CheckBox1_Checked() Then

End If

End Sub

Private Function CheckBox1_Checked() As Boolean

Throw New NotImplementedException

End Function

End Class

Prosím nekritizujte ty kraviny co tam dělám :) Začínám s tím a nevím ještě pořádně co a jak

Je to zmatené a těžko se v tom vyzná, můžete to více objasnit a vložit kód pomocí ikonky VBcode?

Public Class Form1

Private Sub ComboBox1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ComboBox1.SelectedIndexChanged

End Sub

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim b As Double = CDbl(ComboBox1.Text)
Dim c As Double = b * 150
TextBox1.Text = CDbl(c)
End Sub


Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
Dim b As Double = CDbl(ComboBox2.Text)
Dim c As Double = b * 100
TextBox2.Text = CDbl(c)
End Sub

Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
Dim b As Double = CDbl(ComboBox3.Text)
Dim c As Double = b * 200
TextBox3.Text = CDbl(c)
End Sub

Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
Dim a As Double = CDbl(TextBox1.Text)
Dim b As Double = CDbl(TextBox2.Text)
Dim c As Double = CDbl(TextBox3.Text)
Dim d As Double = a + b + c
TextBox4.Text = CDbl(d)
End Sub

Private Sub CheckBox1_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CheckBox1.CheckedChanged
Dim a As Double = CDbl(TextBox1.Text)
Dim b As Double = CDbl(TextBox1.Text)
Dim c As Double = CDbl(TextBox1.Text)

If CheckBox1_Checked() Then

End If
End Sub

Private Function CheckBox1_Checked() As Boolean
Throw New NotImplementedException
End Function

End Class 

No tak dejte podmínku, když bude zaškrtnutý checkbox,že se číslo vynásobí 1,6 (celek + 60% procent).

If CheckBox1.Checked = True Then
a = a * 1,6
End If

Nedělejte "kraviny" a začněte od začátku - bezvadných lekcí pro začátečníky je tu dost.

Připočítat k číslu 60% je totéž jako číslo krát 1,6

Píše mi to tam: End of statement expected¨

Vím co to znamená ale nevím co stím? Dokážete mi poradit? :D

Kde Vám to píše uvedenú chybu? Ak chcete, aby Vám niekto pomohol, bude nutný podrobnejší opis chyby, a kódu, v ktorom vzniká, čo sme my veštci, že vyveštíme, kde to píše "End of statement expected"?

ScreenShot:

http://imageshack.us/photo/my-images/824...

Problém je v tom, že tam máte

1,6

což je špatně, jelikož ve VB.NET a snad všech mě známých prog. jazycích se používá 1.6, tedy desetinné místo se neodděluje čárkou ale tečkou.

Dal by som si však pozor na to, že ak užívateľ odškrtne CheckBox, tak to číslo bude stále vynásobené 1,6, a ak ho následne znovu zaškrtne, bude to znamenať 1,6 * 1,6 = 2,56, čiže 256%. Po treťom zaškrtnutí niečo cez 400% atď... Užívateľ ale pravdepodobne bude očakávať, že po odškrtnutí sa z 160% stane naspäť 100%(čiže deliť číslo 1,6), nemyslíte?