Kezdő vagyok a programozásban és csináltam egy kis programot a Visual Studio 2013 Express-ben, és van valami amit nem tudok megcsinálni. Mi a baj?
Public Class Form2
Private Sub Button9_Click(sender As Object, e As EventArgs) Handles Button9.Click
Me.Close()
End Sub
Private Sub Button10_Click(sender As Object, e As EventArgs) Handles Button10.Click
If ProgressBar1.Value = ProgressBar1.Maximum Then
Button10.Enabled = True
End If
MsgBox("Megcsináltad!")
Me.Close()
End Sub
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
TextBox1.Text = Val(TextBox1.Text) + 10
ProgressBar2.Increment(10)
If ProgressBar2.Value = 70 Then
ProgressBar1.Increment(10)
End If
If ProgressBar2.Value = 80 Then
ProgressBar1.Increment(-10)
End If
If ProgressBar2.Value = 100 Then
Button1.Enabled = False
End If
End Sub
Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
TextBox2.Text = Val(TextBox2.Text) + 10
ProgressBar3.Increment(10)
If ProgressBar3.Value = 50 Then
ProgressBar1.Increment(10)
End If
If ProgressBar3.Value = 60 Then
ProgressBar1.Increment(-10)
End If
If ProgressBar3.Value = 100 Then
Button2.Enabled = False
End If
End Sub
Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click
TextBox3.Text = Val(TextBox3.Text) + 10
ProgressBar5.Increment(10)
If ProgressBar5.Value = 40 Then
ProgressBar1.Increment(10)
End If
If ProgressBar5.Value = 50 Then
ProgressBar1.Increment(-10)
End If
If ProgressBar5.Value = 100 Then
Button3.Enabled = False
End If
End Sub
Private Sub Button4_Click(sender As Object, e As EventArgs) Handles Button4.Click
TextBox4.Text = Val(TextBox4.Text) + 10
ProgressBar4.Increment(10)
If ProgressBar4.Value = 80 Then
ProgressBar1.Increment(10)
End If
If ProgressBar4.Value = 90 Then
ProgressBar1.Increment(-10)
End If
If ProgressBar4.Value = 100 Then
Button4.Enabled = False
End If
End Sub
Private Sub Button5_Click(sender As Object, e As EventArgs) Handles Button5.Click
TextBox5.Text = Val(TextBox5.Text) + 10
ProgressBar7.Increment(10)
If ProgressBar7.Value = 40 Then
ProgressBar1.Increment(10)
End If
If ProgressBar7.Value = 50 Then
ProgressBar1.Increment(-10)
End If
If ProgressBar7.Value = 100 Then
Button5.Enabled = False
End If
End Sub
Private Sub Button7_Click(sender As Object, e As EventArgs) Handles Button7.Click
TextBox6.Text = Val(TextBox6.Text) + 10
ProgressBar6.Increment(10)
If ProgressBar6.Value = 90 Then
ProgressBar1.Increment(10)
End If
If ProgressBar6.Value = 100 Then
ProgressBar1.Increment(-10)
End If
If ProgressBar6.Value = 100 Then
Button7.Enabled = False
End If
End Sub
Private Sub Button6_Click(sender As Object, e As EventArgs) Handles Button6.Click
TextBox7.Text = Val(TextBox7.Text) + 10
ProgressBar9.Increment(10)
If ProgressBar9.Value = 10 Then
ProgressBar1.Increment(10)
End If
If ProgressBar9.Value = 20 Then
ProgressBar1.Increment(-10)
End If
If ProgressBar9.Value = 100 Then
Button6.Enabled = False
End If
End Sub
Private Sub Button8_Click(sender As Object, e As EventArgs) Handles Button8.Click
TextBox8.Text = Val(TextBox8.Text) + 10
ProgressBar8.Increment(10)
If ProgressBar8.Value = 100 Then
ProgressBar1.Increment(10)
Button8.Enabled = False
End If
End Sub
End Class
Ezt a játékfélét csináltam de ha betölt a "Progressbar1", akkor nem tudom megnyomni a "Button10"-et.
Itt egy kép is róla: [link]
válasza:If ProgressBar1.Value = ProgressBar1.Maximum Then
Button10.Enabled = True Ebben a feltételben nem teljesül a dolog, ezért nézd meg, hogy mi a progressbar1.value értéke és mi a progressbar1.maximum értéke, tehát írasd ki. Így mindjárt kiderül, hogy miért nem lesz aktív a gomb. Abban sem vagyok biztos, hogy a .enabled opció van a gombokhoz, azt te biztos jól tudod.
Ennek a kis játéknak a lényege az, hogy minden progressbar értékét el kell találni. Van 8 kicsi, és 1 nagy progressbar.
A kicsik egyenként 10-et adnak a nagyhoz. A nagy maximuma 80, vagyis kéne működnie. Ja és máskor sikerül a Button.Enabled = True.
válasza:Kapcsolódó kérdések:
Minden jog fenntartva © 2024, www.gyakorikerdesek.hu
GYIK | Szabályzat | Jogi nyilatkozat | Adatvédelem | Cookie beállítások | WebMinute Kft. | Facebook | Kapcsolat: info(kukac)gyakorikerdesek.hu
Ha kifogással szeretne élni valamely tartalommal kapcsolatban, kérjük jelezze e-mailes elérhetőségünkön!