Wednesday, September 28, 2016

Area of the Rectangle Solver in Visual Basic

Here is a very simple program that I wrote using Visual Basic 5 to compute the area of the rectangle. The code is very short and easy to understand. What does the program will do is to ask the user to give  length and breath of the rectangle and the our program will solve for it's area.

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

My email address are the following 
jakerpomperada@gmail.com and jakerpomperada@yahoo.com. 

My mobile number here in the Philippines is 09173084360.





Sample Program Output


Program Listing


Private Sub Command1_Click()

   Sum = Val(Form1.Text1.Text) * Val(Form1.Text2.Text)

   Label4.Caption = "The are of the rectagle is " & Sum & "."

End Sub

Private Sub Command2_Click()

   Form1.Text1.Text = ""
   Form1.Text2.Text = ""
   Form1.Label4.Caption = ""
   Form1.Text1.SetFocus

End Sub





Area of Rectangle in Delphi

Here is a sample program that I wrote using Delphi as my programming language that will compute the area of the rectangle. The code is very short and easy to understand.

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

My email address are the following 
jakerpomperada@gmail.com and jakerpomperada@yahoo.com. 

My mobile number here in the Philippines is 09173084360.




Sample Program Output


Program Listing

rectangle.pas

unit rectangle;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

type
  TForm1 = class(TForm)
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Edit1: TEdit;
    Edit2: TEdit;
    Label4: TLabel;
    Button1: TButton;
    Button2: TButton;
    Label5: TLabel;
    Label6: TLabel;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

  Var length : integer;
  Var    breadth : integer;
  Var   compute_all : integer;

procedure TForm1.Button1Click(Sender: TObject);
begin
      length := StrToInt(Edit1.Text);
      breadth := StrToInt(Edit2.Text);

      compute_all := (length * breadth);

      label4.Caption :=  'The Area of the Rectangle is '
            + IntToStr(compute_all) + '.';

end;

procedure TForm1.Button2Click(Sender: TObject);
begin
Edit1.Text     := '';
Edit2.Text     := '';
Label4.Caption :='';
Edit1.Setfocus;
end;

end.




Monday, September 26, 2016

Interest Rate Solver in Text File in C++

A simple program that I wrote a long time ago in C++ that will compute the interest rate of the amount being loaned and then save the results in a text file.

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

#include <iostream>
#include <iomanip>
#include <fstream>


using namespace std;

main() {

    string name;

    int principal=0;
    int number_months=0;
    float rate=0.00,solve_rate=0.00;

    ofstream file("report.txt");

    cout << "\t  Kwarta Agad Lending Investor";
    cout << "\n\n";
    cout << "Enter Customer Name    :=> ";
    getline(cin,name);
    cout << "\nEnter Amount  Loan   :=> ";
    cin >> principal;
    cout << "\nNumber of Months    :=> ";
    cin >> number_months;
    cout << "\nEnter Rate Per Month :=> ";
    cin >> rate;
    solve_rate = (principal * number_months * rate ) ;
    cout << "\n\n";
    cout << fixed << setprecision(2);
    cout << "The Simple Interest Rate is Php "
         << solve_rate << ".";

    file << "\n\t ======= Kwarta Agad Lending Investor =========";
    file << "\n\n";
    file << "\n\t\t CUSTOMER REPORT";
    file << "\n\n";
    file << "\n Customer Name     : " << name;
    file << "\n Amount   Loan     : " << principal;
    file << "\n Number of Months  : " << number_months;
    file << "\n Rate Per Month    : " << rate;
    file << "\n\n";
    file << fixed << setprecision(2);
    file << "\n Interest Rate is Php " << solve_rate;
    file.close();
    cout << "\n\n";
    system("pause");
}

Roman Numeral To Decimal in PERL

A simple program that I wrote using PERL as my programming language that will ask the user to give roman numeral value and then our program will convert the given roman numeral value into it's decimal equivalent in PERL.

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

our @EXPORT = qw(isroman arabic Roman roman);

our %roman2arabic = qw(I 1 V 5 X 10 L 50 C 100 D 500 M 1000);

starting();

sub isroman($) {
    my $arg = shift;
    $arg ne '' and
      $arg =~ /^(?: M{0,3})
                (?: D?C{0,3} | C[DM])
                (?: L?X{0,3} | X[LC])
                (?: V?I{0,3} | I[VX])$/ix;
}

