Square a Number in VB6

  A program that I wrote to ask the user to give a number and then the program will compute the square equivalent of the given number using Microsoft 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 at 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. My website is www.jakerpomperada.blogspot.com and www.jakerpomperada.com

If you like this video please click the LIKE button SHARE, and SUBSCRIBE to my channel.

Your support on my channel is highly appreciated.

Thank you very much. 

Program Listing

Private Sub Command1_Click()

Dim num_val, square As Integer

num_val = Val(Text1.Text)

square = Val(Text1.Text) * Val(Text1.Text)

Label2.Caption = "The square value of " & num_val & " is " & square & "."

End Sub

Private Sub Command2_Click()

Text1.Text = ""

Label2.Caption = ""

Text1.SetFocus

End Sub

Private Sub Command3_Click()

End

End Sub

Average of Three Numbers in Pascal

Average of Three Numbers in Pascal

 This program I wrote it will ask the user to give three numbers and then the program will compute the average of the three numbers using Pascal 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 at 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. My website is www.jakerpomperada.blogspot.com and www.jakerpomperada.com

If you like this video please click the LIKE button SHARE, and SUBSCRIBE to my channel.

Your support on my channel is highly appreciated.

Thank you very much. 

Program Listing

(* Average_Three_Numbers.pas

   Mr. Jake Rodriguez Pomperada, MAED-IT, MIT

   www.jakerpomperada.blogspot.com / www.jakerpomperada.com

   jakerpomperada@gmail.com

   Bacolod City, Negros Occidental Philippines.

   November 22, 2020   Sunday  5:56 AM

*)

Program Average_Three_Numbers;

Uses Crt;

Var a,b,c,average : Real;

Begin

  a:=0; b:=0; c:=0; average:= 0;

  Clrscr;

  Gotoxy(15,4);

  Write('Average of Three Numbers in Pascal');

  writeln; writeln;

  write('Give First  Value : ');

  readln(a);

  write('Give Second Value : ');

  readln(b);

  write('Give Third  Value : ');

  readln(c);

  average := (a+b+c) / 3;

  writeln;

  write('The average of ',a:5:2,' , ',b:5:2,' ,and '

        ,c:5:2, ' is ',average:5:2,'.');

  Gotoxy(20,12);

  Write('End of Program');

  Readln;

End.

Square a Number in VB.NET

Square a Number in VB.NET

 A program that I wrote to ask the user to give a number and then the program will compute the square equivalent 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 at 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. My website is www.jakerpomperada.blogspot.com and www.jakerpomperada.com

If you like this video please click the LIKE button SHARE, and SUBSCRIBE to my channel.

Your support on my channel is highly appreciated.

Thank you very much. 

Program Listing

Public Class Form1

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

        Dim square, num_val As Integer

        num_val = Val(TextBox1.Text)

        square = Val(TextBox1.Text) * Val(TextBox1.Text)

        Label2.Text = "The square value of " & num_val & " is " & square & "."

    End Sub

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

        End

    End Sub

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

        TextBox1.Text = ""

        Label2.Text = ""

        TextBox1.Focus()

    End Sub

End Class

Square Root a Number in Pascal

Square Root a Number in Pascal

 I wrote this program to ask the user to give a number and then the program will convert the given number into its square root equivalent using the Pascal 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 at 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. My website is www.jakerpomperada.blogspot.com and www.jakerpomperada.com

If you like this video please click the LIKE button SHARE, and SUBSCRIBE to my channel.

Your support on my channel is highly appreciated.

Thank you very much. 

Program Listing

(* Square_Root.pas

   Mr. Jake Rodriguez Pomperada, MAED-IT, MIT

   www.jakerpomperada.blogspot.com / www.jakerpomperada.com

   jakerpomperada@gmail.com

   Bacolod City, Negros Occidental Philippines.

   November 21, 2020   Saturday    5:46 AM

*)

Program Square_Root;

Uses Crt;

Var Num_Var,Solve_Sqrt : Real;

Begin

  Num_Var := 0.00;

  Solve_Sqrt := 0.00;

  Clrscr;

  Gotoxy(15,4);

  Write('Square Root a Number in Pascal');

  Gotoxy(15,6);

  Write('Give a Number : ');

  Readln(Num_Var);

  Solve_Sqrt := Sqrt(Num_Var);

  Gotoxy(15,8);

  Write('The square root value of '

  ,Num_Var:5:2, ' is ' ,Solve_Sqrt:5:2,'.');

  Gotoxy(15,10);

  Write('End of Program');

  Readln;

End.

How to write and run a program in Turbo C

Addition and Product of Two Numbers in C

I this tutorial I will show you how to write a program to ask the user to give two numbers and then the program will compute the sum and product of two numbers 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 at 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. My website is www.jakerpomperada.blogspot.com and www.jakerpomperada.com

If you like this video please click the LIKE button SHARE, and SUBSCRIBE to my channel.

Your support on my channel is highly appreciated.

Thank you very much. 

Program Listing

#include <stdio.h>

