Kirjautuminen

Haku

Tehtävät

Kilpailu

Ohjelmoi tekoäly!
Kilpailuaika on päättynyt.
Nyt voi äänestää!

Keskustelu: Koodit näytille: VB.NET: Muistilista

Sivu 1 / 1

JRokka [20.05.2020 14:57:56]

#

Ohjelmassa on tehtävien yliviivaus toiminto. Lisäksi ohjelmassa voi määritellä, onko tehtävä tehty ajoissa. Tehtävät nollautuvat, kun kuusi tehtävää on tehty.

Public Class Form1

    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        Label1.Font = New Font("Arial", 14, FontStyle.Regular)
        Label2.Font = New Font("Arial", 14, FontStyle.Regular)
        Label3.Font = New Font("Arial", 14, FontStyle.Regular)
        Label4.Font = New Font("Arial", 14, FontStyle.Regular)
        Label5.Font = New Font("Arial", 14, FontStyle.Regular)
        Label6.Font = New Font("Arial", 14, FontStyle.Regular)

    End Sub

    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        'Asetetaan tekstit.
        Label1.Text = TextBox1.Text
        Label2.Text = TextBox2.Text
        Label3.Text = TextBox3.Text
        Label4.Text = TextBox4.Text
        Label5.Text = TextBox5.Text
        Label6.Text = TextBox6.Text

    End Sub

    Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
        'Yliviivataan
        If (CheckBox1.Checked) Then
            Label1.Font = New Font("Arial", 14, FontStyle.Strikeout)
        Else
            Label1.Font = New Font("Arial", 14, FontStyle.Regular)

        End If
        If (CheckBox2.Checked) Then
            Label2.Font = New Font("Arial", 14, FontStyle.Strikeout)
        Else
            Label2.Font = New Font("Arial", 14, FontStyle.Regular)

        End If
        If (CheckBox3.Checked) Then
            Label3.Font = New Font("Arial", 14, FontStyle.Strikeout)
        Else
            Label3.Font = New Font("Arial", 14, FontStyle.Regular)

        End If
        If (CheckBox4.Checked) Then
            Label4.Font = New Font("Arial", 14, FontStyle.Strikeout)
        Else
            Label4.Font = New Font("Arial", 14, FontStyle.Regular)

        End If
        If (CheckBox5.Checked) Then
            Label5.Font = New Font("Arial", 14, FontStyle.Strikeout)
        Else
            Label5.Font = New Font("Arial", 14, FontStyle.Regular)

        End If
        If (CheckBox6.Checked) Then
            Label6.Font = New Font("Arial", 14, FontStyle.Strikeout)
        Else
            Label6.Font = New Font("Arial", 14, FontStyle.Regular)

        End If
        If (CheckBox7.Checked) Then
            Label7.Text = "Ajoissa"
        Else
            Label7.Text = "Myöhässä"
        End If
        If (CheckBox8.Checked) Then
            Label8.Text = "Ajoissa"
        Else
            Label8.Text = "Myöhässä"
        End If
        If (CheckBox9.Checked) Then
            Label9.Text = "Ajoissa"
        Else
            Label9.Text = "Myöhässä"
        End If
        If (CheckBox10.Checked) Then
            Label10.Text = "Ajoissa"
        Else
            Label10.Text = "Myöhässä"
        End If
        If (CheckBox11.Checked) Then
            Label11.Text = "Ajoissa"
        Else
            Label11.Text = "Myöhässä"
        End If
        If (CheckBox12.Checked) Then
            Label12.Text = "Ajoissa"
        Else
            Label12.Text = "Myöhässä"
        End If
        'Kaikki tehtävät suoritettu nollataan.
        If (CheckBox1.Checked And CheckBox2.Checked And CheckBox3.Checked And CheckBox4.Checked And CheckBox5.Checked And CheckBox6.Checked) Then
            Label1.Text = ""
            Label2.Text = ""
            Label3.Text = ""
            Label4.Text = ""
            Label5.Text = ""
            Label6.Text = ""
            Label7.Text = ""
            Label8.Text = ""
            Label9.Text = ""
            Label10.Text = ""
            Label11.Text = ""
            Label12.Text = ""
            CheckBox1.Checked = False
            CheckBox2.Checked = False
            CheckBox3.Checked = False
            CheckBox4.Checked = False
            CheckBox5.Checked = False
            CheckBox6.Checked = False
            CheckBox7.Checked = False
            CheckBox8.Checked = False
            CheckBox9.Checked = False
            CheckBox10.Checked = False
            CheckBox11.Checked = False
            CheckBox12.Checked = False
            TextBox1.Text = ""
            TextBox2.Text = ""
            TextBox3.Text = ""
            TextBox4.Text = ""
            TextBox5.Text = ""
            TextBox6.Text = ""
        End If
    End Sub

    Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click
        'Tyhjennetään
        Label1.Text = ""
        Label2.Text = ""
        Label3.Text = ""
        Label4.Text = ""
        Label5.Text = ""
        Label6.Text = ""
        Label7.Text = ""
        Label8.Text = ""
        Label9.Text = ""
        Label10.Text = ""
        Label11.Text = ""
        Label12.Text = ""

        CheckBox1.Checked = False
        CheckBox2.Checked = False
        CheckBox3.Checked = False
        CheckBox4.Checked = False
        CheckBox5.Checked = False
        CheckBox6.Checked = False
        CheckBox7.Checked = False
        CheckBox8.Checked = False
        CheckBox9.Checked = False
        CheckBox10.Checked = False
        CheckBox11.Checked = False
        CheckBox12.Checked = False
        TextBox1.Text = ""
        TextBox2.Text = ""
        TextBox3.Text = ""
        TextBox4.Text = ""
        TextBox5.Text = ""
        TextBox6.Text = ""

    End Sub


End Class

Grez [20.05.2020 15:40:56]

#

Jessus mitä paskaa.

Ihan vaan tiedoksi että kukaan ei ota mallia tästä.

VB.Netissä on, kuten kaikissa kielissä, mahdollista käyttää toistorakenteita.

Vastaus

Aihe on jo aika vanha, joten et voi enää vastata siihen.

Tietoa sivustosta