Positive and Negative Number Checker in VB.NET

In this article I would like to share with you a program that will ask the user to give a number and then the program will check if the given number is a positive or negative number using Microsoft Visual Basic NET. Let us assume that zero belongs to positive number.

I am currently accepting programming work, IT projects, school and application development, programming projects, thesis and capstone projects, IT consulting work, computer tutorials, and web development work kindly contact me in the following email address for further details.  If you want to advertise on my website kindly contact me also in my email address also. Thank you.

My email address is the following jakerpomperada@gmail.com, jakerpomperada@aol.com, and jakerpomperada@yahoo.com.

My mobile number here in the Philippines is 09173084360.

My telephone number at home here in Bacolod City, Negros Occidental Philippines is  +63 (034) 4335675.

Here in Bacolod I also accepting computer repair, networking and Arduino Project development at a very affordable price.

My personal website is http://www.jakerpomperada.com.

Sample Program Output

Program Listing

Public Class Form1

    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click

        End

    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

        Dim a As Integer

        a = Val(TextBox1.Text)

        If (a >= 0) Then

            MsgBox("The given number  " & a & " is a Positive Number.")

        Else

            MsgBox("The given number  " & a & " is a Negative Number.")

        End If

    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click

        TextBox1.Text = ""

        TextBox1.Focus()

    End Sub

End Class

Area of the Circle Solver in VB.NET

Area of the Circle Solver in VB.NET

In this article I would like to share with you guys a sample program that will ask the radius value of the circle and then the program will compute the area of the circle using Microsoft Visual Basic NET.

I am currently accepting programming work, IT projects, school and application development, programming projects, thesis and capstone projects, IT consulting work, computer tutorials, and web development work kindly contact me in the following email address for further details.  If you want to advertise on my website kindly contact me also in my email address also. Thank you.

My email address is the following jakerpomperada@gmail.com, jakerpomperada@aol.com, and jakerpomperada@yahoo.com.

My mobile number here in the Philippines is 09173084360.

My telephone number at home here in Bacolod City, Negros Occidental Philippines is  +63 (034) 4335675.

Here in Bacolod I also accepting computer repair, networking and Arduino Project development at a very affordable price.

My personal website is http://www.jakerpomperada.com.

Sample Program Output

Program Listing

Public Class Form1

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

      

    End Sub

    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click

        End

    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

        Dim radius As Integer

        Dim area As Single

        Dim PI As Single = 3.14F

        radius = Val(TextBox1.Text)

        area = (PI * radius * radius)

        TextBox2.Text = "The area of the circle is " & area

    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click

        TextBox1.Text = ""

        TextBox2.Text = ""

        TextBox1.Focus()

    End Sub

End Class

Odd and Even Number Checker in VB.NET

In this article I would like to share with you a sample program that I wrote using Microsoft Visual Basic NET to ask the user to give a number and then the program will check if the given number is odd or even number and display the results on the screen.

I am currently accepting programming work, IT projects, school and application development, programming projects, thesis and capstone projects, IT consulting work, computer tutorials, and web development work kindly contact me in the following email address for further details.  If you want to advertise on my website kindly contact me also in my email address also. Thank you.

My email address is the following jakerpomperada@gmail.com, jakerpomperada@aol.com, and jakerpomperada@yahoo.com.

My mobile number here in the Philippines is 09173084360.

My telephone number at home here in Bacolod City, Negros Occidental Philippines is  +63 (034) 4335675.

Here in Bacolod I also accepting computer repair, networking and Arduino Project development at a very affordable price.

My personal website is http://www.jakerpomperada.com.

Sample Program Output

Program Listing

REM September 30, 2019 Monday

REM Author : Mr. Jake Rodriguez Pomperada, MAED-IT

REM Bacolod City, Negros Occidental Philippines

REM www.jakerpomperada.com

REM jakerpomperada@gmail.com

Public Class Form1

    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click

        End

    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

        Dim a As Integer

        a = Val(TextBox1.Text)

        If (a Mod 2 = 0) Then

            TextBox2.Text = "The number " & a & " is an EVEN number."

        Else

            TextBox2.Text = "The number " & a & " is an ODD number."

        End If

    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click

        TextBox1.Text = ""

        TextBox2.Text = ""

        TextBox1.Focus()

    End Sub

End Class

Odd and Even Number Checker in VB.NET

Product and Difference of Two Numbers in VB.NET

Navigation Menu and Custom Theme in CSS

I  simple navigation menu and custom theme in CSS (Cascading Style Sheet) created by my close friend, business partner and fellow software engineer Sir Larry Dave Emol.

I am currently accepting programming work, IT projects, school and application development, programming projects, thesis and capstone projects, IT consulting work, computer tutorials, and web development work kindly contact me in the following email address for further details.  If you want to advertise on my website kindly contact me also in my email address also. Thank you.

My email address is the following jakerpomperada@gmail.com, jakerpomperada@aol.com, and jakerpomperada@yahoo.com.

My mobile number here in the Philippines is 09173084360.

