Free Programming Source Codes and Computer Programming Tutorials

Saturday, September 28, 2019

Consonants Remove From a String in Visual Basic 6

In this article I would like to share with you guys a simple program that I wrote using Microsoft Visual Basic 6 that will ask the user to give a string and then the program will remove the consonants in the given string of the user.

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

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

Sample Program Output

Program Listing

Public Function StripChars(Inputme, Remove) As String

Dim n As Integer

    StripChars = Inputme
    For n = 1 To Len(Remove)
        StripChars$ = Replace$(StripChars, Mid(Remove, n, 1), "")
    Next n

End Function

Private Sub Command1_Click()
Dim str_val As String

str_val = StripChars(Form1.Text1.Text, "BCDFGHJKLMNPQRSTWXYZbcdfghjklmnpqrstwxyz")
Form1.Text2.Text = str_val

End Sub

Private Sub Command2_Click()
Form1.Text1.Text = ""
Form1.Text2.Text = ""
Form1.Text1.SetFocus
End Sub

Private Sub Command3_Click()
End
End Sub

Private Sub Form_Load()
Form1.Show
End Sub

Remove Vowels From a String in Visual Basic 6

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

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

Sample Program Output

Program Listing

Public Function StripChars(Inputme, Remove) As String

Dim n As Integer

    StripChars = Inputme
    For n = 1 To Len(Remove)
        StripChars$ = Replace$(StripChars, Mid(Remove, n, 1), "")
    Next n

End Function

Private Sub Command1_Click()
Dim str_val As String

str_val = StripChars(Form1.Text1.Text, "AEIOUaeiou")
Form1.Text2.Text = str_val

End Sub

Private Sub Command2_Click()
Form1.Text1.Text = ""
Form1.Text2.Text = ""
Form1.Text1.SetFocus
End Sub

Private Sub Command3_Click()
End
End Sub

Private Sub Form_Load()
Form1.Show
End Sub

Friday, September 27, 2019

Average Grade Solver in VB.NET

In this article, I would like to share with you a simple program that will ask the grades in science, math, English, physical education and history. The program will compute the average grade of the student using Visual Basic NET.

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

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

Sample Program Output

Program Listing

Public Class Form1

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

Dim a, b, c, d, e1 As Integer

Dim solve As Integer

a = Val(TextBox1.Text)

b = Val(TextBox2.Text)

c = Val(TextBox3.Text)

d = Val(TextBox4.Text)

e1 = Val(TextBox5.Text)

solve = (a + b + c + d + e1) / 5

Label6.Text = "The Average Grade is " & Str(solve) & "."

End Sub

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

TextBox1.Text = ""

TextBox2.Text = ""

TextBox3.Text = ""

TextBox4.Text = ""

TextBox5.Text = ""

Label6.Text = ""

TextBox1.Focus()

End Sub

End Class

Year Level Checker Using Batch File in DOS

Here is a simple DOS batch file script that I wrote to check if the given year level by the student belongs to freshmen, sophomore, juniors or seniors. The script is very simple and easy to understand for beginners.

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

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

Sample Program Output

Program Listing

REM year_level.bat

REM YEAR LEVEL CHECKER USING DOS BATCH FILE

REM AUTHOR : JAKE RODRIGUEZ POMPERADA

REM DATE : SEPTEMBER 27, 2019

REM EMAIL : jakerpomperada@gmail.com

REM WEBSITE : http://www.jakerpomperada.com

ECHO OFF

:BEGIN

CLS

ECHO.

ECHO YEAR LEVEL CHECKER IN DOS BATCH FILE

ECHO.

echo. JAKE RODRIGUEZ POMPERADA

echo.

set /p choice="Enter your year level [1,2,3,4] : "

IF '%choice%'=='1' GOTO ONE

IF '%choice%'=='2' GOTO TWO

IF '%choice%'=='3' GOTO THREE

IF '%choice%'=='4' GOTO FOUR

GOTO END

:ONE

ECHO.

ECHO YOU BELONG TO FRESHMEN.

GOTO END

:TWO

ECHO.

ECHO YOU BELONG TO SOPHOMORE.

GOTO END

:THREE

ECHO.

ECHO YOUR BELONG TO JUNIORS.

