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

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(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 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.

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

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



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.

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>


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.

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