Free Programming Source Codes and Computer Programming Tutorials

Monday, September 26, 2016

Area of Square Solver in C#

Here is a simple program that I wrote using C# as my programming language that will ask the user to give the side length of the square and then our program will compute the area of the square. The code is very simple and easy to understand.

Add me at Facebook my address is jakerpomperada@gmail.com and jakerpomperada@yahoo.com.

My mobile number here in the Philippines is 09173084360.

Sample Program Output

Program Listing

using System;

using System.Collections.Generic;

using System.ComponentModel;

using System.Data;

using System.Drawing;

using System.Linq;

using System.Text;

using System.Windows.Forms;

namespace WindowsFormsApplication2

{

public partial class Form1 : Form

{

public Form1()

{

InitializeComponent();

}

private void button1_Click(object sender, EventArgs e)

{

int side = 0, area=0;

if (!int.TryParse(textBox1.Text, out side))

{

MessageBox.Show("I need just a number in the textbox.");

textBox1.Text = "";

textBox1.Focus();

}

else

{

side = Convert.ToInt32(textBox1.Text);

area = (side * side);

label3.Text = "The Area of the Square is " + area + ".";

}

private void button2_Click(object sender, EventArgs e)

{

textBox1.Text = "";

label3.Text = "";

textBox1.Focus();

}

Removing Placeholder in JQuery

A very simple program that I wrote using JQuery that will remove the placeholder in the input textbox in HTML. The code is very easy to understand and use.

Add me at Facebook my address is jakerpomperada@gmail.com and jakerpomperada@yahoo.com.

My mobile number here in the Philippines is 09173084360.

Program Listing

<!DOCTYPE html>

<head>

<title>Remove Place Holder</title>

</head>

<style>

body {

font-family:arial;

font-size:16px;

font-weight:bold;

}

label{

display: table-cell;

text-align: right;

}

input {

display: table-cell;

margin-bottom: 10px; /* distance between input box */

font-family:arial;

font-size:16px;

color: blue;

}

div.row{

display:table-row;

}

</style>

<body>

<div>

<h3> Remove Place Holder in JQuery </h3>

<br>

<div class="row"><label>Person's Name </label>    <input id="txtName" placeholder="Person's Name" type="text"></div>

<div class="row"><label>Home Address </label>    <input id="txtAddress" placeholder="Home Address" type="text"></div>

<div class="row"><label>Telephone Number </label>    <input id="txtTelephone" placeholder="Telephone Number" type="text" size="20"></div>

</div>

// Person's Place Holder

$('#txtName').focus(function(){

$(this).attr('placeholder','');

});

$('#txtName').focusout(function(){

$(this).attr('placeholder','Enter Persons Name');

});

// Home Address Place Holder

$('#txtAddress').focus(function(){

$(this).attr('placeholder','');

});

$('#txtAddress').focusout(function(){

$(this).attr('placeholder','Enter Home Address');

});

// Zip Code Place Holder

$('#txtZip').focus(function(){

$(this).attr('placeholder','');

});

$('#txtZip').focusout(function(){

$(this).attr('placeholder','Enter Zip Code');

});

// Telephone Place Holder

$('#txtTelephone').focus(function(){

$(this).attr('placeholder','');

});

$('#txtTelephone').focusout(function(){

$(this).attr('placeholder','Enter Telephone Number');

});

</script>

</body>

</html>

Friday, September 23, 2016

Decimal To Roman Numeral Converter in Visual Basic

A simple program that I wrote using Visual Basic 5 to accept decimal number from the user and then our program will convert the given number into it's roman numeral equivalent. The code is very short and easy to understand.

Add me at Facebook my address is jakerpomperada@gmail.com and jakerpomperada@yahoo.com.

My mobile number here in the Philippines is 09173084360.

Sample Program Output

Program Listing

Function Convert_To_Roman(value) As String

Dim arabic As Variant

Dim roman As Variant

arabic = Array(1000, 900, 500, 400, 100, 90, 50, 40, 10, 9, 5, 4, 1)

roman = Array("M", "CM", "D", "CD", "C", "XC", "L", "XL", "X", "IX", "V", "IV", "I")

Dim i As Integer, result As String

For i = 0 To 12

Do While value >= arabic(i)

result = result + roman(i)

value = value - arabic(i)

Loop

Next i

Convert_To_Roman = result

End Function

Private Sub Command1_Click()

Label3.Caption = "The Roman Numeral Equivalent of " & Val(Text1.Text) _

& " is " & Convert_To_Roman(Val(Text1.Text)) & "."

End Sub

Private Sub Command2_Click()

Text1.Text = ""

Label3.Caption = ""

Text1.SetFocus

End Sub

Monday, September 19, 2016

Largest and Smallest Number in Perl

A very simple and short program that I wrote in PERL that will ask the user to give five numbers and then our program will find out which of the given number is the largest and the smallest.

Add me at Facebook my address is jakerpomperada@gmail.com and jakerpomperada@yahoo.com.

My mobile number here in the Philippines is 09173084360.

Program Listing

#!D:\xampp\perl\bin

use strict;

use warnings;

use strict;

my @foo;

print "Largest and Smallest Number in PERL";

print "\n\n";

while (@foo < 5) {

chomp(@foo=<>);

push @foo, $num;

}

@foo = sort{$num <=> $b} @foo;

my $smallest = shift (@foo);

my $largest = pop (@foo);

print "The Smallest Number is $smallest\n";

print "The Largest Number is $largest\n";

Factorial Program Using Functions in PERL

A simple factorial program that uses Functions in Perl that will ask the user to give a number and then our program will compute the factorial value based on the given number by our user.

Add me at Facebook my address is jakerpomperada@gmail.com and jakerpomperada@yahoo.com.

My mobile number here in the Philippines is 09173084360.

Program Listing

#!D:\xampp\perl\bin

sub factorial {

my($num) = @_;

if ($num == 1) {

return 1;

} else {

return $num*factorial($num - 1);

}

print "Factorial Program in Perl";

print "\n";

print "Enter a Number : ";

$number = <>;

chop ($number);

print "\n";

print factorial($number);

Word Count in Perl

Here is a very simple program that I wrote using PERL as my programming language that will ask the user to give a sentence and then our program will count the number of words in the given sentence by the user.

Add me at Facebook my address is jakerpomperada@gmail.com and jakerpomperada@yahoo.com.

My mobile number here in the Philippines is 09173084360.

Program Listing

#!D:\xampp\perl\bin

$wordcount = 0;

print "\n";

print "Word Count in PERL";

print "\n\n";

print "Enter a sentence : ";

$sentence = <>;

chop ($sentence);

@array = split(/ /,$sentence);

$wordcount += @array;

print "\n";

print "Total number of words in the sentence is $wordcount.";

print "\n\n";

print "End of Program";

print "\n";

User Information System With Upload Picture in PHP and MySQL using BootStrap

This is an update version of our code with my best friend Dave Marcellana that will manage the information of the user using PHP and MySQL. We are using BootStrap framework for our web design layouts. The best thing about this code I was able to fix the bugs of upload the picture in the database it is already been fix and tested very well. This code is also allows the user to upload not only their contact information in details but also their picture. I hope you will find our work useful.

Add me at Facebook my address is jakerpomperada@gmail.com and jakerpomperada@yahoo.com.

My mobile number here in the Philippines is 09173084360.

Table Structure

Sample Program Output

DOWNLOAD SOURCECODE HERE

Saturday, September 17, 2016

CRUD With Picture Upload in PHP and MySQL using BootStrap

This application we developed with my best friend, programming buddy and a fellow software engineer Mr. Dave Marcellana will allow the user to add, edit, view, delete and upload picture of the person in the database. We are here using Bootstrap to make our webpage more attractive and presentable. In this application we include the complete source code and the SQL dumb file. You can user our work in your programming project FREE of charge. Thank you very much.

Add me at Facebook my address is jakerpomperada@gmail.com and jakerpomperada@yahoo.com.

My mobile number here in the Philippines is 09173084360.

Sample Program Output

DOWNLOAD SOURCE CODE HERE

Friday, September 16, 2016

Consonants and Vowels Counter in Delphi

A simple program that I wrote in Delphi as my main programming language that will ask the user to give a string, word, sentence or phrase and then our program will count the number of consonants and vowels. The code is very short and very easy to understand. I hope you will like my work and able to share my knowledge in Delphi programming.

Add me at Facebook my address is jakerpomperada@gmail.com and jakerpomperada@yahoo.com.

My mobile number here in the Philippines is 09173084360.

Sample Program Output

Program Listing

unit vowels_consonants_counter;

interface

uses

Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,

StdCtrls;

type

TForm1 = class(TForm)

Label1: TLabel;

Label2: TLabel;

Edit1: TEdit;

Button1: TButton;

Label3: TLabel;

Label4: TLabel;

Label5: TLabel;

Button2: TButton;

Label6: TLabel;

procedure Button1Click(Sender: TObject);

procedure Button2Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form1: TForm1;

implementation

{$R *.DFM}

var

St : String[255];

Location1,Location2 : integer;

Count_Vowels, Count_Consonants : integer;

Valid_Vowels : Set of Char;

Valid_Consonants : Set of Char;

procedure TForm1.Button1Click(Sender: TObject);

begin

Count_Vowels := 0;

Count_Consonants := 0;

st := edit1.text;

Valid_Vowels := ['A', 'E', 'I', 'O', 'U', 'a', 'e', 'i', 'o', 'u'];

Valid_Consonants := ['B', 'C', 'D','F', 'G', 'H', 'J', 'K',

'L', 'M', 'N', 'P', 'Q','R', 'S', 'T',

'V','W','X','Y','Z','b','c','d','f',

'g','h','j','k','l','m','n','p','q',

'r','s','t','v','w','x','y','z'];

For Location1 := 1 to Length(st) Do

If St[Location1] IN Valid_Vowels Then

Count_Vowels := SUCC(Count_Vowels);

label3.caption := 'The Number of Vowels is '

+ inttostr(Count_Vowels)+ '.';

For Location2 := 1 to Length(st) Do

If St[Location2] IN Valid_Consonants Then

Count_Consonants := SUCC(Count_Consonants);

label6.caption := 'The Number of Consonants is '

+ inttostr(Count_Consonants)+ '.';

end;

procedure TForm1.Button2Click(Sender: TObject);

begin

edit1.text := '';

label3.caption :='';

label6.caption :='';

edit1.setfocus;

end;

end.

Count Vowels in Delphi

A simple program that I wrote using Delphi as my programming language that will ask the user to give a string, phrase, sentence or word and then our program will count the number of vowels from the given word, string, phrase or sentence from the user. The code is very simple, short and easy to understand.

Add me at Facebook my address is jakerpomperada@gmail.com and jakerpomperada@yahoo.com.

My mobile number here in the Philippines is 09173084360.

Program Sample Output

Program Listing

unit vowels_remove;

interface

uses

Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,

StdCtrls;

type

TForm1 = class(TForm)

Label1: TLabel;

Label2: TLabel;

Edit1: TEdit;

Button1: TButton;

Label3: TLabel;

Label4: TLabel;

Label5: TLabel;

Button2: TButton;

procedure Button1Click(Sender: TObject);

procedure Button2Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form1: TForm1;

implementation

{$R *.DFM}

var

St, New: String[255];

Location: integer;

Count: integer;

Valid_Ch: Set of Char;

procedure TForm1.Button1Click(Sender: TObject);

begin

Count := 0;

st := edit1.text;

Valid_Ch := ['A', 'E', 'I', 'O', 'U', 'a', 'e', 'i', 'o', 'u'];

For Location := 1 to Length(st) Do

If St[Location] IN Valid_Ch Then Count := SUCC(Count);

label3.caption := 'The Number of Vowels is ' + inttostr(count)+ '.';

end;

procedure TForm1.Button2Click(Sender: TObject);

begin

edit1.text := '';

label3.caption :='';

edit1.setfocus;

end;

end.

Free Programming Source Codes and Computer Programming Tutorials

Monday, September 26, 2016

Area of Square Solver in C#

Removing Placeholder in JQuery

Friday, September 23, 2016

Decimal To Roman Numeral Converter in Visual Basic

Monday, September 19, 2016

Largest and Smallest Number in Perl

Factorial Program Using Functions in PERL

Word Count in Perl

User Information System With Upload Picture in PHP and MySQL using BootStrap

Saturday, September 17, 2016

CRUD With Picture Upload in PHP and MySQL using BootStrap

Friday, September 16, 2016

Consonants and Vowels Counter in Delphi

Count Vowels in Delphi

Google Ads

Followers