My telephone number at home here in Bacolod City, Negros Occidental Philippines is  +63 (034) 4335675.

Here in Bacolod I also accepting computer repair, networking and Arduino Project development at a very affordable price.

My personal website is http://www.jakerpomperada.com.

Sample Program Output

Program Listing

<style>

.description a {

    color: powderblue;

}

.header-outer {

    border-radius: 7px;

    background: rgb(167,207,223); /* Old browsers */

    background: -moz-linear-gradient(top,  rgba(167,207,223,1) 0%, rgba(35,83,138,1) 100%); /* FF3.6-15 */

    background: -webkit-linear-gradient(top,  rgba(167,207,223,1) 0%,rgba(35,83,138,1) 100%); /* Chrome10-25,Safari5.1-6 */

    background: linear-gradient(to bottom,  rgba(167,207,223,1) 0%,rgba(35,83,138,1) 100%); /* W3C, IE10+, FF16+, Chrome26+, Opera12+, Safari7+ */

    filter: progid:DXImageTransform.Microsoft.gradient( startColorstr='#a7cfdf', endColorstr='#23538a',GradientType=0 ); /* IE6-9 */

}

.header-inner .Header .descriptionwrapper li {

    display: inline;

    color: #fff;

    font-size: 16px;

    padding: 10px;

    text-align: center;

    border-bottom: 2px solid Transparent;

    position: relative;

}

.header-inner .Header .descriptionwrapper li::after {

    content: '';

    width: 0;

    position: absolute;

    border-bottom: 2px solid Transparent;

    bottom: 0;

    left: 0;

    transition: all 0.3s ease;

}

.header-inner .Header .descriptionwrapper li:hover::after {

    width: 100%;

    border-bottom: 2px solid white;

}

body {

    background: #ccc none repeat scroll top left;

}

.header-inner .Header .descriptionwrapper li a {

    color: #fff;

    text-decoration: none;

}

</style>

Div Tag in HTML

Here is a simple markup that I wrote using HTML and CSS to demonstrate how to use div tag in a web page. The code is very simple and easy to understand.

I am currently accepting programming work, IT projects, school and application development, programming projects, thesis and capstone projects, IT consulting work, computer tutorials, and web development work kindly contact me in the following email address for further details.  If you want to advertise on my website kindly contact me also in my email address also. Thank you.

My email address is the following jakerpomperada@gmail.com, jakerpomperada@aol.com, and jakerpomperada@yahoo.com.

My mobile number here in the Philippines is 09173084360.

My telephone number at home here in Bacolod City, Negros Occidental Philippines is  +63 (034) 4335675.

Here in Bacolod I also accepting computer repair, networking and Arduino Project development at a very affordable price.

My personal website is http://www.jakerpomperada.com.

Sample Program Output

Program Listing

index.htm

<htm>

  <title> div demonstration in HTML </title>

  <body>

  <style>

  body {

           font-family: arial;

           font-weight: bold;

           size:20;

  }

  </style>

<div style="background-color:yellow;text-align:center">

<p>http://www.jakerpomperada.blogspot.com</p>

</div>

<div style="background-color:lightblue;text-align:center">

<p>Created By Mr. Jake Rodriguez Pomperada</p>

</div>

<div style="background-color:lightgreen;text-align:center">

<p>CopyRight 2019 Jake R. Pomperada</p>

</div>

</body>

</htm>

Palindrome Number Using Visual Basic 6

In this article I would like to share with you guys a sample program that will ask the user to give a number and then the program will check if the given number is a palindrome or not a palindrome using Microsoft Visual Basic 6. The code is very short and very easy to understand.

I am currently accepting programming work, IT projects, school and application development, programming projects, thesis and capstone projects, IT consulting work, computer tutorials, and web development work kindly contact me in the following email address for further details.  If you want to advertise on my website kindly contact me also in my email address also. Thank you.

My email address is the following jakerpomperada@gmail.com, jakerpomperada@aol.com, 

and jakerpomperada@yahoo.com.

My mobile number here in the Philippines is 09173084360.

My telephone number at home here in Bacolod City, Negros Occidental Philippines is  +63 (034) 4335675.

Here in Bacolod I also accepting computer repair, networking and Arduino Project development at a very affordable price.

My personal website is http://www.jakerpomperada.com.

 

 

Sample Program Output

Program Listing

Private Sub Command1_Click()
Dim num, rev, tem As Integer

num = Val(Text1.Text)
tem = num

While tem > 0
   rev = rev * 10
   rev = rev + (tem Mod 10)
   tem = tem \ 10
Wend

Text2.Text = rev

If num = rev Then
Text2.Text = "The number " & Str(Text1.Text) & " is Palindrome."
Else
Text2.Text = "The number " & Str(Text1.Text) & " is Not a Palindrome."

End If

End Sub

Private Sub Command2_Click()
Form1.Text1.Text = ""
Form1.Text2.Text = ""
Form1.Text1.SetFocus
End Sub

Private Sub Command3_Click()
End
End Sub

