Free Programming Source Codes and Computer Programming Tutorials: July 2020

Thursday, July 30, 2020

Today's Date in VB.NET

Today's Date in Visual Basic.NET

A very simple program that I wrote using Microsoft Visual Basic NET to display the current date.

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.

Sample Program Output

Program Listing

Public Class Form1

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

Dim dt As Date = Today

Label1.Text = "Today is " & dt

End Sub

End Class

Wednesday, July 29, 2020

Product of Two Numbers in Visual Basic 6

A simple program that I wrote to ask the user to give two numbers and then the program will compute the product of two numbers using Microsoft Visual Basic 6.

Sample Program Output

Program Listing

Private Sub Command1_Click()

Dim a, b, product As Integer

a = Val(Form1.Text1(0).Text)

b = Val(Form1.Text1(1).Text)

product = (a * b)

MsgBox ("The product of " & a & " and " & b & " is " & product & ".")

End Sub

Private Sub Command2_Click()

Form1.Text1(0).Text = ""

Form1.Text1(1).Text = ""

Form1.Text1(0).SetFocus

End Sub

Private Sub Command3_Click()

End

End Sub

Tuesday, July 28, 2020

Sum of Two Numbers in VB.NET

Write a program using Visual Basic.NET to ask the user to give two numbers and then the program will compute the sum of two numbers and display the results on the screen. Using Graphical User

Interface.

My programming website is http://www.jakerpomperada.blogspot.comI am also a book author you can purchase my books on computer programming and information technology in the following links below. https://www.unlimitedbooksph.com/

Sample Program Output

Program Listing

Public Class Form1

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

If TextBox1.Text = "" Or IsNumeric(TextBox1.Text) = False Then

MessageBox.Show("Please enter a numeric value.")

TextBox1.Focus()

ElseIf TextBox2.Text = "" Or IsNumeric(TextBox2.Text) = False Then

MessageBox.Show("Please enter a numeric value.")

TextBox2.Focus()

Else

Dim sum As Integer = 0

Dim a As Integer = 0

Dim b As Integer = 0

a = Val(TextBox1.Text)

b = Val(TextBox2.Text)

sum = a + b

MessageBox.Show("The sum of " & a & " and " & b & " is " & sum & ".")

End If

End Sub

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

TextBox1.Text = ""

TextBox2.Text = ""

TextBox1.Focus()

End Sub

Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click

End

End Sub

End Class

Monday, July 27, 2020

Student Grading System in C

A simple program that I wrote using C programming language I called this program student grading system.

Sample Program Output

Program Listing

#include <stdio.h>

#define PRELIM_PERCENTAGE 0.20

#define MIDTERM_PERCENTAGE 0.30

#define ENDTERM_PERCENTAGE 0.50

int main()

{

char student[200];

char subject[100];

float solve_grade = 0.00;

int prelim=0,midterm=0,endterm=0;

float pre=0.00,mid=0.00,end=0.00;

printf("\n\n");

printf("\tStudent Grading System in C");

printf("\n\n");

printf("\tStudent's Name : ");

gets(student);

printf("\n");

printf("\tSubject Taken : ");

gets(subject);

printf("\n");

printf("\tPrelim Grade : ");

scanf("%d",&prelim);

printf("\tMidterm Grade : ");

scanf("%d",&midterm);

printf("\tEndterm Grade : ");

scanf("%d",&endterm);

/* Compute the student's grade */

pre = (prelim * PRELIM_PERCENTAGE);

mid = (midterm * MIDTERM_PERCENTAGE);

end = (endterm * ENDTERM_PERCENTAGE);

solve_grade = (pre + mid + end);

printf("\n\n");

printf("\t===== DISPLAY RESULT =====");

printf("\n\n");

printf("\tStudent's' Name : %s",student);

printf("\n");

printf("\tSubject Taken : %s",subject);

printf("\n");

printf("\tSubject Grade : %2.0f",solve_grade);

printf("\n\n");

printf("\tEnd of Program");

printf("\n");

}

Payroll Program in C

A simple payroll program that I wrote using the C programming language.

Sample Program Output

Program Listing

