Login in Visual Foxpro 9

 A database driven login system with three attempt security feature that I wrote using Microsoft Visual FoxPro 9.0

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

* Written By: Mr. Jake Rodriguez Pomperada,MAED-IT,MIT

* Microsoft Visual Foxpro 9

* jakerpomperada@gmail.com

* Bacolod City, Negros Occidental, Philippines

* 

* Object : Command1     Proceudre: Click 

cMessageTitle = 'Information'

mcMsg1 = "After Three Attempts. Invalid Username or Password."

mnLenMsg1 = LEN(mcMsg1)

mcMsg2 = "Kindly contact the programmer for assistance."

cMessageText = mcMsg1;

      + CHR(13);

      + mcMsg2

nDialogType = 0 + 48 + 0

SELECT login

thisform.text3.Value = thisform.text3.Value -1

if thisform.text3.Value < 1

MESSAGEBOX(cMessageText, nDialogType, cMessageTitle)

    THISFORM.Release()

Else

 

IF EMPTY(ALLTRIM(THISFORM.Text1.Value))

messagebox("Cannot continue without Username.")

thisform.text1.setfocus()

ELSE

IF EMPTY(ALLTRIM(THISFORM.text2.Value))

messagebox("Cannot continue without Password.")

thisform.text1.setfocus()

ELSE

 locate for allt(lower(username))=allt(lower(login.text1.value)) ;

     .and. allt(lower(pass_me))=allt(lower(login.text2.value))

     if found()

        DO FORM main_page

     ELSE

        messagebox("Incorrect Username or Passsword. Try Again") 

    thisform.text1.value =""

         thisform.text2.value =""

         thisform.text1.setfocus()

    ENDIF

ENDIF

ENDIF

ENDIF

* Written By: Mr. Jake Rodriguez Pomperada,MAED-IT,MIT

* Microsoft Visual Foxpro 9

* jakerpomperada@gmail.com

* Bacolod City, Negros Occidental, Philippines

* 

* Object : Command2    Procedure: Click

thisform.Release

* Written By: Mr. Jake Rodriguez Pomperada,MAED-IT,MIT

* Microsoft Visual Foxpro 9

* jakerpomperada@gmail.com

* Bacolod City, Negros Occidental, Philippines

* 

* Object : Form1    Procedure: Init

THISFORM.Text3.Value = 3

Download the complete and free source code here

Addition of Two Numbers in Visual Foxpro

Addition of Two Numbers in Visual Foxpro

 Write a Visual Foxpro program to ask the user to give two numbers and then the program will compute the sum of the two numbers given by 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

Program Listing

* Compute Button

a = VAL(thisform.Text1.value)

b =VAL(thisform.Text2.value)

total_sum = (a+b)

thisform.text3.value = LTRIM(STR(total_sum))

* Clear Button

thisform.text1.Value = ""

thisform.text2.Value = ""

thisform.text3.Value = ""

thisform.text1.setfocus()

* Quit Button

thisform.Release

Odd and Even Number Checker in Visual FoxPro

Odd and Even Number Checker in Visual Foxpro

 A simple program to ask the user to give a number and then the program will check if the given number is an odd or even number using Visual Foxpro

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

* Ok Button 

num_val = VAL(thisform.text1.value)

IF (num_val % 2 = 0) then

messagebox("The given number "+ ALLTRIM(STR(num_val))+ " is " + " and Even Number.",64,"The Result")

thisform.text1.Value=""

thisform.text1.setfocus()

ELSE

messagebox("The given number "+ ALLTRIM(STR(num_val))+ " is " + " and Odd Number.",64,"The Result")

thisform.text1.Value=""

thisform.text1.setfocus()

ENDIF

* Quit Button

thisform.release

Area of the Circle in C++

Area of the Circle in C++

 A simple program to ask the user to give the radius of the circle and then it will compute the area of the circle using the 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

// C++ program to calculate area of the circle

// Author   : Jake Rodriguez Pomperada, MAED-IT,MIT

// Date     : September 18, 2020

// Email    : jakerpomperada@gmail.com

// Location : Bacolod City, Negros Occidental, Philippines

#include <iostream>

#include <iomanip>

using namespace std;

 int main() {

   float radius=0.00, area_circle=0.00;

  

   cout <<"\n\n"; 

   cout <<"\tArea of the Circle in C++"; 

   cout <<"\n\n"; 

   cout << "\tGive radius of circle: ";

   cin >> radius;

   area_circle = 3.14 * radius * radius;

   

   cout << fixed << showpoint;

   cout << setprecision(2);

   cout <<"\n"; 

   cout << "\tThe Area of the circle is " << area_circle;

   cout <<"\n\n"; 

   cout <<"\tEnd of the Program";

}

How to use and run a C++ program using Dev C++

Addition of Four Numbers in C++

 A simple program to ask the user to give four numbers and then the program will compute the sum of the four values given by the user 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

// Addition of Four Numbers in C++

// Author : Jake Rodriguez Pomperada,MAED-IT,MIT

// Date   : September 17, 2020

// Location : Bacolod City, Negros Occidental Philippines

