Free Programming Source Codes and Computer Programming Tutorials: May 2022

Tuesday, May 31, 2022

Lower Case a String in Visual Basic 6

Lower Case in Visual Basic 6

A program to ask the user to give a string and then it will convert it into lower case string format 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.

Please subscribe to my channel https://www.youtube.com/channel/UCOs-lpOoIeJoh6gpJthPoGg

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

Want to support my channel?

GCash Account

Jake Pomperada

09173084360

Paypal

https://paypal.me/jakerpomperada

Patreon

https://www.patreon.com/jakerpomperada

Thank you very much for your support.

Program Listing

Private Sub Command1_Click()

' Written By Jake Rodriguez Pomperada, MAED-IT, MIT

' www.jakerpomperada.com and www.jakerpomperada.blogspot.com

' jakerpomperada@gmail.com

If (Text1.Text = "") Then

MsgBox "Cannot Be Empty. Try Again", vbInformation, "Result"

Text1.SetFocus

Else

Text2.Text = StrConv(Text1.Text, vbLowerCase)

End If

End Sub

Private Sub Command2_Click()

Text1.Text = ""

Text2.Text = ""

Text1.SetFocus

End Sub

Private Sub Command3_Click()

End

End Sub

Paano Makakuha Ng Experience Sa Computer Programming

Upper Case String in Visual Basic 6

A program to ask the user to give a string and then it will convert it into upper case string format using Microsoft 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.

Please subscribe to my channel https://www.youtube.com/channel/UCOs-lpOoIeJoh6gpJthPoGg

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

Want to support my channel?

GCash Account

Jake Pomperada

09173084360

Paypal

https://paypal.me/jakerpomperada

Patreon

https://www.patreon.com/jakerpomperada

Thank you very much for your support.

Program Listing

Private Sub Command1_Click()

' Written By Jake Rodriguez Pomperada, MAED-IT, MIT

' www.jakerpomperada.com and www.jakerpomperada.blogspot.com

' jakerpomperada@gmail.com

If (Text1.Text = "") Then

MsgBox "Cannot Be Empty. Try Again", vbInformation, "Result"

Text1.SetFocus

Else

Text2.Text = StrConv(Text1.Text, vbUpperCase)

End If

End Sub

Private Sub Command2_Click()

Text1.Text = ""

Text2.Text = ""

Text1.SetFocus

End Sub

Private Sub Command3_Click()

End

End Sub

Monday, May 30, 2022

Age Checker in Visual Basic 6

A program asks the user to give their age and then the program will check if the given age is still a minor or already an adult using Microsoft 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.

Please subscribe to my channel https://www.youtube.com/channel/UCOs-lpOoIeJoh6gpJthPoGg

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

Want to support my channel?

GCash Account

Jake Pomperada

09173084360

Paypal

https://paypal.me/jakerpomperada

Patreon

https://www.patreon.com/jakerpomperada

Thank you very much for your support.

Program Listing

Private Sub Command1_Click()

' Written By Jake Rodriguez Pomperada, MAED-IT, MIT

' www.jakerpomperada.com and www.jakerpomperada.blogspot.com

' jakerpomperada@gmail.com

Dim age As Integer

age = Val(Text1.Text)

If (Text1.Text = "") Then

MsgBox "Cannot Be Empty. Try Again", vbInformation, "Result"

Text1.SetFocus

ElseIf (age < 18) Then

MsgBox "At the age of " & age & " years old. You are still a Minor.", vbInformation, "Result"

Text1.SetFocus

Else

MsgBox "At the age of " & age & " years old. You are already an Adult.", vbInformation, "Result"

Text1.SetFocus

End If

End Sub

Private Sub Command2_Click()

Text1.Text = ""

Text1.SetFocus

End Sub

Private Sub Command3_Click()

End

End Sub

Sunday, May 29, 2022

Area of The Circle in QBasic

Area of the Circle in QBasic

A program that I wrote using Qbasic programming language to solve the area of the circle.

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.

Please subscribe to my channel https://www.youtube.com/channel/UCOs-lpOoIeJoh6gpJthPoGg

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

Want to support my channel?

GCash Account

Jake Pomperada

09173084360

Paypal

https://paypal.me/jakerpomperada

Patreon

https://www.patreon.com/jakerpomperada

Thank you very much for your support.

Program Listing

