Free Programming Source Codes and Computer Programming Tutorials: September 2019

Monday, September 30, 2019

Add Custom CSS/HTML and Display Records in Visual Basic 6

Here is a sample program that is being provided by my close friend, business partner and fellow software engineer Sir Larry Dave Emol. He created this program using Microsoft Visual Basic 6 to add custom CSS/HTML and display the records in Visual Basic 6.

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

Sub LOAD()

Dim i As Long

Call SQLDB(Me.AdoCon, "select distinct Namex from tblInfo Order by Namex")

Me.WebBrowser1.Navigate2 "About:Blank"

Do While Me.WebBrowser1.ReadyState <> READYSTATE_COMPLETE

DoEvents

Loop

With WebBrowser1.Document

.Write ("<button>Save</button>")

.Write ("<HTML><head></head><style type='text/css'> body,td{font-family: Tahoma;} body,td{font-size:16px;} button{padding:30px; Background-color: blue;}</style>")

.Write ("<BODY Scroll=Yes oncontextmenu='return false';>")

.Write ("<TABLE WIDTH=100% BORDER=1 BORDERCOLOR=#215DC6 CELLPADDING=1 CELLSPACING=1>")

.Write ("<thead>")

.Write ("<TR>")

.Write ("<TH BGCOLOR=#D6E9F7><B>Namex </B></TH>")

.Write ("</TR>")

.Write ("</thead>")

Do While AdoCon.Recordset.EOF <> True

i = i + 1

.Write ("<TR>")

.Write ("<TD bgcolor=#FFFFD2><FONT FACE=tahoma SIZE=1>" & AdoCon.Recordset.Fields("Namex").Value & "</TD>")

.Write ("</TR>")

AdoCon.Recordset.MoveNext

Loop

.Write ("</TABLE>")

.Write ("</BODY>")

.Write ("</HTML>")

WebBrowser1.Document.Script.Document.Clear

WebBrowser1.Document.Script.Document.Close

End With

End Sub

Private Sub Form_Activate()

Call LOAD

End Sub

Leap Year Checker in Visual Basic NET

Leap Year Checker Using Microsoft Visual Basic NET

In this article I would like to share a simple program that will ask the user to give a year and then the program will determine and check if the given year is a leap year or not a leap year using Microsoft Visual Basic NET.

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(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

Dim given_year As Integer

given_year = Val(TextBox1.Text)

If given_year Mod 100 = 0 Then

If given_year Mod 400 = 0 Then

MsgBox("The given year " & given_year & " is a Leap Year", vbInformation, "The Result")

Else

MsgBox("The given year " & given_year & " is a Not Leap Year", vbInformation, "The Result")

End If

Else

If given_year Mod 4 = 0 Then

MsgBox("The given year " & given_year & " is a Leap Year", vbInformation, "The Result")

Else

MsgBox("The given year " & given_year & " is a Not Leap Year", vbInformation, "The Result")

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

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

End

End Sub

End Class

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.

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

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.

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

Sunday, September 29, 2019

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.

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.

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>

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

</div>

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

</div>

</div>

</body>

</htm>

Saturday, September 28, 2019

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.

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