Thursday, August 22, 2019

Addition of Two Numbers Using Structures in Golang


Write a program using structures that will ask the user to give two numbers and then the program will compute the sum of the two numbers and display the results on the screen.

I am currently accepting programming work, 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 I also accepting computer repair, networking and Arduino Project development at a very affordable price.

My personal website is http://www.jakerpomperada.com



Sample Program Output


Program Listing

/* addition_structures.go
   Author   : Mr. Jake Rodriguez Pomperada,MAED-IT
   Date     : August 6, 2019    Tuesday  1:22 PM
   Location : Bacolod City, Negros Occidental
   Website  : http://www.jakerpomperada.com
   Emails   : jakerpomperada@gmail.com and jake_pomperada@tup.edu.ph
 */

package main

import "fmt"

type add struct {
a int
b int
sum int
}
func main() {

var math add

fmt.Print("\n")
fmt.Print("\tAddition of Two Numbers Using Structures in Golang")
fmt.Print("\n\n")
fmt.Print("\tEnter two numbers: ")
fmt.Scanf("%d%d",&math.a,&math.b)
math.sum = (math.a + math.b)
fmt.Print("\n")
fmt.Println("\tThe sum of",math.a, "and",math.b ,"is",math.sum,".")
fmt.Print("\n")
fmt.Print("\tEnd of Program")
fmt.Print("\n")
}


Cube a Number Solver in QBasic

In this article, I would like to share with you guys a sample program that will ask the user a number and then the program will compute the cube equivalent of the given number of the user.

I am currently accepting programming work, 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 I also accepting computer repair, networking and Arduino Project development at a very affordable price.

My personal website is http://www.jakerpomperada.com



Sample Program Output


Program Listing

cube.bas

CLS
PRINT
PRINT "Cube a Numbers in QBasic"
PRINT
INPUT "Give a Number : "; Num_val
solve = Num_val ^ 3
PRINT
PRINT "The Cube Equivalent of the Numbers is";solve;"."
PRINT
PRINT "End of Program"
PRINT
END



Square a Number Using QBasic

In this article, I would like to share with you guys a sample program that will ask the user a number and then the program will compute the square equivalent of the given number of the user.

I am currently accepting programming work, 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 I also accepting computer repair, networking and Arduino Project development at a very affordable price.

My personal website is http://www.jakerpomperada.com



Sample Program Output


Program Output

square.bas

CLS
PRINT
PRINT "Square a Numbers in QBasic"
PRINT
INPUT "Give a Number : "; Num_val
solve = Num_val ^ 2
PRINT
PRINT "The Square Equivalent of the Numbers is";solve;"."
PRINT
PRINT "End of Program"
PRINT
END



Prime Number Checker in QBasic

A very simple program that I wrote using QBasic that will ask the user to give a number and then the program will check if the given number is a Prime or Not a Prime Number.

I am currently accepting programming work, 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 I also accepting computer repair, networking and Arduino Project development at a very affordable price.

My personal website is http://www.jakerpomperada.com






Sample Program Output


Program Listing

prime.bas

CLS
PRINT
PRINT "Prime Number Checker in QBasic"
PRINT
INPUT "Give a Number : "; num_val
C = 0
PRINT
FOR I = 1 TO num_val
    IF num_val MOD I = 0 THEN C = C + 1
NEXT I
IF C = 2 THEN
    PRINT "The given number"; num_val; "is a Prime Number."
ELSE
    PRINT "The given number"; num_val; " is not a Prime Number."
END IF
PRINT
print "End of Program"
END


Clap Switch With Lamp in Arduino

Here is a sample application that I work on a simple project that will allow the user to turn on the Bulb by merely clapping his or her hand using Arduino Uno.  Below is the list of materials and the procedure on how to connect the components.

I am currently accepting programming work, 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 I also accepting computer repair, networking and Arduino Project development at a very affordable price.

My personal website is http://www.jakerpomperada.com


Here is a list of parts you need:

1. A lamp

2. An Arduino Uno with USB cable

3. A breadboard(We can get rid of this for a finished product)

4. A 240v relay module

5. A sound sensor/microphone

6. Jumper Wires

Tools you need

1. Pliers

2. Screwdriver(for relay module)


Procedure

The Arduino circuit is a very simple one:

Microphone GND > Arduino GND

Microphone 5v/vcc > Arduino 5v/vin

Microphone OUT > Arduino Digital Pin 10