PRINT "Area of the Circle in QBasic"

INPUT "Enter the radius" ;radius

C=22/7*radius^2

PRINT USING "The area of circle = #####.##" ;C

PRINT "End of Program"

END

Yearly Compounded Interest in C++

A simple program that I wrote to compute the yearly compounded interest of a loan using a 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.

Please subscribe to my channel https://www.youtube.com/channel/UCOs-lpOoIeJoh6gpJthPoGg

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

Want to support my channel?

GCash Account

Jake Pomperada

09173084360

Paypal

https://paypal.me/jakerpomperada

Patreon

https://www.patreon.com/jakerpomperada

Thank you very much for your support.

Program Listing

// compounded_interest.cpp

// Jake Rodriguez Pomperada, MAED-IT, MIT

// www.jakerpomperada.com and www.jakerpomperada.blogspot.com

// jakerpomperada@gmail.com

// Bacolod City, Negros Occidental Philippines

#include <iostream>

#include <iomanip>

using namespace std;

int main()

{

double amount = 00.;

double interest_rate = 0.00;

int years = 0;

cout << "\n\n";

cout <<"\tYearly Compounded Interest in C++";

cout << "\n\n";

cout << "\tGive Amount Loaned : ";

cin >> amount;

cout << "\tGive Interest Rate : ";

cin >> interest_rate;

cout << "\tGive Number of Years : ";

cin >> years;

cout << "\n\n";

for (int year = 1; year <= years; year++)

{

double interest = amount * interest_rate / 100;

amount += interest;

cout << "\tAfter year " << year << "\n" << fixed << setprecision(2)

<< "\tPHP Amount: " << amount << "\tInterest: PHP " <<

interest << "\n";

}

cout << "\n\n";

cout <<"\tEnd of Program";

cout << "\n\n";

}

Saturday, May 28, 2022

How To Remove Background Using Adobe Photoshop 2021

Rock, Paper, and Scissors Game in Python

A simple game program that I wrote using Python programming language called Rock, Paper, and Scissors I hope you will like it.

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.

Please subscribe to my channel https://www.youtube.com/channel/UCOs-lpOoIeJoh6gpJthPoGg

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

Want to support my channel?

GCash Account

Jake Pomperada

09173084360

Paypal

https://paypal.me/jakerpomperada

Patreon

https://www.patreon.com/jakerpomperada

Thank you very much for your support.

Program Listing

import random

name = input()
user_action = input("Enter a choice (rock, paper, scissors): ")
possible_actions = ["rock", "paper", "scissors"]
computer_action = random.choice(possible_actions)
print(f"\nYou chose {user_action}, computer chose {computer_action}.\n")

if user_action == computer_action:
    print(f"Both players selected {user_action}. It's a tie!")
elif user_action == "rock":
    if computer_action == "scissors":
        print(f"Rock smashes {name}! You win!")
    else:
        print(f"Paper covers {name}! You lose.")
elif user_action == "paper":
    if computer_action == "rock":
        print(f"Paper covers {name}! You win!")
    else:
        print(f"Scissors cuts {name}! You lose.")
elif user_action == "scissors":
    if computer_action == "paper":
        print(f"Scissors cuts {name}! You win!")
    else:
        print(f"Rock smashes {name}! You lose.")

Friday, May 27, 2022

Paano Mababilis Solve Ang Programming Problems

Decimal To Octal in JavaScript

A program asks the user to give a decimal number and then the program will convert the given decimal number into an octal equivalent using JavaScript 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.

Please subscribe to my channel https://www.youtube.com/channel/UCOs-lpOoIeJoh6gpJthPoGg

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

Want to support my channel?

GCash Account

Jake Pomperada

09173084360

Paypal

https://paypal.me/jakerpomperada

Patreon

https://www.patreon.com/jakerpomperada

Thank you very much for your support.

Program Listing

index.htm

<!DOCTYPE html>

<head>

<title>Convert Decimal to Octal Using JavaScript</title>

<style>

* {

box-sizing: border-box;

margin: 0;

padding: 0;

}