GOTO END

:FOUR

ECHO.

ECHO YOU BELONG TO SENIORS.

:END

echo.

pause

ECHO.

ECHO END OF PROGRAM

Product of Two Numbers Using C++ Functions

In this article, I would like to discuss how to create a function to ask the user to give two numbers and then the program will compute the product of two numbers and display the results on the screen using C++ programming language.

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

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

Program Listing

// product.cpp

// Author : Mr. Jake Rodriguez Pomperada, MAED-IT

// Date : September 27, 2019 Friday 5:55 AM

// Location : Bacolod City, Negros Occidental Philippines

#include <iostream>

using namespace std;

int solve_product(int a, int b); // function prototype

int main() {

int x=0,y=0;

cout <<"\n\n";

cout <<"\tProduct of Two Numbers Using Functions in C++";

cout <<"\n\n";

cout << "\tGive Two Numbers : ";

cin >> x >> y;

cout <<"\n\n";

cout <<"\tThe product of "

<< x << " and " << y << " is "

<< solve_product(x,y) << ".";

cout <<"\n\n";

cout << "\tEnd of The Program.";

}

int solve_product(int a, int b)

{

return(a*b);

}

Average Grade Solver in C++

In this article, I would like to share with you a sample program that will ask the user to give five subject grades and then the program will compute the average grade of the students using C++ as our programming language.

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

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

Program Listing

// average_grade.cpp

// Author : Jake Rodriguez Pomperada,MAED-IT

// Date : September 27, 2019 Friday

// Location : Bacolod City, Negros Occidental Philippines

#include <iostream>

#include <iomanip>

using namespace std;

int main() {

int science=0,math=0,english=0;

int pe=0, history=0;

float compute_grade =0.00;

cout <<"\n\n";

cout << "\tAverage Grade Solver in C++";

cout <<"\n\n";

cout << "\tEnter Grade for Science : ";

cin >> science;

cout << "\tEnter Grade for Math : ";

cin >> math;

cout << "\tEnter Grade for English : ";

cin >> english;

cout << "\tEnter Grade for Physical Education : ";

cin >> pe;

cout << "\tEnter Grade for History : ";

cin >> history;

compute_grade = (science+math+english+pe+history)/5;

cout <<"\n\n";

cout <<"\tThe Average Grade is "

<< fixed << setprecision(2)<< compute_grade;

cout <<"\n\n";

cout << "\tEnd of the Program";

}

Average Grade Solver in C++

Product of Two Numbers Using Functions in C++

Thursday, September 26, 2019

String Upper Case in PHP

Here is a sample program that will ask the user to give a string and then it will convert it into upper case format using PHP programming language.

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

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

Sample Program Output

Program Listing

index.php

<html>

<style>

body {

font-size: 20;

font-family:sans-serif;

font-weight: bold;

}

input {

font-size: 20px;

font-weight: bold;

}

/* http://cssdemos.tupence.co.uk/button-styling.htm */

input#shiny {

padding: 4px 20px;

/*give the background a gradient*/

background:#ffae00; /*fallback for browsers that don't support gradients*/

background: -webkit-linear-gradient(top, blue,blue);

background: -moz-linear-gradient(top, blue, blue);

background: -o-linear-gradient(top, blue, blue);

background: linear-gradient(top, blue, blue);

border:2px outset #dad9d8;

/*style the text*/

font-family:Andika, Arial, sans-serif; /*Andkia is available at http://www.google.com/webfonts/specimen/Andika*/

font-size:1.1em;

letter-spacing:0.05em;

text-transform:uppercase;

color:#fff;

text-shadow: 0px 1px 10px #000;

/*add to small curve to the corners of the button*/

-webkit-border-radius: 15px;

-moz-border-radius: 15px;

border-radius: 15px;

/*give the button a drop shadow*/

-webkit-box-shadow: rgba(0, 0, 0, .55) 0 1px 6px;

-moz-box-shadow: rgba(0, 0, 0, .55) 0 1px 6px;

box-shadow: rgba(0, 0, 0, .55) 0 1px 6px;

}

/****NOW STYLE THE BUTTON'S HOVER STATE***/

input#shiny:hover, input#shiny:focus {

border:2px solid #dad9d8;

}

