[Problem]Dzielenie w kalkulatorze.

[Michalxdwoj]

Cześć, mam problem.

Od wczoraj zacząłem pisać w VB, i pisze teraz kalkulator (wynik wyskakuje w okienku),

mnożenie , dodawanie , odejmowanie, działa normalnie, a przy dzieleniu wywala jakieś tam errory.

Kod:

Już naprawiłem zamiast : miał być / i inny text box.

Do zamknięcia.

 

Public Class Form1
 
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim plus As Integer
        Dim plus1 As Integer
        plus = TextBox1.Text
        plus1 = TextBox2.Text
        MessageBox.Show(plus + plus1, "Wynik Dodawania")
    End Sub
    Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
        Dim Minus1 As Integer
        Dim Minus2 As Integer
        Minus1 = TextBox3.Text
        Minus2 = TextBox4.Text
        MessageBox.Show(Minus1 - Minus2, "Wynik Odejmowania")
    End Sub
 
    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
        Dim czynnik As Integer
        Dim czynnik1 As Integer
        czynnik = TextBox8.Text
        czynnik1 = TextBox7.Text
        MessageBox.Show(czynnik * czynnik1, "Wynik Mnożenia")
    End Sub
 
    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        Dim czyn As Integer
        Dim czyn1 As Integer
        czyn = TextBox8.Text
        czyn1 = TextBox7.Text
        MessageBox.Show(czyn : czyn1, "Wynik dzielna")
    End Sub
End Class

[Vesim]

if(CInt(czyn1) == 0)
MessageBox.Show("Nie dziel... przez zero")