Relay Module VCC > Arduino 5v/vin

Relay Module GND > Arduino GND

Relay Module In1/in > Arduino Digital Pin 3




Sample Output


Program Listing

clap.ino

int soundDetectedPin = 10;
int soundDetectedVal = HIGH;

int led1 = 3;

void setup ()
{
  pinMode(led1, OUTPUT);
  pinMode (soundDetectedPin, INPUT) ;
}
void loop ()
{
  soundDetectedVal = digitalRead (soundDetectedPin) ;
  if (soundDetectedVal == LOW)
  {
    digitalWrite(led1, !digitalRead(led1));
    delay(250);
  }
}




Tuesday, August 20, 2019

Celsius To Fahrenheit Converter in LISP

A simple program that will ask the user temperature in Celsius and then it will convert the given temperature into Fahrenheit temperature equivalent using LISP programming language.

I am currently accepting programming work, 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 I also accepting computer repair, networking and Arduino Project development at a very affordable price.

My personal website is http://www.jakerpomperada.com


Sample Program Output


Program Listing

celsius.lisp


(defun temperature()
  (terpri)
  (princ "Celsius To Fahrenheit Converter in LISP")
  (terpri)
  (terpri)
  (princ "Enter Celsius Temperature : ")
  (setq ctemp (read))
  (terpri)
  (setq fahr  (+ (* ctemp (/ 9.0 5.0)) 32.0))
  (princ "The temperature in Fahrenheit is  ")
  (write fahr))
  (terpri)
  (temperature)



Fahrenheit To Celsius Converter in LISP

A simple program that will ask the user temperature in Fahrenheit and then it will convert the given temperature into Celsius temperature equivalent using LISP programming language.

I am currently accepting programming work, 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 I also accepting computer repair, networking and Arduino Project development at a very affordable price.

My personal website is http://www.jakerpomperada.com



Sample Program Output


Program Listing

temp.lisp


(defun temperature()
  (terpri)
  (princ "Fahrenheit To Celius Converter")
  (terpri)
  (terpri)
  (princ "Enter Fahrenheit Temperature : ")
  (setq ftemp (read))
  (terpri)
  (setq celsius  (+ (* ftemp 1.8) 32))
  (princ "The temperature in celsius is  ")
  (write celsius))
  (terpri)
(temperature)




Year Level Checker in Visual Foxpro

A simple year level checker program that I wrote using Microsoft Visual Foxpro. The code is very simple and easy to understand.

I am currently accepting programming work, 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 I also accepting computer repair, networking and Arduino Project development at a very affordable price.

My personal website is http://www.jakerpomperada.com







Sample Program Output


Program Listing

year = val(thisform.text1.Text)

IF year = 1 
 MESSAGEBOX("You belong to Freshmen.")
 thisform.text1.SetFocus
ENDIF

if (year = 2)
 MESSAGEBOX("You belong to Sophomore.")
 thisform.text1.SetFocus
 ENDIF

 if (year = 3) 
 MESSAGEBOX("You belong to Juniors.")
 thisform.text1.SetFocus
 ENDIF

 if (year = 4) 
 MESSAGEBOX("You belong to Seniors.")
 thisform.text1.SetFocus
ENDIF

IF (year <> 1 and year <> 2 AND year <> 3 AND year <> 4  )
    MESSAGEBOX("Invalid Year Level. Try Again")
    thisform.text1.Value =""
    thisform.text1.SetFocus
ENDIF

Monday, August 19, 2019

Area of the Circle Solve in LISP

A simple program that I wrote using LISP programming language that will ask the radius of the circle and then the program will compute the area of the circle.

I am currently accepting programming work, 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 I also accepting computer repair, networking and Arduino Project development at a very affordable price.

My personal website is http://www.jakerpomperada.com



Sample Program Output


Program Listing

circle.lisp

(defconstant PI 3.141592)

(defun area-circle(rad)
   (terpri)
   (princ "DISPLAY RESULTS ")
   (terpri)
   (terpri)
   (format t "Radius: ~5f" rad)
   (format t "~%Area: ~10f" (* PI rad rad))
   (terpri)
   (terpri)
   (princ "End of Program")   
)

(terpri)
(princ "Area of the Circle Solver in LISP ")
(terpri)
(terpri)
(princ "Created By Mr. Jake R. Pomperada")
(terpri)
(terpri)
(princ "Give the radius of the circle : ")
(setq a (read))
(terpri)
(area-circle  a)