</style>

<body>

<?php

error_reporting(0);

$values = $_POST['inputText'];

if(isset($_POST['ClearButton'])){

$values = "";

}

<br>

<h4> String Uppercase in PHP</h4>

<h5> Created By Jake Rodriguez Pomperada</h5>

Give a String

<input type="text" name="inputText" size="30" maxlength="30"

value="<?php echo $values; ?>" style="width:200px; height:30px;" required autofocus=""/>

</form>

<?php

function convert_uppercase($string)

{

$original =$string;

$string = strtoupper($string);

echo "Original String : $original.";

echo "<br><br>";

echo "The new string : $string.";

}

$values = $_POST['inputText'];

if(isset($_POST['SubmitButton'])){

$num_val = strtolower($values);

echo "<br>";

convert_uppercase($num_val);

}

</body>

</html>

Remove Consonants in PHP

In this article, I would like to share with you a program that I wrote using PHP that will ask the user to give a string and then the program will display the original string and then display the string removing the consonants from a string.

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

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

Sample Program Output

Program Listing

index.php

<html>

<style>

body {

font-size: 20;

font-family:sans-serif;

font-weight: bold;

}

input {

font-size: 20px;

font-weight: bold;

}

/* http://cssdemos.tupence.co.uk/button-styling.htm */

input#shiny {

padding: 4px 20px;

/*give the background a gradient*/

background:#ffae00; /*fallback for browsers that don't support gradients*/

background: -webkit-linear-gradient(top, blue,blue);

background: -moz-linear-gradient(top, blue, blue);

background: -o-linear-gradient(top, blue, blue);

background: linear-gradient(top, blue, blue);

border:2px outset #dad9d8;

/*style the text*/

font-family:Andika, Arial, sans-serif; /*Andkia is available at http://www.google.com/webfonts/specimen/Andika*/

font-size:1.1em;

letter-spacing:0.05em;

text-transform:uppercase;

color:#fff;

text-shadow: 0px 1px 10px #000;

/*add to small curve to the corners of the button*/

-webkit-border-radius: 15px;

-moz-border-radius: 15px;

border-radius: 15px;

/*give the button a drop shadow*/

-webkit-box-shadow: rgba(0, 0, 0, .55) 0 1px 6px;

-moz-box-shadow: rgba(0, 0, 0, .55) 0 1px 6px;

box-shadow: rgba(0, 0, 0, .55) 0 1px 6px;

}

/****NOW STYLE THE BUTTON'S HOVER STATE***/

input#shiny:hover, input#shiny:focus {

border:2px solid #dad9d8;

}

</style>

<body>

<?php

error_reporting(0);

$values = $_POST['inputText'];

if(isset($_POST['ClearButton'])){

$values = "";

}

<br>

<h4> Remove Consonants in PHP</h4>

<h5> Created By Jake Rodriguez Pomperada</h5>

Give a String

<input type="text" name="inputText" size="30" maxlength="30"

value="<?php echo $values; ?>" style="width:200px; height:30px;" required autofocus=""/>

</form>

<?php

function remove_consonants($string)

{

$vowels = array("b", "c", "d", "f", "g","h", "j", "k","l", "m","n", "p", "q", "r", "s", "t","w","v", "x", "y", "z");

$original =strtoupper($string);

$string = strtolower($string);

$string = str_replace($vowels, "", $string);

$string = strtoupper($string);

echo "Original String : $original.";

echo "<br><br>";

echo "The new string : $string.";

}

$values = $_POST['inputText'];

if(isset($_POST['SubmitButton'])){

$num_val = strtolower($values);

echo "<br>";

remove_consonants($num_val);

}

</body>

</html>

Free Programming Source Codes and Computer Programming Tutorials

Saturday, September 28, 2019

Consonants Remove From a String in Visual Basic 6

Remove Vowels From a String in Visual Basic 6

Friday, September 27, 2019

Average Grade Solver in VB.NET

Year Level Checker Using Batch File in DOS

Product of Two Numbers Using C++ Functions

Average Grade Solver in C++

Average Grade Solver in C++

Product of Two Numbers Using Functions in C++

Thursday, September 26, 2019

String Upper Case in PHP

Remove Consonants in PHP

Google Ads

Followers