Forum Mechaniki i Budowy Maszyn

Public Class zmienne
    Dim a As Integer
    Dim b As Integer
    Dim wynikmn As Integer
    Dim wynikdz As Double
    Dim wynikdod As Integer
    Dim wynkodej As Integer
    Dim wynikzd As Integer
    Dim d As Double
    Dim c As Boolean

    Private Sub zmienne_Load(ByVal sender As System.Object, ByVal e As
    System.EventArgs) Handles MyBase.Load

    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As
    System.EventArgs) Handles Button1.Click
        a = dana1.Text
        b = dana2.Text
        wynikmn = a * b
        wynik_mnozenia.Text = wynikmn

    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As
    System.EventArgs) Handles Button2.Click
        a = dana1.Text
        b = dana2.Text
        wynikdz = a / b
        wynik_dzielenia.Text = wynikdz

    End Sub

    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As
    System.EventArgs) Handles Button3.Click
        a = dana1.Text
        b = dana2.Text
        wynikdod = a + b
        wynik_dodawania.Text = wynikdod

    End Sub

    Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As
    System.EventArgs) Handles Button4.Click
        a = dana1.Text
        b = dana2.Text
        wynkodej = a - b
        wynik_odejmowania.Text = wynkodej


    End Sub

    Private Sub Button6_Click(ByVal sender As System.Object, ByVal e As
    System.EventArgs) Handles Button6.Click
        a = dana1.Text
        b = dana2.Text
        c = a <> b
        wynik_mnozenia.Text = c
    End Sub

    Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As
    System.EventArgs) Handles Button5.Click
        a = dana1.Text
        b = dana2.Text
        wynikzd = (a + b) / (b - a)
        wynik_rownania.Text = wynikzd

    End Sub

    Private Sub Button7_Click(ByVal sender As System.Object, ByVal e As
    System.EventArgs) Handles Button7.Click
        a = dana1.Text
        b = dana2.Text
        c = a > b
        wynik_dzielenia.Text = c

    End Sub

    Private Sub Button8_Click(ByVal sender As System.Object, ByVal e As
    System.EventArgs) Handles Button8.Click
        a = dana1.Text
        b = dana2.Text
        c = a Mod b
        wynik_dodawania.Text = c

    End Sub

    Private Sub Button9_Click(ByVal sender As System.Object, ByVal e As
    System.EventArgs) Handles Button9.Click
        a = dana1.Text
        b = dana2.Text
        c = a Mod 2 = 0 Or b Mod 2 = 0
        wynik_odejmowania.Text = c
    End Sub

    Private Sub Button10_Click(ByVal sender As System.Object, ByVal e As
    System.EventArgs) Handles Button10.Click
        a = dana1.Text
        b = dana2.Text
        c = a Mod 2 = 0 Or b Mod 2 = 0
        wynik_rownania.Text = c

    End Sub

    Private Sub wynik_mnozenia_Click(ByVal sender As System.Object, ByVal e
    As System.EventArgs) Handles wynik_mnozenia.Click

    End Sub
End Class