Friday, October 9, 2020

Leap Year Checker in Visual Basic NET

Leap Year Checker in Visual Basic NET

 A simple program that I wrote using Microsoft Visual Basic NET that will ask the user to give a year and then the program will check if the given year is a leap year or not a leap year.

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.

Program Listing

' Author : Jake Rodriguez Pomperada,MAED-IT, MIT
' Visual Basic NET
' jakerpomperada@gmail.com
' Bacolod City, Negros Occidental Philippines
' www.jakepomperada.com / www.jakerpomperada.blogspot.com

Public Class Form1

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

        y = Val(TextBox1.Text)
        If y Mod 100 = 0 Then
            If y Mod 400 = 0 Then
                Label2.Text = "The given year " & y & " is a Leap year."
            Else
                Label2.Text = "The given year " & y & " Not is a Leap year."

            End If
        Else
            If y Mod 4 = 0 Then
                Label2.Text = "The given year " & y & " is a Leap year."
            Else
                Label2.Text = "The given year " & y & " Not is a Leap year."
            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 = ""
        Label2.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

Higher order systems

Leap Year Checker in C++

Leap Year Checker in C++

 A program that I wrote using C++ to ask the user to give a year and then the program will check if the given year is a leap year or not a leap year.

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.

Program Listing

/* leap_year.cpp
 * Author  : Mr. Jake Rodriguez Pomperada,MAED-IT,MIT
 * Date    : October 9, 2020   Friday
 * Website : www.jakerpomperada.com / www.jakerpomperada.blogspot.com
 * Email   : jakerpomperada@gmail.com
 * Place   : Bacolod City, Negros Occidental Philippines
 */

#include <iostream>

using namespace std;

int main(void)
{
    int year=0;

    cout<<"\n\n";
    cout <<"\tLeap Year Checker in C++";
cout <<"\n\n";
cout <<"\tGiven a year : ";
    cin >>year;
    cout << "\n\n";
    if ((year % 400) == 0)
        cout <<"\tThe given year " << year << " is a leap year. \n";
    else if ((year % 100) == 0)
        cout <<"\tThe given year " << year << " is a not leap year. \n";
    else if ((year % 4) == 0)
        cout <<"\tThe given year " << year << " is a leap year. \n";
    else
        cout <<"\tThe given year " << year << " is a not leap year. \n";
    cout <<"\n\n";
    cout <<"\tEnd of Program";
    cout <<"\n\n";
} // End of Program



Memories of my Journey as Software Engineer Team Lead in Manila

US Dollar To Philippine Peso Converter in C++

US Dollar To Philippine Peso Converter

 

Write a program to convert the US Dollar ($) into Philippine Peso. Assume that one  US Dollar is equivalent to 50.74 Pesos. Then display the result on the screen Using C++ 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.

Program Listing

// us_peso.cpp
// Author  : Jake Rodriguez Pomperada,MAED-IT,MIT
// Date    : October 9, 2020   Friday  6:25 AM
// Website : www.jakerpomperada.com / www.jakerpomperada.blogspot.com
// Email   : jakerpomperada@gmail.com
// Place   : Bacolod City, Negros Occidental Philippines

#include <iostream>
#include <iomanip>

const double Dollar2Peso = 50.74;

int main()
{
    double amount=0.00;
    std::cout << "\n\n";
    std::cout << "\tUS Dollar To Philippine Peso Converter";
    std::cout << "\n\n";
    std::cout << "\tEnter amount in $ US Dollar : ";
    std::cin >> amount;
    std::cout << std::setprecision(2);
    std::cout << std::fixed;
    std::cout << "\n";
    std::cout << "\tAmount in Philippines Peso: "
              << amount * Dollar2Peso << '\n';
    std::cout << "\n";
    std::cout << "\tEnd of Program";
    std::cout << "\n\n";
}


Thursday, October 8, 2020

GURO NA NAWALAN NG 1 PAA, TINABLA NG GSIS SA DISABILITY BENEFITS. DAPAT ...

Leap Year Checker in C

Leap Year Checker in C

 A program that I wrote to ask the user to give a year and then the program will determine whether the given year is a leap year or not a leap year.

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.

Program Listing

/* leap_year.c
 * Author  : Mr. Jake Rodriguez Pomperada,MAED-IT,MIT
 * Date    : October 8, 2020   Thursday
 * Website : www.jakerpomperada.com / www.jakerpomperada.blogspot.com
 * Email   : jakerpomperada@gmail.com
 * Place   : Bacolod City, Negros Occidental Philippines
 */

#include <stdio.h>
#include <stdlib.h>

