Free Programming Source Codes and Computer Programming Tutorials

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.

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

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>

Friday, July 3, 2020

Leap Year Checker Using Structure in C

A simple program that I wrote to check the given year if it is a leap year or not a leap year using structure in the C programming language.

Program Listing

#include <stdio.h>

#include <stdlib.h>

struct leap_year {

int year;

};

int main()

{

struct leap_year years;

printf("\n\n");

printf("\tLeap Year Checker Using Structure in C");

printf("\n\n");

printf("\tGive a Year : ");

scanf("%d",&years.year);

printf("\n\n");

if(years.year%4==0)

{

if(years.year%100==0)

{

if(years.year%400==0)

printf("\tThe Given Year %d is a Leap Year. ",years.year);

else

printf("\tThe Given Year %d is Not a Leap Year. ",years.year);

}

else

printf("\tThe Given Year %d is a Leap Year. ",years.year);

}

else {

printf("\tThe Given Year %d is Not a Leap Year. ",years.year);

}

printf("\n\n");

printf("\tThank you for Using This Software.");

printf("\n\n");

system("PAUSE");

}

Generics in C++

A sample program was written by my friend Tom to demonstrate generics concepts in C++. Thank you for sharing your code Tom.

Program Listing

#include <iostream>
#include <iomanip>
#include <vector>

using namespace std;

template<class ReturnType, class Iter>
ReturnType average(Iter first, Iter last)
{
   ReturnType sum = ReturnType();
   size_t count = 0;

   while (first != last)
   {
     ++count;
     sum += *first;
     ++first;
   }
   return sum / count;
}

int main()
{
   vector<int> numbers = { 3, 5, 2, 4, 7, 2, 2 };
   float avg1 = average<float>(numbers.begin(), numbers.end());
   cout << setprecision(10) << "Avg<float> = " << avg1 << '\n';

   double avg2 = average<double>(numbers.begin(), numbers.end());
   cout << setprecision(10) << "Avg2<double> = " << avg2 << '\n';

   long double avg3 = average<long double>(numbers.begin(), numbers.end());
   cout << setprecision(10) << "Avg3<long double> = " << avg3 << '\n';
}

Thursday, July 2, 2020

How to run a program in CodeBlocks in Linux

Wednesday, July 1, 2020

Structure in C language

A program to demonstrate how to use structure statements using C programming language.

Program Listing

#include <stdio.h>

main()

{

enum emp_dept

{

assembly, manufacturing, accounts, stores

} ;

struct employee

{

char name[150] ;

int age ;

float bs ;

enum emp_dept department ;

} ;

struct employee e ;

strcpy ( e.name, "Jake R. Pomperada" ) ;

e.age = 42 ;

e.bs = 6875.50 ;

e.department = manufacturing ;

printf ( "\nName = %s", e.name ) ;

printf ( "\nAge = %d", e.age ) ;

printf ( "\nBasic salary = %f", e.bs ) ;

printf ( "\nDept = %d", e.department ) ;

if ( e.department == accounts )

printf ( "\n%s is an accounant", e.name ) ;

else

printf ( "\n%s is not an accounant", e.name ) ;

}

Freelance Software Engineer, IT Consultant and Lecturer

Sunday, June 28, 2020

String Palindrome in VB.NET

I wrote this program to ask the user to give a string and then the program will check if the given string is a palindrome or not using Microsoft Visual Basic .NET.

Sample Program Listing

Program Listing

Public Class Form1

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

Dim strText As String = UCase(TextBox1.Text)

Dim str As String

str = StrReverse(UCase(strText))

If str.Equals(strText) Then

MsgBox("The given string is " & strText & " is a Palindrome.")

TextBox1.Focus()

Else

MsgBox("The given string is " & strText & " is a Not Palindrome.")

TextBox1.Focus()

End If

End Sub

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

TextBox1.Text = ""

TextBox1.Focus()

End Sub

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

If MsgBox("Are you sure you want to quit?", vbYesNo + vbQuestion, "Quit") = vbYes Then

Me.Close()

Else

Me.Show()

TextBox1.Text = ""

TextBox1.Focus()

End If

End Sub

End Class

Prime Number Checker in VB.NET

I wrote this program using Microsoft Visual Basic NET to ask the user to give a number and then the program will check if the given number is a prime number or not.

Sample Program Output

Program Listing

Public Class Form1

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

Dim i, j As Integer

Dim t As Boolean

i = Val(TextBox1.Text)

t = True

For j = 2 To (i - 1)

If i Mod j = 0 Then

t = False

Exit For

End If

Next j

If t Then