#include <stdio.h>

#define RATE_PER_DAY 84.50

int main()

{

char emp_name[200];

int days = 0;

float solve_salary = 0.00;

printf("\n\n");

printf("\tPayroll Program in C");

printf("\n\n");

printf("\tEmployee's Name : ");

gets(emp_name);

printf("\tNo. Day's Worked : ");

scanf("%d",&days);

/* Compute the employee's salary */

solve_salary = (days * RATE_PER_DAY);

printf("\n\n");

printf("\t===== DISPLAY RESULT =====");

printf("\n\n");

printf("\tEmployee's' Name : %s",emp_name);

printf("\n");

printf("\tEmployee's Salary : PHP %5.2f.",solve_salary);

printf("\n\n");

printf("\tEnd of Program");

printf("\n");

}

Sum and Product of Numbers in C

A simple program that I wrote using a C programming language to ask the user to give two numbers and then the program will sum and compute the product of the two given numbers and display the results in the screen.

I am currently accepting programming work inventory system, enrollment system, accounting system, payroll system, information system, website design and development using WordPress, 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 City, Negros Occidental I also accepting computer repair, web development using WordPress, Computer Networking, and Arduino Project development at a very affordable price. My personal website is http://www.jakerpomperada.comMy programming website is http://www.jakerpomperada.blogspot.comI am also a book author you can purchase my books on computer programming and information technology in the following links below. https://www.unlimitedbooksph.com/

Sample Program Output

Program Listing

#include <stdio.h>

int main()

{

int a=0,b=0,sum=0,product=0;

printf("\n\n");

printf("\tSum and Product of Numbers in C");

printf("\n\n");

printf("\tGive Two Numbers : ");

scanf("%d%d",&a,&b);

/* Compute Sum and Product of Two Numbers */

sum = (a + b);

product = (a * b);

printf("\n\n");

printf("\t===== DISPLAY RESULTS =====");

printf("\n\n");

printf("\tThe sum of %d and %d is %d.",a,b,sum);

printf("\n");

printf("\tThe product of %d and %d is %d.",a,b,product);

printf("\n\n");

printf("\tEnd of Program");

printf("\n");

}

Thursday, July 23, 2020

Addition of Two Numbers in Golang

Here is a simple program to ask the user to give two numbers and then the program will compute the sum of two numbers and display the results using Golang programming language.

Sample Program Output

Program Listing

addition.go

// addition.go
// Author : Jake Rodriguez Pomperada,MAED-IT,MIT
// Date    : July 23, 2020 Thursday   10:01 PM
// Website : http://www.jakerpomperada.com
// Email   : jakerpomperada@gmail.com and jakerpomperada@yahoo.com

package main

import "fmt"

func main(){

    var n1 int
    var n2 int

    fmt.Print("\n\n")
    fmt.Print("\tAddition of Two Numbers in Golang")
    fmt.Print("\n\n")
    fmt.Print("\tEnter first number: ")
    fmt.Scanln(&n1) // take input from user
    fmt.Print("\tEnter Second number: ")
    fmt.Scanln(&n2) // take input from user

    result := n1 + n2

    fmt.Print("\n")
    fmt.Println("\tThe sum of",n1,"and",n2, "is",result,".")
    fmt.Print("\n\n")
    fmt.Print("\tEnd of Program")
    fmt.Print("\n")
}

Wednesday, July 22, 2020

Volume of a Sphere Converter in C

A simple program that I wrote using C programming language to compute the volume of a sphere.

My programming website is http://www.jakerpomperada.blogspot.com I am also a book author you can purchase my books on computer programming and information technology in the following links below. https://www.unlimitedbooksph.com/

Sample Program Output

Program Listing

#include <stdio.h>

#define PI 3.14

int main()

{

float volume_sphere = 0.00;

float radius = 0.00;

printf("\n\n");

printf("\tVolume of a Sphere Converter");

printf("\n\n");

printf("\tEnter Radius Value : ");

scanf("%f",&radius);

/* Compute the volume of Sphere */

volume_sphere = (4.0/3.0)*(PI*radius*radius*radius);

printf("\n\n");

printf("\tThe Volume of Sphere is %5.2f.",volume_sphere);

printf("\n\n");

printf("\tEnd of Program");

printf("\n");

}

