Navigace: Hlavní stránka -> BASIC -> 08 Knihovny ->08.01 Základní funkce - součet, rozdíl

MENU

08.01 Základní funkce - součet, rozdíl

Zadání:
Sestavte knihovnu, která bude obsahovat dvě funkce na součet a rozdíl dvou čísel. Tuto knihovnu použijte ve vlastním programu.
Public Class Class1

    Public Shared Function secti(ByVal a As Integer, ByVal b As Integer) As Integer
        secti = a + b
    End Function

    Public Shared Function odecti(ByVal a As Integer, ByVal b As Integer) As Integer
        odecti = a - b
    End Function

End Class

Module Module1

    ' 08.01 Využívá podprogramy z programové jednotky

    Sub Main()

        Dim x, y, z As Integer

        Console.Write("Zadejte prvni cislo: ")
        x = Console.ReadLine
        Console.Write("Zadejte druhe cislo: ")
        y = Console.ReadLine

        z = ClassLibrary1.Class1.secti(x, y)
        Console.WriteLine("Soucet={0}", z)
        z = ClassLibrary1.Class1.odecti(x, y)
        Console.WriteLine("Rozdil={0}", z)

        Console.ReadLine()

    End Sub

End Module
program ke stažení