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.

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

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

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




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.

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

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

/*
  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;
}