int main(void)
{
    int year=0;
    int reply=0;
    
   do {
    printf("\n\n");
    printf("\tLeap Year Checker in C");
printf("\n\n");
printf("\tGive a year :");
    scanf("%d", &year);
    printf("\n\n");
    if ((year % 400) == 0)
        printf("\tThe given year %d is a leap year. \n", year);
    else if ((year % 100) == 0)
        printf("\tThe given year%d is a not leap year. \n", year);
    else if ((year % 4) == 0)
        printf("\tThe given year%d is a leap year. \n", year);
    else
        printf("\tThe given year%d is not a leap year. \n", year);
    
    printf("\n\n");
    printf("\tEnd of Program");
    printf("\n\n");
system("pause");
}
        
        


Leap Year Checker in Pascal

Leap Year Checker in Pascal

 A simple program that I wrote using FreePascal as my compiler to ask the user to give a year and then the program will check if the given year is a leap year or not.

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.

Program Listing

(* leap_year.pas
   Author   : Jake Rodriguez Pomperada, MAED-IT, MIT
   Date     : October 8, 2020  Thursday
   Website  : www.jakerpomperada.com  / www.jakerpomperada.blogspot
   Email    : jakerpomperada@gmail.com
   Location : Bacolod City, Negros Occidental  *)


Program Leap_Year;
Uses Crt, sysutils;

Var nYear : integer;


Begin
  Clrscr;
  writeln;
  writeln('   Leap Year Checker in Pascal      ');
  writeln('           Created  By               ');
  Writeln(' Jake Rodriguez Pomperada,MAED-IT, MIT');
  Writeln;
  Writeln;
  write('Give a Year : ');
  readln(nYear);
  Writeln;

   if IsLeapYear(nYear) = true then
   Begin
     Writeln;
     Write('The given year ' ,nYear, ' is a Leap Year.');
   End
   else
     Begin
     Writeln;
     Writeln('The given year ' ,nYear,' not a Leap Year.');
   End;
   writeln; Writeln;
   write('End of Program');
   Readln;
  End.


Wednesday, October 7, 2020

GYM DAY! UFC Singapore

Even and Odd Number Checker in C++

Even and Odd Number Checker in C++

 A simple program that I wrote using C++ to ask the user to give a number and then the program will check if the given number is an odd or even 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.

Program Listing

// odd_even.cpp
// Author   : Jake Rodriguez Pomperada,MAED-IT, MIT
// Date     : October 7, 2020   9:55 PM
// Website  : www.jakerpomperada.com / www.jakerpomperada.blogspot.com
// Email    : jakerpomperada@gmail.com

#include <iostream>


using namespace std;

int main() {

   int num=0;

   cout << "\n\n";
   cout << "\tEven and Odd Number Checker in C++";
   cout << "\n\n";
   cout << "\tGive a Number : ";
   cin >> num;
   cout << "\n\n";

   if(num % 2 == 0)
      cout<<"\tThe given number "<<num<<" is an even number.";
   else
      cout<<"\tThe given number "<<num<<" is an odd number.";
    cout << "\n\n";
   cout << "\tEnd of Program";
   cout << "\n\n";
}

MYPRO POWER BANK Unboxing Video

Leap Year Checker in Visual FoxPro Version 2

 A program that I wrote using Microsoft Visual Foxpro will ask the user to give a year and then the program will check and determine whether the given year by the user is a leap year or not a leap year.

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


* Command Button

nYear = VAL(thisform.text1.Value)

IF NOT EMPTY(DATE(nYear, 2, 29))
MESSAGEBOX("The given year " + LTRIM(STR(nYear)) + " is a Leap year.","The Result",64)
thisform.text1.SetFocus
ELSE
MESSAGEBOX("The given year " + LTRIM(STR(nYear)) + " is Not Leap year.","The Result",64)
thisform.text1.SetFocus
ENDIF

* Clear Button

WITH thisform
     .text1.value = ""
     .text1.setfocus
 endwith
    

* Quit Program Button

IF MESSAGEBOX("Are you sure you want to exit the application?",36)=6
   QUIT
ELSE
 thisform.text1.Value = ""
 thisform.text1.SetFocus
endif 




Tuesday, October 6, 2020

Area of a Circle in Visual Foxpro

Area of the Circle in Visual Foxpro Version 2.0

 This is my second version of area of the circle solver using Microsoft Visual Foxpro I just improve the code much shorter and efficient compared to version one I hope you will find my work useful.

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 City I also accepting computer repair, networking and Arduino Project development at a very affordable price.



Sample Program Output


Program Listing


* Compute Button

IF EMPTY(thisform.txtradius.value) then
   MESSAGEBOX("Cannot be empty. Please Try Again")
   thisform.txtradius.setfocus
ELSE
radius = val(thisform.txtradius.value) 
area = (3.1416 * radius * radius);

final_solve= round(area,2)

thisform.label2.caption = "The area of the circle is " + ltrim(padl(final_solve, 5))
ENDIF


* Clear Button
thisform.txtradius.value =""
thisform.label2.caption =""
thisform.txtradius.SetFocus

* Quit Button
IF MESSAGEBOX("Are you sure you want to exit this program?",36)=6
   thisform.release
ENDIF
thisform.txtradius.Value = ""
thisform.txtradius.SetFocus