US Dollar To Philippine Peso Converter in C

I wrote this simple program to ask the user to give US dollar values and then the program will convert the given us dollar values into Philippine peso equivalent.

Sample Program Output

Program Listing

#include <stdio.h>

#define PHIL_PESO 50.74

int main()

{

float convert = 0.00, us_dollar = 0.00;

printf("\n\n");

printf("\tUS Dollar To Philippine Peso Converter");

printf("\n\n");

printf("\tEnter US Dollar Value : ");

scanf("%f",&us_dollar);

convert = (us_dollar * PHIL_PESO);

printf("\n\n");

printf("\tThe value of $%2.2f US Dollars in ",us_dollar);

printf("Philippine Peso is PHP %2.2f.",convert);

printf("\n\n");

printf("\tEnd of Program");

printf("\n");

}

Tuesday, July 21, 2020

Greet a Person in Pascal

I simple program to ask the user to give a name and then the program will greet the person using Pascal programming language. I am currently accepting programming work inventory system, enrollment system, accounting system, payroll system, information system, website design and development using WordPress, 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 City, Negros Occidental I also accepting computer repair, web development using WordPress, Computer Networking, and Arduino Project development at a very affordable price. My personal website is http://www.jakerpomperada.comMy programming website is http://www.jakerpomperada.blogspot.comI am also a book author you can purchase my books on computer programming and information technology in the following links below. https://www.unlimitedbooksph.com/

Program Listing

program Greet_Person; Uses Crt; Var person : String[100]; begin Clrscr; Gotoxy(25,2); Write('Greet a Person in Pascal'); Writeln; Writeln; Write('What is your name? '); Readln(person); Writeln; Writeln; Write('Hello ',person,' How are you today?'); Writeln; Readln; end.

Greet a Person in Pascal

Product of Two Numbers in Pascal

Sunday, July 19, 2020

Multiplication Table in Pascal

I wrote this program to display a multiplication table using the Pascal programming language. I am using Free Pascal in writing this program.

Here in Bacolod City, Negros Occidental I also accepting computer repair, web development using WordPress, Computer Networking, and Arduino Project development at a very affordable price. My personal website is http://www.jakerpomperada.comMy programming website is http://www.jakerpomperada.blogspot.comI am also a book author you can purchase my books on computer programming and information technology in the following links below.

https://www.unlimitedbooksph.com/

Program Listing

program multiplication_table;

Uses Crt;

Var row,column : integer;

begin

row := 0; column := 0;

Clrscr;

gotoxy(12,2);

Write('Multiplication Table in Pascal');

Writeln; Writeln;

For row := 1 to 12 Do

Begin

For column := 1 to 12 Do

Begin

write(row * column:4);

end;

writeln;

end;

Writeln;

Gotoxy(17,17);

Write('End of Program');

Readln;

end.

Hello World in Pascal

A simple program that I wrote using Pascal programming language to display a hello world message on the screen. I am using Free Pascal as my Pascal compiler in writing this program and Lazarus IDE as my text editor.

https://www.unlimitedbooksph.com/

Program Listing

program hello_world;

Uses Crt;

begin

Clrscr;

Gotoxy(28,12);

Write('Hello World in Pascal Programming Language.');

Readln;

end.

Thursday, July 16, 2020

Factors Finder of a Number in VB.NET

I this article I would like to share with you how to write factor finders of a number in vb.net. This is a program that can find factors of a number entered by the user and display them in a list box.

Sample Program Output

Program Listing

Public Class Form1

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

Dim N, x As Integer

N = Val(TextBox1.Text)

For x = 2 To N - 1

If N Mod x = 0 Then

ListBox1.Items.Add(x)

End If

ListBox1.Items.Add(N)

End Sub

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

ListBox1.Items.Clear()

TextBox1.Text = ""

TextBox1.Focus()

End Sub

Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click

End

End Sub

End Class

Monday, July 13, 2020

Removing a Folder in Microsoft Windows Command Line

