OOP Class 1 Example
Imports System Imports System.Collections.Generic Imports System.Linq Imports System.Text Namespace Program9 Class Employee Private code As Integer Private name As String Private designation As String Public Sub storedata(ByVal _code As Integer, ByVal _name As String, ByVal _designation As String) code = _code name = _name designation = _designation End Sub Public Sub showdata() Console.WriteLine("Code= " & code) Console.WriteLine("Name= " & name) Console.WriteLine("Designation= " & designation) End Sub End Class Class Program Private Shared Sub Main(ByVal args As String()) Dim code As Integer Dim name, designation As String Console.WriteLine("Enter Code,Name,Designaiton") code = Integer.Parse(Console.ReadLine()) name = Console.ReadLine() designation = Console.ReadLine() Dim emp As Employee = New Employee() emp.storedata(code, name, designation) emp.showdata() End Sub End Class End Namespace
©Copyright 2016 All Rights Reserved LearnDotNetHome.com