Free Programming Source Codes and Computer Programming Tutorials: February 2018

Tuesday, February 27, 2018

Palindrome Checker in C

Here is a simple program that will ask the user to give a string and our program will check if the given string is a Palindrome or not Palindrome using C language.

I am currently accepting programming and web development work kindly contact me in the following email address for further details. Thank you.

My email address are the following jakerpomperada@gmail.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 is (034) 4335675.

Sample Program Output

Program Listing

palindrome.c

#include <stdio.h>

#include <string.h>

int main()

{

char str_name[100], b[100];

printf("PALINDROME CHECKER IN C ");

printf("\n\n");

printf("Give a String : ");

gets(str_name);

strcpy(b,str_name);

strrev(b);

if (strcmp(str_name,b) == 0) {

printf("\n\n");

printf("The given string %s is a palindrome.\n",str_name);

}

else{

printf("\n\n");

printf("The given string %s is not a palindrome.\n",str_name);

}

return 0;

}

Prime Number Checker in JQuery

In this article I would like to share with you a sample program to accept a number from our user and then our program will check if the given number in a Prime Number or Not a Prime Number using JQuery.

I am currently accepting programming and web development work kindly contact me in the following email address for further details. Thank you.

My email address are the following jakerpomperada@gmail.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 is (034) 4335675.

Sample Program Output

Program Listing

<!DOCTYPE html>

<html>

<head>

</script>

<style>

body {

background-color: lightgreen;

font-family: arial;

font-size: 15px;

}

</style>