// Email   : jakerpomperada@gmail.com

#include <iostream>

using namespace std;

int main() {

int sum=0,a=0,b=0,c=0,d=0;

cout << "\tAddition of Four Numbers in C++";

cout << "\n\n";

cout << "\tGive Four Numbers : ";

cin >> a >> b >> c >> d;

sum = (a+b+c+d);

cout << "\n\n";

cout << "\tThe total sum is " << sum << ".";

}

Swapping of Two Numbers in PHP

Swapping of Two Numbers in PHP

 A simple program to demonstrate how to swap two numbers in PHP 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

index.php

<?php  

$a = 400;  

$b = 800;  

echo "<h2>Swapping of Two Values in PHP";

echo "<br><br>";

echo "Before swapping:<br>";  

echo "a =".$a."  b=".$b; 

echo "<br><br>"; 

// Swapping of Values 

$third = $a;  

$a = $b;  

$b = $third;  

echo "After swapping:<br>";  

echo "a =".$a."  b=".$b; 

echo "</h2>";

?>  

Square Root a Number in VB NET

Square Root a Number in VB.NET

 I wrote this simple program using Microsoft Visual Basic.NET to ask the user to give a number and then the program will compute the square root value of the given 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

Program Listing

Public Class Form1

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

        Dim result As DialogResult = MessageBox.Show("Do you want to quit?", _

                             "Quit Program", _

                             MessageBoxButtons.YesNo)

        If (result = DialogResult.Yes) Then

            End

        Else

            TextBox1.Text = ""

            TextBox2.Text = ""

            TextBox1.Focus()

        End If

    End Sub

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

        Dim num_compute As Integer = Math.Sqrt(CInt(TextBox1.Text))

        TextBox2.Text = num_compute.toString

    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

 

Cube a Number in VB NET

Cube a Number in VB.NET

 A simple program that I wrote that will ask the user to give a number and then the program will compute the cube value of the given number 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

Program Listing

Public Class Form1

    Function cube(ByVal n As Integer) As Integer

        Return Math.Pow(n, 3)

    End Function

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

        Dim result As DialogResult = MessageBox.Show("Do you want to quit?", _

                             "Quit Program", _

                             MessageBoxButtons.YesNo)

        If (result = DialogResult.Yes) Then

            End

        Else

            TextBox1.Text = ""

            TextBox2.Text = ""

            TextBox1.Focus()

        End If

    End Sub

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

        Dim num_compute As Integer = cube(CInt(TextBox1.Text))

        TextBox2.Text = num_compute.toString

    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

Decimal To Binary Converter in VB.NET

 Write a Visual Basic.NET program to ask the user to give a decimal value and thenthe program will convert into binary value.

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

Public Class Form1

    Public Shared Function DecimalToBinary(dec As Integer) As String

        If dec < 1 Then Return "0"

        Dim binStr As String = String.Empty

        While dec > 0

            binStr = binStr.Insert(0, (dec Mod 2).ToString())

            dec = Int(dec / 2)

        End While

        Return binStr

    End Function

    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click

        Dim data = CInt(TextBox1.Text)

        Dim value = DecimalToBinary(data)

        TextBox2.Text = value.ToString

    End Sub

    Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click

        TextBox1.Text = ""

        TextBox2.Text = ""

        TextBox1.Focus()

    End Sub

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

        End

    End Sub

End Class

Sum of Digits in Visual Basic.NET

 Write a Visual Basic.NET program to ask the user to give a series of number and then the

program will calculate the sum of the digits of a given 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

Program Listing

Public Class Form1

    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click

        Dim n, sum, r As Integer

        Dim display As String

        n = CInt(TextBox1.Text)

        sum = 0

        While n <> 0

            r = n Mod 10

            sum += r

            n \= 10

        End While

        display = sum.ToString()

        TextBox2.Text = display

    End Sub

    Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click

        TextBox1.Text = ""

        TextBox2.Text = ""

        TextBox1.Focus()

    End Sub

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

        End

    End Sub

End Class

Odd and Even Number in Java

Odd and Even Number Checker in Java

 Write a program using Java programming language to ask the user to give a number and then the program will check and determine whether the given number is an 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

Program Listing

// odd_even.java

// Jake Rodriguez Pomperada,MAED-IT,MIT

// www.jakerpomperada.com

// jakerpomperada@gmail.com

// Bacolod City, Negros Occidental, Philippines.

package odd_even;

import java.util.Scanner;

public class odd_even {

public static void main(String[] args) {

        Scanner reader = new Scanner(System.in);

        

        System.out.println("\n");

    System.out.print("\t\tOdd and Even Number Checker in Java");

    System.out.println("\n");

    

        System.out.print("\tEnter a number: ");

        int num = reader.nextInt();

        

        System.out.println();

        

        if(num % 2 == 0)

            System.out.println("\tThe given number " 

            + num + " is an Even Number.");

        else

            System.out.println("\tThe given number " 

                     +num + " is an Odd Numbe.r");

System.out.println("\n");

     System.out.println("\tEnd of Program");

     System.out.println("\n\n");

}

}