VB Net Programming Console Application Walkthrough Example Input

VB. Net Programming Console Application Walkthrough Example : Input Output

Narrative The first line of the program indicates the main( ) procedure. Code Sub Main() Dim Name As String Dim Age As Integer Dim Gender As Char Dim Balance As Decimal Dim Interest As Decimal 'input data Console. Write("Enter Name : ") Name = Console. Read. Line() Console. Write("Enter Age : ") Age = Console. Read. Line() Console. Write("Enter Gender : ") Gender = Console. Read. Line() Console. Write("Enter Balance : ") Balance = Console. Read. Line() 'Process Interest = Balance * 10 / 100 'Output Console. Write. Line("---------") Console. Write. Line("Name. . . . : {0}", Name) Console. Write. Line("Age. . : {0}", Age) Console. Write. Line("Gender. . . : {0}", Gender) Console. Write. Line("Balance. . . : {0}", Balance) Console. Write. Line("10% Interest is : {0: f 2}", Interest) Console. Read. Key() End Sub Memory Screen

Narrative These lines create named memory locations to store the data entered by the program user. Name is string to store characters Age is integer to store whole numbers Gender is char to store a single character Balance & Interest are decimal to store numbers with digits after the point. Code Sub Main() Dim Name As String Dim Age As Integer Dim Gender As Char Dim Balance As Decimal Dim Interest As Decimal 'input data Console. Write("Enter Name : ") Name = Console. Read. Line() Console. Write("Enter Age : ") Age = Console. Read. Line() Console. Write("Enter Gender : ") Gender = Console. Read. Line() Console. Write("Enter Balance : ") Balance = Console. Read. Line() 'Process Interest = Balance * 10 / 100 'Output Console. Write. Line("---------") Console. Write. Line("Name. . . . : {0}", Name) Console. Write. Line("Age. . : {0}", Age) Console. Write. Line("Gender. . . : {0}", Gender) Console. Write. Line("Balance. . . : {0}", Balance) Console. Write. Line("10% Interest is : {0: f 2}", Interest) Console. Read. Key() End Sub Memory Name Age Gender Balance Interest Screen

Narrative This line writes to the console screen. The words in quotes appear on the screen. Memory Name Age Gender Balance Interest Write will display the contents of the quotes and stay on the same line. Code Sub Main() Dim Name As String Dim Age As Integer Dim Gender As Char Dim Balance As Decimal Dim Interest As Decimal 'input data Console. Write("Enter Name : ") Name = Console. Read. Line() Console. Write("Enter Age : ") Age = Console. Read. Line() Console. Write("Enter Gender : ") Gender = Console. Read. Line() Console. Write("Enter Balance : ") Balance = Console. Read. Line() 'Process Interest = Balance * 10 / 100 'Output Console. Write. Line("---------") Console. Write. Line("Name. . . . : {0}", Name) Console. Write. Line("Age. . : {0}", Age) Console. Write. Line("Gender. . . : {0}", Gender) Console. Write. Line("Balance. . . : {0}", Balance) Console. Write. Line("10% Interest is : {0: f 2}", Interest) Console. Read. Key() End Sub Screen Enter Name……. :

Narrative This next line reads the line typed by the program user and stores it in the named memory location Name. Memory Name Age Gender Balance Interest Jim Code Sub Main() Dim Name As String Dim Age As Integer Dim Gender As Char Dim Balance As Decimal Dim Interest As Decimal 'input data Console. Write("Enter Name : ") Name = Console. Read. Line() Console. Write("Enter Age : ") Age = Console. Read. Line() Console. Write("Enter Gender : ") Gender = Console. Read. Line() Console. Write("Enter Balance : ") Balance = Console. Read. Line() 'Process Interest = Balance * 10 / 100 'Output Console. Write. Line("---------") Console. Write. Line("Name. . . . : {0}", Name) Console. Write. Line("Age. . : {0}", Age) Console. Write. Line("Gender. . . : {0}", Gender) Console. Write. Line("Balance. . . : {0}", Balance) Console. Write. Line("10% Interest is : {0: f 2}", Interest) Console. Read. Key() End Sub Screen Enter Name……. : Jim

Narrative This line writes to the console screen. The words in quotes appear on the screen. Code Sub Main() Dim Name As String Dim Age As Integer Dim Gender As Char Dim Balance As Decimal Dim Interest As Decimal 'input data Console. Write("Enter Name : ") Name = Console. Read. Line() Console. Write("Enter Age : ") Age = Console. Read. Line() Console. Write("Enter Gender : ") Gender = Console. Read. Line() Console. Write("Enter Balance : ") Balance = Console. Read. Line() 'Process Interest = Balance * 10 / 100 'Output Console. Write. Line("---------") Console. Write. Line("Name. . . . : {0}", Name) Console. Write. Line("Age. . : {0}", Age) Console. Write. Line("Gender. . . : {0}", Gender) Console. Write. Line("Balance. . . : {0}", Balance) Console. Write. Line("10% Interest is : {0: f 2}", Interest) Console. Read. Key() End Sub Memory Name Age Gender Balance Interest Jim Screen Enter Name……. : Jim Enter Age………:

