Product of Two Numbers Using Batch File in DOS

A simple script that I wrote using DOS Batch File to ask the user two numbers and the program will compute the product of two numbers 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

product.bat

@ECHO OFF

echo.

echo PRODUCT OF TWO NUMBERS USING BATCH IN DOS

ECHO.

echo. CREATED BY MR. JAKE R. POMPERADA

echo.

ECHO Enter First Value:

SET /P a=

ECHO Enter Second Value:

SET /P b=

ECHO.

SET /A Ans=%a%*%b%

ECHO The product of %a% and %b% is %Ans%.

ECHO.

ECHO Press any key to exit.

PAUSE>NUL

Print Numbers From 1 To 100 Using For Loop Statement in C++

A simple program that I wrote using a C++ programming language that will print a series of numbers from 1 to 100 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

for.cpp

// print100.cpp

// Author : Jake Rodriguez Pomperada

// Date   : October 4, 2019

// Location : Bacolod City, Negros Occidental Philippines

#include <iostream>

using namespace std;

int main() {

cout << "\n\n";

cout <<"\tPrint Numbers from 1 to 100 Using For Statement";

cout << "\n\n";

for (int a=1; a<=100; a++) {

cout <<" "<< a << " ";

}

cout << "\n\n";

cout <<"\tEnd of Program";

}

Print Numbers from 1 to 100 Using For Statement

Year Level Checker Using Switch Statement in C++

A simple program that I wrote using a switch statement to check if the given year level of the students belongs to freshmen, sophomore, juniors, seniors and invalid year level if the given year level does not belong to the group of values using C++.

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

switch_example.cpp

#include <iostream>

using namespace std;

int main() {

int year_level=0;

cout << "\tYear Level Checker Using Switch Statement in C++";

cout << "\n\n";

cout << "\tWhat is your year level? :";

cin >> year_level;

cout << "\n\n";

switch(year_level) {

case 1 : cout <<"\tYou belong to Freshmen.";

         break;

case 2 : cout <<"\tYou belong to Sophomore.";

         break;

case 3 : cout <<"\tYou belong to Juniors.";

         break;

case 4 : cout <<"\tYou belong to Seniors.";

         break;

default  : cout << "\tInvalid Year Level. Try Again";         

}

cout <<"\n\n";

cout <<"\tEnd of Program";

return 0;

}

Year Level of the Student Checker Using Switch Statement in C++

Increment And Decrement in C

A simple program that I wrote using the C programming language to demonstrate how to use increment and decrement operators.

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

#include <stdio.h>

int main() {

     

    int a=0,b=0;

a=9;

b = a++ + 5;  /* a=10  b=14 */

printf("\n");

  printf("\tConditional ternary operator ( ? )");

  printf("\n\n");

printf("The result is of a = %d and b = %d",a,b);

printf("\n\n");

a = 3;

b = ++a + 6; /* a = 4 b = 10 */

printf("\n\n");

printf("The result is of a = %d and b = %d",a,b);

printf("\n\n");

    printf("\tEnd of Program");

    printf("\n\n");

}

Add Class Navigational Menu Using JQuery

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 Add class nav menu using JQuery.

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

$(document).ready(function() {

$('#navbar-menus ul li a').click(function() {
$('#navbar-menus ul li.current').removeClass('current');
$(this).closest('li').addClass('current');
});

});

DOWNLOAD SOURCE CODE HERE

Microsoft Visual Basic 6 To Display Record in a Web Browser

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 display the record in a web browser.

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.

Add this control to your Visual Basic 6

Program Listing

FORM CODES

Sub LOAD_DATA()

    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:20px;} button{padding:30px; Background-color: blue; Margin: 10px; Color: #fff;}</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=pink><B>Namex </B></TH>")
        .Write ("</TR>")
        .Write ("</thead>")
        Do While AdoCon.Recordset.EOF <> True
        i = i + 1
        .Write ("<TR>")
        .Write ("<TD bgcolor=powderblue><FONT FACE=tahoma SIZE=5>" & 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_DATA
End Sub

MODULE CODES(DB Connection)

Option Explicit


Public Function AppDir() As String
    If Right$(App.Path, 1) = "\" Then
        AppDir = App.Path
    Else
        AppDir = App.Path & "\"
    End If
End Function

Public Sub SQLDB(adoObj As Adodc, AdoRec As String) 'for SQL Recordsource

    'Loads the database and provides the database password
    adoObj.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & AppDir & "Tutorial.mdb;Persist Security Info=False;Jet OLEDB:Database Password = "
 
    'Sets the command type to Table
    adoObj.CommandType = adCmdText
 
    'Loads the source table of info
    adoObj.RecordSource = AdoRec

    'refreshes database status
     adoObj.Refresh
End Sub

DOWNLOAD SOURCE CODE HERE

Picture Slider in Microsoft 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 Picture Slider.

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 Form_Load()
imgID = 1
End Sub

Private Sub Timer1_Timer()
On Error Resume Next
Me.Image1.Picture = LoadPicture(App.Path & "\images\" & imgID & ".jpg")
imgID = imgID + 1
Me.Label1.Caption = Me.Caption & imgID
If imgID > 5 Then
        imgID = 0
End If
End Sub

DOWNLOAD SOURCE CODE HERE

Loop Record in a ComboBox in Visual Basic and MS Access

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 and Microsoft Access Loop to Record in a ComboBox.

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

FORM CODES

Private Sub Form_Load()
Call SQLDB(Me.AdoCon, "select * from tblInfo Order by LASTNAME")
If Not (Me.AdoCon.Recordset.EOF And Me.AdoCon.Recordset.BOF) Then
Combo1.Clear
Do While Not Me.AdoCon.Recordset.EOF
    Combo1.AddItem Me.AdoCon.Recordset.Fields(1).Value
    Me.AdoCon.Recordset.MoveNext
    Combo1.ListIndex = 0
    Loop
 End If
End Sub

MODULE CODES(DB Connection)

Option Explicit

Public Function AppDir() As String
    If Right$(App.Path, 1) = "\" Then
        AppDir = App.Path
    Else
        AppDir = App.Path & "\"
    End If
End Function

Public Sub SQLDB(adoObj As Adodc, AdoRec As String) 'for SQL Recordsource

    'Loads the database and provides the database password
    adoObj.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & AppDir & "Tutorial.mdb;Persist Security Info=False;Jet OLEDB:Database Password = "
   
    'Sets the command type to Table
    adoObj.CommandType = adCmdText
   
    'Loads the source table of info
    adoObj.RecordSource = AdoRec

    'refreshes database status
     adoObj.Refresh
End Sub

DOWNLOAD SOURCE CODE HERE

Get Year and Quarter Using 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 Get Year and Quarter.

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 Form_Activate()
Me.lblY.Caption = Me.MonthView1.Year
Me.MonthView1.Value = Date
Me.Caption = Me.MonthView1.Month
If Me.Caption = "1" Or Me.Caption = "2" Or Me.Caption = "3" Then
    Me.lblQ.Caption = "1st Quarter"
ElseIf Me.Caption = "4" Or Me.Caption = "5" Or Me.Caption = "6" Then
    Me.lblQ.Caption = "2nd Quarter"
ElseIf Me.Caption = "7" Or Me.Caption = "8" Or Me.Caption = "9" Then
    Me.lblQ.Caption = "3rd Quarter"
ElseIf Me.Caption = "10" Or Me.Caption = "11" Or Me.Caption = "12" Then
    Me.lblQ.Caption = "4th Quarter"
End If
End Sub

DOWNLOAD SOURCE CODE HERE