body {

background-color: #b1bfd8;

background-image: linear-gradient(315deg, #b1bfd8 0%, #6782b4 74%);

min-height: 100vh;

display: flex;

justify-content: center;

align-items: center;

font-family: sans-serif;

}

form {

background: #ccc;

padding: 30px;

border-radius: 10px;

}

h1, h2 {

text-align: center;

}

h1 {

text-transform: uppercase;

margin-bottom: 5px;

font-size: 30px;

}

h2 {

margin-bottom: 20px;

color: #2196f3;

font-size: 20px;

font-weight: 400;

}

label,

input,

button {

display: block;

font-size: 14px;

outline: none;

}

label {

padding: 5px 0;

}

.btn-group {

display: flex;

}

input {

border: 1px solid #ccc;

border-right: none;

border-radius: 3px 0 0 3px;

width: 100%;

padding: 10px;

}

button {

padding: 10px 14px;

background-color: #4caf50;

border: none;

border-radius: 0 3px 3px 0;

color: #fefefe;

cursor: pointer;

}

.output {

margin-top: 10px;

background-color: #607d8b;

padding: 15px;

color: #fefefe;

text-align: center;

max-width: 330px;

word-wrap: break-word;

border-radius: 3px;

}

.hidden {

display: none;

}

</style>

</head>

<body>

<h1>Convert<br>Decimal to Octal<br>Using JavaScript</h1>

<h2>Jake R. Pomperada, MAED-IT, MIT</h2>

<label for="txtNumber">Enter a number to convert:</label>

<button type="submit">Convert</button>

</div>

</form>

document.querySelector('form').onsubmit = (e) => {

e.preventDefault()

let number = parseInt(document.querySelector('#txtNumber').value),

output = document.querySelector('.output')

result = number.toString(8)

output.classList.remove("hidden")

output.innerHTML = 'Octal Value: ' + result

}

</script>

</body>

</html>

Thursday, May 26, 2022

Decimal To Binary Using JavaScript

A simple program asks the user to give a decimal value and then the program will convert the given decimal value into binary equivalent using JavaScript 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.

Please subscribe to my channel https://www.youtube.com/channel/UCOs-lpOoIeJoh6gpJthPoGg

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

Want to support my channel?

GCash Account

Jake Pomperada

09173084360

Paypal

https://paypal.me/jakerpomperada

Patreon

https://www.patreon.com/jakerpomperada

Thank you very much for your support.

Program Listing

index.htm

<!DOCTYPE html>

<head>

<title>Convert Decimal to Binary Using JavaScript</title>

<style>

* {

box-sizing: border-box;

margin: 0;

padding: 0;

}

body {

background-color: #d8dede;

background-image: linear-gradient(315deg, #d8dede 0%, #e5bdf6 74%);

min-height: 100vh;

display: flex;

justify-content: center;

align-items: center;

font-family: sans-serif;

}

form {

background: #fff0f0;

/* background: rgba(255, 255, 255, 0.4); */

padding: 30px;

border-radius: 10px;

}

h1, h2 {

text-align: center;

}

h1 {

text-transform: uppercase;

margin-bottom: 5px;

font-size: 30px;

}

h2 {

margin-bottom: 20px;

color: #ff9800;

font-size: 20px;

font-weight: 400;

}

label,

input,

button {

display: block;

font-size: 14px;

outline: none;

}

label {

padding: 5px 0;

}

.btn-group {

display: flex;

}

input {

border: 1px solid #ccc;

border-right: none;

border-radius: 3px 0 0 3px;

width: 100%;

padding: 10px;

}

button {

padding: 10px 14px;

background-color: #3D5A80;

border: none;

border-radius: 0 3px 3px 0;

color: #fefefe;

cursor: pointer;

}

.output {

margin-top: 10px;

background-color: #EE6C4D;

padding: 15px;

color: #fefefe;

text-align: center;

max-width: 330px;

word-wrap: break-word;

border-radius: 3px;

}

.hidden {

display: none;

}

</style>

</head>

<body>

<h1>Convert<br>Decimal to Binary<br>Using JavaScript</h1>

<h2>Jake R. Pomperada, MAED-IT, MIT</h2>

<label for="txtNumber">Enter a number to convert:</label>

<button type="submit">Convert</button>

</div>

</form>

document.querySelector('form').onsubmit = (e) => {

e.preventDefault()

let number = parseInt(document.querySelector('#txtNumber').value),

output = document.querySelector('.output')

result = number.toString(2)

output.classList.remove("hidden")

output.innerHTML = 'Binary Value: ' + result

}

</script>

</body>

</html>