sub arabic($) {
    my $arg = shift;
    isroman $arg or return undef;
    my($last_digit) = 1000;
    my($arabic);
    foreach (split(//, uc $arg)) {
        my($digit) = $roman2arabic{$_};
        $arabic -= 2 * $last_digit if $last_digit < $digit;
        $arabic += ($last_digit = $digit);
    }
    $arabic;
}
sub starting {
        print "\n\n";
        print "\t Roman Numeral To Decimal in PERL.";
        print "\n\n";
        print "Enter a Roman Numeral : ";
        chomp($a=<>);
        print "\n\n";
        print "The roman numeral $a equivalent is ";
        print uc(arabic($a));
        print ".";
        print "\n\n";
        print "Do you want to continue (Y or N) ? : ";
        chomp($choice=<>);
        if( $choice eq "y") {
            goto &starting;
          } else {
            print "\n\n";
            print "\t End of Program";
            print "\n";
            exit;

        }
 }

Decimal To Roman Numeral in PERL

A simple program that I wrote using PERL as my programming language that will ask the user to give decimal value and then our program will convert the given decimal value into roman numeral equivalent in PERL.

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

my %roman_digit = qw(1 IV 10 XL 100 CD 1000 MMMMMM);
my @figure = reverse sort keys %roman_digit;
$roman_digit{$_} = [split(//, $roman_digit{$_}, 2)] foreach @figure;

starting();

sub Roman($) {
    my $arg = shift;
    0 < $arg and $arg < 4000 or return undef;
    my($x, $roman);
    foreach (@figure) {
        my($digit, $i, $v) = (int($arg / $_), @{$roman_digit{$_}});
        if (1 <= $digit and $digit <= 3) {
            $roman .= $i x $digit;
        } elsif ($digit == 4) {
            $roman .= "$i$v";
        } elsif ($digit == 5) {
            $roman .= $v;
        } elsif (6 <= $digit and $digit <= 8) {
            $roman .= $v . $i x ($digit - 5);
        } elsif ($digit == 9) {
            $roman .= "$i$x";
        }
        $arg -= $digit * $_;
        $x = $i;
    }
    $roman;
}

sub roman($) {
    lc Roman shift;
}

sub starting {
        print "\n\n";
        print "\t Decimal To Roman Numeral in PERL.";
        print "\n\n";
        print "Enter a number : ";
        chomp($a=<>);
        print "\n\n";
        print "The number $a it's roman numeral equivalent is ";
        print uc(roman($a));
        print ".";
        print "\n\n";
        print "Do you want to continue (Y or N) ? : ";
        chomp($choice=<>);
        if( $choice eq "y") {
            goto &starting;
          } else {
            print "\n\n";
            print "\t End of Program";
            print "\n";
            exit;

        }
 }

Calculator in PHP using Drop Down Menu

A simple calculator program that I wrote in PHP using Drop Down Menu to select the mathematical operator such as addition, subtraction, multiplication and division using combo box in HTML.

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

<html>
<head>
<?php
error_reporting(0);

 $a =  $_REQUEST['num1'];
 $b =  $_REQUEST['num2'];
?>

<title>Simple Calculator</title>
</head>
<style type="text/css">
 body
 {
 background-color:yellow;
 font-family:arial;
 font-size:14px;
 font-weight:bold;
 }

 #result
 {
 color:green;
 font-family:arial;
 font-size:16px;
 }



 input[type="text"] {
 height: 50px;
 width: 50px;
 font-family:arial;
 font-size:25px;
 font-weight:bold;
}

#opt{
 width:250px;   
}
</style>
<script language="javascript">
 function validate_form()
 {
 var num1 = document.entryform.num1;
 var num2 = document.entryform.num2;
 if (num1.value=="" || num1.value==null)
 {
 alert("Please specify value on first box");
 num1.focus();
 return false;
 }
 else if (num2.value=="" || num2.value==null)
 {
 alert("Please specify value on second box");
 num2.focus();
 return false;
 }
 }
</script>
<body>
<?php
if (isset($_REQUEST['clear']))
 {
  $a="";
  $b="";  
 }
 ?>
<form method="post" onSubmit="return validate_form(this)" name="entryform">
<fieldset>
 <legend>Simple Calculator</legend>
 <input type="text" name="num1" value="<?php echo $b; ?>"  autofocus>
 <select name="opt_math">
 <option value="+">+
 <option value="-">-
 <option value="*">*
 <option value="/">/
 </select>
 <input type="text" name="num2" value="<?php echo $a; ?>"><br><br>
 <input type="submit" name="submit" value="Compute"> &nbsp; &nbsp;
<input type="submit" name="clear" value="Clear">
 <br><br>

 <span id="result">
 Result is
 <strong>
 <?php
if ($_REQUEST['opt_math']=="+"){
 echo  $a+$b;
 }
 else if ($_REQUEST['opt_math']=="-"){
 echo $a-$b;
 }
 else if ($_REQUEST['opt_math']=="/"){
 echo $a/$b;
 }
 else if ($_REQUEST['opt_math']=="*"){
 echo $a*$b;
 }

 ?>
 </strong>
 </span><br><br><br>
  </fieldset>
 </form>
 </body>
 </html>



Count Capital and Small Letters in PHP

Here is a very short script that I wrote in PHP that will count the number of Capital and Small letter in a given string. The code is very simple to use and 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 Listing


<?php

function CountCaps($string) {
  return strlen(preg_replace('/[^A-Z]+/', '', $string));
}

function CountSmall($string) {
  return strlen(preg_replace('/[^a-z]+/', '', $string));
}


$str = 'WeLcoMe HOme';

$result1 = CountCaps($str);

$result2 = CountSmall($str);

echo 'The word is ' .$str;
echo '<br><br>';
echo 'Number of Capital Letters ' .$result1.'.';
echo '<br><br>';
echo 'Number of Capital Letters ' .$result2.'.';

?>

Area of Rectangle in C#

Here is a another simple program that I wrote in C# to ask the user to give the length and breath of the rectangle and the our program will compute for its area. I am using Visual Studio 2010 Ultimate Edition in this program.

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 length= 0, breadth=0,solve_area=0;

            if (!int.TryParse(textBox1.Text, out length))
            {
                MessageBox.Show("I need just a number in the textbox.");
                textBox1.Text = "";
                textBox2.Text = "";
                textBox1.Focus();
            }
            else  if (!int.TryParse(textBox2.Text, out breadth))
            {
                MessageBox.Show("I need just a number in the textbox.");
                textBox1.Text = "";
                textBox2.Text = "";
                textBox1.Focus();
            }


            else
            {
                length = Convert.ToInt32(textBox1.Text);
                breadth = Convert.ToInt32(textBox2.Text);

                solve_area = (length * breadth);
                label5.Text = "The Area of the Rectangle is " + solve_area + ".";
            }
        }

        private void button2_Click(object sender, EventArgs e)
        {
            textBox1.Text = "";
            textBox2.Text = "";
            label5.Text = " ";
            textBox1.Focus();
        }
    }
}