X


vb obslugabledow, SiMR, Programy Visual Basic

Nie obrażaj więc mojej inteligencji poprzez czynione na pokaz zaniżanie własnej.
[ Pobierz całość w formacie PDF ]

Public Class Form1


    Private Sub btnPLUS_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btnPLUS.Click
        Dim A, B, W As Single
        Try ' programowa obsługa błędów zaczyna się po TRY
            A = CSng(txtA.Text)
            B = CSng(txtB.Text)
            W = A + B
            txtW.Text = CStr(W)
        Catch ex As Exception
            'MsgBox("Błąd danych")
            If Err.Number = 13 Then
                MsgBox("NALEZY WPISAC LICZBe", MsgBoxStyle.Critical, "Własna obsługa błędów")
            Else
                MsgBox(Err.Description)

            End If
        End Try
       

    End Sub

    Private Sub btnDZIEL_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btnDZIEL.Click
        Dim A, B, W As Single
        Try
            A = CSng(txtA.Text)
            B = CSng(txtB.Text)
            If B = 0 Then
                MsgBox("nie dziel przez zero, cholero!")
            End If
            W = A / B
            txtW.Text = CStr(W)
        Catch ex As Exception
            MsgBox("Błąd danych")
        End Try
       
    End Sub
End Class

 

 

 

 

 

 

 

 

 

  • zanotowane.pl
  • doc.pisz.pl
  • pdf.pisz.pl
  • alter.htw.pl
    		•
    Powered by WordPress, © Nie obrażaj więc mojej inteligencji poprzez czynione na pokaz zaniżanie własnej.

    Drogi użytkowniku!

    W trosce o komfort korzystania z naszego serwisu chcemy dostarczać Ci coraz lepsze usługi. By móc to robić prosimy, abyś wyraził zgodę na dopasowanie treści marketingowych do Twoich zachowań w serwisie. Zgoda ta pozwoli nam częściowo finansować rozwój świadczonych usług.

    Pamiętaj, że dbamy o Twoją prywatność. Nie zwiększamy zakresu naszych uprawnień bez Twojej zgody. Zadbamy również o bezpieczeństwo Twoich danych. Wyrażoną zgodę możesz cofnąć w każdej chwili.

     Tak, zgadzam siÄ™ na nadanie mi "cookie" i korzystanie z danych przez Administratora Serwisu i jego partnerów w celu dopasowania treÅ›ci do moich potrzeb. PrzeczytaÅ‚em(am) PolitykÄ™ prywatnoÅ›ci. Rozumiem jÄ… i akceptujÄ™.

     Tak, zgadzam siÄ™ na przetwarzanie moich danych osobowych przez Administratora Serwisu i jego partnerów w celu personalizowania wyÅ›wietlanych mi reklam i dostosowania do mnie prezentowanych treÅ›ci marketingowych. PrzeczytaÅ‚em(am) PolitykÄ™ prywatnoÅ›ci. Rozumiem jÄ… i akceptujÄ™.

    Wyrażenie powyższych zgód jest dobrowolne i możesz je w dowolnym momencie wycofać poprzez opcję: "Twoje zgody", dostępnej w prawym, dolnym rogu strony lub poprzez usunięcie "cookies" w swojej przeglądarce dla powyżej strony, z tym, że wycofanie zgody nie będzie miało wpływu na zgodność z prawem przetwarzania na podstawie zgody, przed jej wycofaniem.