Reading a Text File in Microsoft Windows Command Line

Clear Screen in Microsoft Windows Command Line

Date in Microsoft Windows Command Line

Checking Microsoft Windows Version Using Command Line

Friday, July 10, 2020

DAVE VILLANUEVA SASAMPAHAN NG KASO NG CYBER LIBEL NG RTIA STAFF, RAFFY ...

Calculate Area and Circumference of Circle in Go

Addition of Two Numbers in Go

Remove Horizontal Tab in C

A program was written by my friend and fellow software engineer named Tom. Thank you Tom for sharing your code to us. This program will remove the horizontal tab and replace it with space using a C programming language.

Program Listing

#include <stdio.h>
#include <stdlib.h>
#include <string.h>
#include <stdbool.h>
#include <stdint.h>
#include <ctype.h>
#include <assert.h>

#include "debug.h"

void expand_tabs(char *src, char *dest, size_t nrepeat)
{
   assert(src != NULL);
   assert(dest != NULL);
   assert(nrepeat > 0);

   while (*src)
   {
     if (*src == '\t')
     {
       for (size_t i = 0; i < nrepeat; ++i)
         *dest++ = ' ';

       *src++;
     }
     else
     {
       *dest++ = *src++;
     }
   }
   *dest = '\0';
}

int main()
{
   char org_text[] = "1\t2\t3";
   char mod_text[sizeof(org_text) * 3 + 1] = {'\0'};

   puts("Tabs to spaces:");
   printf("Original text: %s\n", org_text);
   expand_tabs(org_text, mod_text, sizeof(org_text), 2);
   printf("Modified text: %s\n", mod_text);
}

Wednesday, July 8, 2020

Text File To RTF in C

A program was written by Ben a.k.a DreamVB that I like to share a small tool to convert text files to RTF files using a C programming language.

Program Listing

TXT2RTF

A small tool to convert text files to RTF files.

Author: Ben a.k.a DreamVB

Version: 1.0

Type: Open Source

Contact: dreamvb@outlook.com {for any questions regarding this program}

#define _CRT_SECURE_NO_WARNINGS

#include <stdio.h>

#include <stdlib.h>

#include <string.h>

#define EXIT_IF(cnd) {if((cnd)) perror(NULL); exit(EXIT_FAILURE);}

void process_char(FILE* output, char ch)

