Guida Flood Con Variatore di velocità

[crokki95]

Bravo max

 

[ENZO1008]

E' sbagliato il codice e':

Spoiler

Public Class Form1

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
TrackBar1.Maximum = 10
TrackBar1.Minimum = 0
If TrackBar1.Value = 1 Then
Timer1.Interval = 2000
Timer1.Enabled = True
ElseIf TrackBar1.Value = 2 Then
Timer1.Interval = 1700
Timer1.Enabled = True
ElseIf TrackBar1.Value = 3 Then
Timer1.Interval = 1500
Timer1.Enabled = True
ElseIf TrackBar1.Value = 4 Then
Timer1.Interval = 1200
Timer1.Enabled = True
ElseIf TrackBar1.Value = 5 Then
Timer1.Interval = 1000
Timer1.Enabled = True
ElseIf TrackBar1.Value = 6 Then
Timer1.Interval = 800
Timer1.Enabled = True
ElseIf TrackBar1.Value = 7 Then
Timer1.Interval = 500
Timer1.Enabled = True
ElseIf TrackBar1.Value = 8 Then
Timer1.Interval = 200
Timer1.Enabled = True
ElseIf TrackBar1.Value = 9 Then
Timer1.Interval = 100
Timer1.Enabled = True
ElseIf TrackBar1.Value = 10 Then
Timer1.Interval = 50
Timer1.Enabled = True
End If
End Sub

Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs)
SendKeys.Send(TextBox1.Text)
SendKeys.Send("{enter}")
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
TrackBar1.Enabled = False
End Sub
End Class

E' SBAGLIATO UN PEZZO DEL CODICE HAI RIPETUTO 2 VOLTE CRONOMETRO1 AL POSTO DI TRACKBAR1

 

[Max090]

si se leggi i post precendenti -.-

 

[Volcomech]

Ho notato che ti piace la Track Bar, trovo più veloce una Combobox..

No?

Poi un consiglio, usa il select case piuttosto di infiniti if

 

[Max090]

e totalmente uguale

 

[Volcomech]

Ma io ho detto che è diverso? Ho detto che è meglio uno di un'altro? -.-

Ho detto solamente che:
1. Per questioni di VELOCITA' è megliola ComboBox
2. Il select case è più elegante di tanti if, ti ho solo dato consigli, scusami è, non interverrò più nelle tue discussioni ._.

 

[Damiano Dotto]

sembra bello bella guida XD

 

[-Shield96]

Ottimo ;) testo subito

 

[genny1000]

Ottimo funzionante veri good

 

[ENZO1008]

sono 2 taimer non 1 xD

 

[Realist]

Utile .. Ma Sembra Complicato Ora lo Provo ù.ù