Free Programming Source Codes and Computer Programming Tutorials

Sunday, July 19, 2020

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.

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 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.

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/

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>

Free Programming Source Codes and Computer Programming Tutorials

Sunday, July 19, 2020

Hello World in Pascal

Thursday, July 16, 2020

Factors Finder of a Number in VB.NET

Factors Finder of a Number in VB.NET

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

Sunday, July 12, 2020

Change Directories in Microsoft Windows Command Line

Hello World in Batch File Programming

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

Wednesday, July 8, 2020

Text File To RTF in C

Tuesday, July 7, 2020

Hello World in Go in Linux

Clear Command in Linux

How to use PWD command in Linux

Monday, July 6, 2020

CRUD Using AngularJS and Visual Basic 6

Calculator in HTML,CSS and JavaScript

Google Ads

Followers