{

switch(ch)

{

case '\r':

fputs("\\par", output);

fputc('\r', output);

break;

case '\n':

fputc(ch, output);

break;

case '\t':

fputs("\\tab ", output);

break;

case '\\':

fputs("\\\\", output);

break;

case '{':

fputc('\\', output);

fputc(ch, output);

break;

case '}':

fputc('\\', output);

fputc(ch, output);

break;

default:

if ((ch >= 0x20 && (ch <= 0x7F)))

{

fputc(ch, output);

}

else

{

fputs("\\'", output);

fprintf(output, "%02X", ch);

}

void process_files(FILE* input, FILE* output)

{

int ch;

while ((ch = fgetc(input)) != EOF)

{

process_char(output, ch);

}

void print_header(FILE* fout, char *font_name, char *font_size)

{

fputs("{\\rtf1\\ansi\\deff0\\nouicompat{\\fonttbl{\\f0\\fnil\\fcharset0 ", fout);

fputs(font_name, fout);

fputs(";}}\r\n", fout);

fputs("{\\*\\generator DM TXT2RTF 1.0}\\viewkind4\\uc1 \r\n", fout);

fputs("\\pard\\", fout);

fputs("fs", fout);

fputs(font_size, fout);

fputs("\\lang2057 ", fout);

}

void print_footer(FILE* fout)

{

fputs("\\par\r\n}\r\n", fout);

fputc(0, fout);

}

int main(int argc, char* argv[])

{

FILE *fin = NULL;

FILE *fout = NULL;

char sFont[30] = "Consolas";

char sFontsize[10] = "11";

if (argc < 3)

{

printf("Usage: <InFile> <OutFile> [FontName] [FontSize]\n");

return 0;

}

fin = fopen(argv[1], "rb");

EXIT_IF(fin == NULL);

fout = fopen(argv[2], "wb");

EXIT_IF(fout==NULL);

if (argc == 4)

strncpy(sFont, argv[3], sizeof(sFont)-1);

if (argc == 5)

strncpy(sFontsize, argv[4], sizeof(sFontsize)-1);

print_header(fout, sFont, sFontsize);

process_files(fin, fout);

print_footer(fout);

fclose(fin);

fclose(fout);

system(argv[2]);

return 1;

}

Monday, July 6, 2020

CRUD Using AngularJS and Visual Basic 6

A CRUD program is written using AngularJS and Visual Basic 6 wrote by my best friend and fellow software engineer Sir Larry Dave Emol. Thank you Sir Larry.

Download the Complete Source Code Here

Calculator in HTML,CSS and JavaScript

A calculator program was written by my close friend and fellow software engineer Sir Ernel. Thank you sir for sharing your work with us.

Program Listing

<!DOCTYPE html>

<html>

<head>

function insert(num){

document.form.textview.value=document.form.textview.value+num;

}

function equal(){

var exp=document.form.textview.value;

if(exp){

document.form.textview.value=eval(exp);

}

function clear(){

document.form.textview.value="";

}

function back(){

var exp=document.form.textview.value;

document.form.textview.value=exp.substring(0,exp.length-1);

}

</script>

<style>

.button:hover{

background:linear-gradient(#C6F8FF,#71C2FF,#2681E6,#00BDFF,#6ED0FF);

}

#c:hover{

background:linear-gradient(#C6F8FF,#71C2FF,#2681E6,#00BDFF,#6ED0FF);}

#F:hover{

background:linear-gradient(#C6F8FF,#71C2FF,#2681E6,#00BDFF,#6ED0FF)

;}

#F{

background:black;

color:white;

transition-duration:1s;

}

#c{

background:linear-gradient(#EDEDED,red,#FFB6B9);

color:white;

transition-duration:1s;

}

.button{

padding:0;

border-radius:5px;

width:50px;

height:50px;

font-size:30px;

font-weight:500px;

box-shadow:2px 1px 5px black;

background:linear-gradient(#DDDDDD,#848484,#333333,#595959,#767676);

transition-duration:1s;

color:white;

}

.end:hover{

background:linear-gradient(#C6F8FF,#71C2FF,#2681E6,#00BDFF,#6ED0FF);

}

.end{

width:50px;

height:50px;

margin-left:60px;

width:160px;

font-size:30px;

border-radius:5px;

box-shadow:2px 1px 5px black;

background:linear-gradient(#00FFF3,#00CEFF,#0083FF,#002CFF);

color:white;

transition-duration:1s;

}

.textview{

width:210px;

margin-left:5px;

margin-top:5px;

border-radius:5px;

padding-top:0;

background:#C2E3E3;

font-size:25px;

}

table{

margin-left:4px;

}

#zero{

height:105px;

position:absolute;

left:15px;

top:225px;

font-size:30px;

}

.main{

border:2px inset black;

background:linear-gradient(#616266,#808080);

box-shadow:2px 1px 5px;

width:225px;

height:345px;

border-radius:10px;

}

.calc{

font-family:serif;

text-align:center;

background:radial-gradient(#FF7900,#F2FF00);

border-radius:50px;

border:solid 1px;

}

</style>

</head>

<body>

</form>

<table>

<tr>

</tr>

<tr>

</tr>

<tr>

</tr>

<tr>

</tr>

</table>

<input type="submit" value="."

class="button" onclick="insert('.')" id="zero">

<p class="calc">Calculater</p>

</div>

</body>

</html>

Thursday, July 30, 2020

Wednesday, July 29, 2020

Tuesday, July 28, 2020

Monday, July 27, 2020

Thursday, July 23, 2020

Wednesday, July 22, 2020

Tuesday, July 21, 2020

Sunday, July 19, 2020

Thursday, July 16, 2020

Monday, July 13, 2020

Sunday, July 12, 2020

Friday, July 10, 2020

Wednesday, July 8, 2020

Tuesday, July 7, 2020

Monday, July 6, 2020

Google Ads

Followers