MsgBox("The given number " & i & " is a Prime Number.")

TextBox1.Focus()

Else

MsgBox("The given number " & i & " is not a Prime Number")

TextBox1.Focus()

End If

End Sub

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

If MsgBox("Are you sure you want to quit?", vbYesNo + vbQuestion, "Quit") = vbYes Then

Me.Close()

Else

Me.Show()

TextBox1.Text = ""

TextBox1.Focus()

End If

End Sub

End Class

Number Palindrome in VB.NET

I wrote this program to ask the user to give a number and then the program will check if the number is a palindrome or not using vb.net.

Sample Program Output

Program Listing

Public Class Form1

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

Dim strText As String = TextBox1.Text

Dim str As String

str = StrReverse(strText)

If str.Equals(strText) Then

MsgBox("The given number " & strText & " is a Palindrome.", vbInformation, "Result")

TextBox1.Focus()

Else

MsgBox("The given number " & strText & " is a Not Palindrome.", vbInformation, "Result")

TextBox1.Focus()

End If

End Sub

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

TextBox1.Text = ""

TextBox1.Focus()

End Sub

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

If MsgBox("Are you sure you want to quit?", vbYesNo + vbQuestion, "Quit Program") = vbYes Then

Me.Close()

Else

Me.Show()

TextBox1.Text = ""

TextBox1.Focus()

End If

End Sub

End Class

Number Factorials in VB.NET

Number Factorial in VB.NET

I wrote this program to ask the user to give a number and then the program will compute the factorial value of the given number by the user using Microsoft Visual Basic.NET.

Sample Program Output

Program Listing

Public Class Form1

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

Dim n, f, i As Integer

f = 1

n = Val(TextBox1.Text)

For i = 1 To n

f = f * i

MsgBox("Factorial is :" & f, vbInformation, "Factorial")

End Sub

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

TextBox1.Text = ""

TextBox1.Focus()

End Sub

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

If MsgBox("Are you sure you want to quit?", vbYesNo + vbQuestion, "Quit") = vbYes Then

Me.Close()

Else

Me.Show()

TextBox1.Text = ""

TextBox1.Focus()

End If

End Sub

End Class

Login System in C#

I wrote this program to show how to create a login system using C# and text files.

Sample Program Output

Program Listing

login.txt

jake jake

admin admin

tom abc

iya iya

jacob jacob

allie allie

UserManager.cs

using System.Collections.Generic;

using System.Diagnostics;

using System.IO;

namespace LoginSystem

{

class UserManager

{

public void Load(string filename)

{

Debug.Assert(!string.IsNullOrEmpty(filename));

Debug.Assert(File.Exists(filename));

string[] lines = File.ReadAllLines(filename);

foreach (string line in lines)

{

string[] tokens = line.Split('\t');

if (tokens.Length == 2)

credentials.Add(tokens[0], tokens[1]);

else

Debug.WriteLine("Read invalid line: {}", line);

}

public bool ValidateUser(string user, string password)

{

if (!credentials.ContainsKey(user))

return false;

else

return credentials[user] == password;

}

IDictionary<string, string> credentials = new Dictionary<string, string>();

}

ConsoleUtils.cs

using System;

using System.Text;

namespace LoginSystem

{

static class ConsoleUtils

{

public static string ReadPassword(char display)

{

StringBuilder sb = new StringBuilder();

while (true)

{

ConsoleKeyInfo key = Console.ReadKey(true);

if (key.Key == ConsoleKey.Enter)

break;

sb.Append(key.KeyChar);

Console.Write(display);

}

return sb.ToString();

}

Main.cs

using System;

namespace LoginSystem

{

class Program

{

static void Main(string[] args)

{

UserManager mgr = new UserManager();

mgr.Load("login.txt");

Console.Write("\n\n");

Console.Write("\t\tLogin System in C#\n\n");

Console.Write("\tCreated By Jake Rodriguez Pomperada\n");

Console.Write("\n");

Console.Write("\tEnter Username : ");

string user = Console.ReadLine();

Console.Write("\tEnter Password : ");

string pw = ConsoleUtils.ReadPassword('$');

Console.WriteLine("\n");

if (mgr.ValidateUser(user, pw))

Console.WriteLine("\tLogin successful to the system.");

else

Console.WriteLine("\tEither username or password is wrong. Try Again.");

Console.ReadKey();

}

DOWNLOAD THE COMPLETE SOURCE CODE HERE

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

Saturday, July 4, 2020

Friday, July 3, 2020

Thursday, July 2, 2020

Wednesday, July 1, 2020

Sunday, June 28, 2020

Google Ads

Followers