Free Programming Source Codes and Computer Programming Tutorials: June 2020

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.

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

Difference of Two Numbers Using VB.NET

I wrote this program to ask the user to give two numbers and then the program will compute the difference between the two numbers and display the result on the screen using VB.NET

Program Listing

Public Class Form1

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

Dim a As Integer

Dim b As Integer

Dim difference As Integer

a = Val(TextBox1.Text)

b = Val(TextBox2.Text)

' compute the difference between variable a and variable b

difference = (a - b)

TextBox3.Text = difference

End Sub

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

TextBox1.Text = ""

TextBox2.Text = ""

TextBox3.Text = ""

TextBox1.Focus()

End Sub

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

End

End Sub

End Class

Remove Selected Pages Numbers in Microsoft Word

Wednesday, June 24, 2020

Gets Statement in C

A simple program that I wrote to show how to use gets statement using C programming language.

Program Listing

#include <stdio.h>

int main()

{

char name[100];

printf("\n\n");

printf("\tWhat is your name? ");

gets(name); /* read string using gets statement */

printf("\n\n");

printf("\tHi %s. How are you today? ",name);

printf("\n\n");

printf("\t");

puts(name); /* display string using puts statement*/

printf("\n\n");

printf("\tEnd of Program");

printf("\n\n");

}

Passing a String in a Function in C

I wrote this program to demonstrate how to pass a string in a function in C programming language.

Program Listing

#include <stdio.h>

void displayString(char str[]);

int main()

{

char str[50];

printf("\n\n");

printf("\tGive me your name? ");

gets(str);

displayString(str); // Passing string to a function.

printf("\n\n");

printf("\tEnd of Program");

printf("\n\n");

}

void displayString(char str[])

{

printf("\n\n");

printf("\tYour name is ");

puts(str);

}

String Copy in C

An example of a string copy program that I wrote using C programming language.

Program Listing

#include <stdio.h>

int main () {

char str1[10] = "Jake";

char str2[10] = "Pomperada";

char str3[10];

int len ;

// copy str1 into str3

strcpy( str3, str1);

printf("\n\n");

printf("\tstrcpy(str3, str1) : %s ",str3);

printf("\n");

// concatenates str1 and str2

strcat( str1, str2);

printf("\tstrcat( str1, str2): %s ",str1);

// total lenghth of str1 after concatenation

len = strlen(str1);

printf("\n");

printf("\tstrlen(str1) : %d ",len);

printf("\n\n");

printf("\t\tEnd of Program");

printf("\n\n");

}

Continue Statement in C

A program that I wrote to show how to use continue statement using C programming language.

Program Listing

#include <stdio.h>

int main()

{

int a = 1;

printf("\n\n");

printf("\tContinue Statement Demonstration");

do {

if (a==5) {

a+=1;

continue;

}

printf("\n\n");

printf("\tThe value of a: %d.",a);

a+=1;

} while (a <=10);

printf("\n\n");

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

printf("\n\n");

printf("\tEnd of Program");

printf("\n\n");

}

Break Statement in C

A program that I wrote to show how to use break statement in C programming language.

Program Listing

/*break.c

Author : Mr. Jake R. Pomperada,BSCS,MAED-IT

Date : November 23, 2018 Tuesday 11:48 AM

Location : Bacolod City, Negros Occidental

Website : http://www.jakerpomperada.com

Emails : jakerpomperada@jakerpomperada.com

jakerpomperada@gmail.com

jakerpomperada@yahoo.com

jakerpomperada@aol.com

#include <stdio.h>

int main()

{

int a=0;

printf("\n\n");

printf("\tBreak Statement in C");

printf("\n\n");

for (a=1; a<=10; a++)

{

if (a==6) {

break;

}

printf("\t%4d",a);

}

printf("\n\n");

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

printf("\n\n");

printf("\tEnd of Program");

printf("\n\n");

}

Logical Operators in C

A program that demonstrates how to use logical operators using C programming languages.

Program Listing

/* logical.c

Author : Jake Rodriguez Pomperada,BSCS,MAED-IT

Date : November 19, 2018 Monday 2:18 PM

Location : Bacolod City, Negros Occidental

Website : http://www.jakerpomperada.com

Emails : jakerpomperada@jakerpomperada.com

jakerpomperada@gmail.com

jakerpomperada@yahoo.com

jakerpomperada@aol.com

#include <stdio.h>

int main()

{

int a=10, b=4, c=10, d=20;

// logical AND example

printf("\n\n");

printf("\tLogical Operators Demonstration");

printf("\n\n");

if (a>b && c==d) {

printf("\n");

printf("\tA is greater than B AND C is equal to D.\n");

}

else {

printf("\n");

printf("\tAND condition not satisfied.\n");

}

// logical OR example

if (a>b || c==d) {

printf("\n");

printf("\tA is greater than B OR C is equal to D.\n");

}

else

{

printf("\n");

printf("\tNeither A is greater than B nor C is equal to D.\n");

}

// logical NOT example

if (!a) {

printf("\n");

printf("\tA is zero.\n");

}

else {

printf("\n");

printf("\tA is not zero.");

}

printf("\n\n");

printf("\tEnd of Program");

printf("\n\n");

}

Monday, June 22, 2020

Product of Two Numbers in VB.NET

A simple program that I wrote using Visual Basic NET 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.

Sample Program Output

Program Listing

Public Class Form1

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

Dim a, b, product As Integer

If TextBox1.Text = "" Then

MsgBox("Cannot Be Empty. Try Again")

TextBox1.Focus()

TextBox3.Text = ""

ElseIf TextBox2.Text = "" Then

MsgBox("Cannot Be Empty. Try Again")

TextBox2.Focus()

TextBox3.Text = ""

Else

a = Val(TextBox1.Text)

b = Val(TextBox2.Text)

product = (a * b)

TextBox3.Text = product

End If

End Sub

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

TextBox1.Text = ""

TextBox2.Text = ""

TextBox3.Text = ""

TextBox1.Focus()

End Sub

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

End

End Sub

End Class

Free Programming Source Codes and Computer Programming Tutorials

Sunday, June 28, 2020

String Palindrome in VB.NET

Prime Number Checker in VB.NET

Prime Number Checker in VB.NET

Number Palindrome in VB.NET

Number Palindrome in VB.NET

Number Factorials in VB.NET

Number Factorial in VB.NET

Login System in C#

Difference of Two Numbers Using VB.NET

Difference of Two Numbers Using VB.NET

Remove Selected Pages Numbers in Microsoft Word

Wednesday, June 24, 2020

Gets Statement in C

Passing a String in a Function in C

String Copy in C

Continue Statement in C

Break Statement in C

Logical Operators in C

Monday, June 22, 2020

Product of Two Numbers in VB.NET

Product of Two Numbers in VB.NET

Product of Two Numbers in VB.NET

Google Ads

Followers