Private Sub Form_Load()
Form1.Show
End Sub
 

Consonants Remove From a String in Visual Basic 6

In this article I would like to share with you guys a simple program that I wrote using Microsoft Visual Basic 6 that will ask the user to give a string and then the program will remove the consonants in the given string of the user.

I am currently accepting programming work, IT projects, school and application development, programming projects, thesis and capstone projects, IT consulting work, computer tutorials, and web development work kindly contact me in the following email address for further details.  If you want to advertise on my website kindly contact me also in my email address also. Thank you.

My email address is the following jakerpomperada@gmail.com, jakerpomperada@aol.com, 

and jakerpomperada@yahoo.com.

My mobile number here in the Philippines is 09173084360.

My telephone number at home here in Bacolod City, Negros Occidental Philippines is  +63 (034) 4335675.

Here in Bacolod I also accepting computer repair, networking and Arduino Project development at a very affordable price.

My personal website is http://www.jakerpomperada.com

Sample Program Output

Program Listing

Public Function StripChars(Inputme, Remove) As String

Dim n As Integer

    StripChars = Inputme
    For n = 1 To Len(Remove)
        StripChars$ = Replace$(StripChars, Mid(Remove, n, 1), "")
    Next n

End Function

Private Sub Command1_Click()
Dim str_val As String

str_val = StripChars(Form1.Text1.Text, "BCDFGHJKLMNPQRSTWXYZbcdfghjklmnpqrstwxyz")
Form1.Text2.Text = str_val

End Sub

Private Sub Command2_Click()
Form1.Text1.Text = ""
Form1.Text2.Text = ""
Form1.Text1.SetFocus
End Sub

Private Sub Command3_Click()
End
End Sub

Private Sub Form_Load()
Form1.Show
End Sub
 

 

Remove Vowels From a String in Visual Basic 6

In this article I would like to share with you guys a simple program that I wrote using Microsoft Visual Basic 6 that will ask the user to give a string and then the program will remove the vowels in the given string of the user.

I am currently accepting programming work, IT projects, school and application development, programming projects, thesis and capstone projects, IT consulting work, computer tutorials, and web development work kindly contact me in the following email address for further details.  If you want to advertise on my website kindly contact me also in my email address also. Thank you.

My email address is the following jakerpomperada@gmail.com, jakerpomperada@aol.com, 

and jakerpomperada@yahoo.com.

My mobile number here in the Philippines is 09173084360.

My telephone number at home here in Bacolod City, Negros Occidental Philippines is  +63 (034) 4335675.

Here in Bacolod I also accepting computer repair, networking and Arduino Project development at a very affordable price.

My personal website is http://www.jakerpomperada.com.

 

 

Sample Program Output

Program Listing

Public Function StripChars(Inputme, Remove) As String

Dim n As Integer

    StripChars = Inputme
    For n = 1 To Len(Remove)
        StripChars$ = Replace$(StripChars, Mid(Remove, n, 1), "")
    Next n

End Function

Private Sub Command1_Click()
Dim str_val As String

str_val = StripChars(Form1.Text1.Text, "AEIOUaeiou")
Form1.Text2.Text = str_val

End Sub

Private Sub Command2_Click()
Form1.Text1.Text = ""
Form1.Text2.Text = ""
Form1.Text1.SetFocus
End Sub

Private Sub Command3_Click()
End
End Sub

Private Sub Form_Load()
Form1.Show
End Sub

Average Grade Solver in VB.NET

In this article, I would like to share with you a simple program that will ask the grades in science, math, English, physical education and history. The program will compute the average grade of the student using Visual Basic NET.

I am currently accepting programming work, IT projects, school and application development, programming projects, thesis and capstone projects, IT consulting work, computer tutorials, and web development work kindly contact me in the following email address for further details.  If you want to advertise on my website kindly contact me also in my email address also. Thank you.

My email address is the following jakerpomperada@gmail.com, jakerpomperada@aol.com, and jakerpomperada@yahoo.com.

My mobile number here in the Philippines is 09173084360.

My telephone number at home here in Bacolod City, Negros Occidental Philippines is  +63 (034) 4335675.

Here in Bacolod I also accepting computer repair, networking and Arduino Project development at a very affordable price.

My personal website is http://www.jakerpomperada.com.

Sample Program Output

Program Listing

Public Class Form1

    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click

        Dim a, b, c, d, e1 As Integer

        Dim solve As Integer

        a = Val(TextBox1.Text)

        b = Val(TextBox2.Text)

        c = Val(TextBox3.Text)

        d = Val(TextBox4.Text)

        e1 = Val(TextBox5.Text)

        solve = (a + b + c + d + e1) / 5

        Label6.Text = "The Average Grade is " & Str(solve) & "."

    End Sub

    Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click

        TextBox1.Text = ""

        TextBox2.Text = ""

        TextBox3.Text = ""

        TextBox4.Text = ""

        TextBox5.Text = ""

        Label6.Text = ""

        TextBox1.Focus()

    End Sub

End Class