int main() {

    int a=0,b=0,sum=0,product=0;

    clrscr();

    printf("\n\n");

    printf("\tAddition and Product of Two Numbers in C");

    printf("\n\n");

    printf("\tEnter First Value  :");

    scanf("%d",&a);

    printf("\tEnter Second Value :");

    scanf("%d",&b);

    sum = (a+b);

    product = (a * b);

    printf("\n\n");

    printf("\tThe sum of %d and %d is %d.\n\n",a,b,sum);

    printf("\tThe product of %d and %d is %d.\n\n",a,b,product);

    printf("\n\n");

    printf("\tEnd of Program");

    printf("\n\n");

    getche();

 }

Square a Number in C++

Square a Number in C++

 I wrote this program to ask the user to give a number and then the program will compute the square equivalent of the given number 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 at 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. My website is www.jakerpomperada.blogspot.com and www.jakerpomperada.com

If you like this video please click the LIKE button SHARE, and SUBSCRIBE to my channel.

Your support on my channel is highly appreciated.

Thank you very much.

Program Listing

// square_number.cpp

// Jake Rodriguez Pomperada, MAED-IT, MIT

// www.jakerpomperada.com 

// www.jakerpomperada.blogspot.com

// jakerpomperada@gmail.com

// November 21, 2020   Saturday  8:52 PM

// Bacolod City, Negros Occidental, Philippines

#include <iostream>

int main()

{

int num_val = 0;

std::cout << "\n\n";

std::cout << "\tSquare a Number in C++";

std::cout << "\n\n";

std::cout << "\tGive a Number : ";

std::cin >> num_val;

std::cout << "\n";

std::cout << "\tThe square value of " <<

       num_val << " is " <<

       num_val * num_val << ".";

       

std::cout << "\n\n";       

std::cout << "\tEnd of Program";

std::cout << "\n\n";       

}

My Master in Information Technology Capstone Paper Presentation

Multiplication Table in Pascal

Multiplication Table in Pascal

 In this tutorial, I will show you how to create a multiplication table using Pascal 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 at 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. My website is www.jakerpomperada.blogspot.com and www.jakerpomperada.com

If you like this video please click the LIKE button,SHARE, and SUBSCRIBE to my channel.

Your support on my channel is highly appreciated.

Thank you very much.

Program Listing

(* Multiplication_Table.pas

   Mr. Jake Rodriguez Pomperada, MAED-IT, MIT

   www.jakerpomperada.blogspot.com / www.jakerpomperada.com

   jakerpomperada@gmail.com

   Bacolod City, Negros Occidental Philippines.

   November 22, 2020   Sunday  5:29 AM

*)

Program Multiplication_Table;

Uses Crt;

Var row,column : Integer;

Begin

  row := 0;  column := 0;

  Clrscr;

  Gotoxy(15,4);

  Write('Multiplication Table in Pascal');

  Gotoxy(15,6);

  For row := 1 To 12 Do

     Begin

       writeln;

      For column := 1 To 12 Do

       Begin

         write(row*column:4);

       End

   End;

  Gotoxy(20,20);

  Write('End of Program');

  Readln;

End.

Odd and Even Number in Pascal

Odd and Even Number in Pascal

  In this tutorial, I will show how to write a Pascal program that will 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 at 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. My website is www.jakerpomperada.blogspot.com and www.jakerpomperada.com

If you like this video please click the LIKE button,SHARE, and SUBSCRIBE to my channel.

Your support on my channel is highly appreciated.

Thank you very much.

Program Listing

(* odd_even.pas

   Mr.Jake Rodriguez Pomperada,MAED-IT, MIT

   www.jakerpomperada.com

   jakerpomperada@gmail.com

   Bacolod City, Negros Occidental, Philippines

*)

Program odd_even;

Uses Crt;

Var num : integer;

Begin

  Clrscr;

  Writeln;

  textcolor(White);

  Write('Odd and Even Number in Pascal');

  Writeln;

  Writeln;

  Write('Enter First Number  : ');

  Readln(num);

  Writeln;

  Writeln;

     if (num mod 2 = 0 )  then

          Begin

            Write('The given number ',num, ' is even number.');

          End

       Else

          Begin

            Write('The given number ',num, ' is odd number.');

       End;

  Writeln;

  Writeln;

  Write('End of Program');

  Writeln;

  Readln;

End.

Divide Two Numbers in Pascal

Class and Object in C++

Class and Object Example in C++

 In this tutorial, I will show how to write a C++ that demonstrates how to create a class and an object.

 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 at 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. My website is www.jakerpomperada.blogspot.com and www.jakerpomperada.com

If you like this video please click the LIKE button, SHARE, and SUBSCRIBE to my channel.

Your support on my channel is highly appreciated.

Thank you very much.

Program Listing

// class_object.cpp

// Jake Rodriguez Pomperada, MAED-IT, MIT

// www.jakerpomperada.com / www.jakerpomperada.blogspot.com

// jakerpomperada@gmail.com

#include <iostream>

class class_object

{

public:

void display_result()

{

std::cout<<"\n\n";

std::cout<<"\tClass and Object Example in C++";

std::cout<<"\n\n";

std::cout<<"\tEnd of Program";

std::cout<<"\n\n";

}

};

int main()

{

     class_object object_test;

object_test.display_result();

}

 

Largest of Three Numbers in C