Monday, November 25, 2019

Legal Age Checker in C

I wrote this program that will ask the user to give its age and then the program will check and determine whether the given age of the user is already an adult or still a minor 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 City, Negros Occidental I also accepting computer repair, networking and Arduino Project development at a very affordable price.

My Facebook address is https://www.facebook.com/profile.php?...

My personal website is http://www.jakerpomperada.com

My programming website is http://www.jakerpomperada.blogspot.com

I am also a book author you can purchase my books on computer programming and information technology in the following links below.



Thank you very much for your help and support.




Sample Program Output



Program Listing

legal_age.c

#include <stdio.h>

int main()
{
int age=0;
printf("\n\n");
printf("\tLegal Age Checker in C");
printf("\n\n");
printf("\tGive your Age? ");
scanf("%d",&age);
if (age>=18) {
printf("\n");
printf("\tAt the age of %d you are already an Adult.",age);
  } else {
printf("\n");
printf("\tAt the age of %d you are still a Minor.",age);
  }
  printf("\n\n");
printf("\tEnd of Program");
printf("\n");
}


Decimal To Roman Numeral Converter in JavaScript

I wrote this program to ask the user to give a year and then the program will convert the given decimal number into roman numeral equivalent using JavaScript.

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

My Facebook address is https://www.facebook.com/profile.php?...

My personal website is http://www.jakerpomperada.com

My programming website is http://www.jakerpomperada.blogspot.com

I am also a book author you can purchase my books on computer programming and information technology in the following links below.



Thank you very much for your help and support.




Sample Program Output


Program Listing

index.htm

<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
<html>
<head>
<title>Decimal To Roman Numeral Converter in Javascript</title>
</head>
<script>

function integer_to_roman(num) {
if (typeof num !== 'number') 
return false; 

var digits = String(+num).split(""),
key = ["","C","CC","CCC","CD","D","DC","DCC","DCCC","CM",
"","X","XX","XXX","XL","L","LX","LXX","LXXX","XC",
"","I","II","III","IV","V","VI","VII","VIII","IX"],
roman_num = "",
i = 3;
while (i--)
roman_num = (key[+digits.pop() + (i * 10)] || "") + roman_num;
return Array(+digits.join("") + 1).join("M") + roman_num;
}

function processFormData() 
{

  var inputs = parseInt(document.getElementById('txt_name').value);

    alert("The equivalent in roman numeral is " + integer_to_roman(inputs));
  
}
</script>
<body>
<br>
<h3> Decimal To Roman Numeral in JavaScript </h3>
<div>
<p><label for="name">Give Decimal Number: </label><input type="text" name="name" id="txt_name"></p>
<p><input type="button" name="submit" value="submit" onclick="processFormData();" ></p>
</div> 
</body>
</html>

Curly Brackets in PHP

I simple program that I wrote using PHP as my programming language to demonstrate the use of curly brackets.

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

My Facebook address is https://www.facebook.com/profile.php?...

My personal website is http://www.jakerpomperada.com

My programming website is http://www.jakerpomperada.blogspot.com

I am also a book author you can purchase my books on computer programming and information technology in the following links below.



Thank you very much for your help and support.


Sample Program Output


Program Listing

demo.php

<?php

$a=1;
$b=5;

$sum = $a + $b;

echo " $a + $b = {$sum}";

?>

Area of the Circle in Visual Basic 6

I wrote this program to ask the user to give radius value and the program will compute the area of the circle 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 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, Negros Occidental I also accepting computer repair, networking and Arduino Project development at a very affordable price.

My Facebook address is https://www.facebook.com/profile.php?...

My personal website is http://www.jakerpomperada.com

My programming website is http://www.jakerpomperada.blogspot.com

I am also a book author you can purchase my books on computer programming and information technology in the following links below.



Thank you very much for your help and support.



Sample Program Output



Program Listing

Private Sub Command1_Click()
Dim r, area
r = Val(Text1.Text)
area = ((3.1416 * r ^ 2) * 100) / 100
display = Format(Round(area, 2), "#,##0.00")

