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

Year Level Checker Using Batch File in DOS

Here is a simple DOS batch file script that I wrote to check if the given year level by the student belongs to freshmen, sophomore, juniors or seniors. The script is very simple and easy to understand for beginners.

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 year_level.bat

REM YEAR LEVEL CHECKER USING DOS BATCH FILE

REM AUTHOR  : JAKE RODRIGUEZ POMPERADA

REM DATE    : SEPTEMBER 27, 2019

REM EMAIL   : jakerpomperada@gmail.com

REM WEBSITE : http://www.jakerpomperada.com

ECHO OFF

:BEGIN

CLS

ECHO.

ECHO YEAR LEVEL CHECKER IN DOS BATCH FILE

ECHO.

echo.    JAKE RODRIGUEZ POMPERADA

echo.

set /p choice="Enter your year level [1,2,3,4] : "

IF '%choice%'=='1' GOTO ONE

IF '%choice%'=='2' GOTO TWO

IF '%choice%'=='3' GOTO THREE

IF '%choice%'=='4' GOTO FOUR

GOTO END

:ONE

ECHO.

ECHO YOU BELONG TO FRESHMEN.

GOTO END

:TWO

ECHO.

ECHO YOU BELONG TO SOPHOMORE.

GOTO END

:THREE

ECHO.

ECHO YOUR BELONG TO JUNIORS.

GOTO END

:FOUR

ECHO.

ECHO YOU BELONG TO SENIORS.

:END

echo.

pause

ECHO.

ECHO END OF PROGRAM

Product of Two Numbers Using C++ Functions

In this article, I would like to discuss how to create a function to ask the user to give two numbers and then the program will compute the product of two numbers and display the results on the screen using C++ programming language.

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.

Program Listing

// product.cpp

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

// Date   : September 27, 2019   Friday   5:55 AM

// Location : Bacolod City, Negros Occidental Philippines

#include <iostream>

using namespace std;

int solve_product(int a, int b); // function prototype

int main() {

int x=0,y=0;

cout <<"\n\n";

cout <<"\tProduct of Two Numbers Using Functions in C++";

cout <<"\n\n";

cout << "\tGive Two Numbers : ";

cin >> x >> y;

cout <<"\n\n";

cout <<"\tThe product of " 

     << x << " and " << y << " is "

     << solve_product(x,y) << ".";

     

cout <<"\n\n";

cout << "\tEnd of The Program.";

}

int solve_product(int a, int b)

{

return(a*b);

}