$(document).ready(function() {

var res = 0;

var number = parseInt($("#txtnum").val());

$("#txtnum").keypress(function(e) {

if (e.which >= 48 && e.which <= 57) {

}

else {

$("#error").html("Please enter only number number").show().fadeOut("slow");

return false;

}

});

$("#check").click(function() {

res = 0;

var number = parseInt($("#txtnum").val());

for (var i = 1; i < number; i++) {

if (number % i == 0) {

res++;

}

};

console.log(res);

if (res >= 2) {

$("#error").html("The given number is not a prime number.").show().fadeOut(5000);

return false;

}

else {

$("#error").html("The given number is a prime number.").show().fadeOut(5000);

};

});

</script>

</head>

<body>

<tr>

<td>

</td>

<h2>PRIME NUMBER CHECKER IN JQUERY</h2>

</td>

<td>

</td>

</tr>

<tr>

<td>

Give a Number

</td>

<td>

</td>

<td>

</td>

</tr>

<tr>

<td>

</td>

</td>

<td>

</td>

</tr>

</table>

</body>

</html>

Making Text Bold and Color Red Text in JQuery

Here is a simple code that I wrote that will make the text bold and red using JQuery. The code is very simple and easy to understand.

I am currently accepting programming and web development work kindly contact me in the following email address for further details. Thank you.

My email address are the following jakerpomperada@gmail.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 is (034) 4335675.

Sample Program Output

Program Listing

<!DOCTYPE html>

<html>

<head>

</script>

$( document ).ready(function() {

$('.ui-dialog-title').css({ 'font-weight': 'bold' });

$('.ui-dialog-title').css({ 'color': 'red' });

});

</script>

</head>

<body>

Tonight, we dine in hell. </div>

</body>

</html>

Friday, February 23, 2018

Prime Number Checker in Visual Foxpro

A simple program that I wrote using Microsoft Visual Foxpro 9 that will ask the user to give a number and then our program will check if the given number is a Prime or Not a Prime Number. The code is very easy to understand and use.

I am currently accepting programming and web development work kindly contact me in the following email address for further details. Thank you.

My email address are the following jakerpomperada@gmail.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 is (034) 4335675.

Sample Program Output

Program Listing

Object: Form1 Procedure: Init

==============

thisform.txtvalue.Value=0

Check Button

=============

Object: Command1 Procedure: Click

IF empty(thisform.txtvalue.Value)

MESSAGEBOX("Can't be empty")

thisform.txtvalue.Value=0

thisform.txtvalue.SetFocus

RETURN .t.

ENDIF

a=0

for i=thisform.txtvalue.value to 1 step -1

if MOD(thisform.txtvalue.value,i)=0

a=a+1

ENDIF

endfor

if a=2 AND a#1

display_result="The given number " + transform(thisform.txtvalue.value)+" is a Prime number."

else

display_result="The given number " +transform(thisform.txtvalue.value)+" is not a Prime number"

endif

thisform.label2.Caption = display_result

Check Button

==================

Object: Command2 Procedure: Click

thisform.label2.Caption=""

thisform.txtvalue.Value=0

thisform.txtvalue.setfocus

Quit Button

==================

Object: Command3 Procedure: Click

thisform.release

Addition and Subtraction of Two Numbers in PHP

Here is a sample program that I wrote that will accept two numbers from the user and then it will add and subtract the two value given by the user using PHP as my programming language.

I am currently accepting programming and web development work kindly contact me in the following email address for further details. Thank you.

My email address are the following jakerpomperada@gmail.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 is (034) 4335675.

Sample Program Output

Program Listing

index.php

<html>

<head>

<title>

Addition and Subtract of Two Numbers in PHP

</title>

<style>

body {

background-color: lightgreen;

font-family: arial;

font-weight: bold;

font-size: 15px;

}

#textInput2 {

width:170px;

height:100px;

margin-left:5px;

}

</style>

</head>

<?php

error_reporting(0);

$x=$_POST['num1'];

$y=$_POST['num2'];

if(isset($_POST['clear']))

{

$x="";

$y="";

}

<body>

<h1> Addition and Subtract of Two Numbers in PHP </h1>

<label id="textInput2"> Enter first number </label>

<input type="text" name="num1" value="<?php echo $x; ?>" autofocus/>

Enter second number </label>

</form>

<?php

if(isset($_POST['add']))

{

$sum=$x+$y;

echo "Result:

        &nbsp

<input type='text' value='$sum'/ readonly>";

}

if(isset($_POST['subtract']))

{

$subtract=$x-$y;

echo "Result:

        &nbsp

<input type='text' value='$subtract'/ readonly>";

}

</body>

</html>

Thursday, February 22, 2018

Custom Software Development Services

Bacolod IT Software Solution and Consultancy

Do you have a problem in your organization in terms of managing your information. We are offering the following IT solution services at a very affordable price and very fast service here in Bacolod City.

Customized Software Development

Services Offered:

1. Custom Software Development
(Accounting System,
Production Management System,
Personnel Information System,
Website Development,
Lending System,
e-Governance,
Payroll System,
Point of Sale,
Clinical Information System,
Medical Laboratory System,
Sales and Inventory System,
Enrolment System)

2. Computer Repair and Maintenance

3. Computer Tutorials
(Computer Programming,
Web Development,
Android Application Development)

4. IT Consultancy

5. Computer Networking And Administration

For more information you can send us an email at the following email address below.

jakerpomperada@yahoo.com

jakerpomperada@gmail.com

You can also reach me in my mobile number 09173084360 or telephone number (034) 4335675.

Thank you.

Wednesday, February 21, 2018

Password Management System in Microsoft Visual Foxrpo 9

A very simple password management system that I wrote using Microsoft Visual Foxpro 9 which allows the user to register information and upload pictures. This application can be used to protect your database application from unauthorized users in your system.

I am currently accepting programming and web development work kindly contact me in the following email address for further details. Thank you.

My email address are the following jakerpomperada@gmail.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 is (034) 4335675.

Sample Program Output, Table Structure and Sample Records

Program Listing

Password.scx

============

Object : Form1 Procedure: Init

SELECT 1

USE users

thisform.text2.value =0

thisform.text2.Visible= .F.

thisform.txtusername.SetFocus

READ events

Ok Button

========

Object : Command1 Procedure: Click

SET DEFAULT TO d:\vfp\password\

SELECT users

LOCATE FOR ALLTRIM(LOWER(username)) == ALLTRIM(LOWER(thisform.txtusername.value)) AND ALLTRIM(LOWER(password)) == ALLTRIM(LOWER(thisform.txtpassword.Value))

IF FOUND() then

DO form menu

thisform.Release

thisform.Hide

RETURN .t.

endif

if thisform.text2.Value <3 then

thisform.text2.Value = thisform.text2.Value +1

thisform.txtusername.Value=""

thisform.txtpassword.Value =""

thisform.txtusername.SetFocus

thisform.label1.caption ="User login attempt number " + TRANSFORM(thisform.text2.value) + "."

endif

IF thisform.text2.Value = 3 then

MESSAGEBOX("Please contact your programmer to solve this problem")

thisform.txtusername.Enabled= .F.

thisform.txtpassword.Enabled= .F.

thisform.command1.Enabled= .F.

ENDIF

===============

Object: Command3 Procedure: Click

thisform.Release

thisform.hide

DO FORM record_management

Cancel Button

=============

Object: Command2 Procedure: Click

thisform.Release

CLEAR EVENTS

CLOSE ALL

Quit

record_management.scx

=====================

New Button

============

Object: Command2 Procedure: Click

thisform.txtId.value=0

thisform.txtUsername.value=""

thisform.txtPassword.value=""

thisform.txtLastname.value=""

thisform.txtFirstname.value=""

thisform.txtPixpath.value=""

thisform.txtId.setfocus

Grid

=====

Object: grdUsers Procedure: Click

SELECT users

thisform.txtId.Value=id

thisform.txtUsername.Value = username

thisform.txtPassword.Value = password

thisform.txtLastname.Value = lastname

thisform.txtFirstname.Value = firstname

thisform.txtPixpath.Value = pixpath

Save Button

============

Object: Command3 Procedure: Click

SELECT users

locate for id == thisform.txtId.value

if !found()

&& new record

if Messagebox("Are you sure to add new record?",32+4,"Confirmation") = 6

append blank && add new record

replace id WITH thisform.txtId.Value

replace lastname WITH UPPER(ALLTRIM(thisform.txtLastname.value))

replace firstname WITH UPPER(ALLTRIM(thisform.txtFirstname.Value))

replace username WITH thisform.txtUsername.Value

replace password WITH thisform.txtPassword.Value

replace pixpath WITH thisform.txtPixpath.value

endif

else && update record

if Messagebox("Are you sure to update existing record?",32+4,"Confirmation") = 6

replace id WITH thisform.txtId.Value

replace lastname WITH UPPER(ALLTRIM(thisform.txtLastname.value))

replace firstname WITH UPPER(ALLTRIM(thisform.txtFirstname.Value))

replace username WITH thisform.txtUsername.Value

replace password WITH thisform.txtPassword.Value

replace pixpath WITH thisform.txtPixpath.value && overwrite existing record

endif

thisform.grdUsers.refresh

Delete Button

============

Object: Command4 Procedure: Click

select users

SET DELETED on

locate for id = thisform.txtId.value

if found()

if Messagebox("Are you sure to delete this record?",32+4,"Confirmation") = 6

delete

endif

ENDIF

thisform.txtId.value=0

thisform.txtUsername.value=""

thisform.txtPassword.value=""

thisform.txtLastname.value=""

thisform.txtFirstname.value=""

thisform.txtPixpath.value=""

thisform.txtId.setfocus

thisform.refresh

thisform.grdusers.refresh

Close Button

============

Object: Command5 Procedure: Click

thisform.Release

DO FORM password

PixPath Button

==============

Object: Command1 Procedure: Click

thisform.txtPixpath.value = GETPICT()

thisform.txtPixpath.Refresh

menu.scx

========

Object: Form1 Procedure: Init

SELECT users

fullname = TRIM(firstname) + " " + TRIM(lastname)

thisform.label1.Caption = "Welcome " +fullname

thisform.image1.Picture=TRIM(pixpath)

thisform.image1.Visible= .T.

Close Button

===========

Object: Command1 Procedure: Click

thisform.Release

thisform.hide

DO FORM password

DOWNLOAD SOURCE CODE HERE

Free Programming Source Codes and Computer Programming Tutorials

Tuesday, February 27, 2018

Palindrome Checker in C

Prime Number Checker in JQuery

Making Text Bold and Color Red Text in JQuery

Friday, February 23, 2018

Prime Number Checker in Visual Foxpro

Addition and Subtraction of Two Numbers in PHP

Thursday, February 22, 2018

Custom Software Development Services

Wednesday, February 21, 2018

Password Management System in Microsoft Visual Foxrpo 9

Google Ads

Followers