MsgBox ("The area of the circle is " & display & ".")
Text1.Text = ""
Text1.SetFocus
End Sub

Private Sub Command2_Click()
End
End Sub


Square Root Solver in Visual Foxpro

I wrote this simple program to ask the user to give a number and then the program will solve the square root equivalent of the given number using Microsoft 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 City, Negros Occidental I also accepting computer repair, networking and Arduino Project development at a very affordable price.

My Facebook address is https://www.facebook.com/profile.php?...

My personal website is http://www.jakerpomperada.com

My programming website is http://www.jakerpomperada.blogspot.com

I am also a book author you can purchase my books on computer programming and information technology in the following links below.



Thank you very much for your help and support.






Sample Program Output


Program Listing

* Ok Button 

num_val = VAL(thisform.text1.value)

result = SQRT(num_val)

messagebox("The Square Root Value of "+ ALLTRIM(STR(num_val))+ " is " + ALLTRIM(STR(result))+ ".",64,"The Result")
thisform.text1.Value=""
thisform.text1.setfocus()

* Quit Button

thisform.release

Power of a Number in Visual Foxpro

I wrote this simple program to ask the user to give a base and exponent value and then the program will compute the power value of the given number in base and exponent using Microsoft 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 City, Negros Occidental I also accepting computer repair, networking and Arduino Project development at a very affordable price.

My Facebook address is https://www.facebook.com/profile.php?...

My personal website is http://www.jakerpomperada.com

My programming website is http://www.jakerpomperada.blogspot.com

I am also a book author you can purchase my books on computer programming and information technology in the following links below.



Thank you very much for your help and support.




Sample Program Output


Program Listing

* Ok Button 
base = VAL(thisform.text1.value)
exponent = VAL(thisform.text2.value)

result = base ** exponent

messagebox("The result is " + ALLTRIM(STR(result))+ ".",64,"The Result")
thisform.text1.Value=""
thisform.text2.Value=""
thisform.text1.setfocus()

* Quit Button
thisform.release




Legal Age Checker in Visual Foxpro 9

I wrote this simple program that will ask the user to give their age and then the program will check and determine if the given age is already an Adult or Still a Minor.


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

My Facebook address is https://www.facebook.com/profile.php?...

My personal website is http://www.jakerpomperada.com

My programming website is http://www.jakerpomperada.blogspot.com

I am also a book author you can purchase my books on computer programming and information technology in the following links below.



Thank you very much for your help and support.




Sample Program Output


Program Listing

* Ok Button 
age = VAL(thisform.text1.value)


IF (age>=18) then
  messagebox("You are already an Adult",64,"Legal Age Checker Results")
    thisform.text1.value =""
  thisform.text1.setfocus()
 ELSE
  messagebox("You still a Minor.",64,"Legal Age Checker Results")
  thisform.text1.value =""
    thisform.text1.setfocus()
ENDIF 

* Quit Button
thisform.release


Sunday, November 24, 2019

Legal Age Checker in Microsoft Visual Basic 6

I wrote this program using Microsoft Visual Basic 6 to ask the user to give an age if the given age is greater than or equal to 18 years old the user is already an adult else the user is still a minor.

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


My personal website is http://www.jakerpomperada.com

My programming website is http://www.jakerpomperada.blogspot.com

I am also a book author you can purchase my books on computer programming and information technology in the following links below.



Thank you very much for your help and support.




Sample Program Output


Program Listing

Option Explicit

Private Sub Command1_Click()
Dim age As Integer

age = Val(Text1.Text)

If (age >= 18) Then
   MsgBox ("At the age of " & age & " you are already an ADULT.")
   Text1.Text = ""
   Text1.SetFocus
Else
   MsgBox ("At the age of " & age & " you are still a MINOR.")
   Text1.Text = ""
   Text1.SetFocus
 End If
End Sub

Private Sub Command2_Click()
End
End Sub