Narrative This next line reads the line typed by the program user and stores it in the named memory location Age. Code Sub Main() Dim Name As String Dim Age As Integer Dim Gender As Char Dim Balance As Decimal Dim Interest As Decimal 'input data Console. Write("Enter Name : ") Name = Console. Read. Line() Console. Write("Enter Age : ") Age = Console. Read. Line() Console. Write("Enter Gender : ") Gender = Console. Read. Line() Console. Write("Enter Balance : ") Balance = Console. Read. Line() 'Process Interest = Balance * 10 / 100 'Output Console. Write. Line("---------") Console. Write. Line("Name. . . . : {0}", Name) Console. Write. Line("Age. . : {0}", Age) Console. Write. Line("Gender. . . : {0}", Gender) Console. Write. Line("Balance. . . : {0}", Balance) Console. Write. Line("10% Interest is : {0: f 2}", Interest) Console. Read. Key() End Sub Memory Name Age Jim 23 Gender Balance Interest Screen Enter Name……. : Jim Enter Age………: 23

Narrative This line writes to the console screen. The words in quotes appear on the screen. Code Sub Main() Dim Name As String Dim Age As Integer Dim Gender As Char Dim Balance As Decimal Dim Interest As Decimal 'input data Console. Write("Enter Name : ") Name = Console. Read. Line() Console. Write("Enter Age : ") Age = Console. Read. Line() Console. Write("Enter Gender : ") Gender = Console. Read. Line() Console. Write("Enter Balance : ") Balance = Console. Read. Line() 'Process Interest = Balance * 10 / 100 'Output Console. Write. Line("---------") Console. Write. Line("Name. . . . : {0}", Name) Console. Write. Line("Age. . : {0}", Age) Console. Write. Line("Gender. . . : {0}", Gender) Console. Write. Line("Balance. . . : {0}", Balance) Console. Write. Line("10% Interest is : {0: f 2}", Interest) Console. Read. Key() End Sub Memory Name Age Jim 23 Gender Balance Interest Screen Enter Name……. : Jim Enter Age………: 23 Gender. …………:

Narrative This next line reads the line typed by the program user and stores it in the named memory location Gender. Code Sub Main() Dim Name As String Dim Age As Integer Dim Gender As Char Dim Balance As Decimal Dim Interest As Decimal 'input data Console. Write("Enter Name : ") Name = Console. Read. Line() Console. Write("Enter Age : ") Age = Console. Read. Line() Console. Write("Enter Gender : ") Gender = Console. Read. Line() Console. Write("Enter Balance : ") Balance = Console. Read. Line() 'Process Interest = Balance * 10 / 100 'Output Console. Write. Line("---------") Console. Write. Line("Name. . . . : {0}", Name) Console. Write. Line("Age. . : {0}", Age) Console. Write. Line("Gender. . . : {0}", Gender) Console. Write. Line("Balance. . . : {0}", Balance) Console. Write. Line("10% Interest is : {0: f 2}", Interest) Console. Read. Key() End Sub Memory Name Age Jim 23 Gender Balance Interest M Screen Enter Name……. : Jim Enter Age………: 23 Gender. …………: M

Narrative This line writes to the console screen. The words in quotes appear on the screen. Code Sub Main() Dim Name As String Dim Age As Integer Dim Gender As Char Dim Balance As Decimal Dim Interest As Decimal 'input data Console. Write("Enter Name : ") Name = Console. Read. Line() Console. Write("Enter Age : ") Age = Console. Read. Line() Console. Write("Enter Gender : ") Gender = Console. Read. Line() Console. Write("Enter Balance : ") Balance = Console. Read. Line() 'Process Interest = Balance * 10 / 100 'Output Console. Write. Line("---------") Console. Write. Line("Name. . . . : {0}", Name) Console. Write. Line("Age. . : {0}", Age) Console. Write. Line("Gender. . . : {0}", Gender) Console. Write. Line("Balance. . . : {0}", Balance) Console. Write. Line("10% Interest is : {0: f 2}", Interest) Console. Read. Key() End Sub Memory Name Age Jim 23 Gender Balance Interest M Screen Enter Name……. : Jim Enter Age………: 23 Gender. …………: M Enter Balance…. . :

