Skip to main content

VB Program No: 5

         Create a form having three radio buttons for age in year, age in days
and age in months. Enter date of birth in a textbox and display
          appropriate result in another textbox. Also find date of death (assume
average age of 62).


Public Class app3vb
    Dim dt, t As Date

    Private Sub app3vb_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        TextBox2.Clear()
        TextBox3.Clear()
    End Sub

    Private Sub RadioButton1_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RadioButton1.CheckedChanged
        t = Today
        If TextBox1.Text <> "" Then
            dt = CDate(TextBox1.Text)
        End If
        If RadioButton1.Checked = True Then
            TextBox2.Text = DateDiff(DateInterval.Year, dt, t) & " Year"
            TextBox3.Text = DateAdd(DateInterval.Year, 62, dt)
        End If


    End Sub

    Private Sub RadioButton2_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RadioButton2.CheckedChanged
        t = Today
        If TextBox1.Text <> "" Then
            dt = CDate(TextBox1.Text)
        End If
        If RadioButton2.Checked = True Then
            TextBox2.Text = DateDiff(DateInterval.Day, dt, t) & " Days"
            TextBox3.Text = DateAdd(DateInterval.Day, 62, dt)
        End If

    End Sub

    Private Sub RadioButton3_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RadioButton3.CheckedChanged
        t = Today
        If TextBox1.Text <> "" Then
            dt = CDate(TextBox1.Text)
        End If
        If RadioButton3.Checked = True Then
            TextBox2.Text = DateDiff(DateInterval.Month, dt, t) & " Month"
            TextBox3.Text = DateAdd(DateInterval.Month, 62, dt)
        End If

    End Sub
End Class

Made By: Yadav Roshani R. from Third Year of BCA



Labels:

Comments

Post a Comment

Popular posts from this blog

Characteristics of a Good Programming Language

Till now there are many high level languages which are very popular, and there are others, which could not become so popular in-spite of being very powerful. There might be many reasons for the success of a language, but one obvious reason is the characteristics of the language. Several characteristics believed to be important with respect to making a programming language good are briefly discussed below. Simplicity A good programming language must be simple and easy to learn and use. For example, BASIC is liked by many programmers only because of its simplicity. Thus, a good programming language should provide a programmer with a clear, simple and unified set of concepts which can be easily grasped. It is also easy to develop and implement a compiler or an interpreter for a programming language that is simple. However, the power needed for the language should not be sacrificed for simplicity. The overall simplicity of a programming language strongly affects the readability of the pr...
1 comment
Read more

Angular 4 and Firebase Authentication: Email/Password

In our  previous  article we saw how to create authentication module using Google identity provider. Now we will see how to implement Email and Password authentication using Firebase. We will use Bootstrap form to create intuitive user interface for sign-up and login using Email and Password. Step 1: Create signUp component. ng generate component signUp Step 2: Create custom form in sign-up.component.html file. The result of above code: Step 3: Add two functions for creating the user and login using Email and Password in src/app/providers/AFAuth.ts file. Step 4: Call createUserWithEmailAndPassword function in service from sign-up.component.ts. Step 5: Update routing configuration in app.module.ts  to include signUp component. Step 6: Update Login form to have Bootstrap form. The result of the above code. Step 7: Enable Email/Password component in Firebas...
Post a Comment
Read more

Angular 4 and Firebase Authentication: Setup

If you have come to this article, it means you are keen to learn new technology and that too Firebase. I love Firebase because it provides all basic but important features of any web application. Take for example, authentication, which is cumbersome and risky if not implemented with utmost care. And when we have the integration of Angular and Firebase, it becomes a lot easier for a developer to build such crucial modules in less time with minimal efforts. In this article we will create a simple Angular application using Firebase. I am going ahead with the understanding that you know the benefits of Firebase and have little knowledge about it. There are plenty of posts out on the web if you are behind. Step 1: Install Angular CLI (if not installed). npm install -g angular-cli Step 2: Create new Angular 4 project. By default now angular CLI will create Angular 4 project so you need not fret. ng new firebase-authentication Step 3: Check whether the ne...
Post a Comment
Read more