[TuT] Prosty Licznik

[thiew3]

Siemka w tym Mini Poradniku pokaże wam jak napisać prosty licznkin w Visual Basic.

 

Krok 1.

 

Tworzymy nowy projekt.

 

Krok 2.

 

Na Form1 przesuwamy kolejno:

 

3x Button

6x Label

1x Timer

 

 

I nazywamy je:

Button1 - Start

Button2 - Pauza

Button3 - Reset

 

Krok 3.

 

Teraz kodujemy elementy

 

Button1:

 

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Timer1.Enabled = True
        Button1.Enabled = True
    End Sub

Button2:

    Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
        Timer1.Stop()
    End Sub

Button3:

    Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click
        Label1.Text = 0
        Label2.Text = 0
        Label3.Text = 0
    End Sub

 

Timer1:

 

    Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
        Label3.Text = Label3.Text + 1
        If Label3.Text = 60 Then
            Label3.Text = 0
            Label2.Text = Label2.Text + 1
            If Label2.Text = 60 Then
                Label2.Text = 0
                Label1.Text = Label1.Text + 1
            End If
        End If
    End Sub

Krok 4.

PAMIETAJ ABY USTAWIC LABELE W KOLEJNOSCI (Od lewej: 1,4 - 2,5 - 3,6) !!

Edytujemy Label'e:

Zaznaczamy Label1 -> Properties -> Text : 0

Zaznaczamy Label2 -> Properties -> Text : 0

Zaznaczamy Label3 -> Properties -> Text : 0

Zaznaczamy Label4 -> Properties -> Text : h

Zaznaczamy Label5 -> Properties -> Text : min

Zaznaczamy Label6 -> Properties -> Text : sec

Gotowe !

PS.

Wytłumaczenie linijki

        If Label3.Text = 60 Then
            Label3.Text = 0
            Label2.Text = Label2.Text + 1

If Label3.Text = 60 Then <--- Gdy Label3 osiagnie 60 (sekund) to

Label3.Text = 0 <--- Zeruje sie

Label2.Text = Label2.Text + 1 <--- To do Label2 dodaje 1 (ale nie usuwa obecnej wartości)

To by było na tyle Jest to mój pierwszy poradnik, kod podam bo jest to za łatwe ale ktoś może nie rozumieć.

PS. W VB pisze od wczoraj Więc krytykujcie wrazie czego.

 

http://pastebin.com/GbjFDqu8
 

 

[XxNeroxX]

Pomyliłeś działy kolego to jest c# nie visual basic,całkiem inny świat

[thiew3]

Wiem zagapiłem sie przez pomyłke

[Sunnyline2]

Pomyliłeś działy kolego to jest c# nie visual basic,całkiem inny świat

Powiedz mi czym się rożni c# od visual basic, oprócz składni i ide.

 

Label1.Text = Label1.Text + 1

a wystarczy

label1.text += 1

Nie wiem po co robić tuta jak zrobić licznik ale ok

[matixd3]

Mozna to zrobic na 1 labelu