Narrative This next line reads the line typed by the program user and stores it in the named memory location Balance. Code Sub Main() Dim Name As String Dim Age As Integer Dim Gender As Char Dim Balance As Decimal Dim Interest As Decimal 'input data Console. Write("Enter Name : ") Name = Console. Read. Line() Console. Write("Enter Age : ") Age = Console. Read. Line() Console. Write("Enter Gender : ") Gender = Console. Read. Line() Console. Write("Enter Balance : ") Balance = Console. Read. Line() 'Process Interest = Balance * 10 / 100 'Output Console. Write. Line("---------") Console. Write. Line("Name. . . . : {0}", Name) Console. Write. Line("Age. . : {0}", Age) Console. Write. Line("Gender. . . : {0}", Gender) Console. Write. Line("Balance. . . : {0}", Balance) Console. Write. Line("10% Interest is : {0: f 2}", Interest) Console. Read. Key() End Sub Memory Name Age Jim 23 Gender Balance M Interest 100. 00 Screen Enter Name……. : Jim Enter Age………: 23 Gender. …………: M Enter Balance…. . : 100

Narrative This next line uses the contents of Balance to calculate 10% of its value and places the answer into the location Interest. Code Sub Main() Dim Name As String Dim Age As Integer Dim Gender As Char Dim Balance As Decimal Dim Interest As Decimal 'input data Console. Write("Enter Name : ") Name = Console. Read. Line() Console. Write("Enter Age : ") Age = Console. Read. Line() Console. Write("Enter Gender : ") Gender = Console. Read. Line() Console. Write("Enter Balance : ") Balance = Console. Read. Line() 'Process Interest = Balance * 10 / 100 'Output Console. Write. Line("---------") Console. Write. Line("Name. . . . : {0}", Name) Console. Write. Line("Age. . . : {0}", Age) Console. Write. Line("Gender. . . : {0}", Gender) Console. Write. Line("Balance. . . : {0}", Balance) Console. Write. Line("10% Interest is : {0: f 2}", Interest) Console. Read. Key() End Sub Memory Name Age Jim 23 Gender Balance M 100. 00 Interest 10. 00 Screen Enter Name……. : Jim Enter Age………: 23 Gender. …………: M Enter Balance…. . : 100

Narrative These next lines Write the contents of the variables to the console screen. Note the use of {0} which represents the position of the named variable between the quotes. Code Sub Main() Dim Name As String Dim Age As Integer Dim Gender As Char Dim Balance As Decimal Dim Interest As Decimal 'input data Console. Write("Enter Name : ") Name = Console. Read. Line() Console. Write("Enter Age : ") Age = Console. Read. Line() Console. Write("Enter Gender : ") Gender = Console. Read. Line() Console. Write("Enter Balance : ") Balance = Console. Read. Line() 'Process Interest = Balance * 10 / 100 'Output Console. Write. Line("---------") Console. Write. Line("Name. . . . : {0}", Name) Console. Write. Line("Age. . . : {0}", Age) Console. Write. Line("Gender. . . : {0}", Gender) Console. Write. Line("Balance. . . : {0}", Balance) Console. Write. Line("10% Interest is : {0: f 2}", Interest) Console. Read. Key() End Sub Memory Name Age Jim 23 Gender Balance M 100. 00 Interest 10. 00 Screen Enter Name……. : Jim Enter Age………: 23 Enter Gender. . …: M Enter Balance…. . : 100 ---------------Name…………: Jim Age……………: 23 Gender………. . : M Balance………. . : 100 10% Interest is. . : 10. 00

Narrative This final line holds the display until the program user presses a key. And this program ends. Code Sub Main() Dim Name As String Dim Age As Integer Dim Gender As Char Dim Balance As Decimal Dim Interest As Decimal 'input data Console. Write("Enter Name : ") Name = Console. Read. Line() Console. Write("Enter Age : ") Age = Console. Read. Line() Console. Write("Enter Gender : ") Gender = Console. Read. Line() Console. Write("Enter Balance : ") Balance = Console. Read. Line() 'Process Interest = Balance * 10 / 100 'Output Console. Write. Line("---------") Console. Write. Line("Name. . . . : {0}", Name) Console. Write. Line("Age. . . : {0}", Age) Console. Write. Line("Gender. . . : {0}", Gender) Console. Write. Line("Balance. . . : {0}", Balance) Console. Write. Line("10% Interest is : {0: f 2}", Interest) Console. Read. Key() End Sub Memory Name Age Jim 23 Gender Balance M 100. 00 Interest 10. 00 Screen Enter Name……. : Jim Enter Age………: 23 Enter Gender. . …: M Enter Balance…. . : 100 ---------------Name…………: Jim Age……………: 23 Gender………. . : M Balance………. . : 100 10% Interest is. . : 10. 00