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.

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/



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.

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

<!DOCTYPE html>
<html>
<head>
<script>

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>
<div class="main">

<form name="form">
<input class="textview" name="textview">
</form>
<table>

<tr>
<td><input type="submit" value="7" class="button" onclick="insert(7)"></td>
<td><input type="submit" value="8"   class="button" onclick="insert(8)"></td>
<td><input type="submit" value="9" class="button" onclick="insert(9)"></td>
<td> <input type="submit" value="C" class="button" onclick="back();" id="c"></td>
</tr>
<tr>
<td><input type="submit" value="4" class="button" onclick="insert(4)"></td>
<td><input type="submit" value="5" class="button" onclick="insert(5)"></td>
<td><input type="submit" value="6" class="button" onclick="insert(6)"></td>
<td><input type="submit" value="/" class="button" onclick="insert('/')" id="F"></td>
</tr>
<tr>
<td><input type="submit" value="1" class="button" onclick="insert(1)"></td>
<td><input type="submit" value="2" onclick="insert(2)" class="button"></td>
<td><input type="submit" value="3" class="button" onclick="insert(3)"></td>
<td><input type="submit" value="" class="button" onclick="insert('')" id="F"></td>
</tr>
<tr>
<td></td>
<td><input type="submit" value="0" class="button" onclick="insert(0)" ></td>
<td><input type="submit" value="-"  class="button" onclick="insert('-')" id="F"></td>
<td><input type="submit" value="+" class="button" onclick="insert('+') "id="F"></td>
</tr>
</table>

<input type="submit" value="=" class="end" onclick="equal()">
<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.

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

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

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

#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';
}


Wednesday, July 1, 2020

Structure in C language

A program to demonstrate how to use structure statements using C 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.com

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

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

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

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.

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

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.

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

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

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

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();
    }
  }
}




Difference of Two Numbers Using VB.NET