Decimal To Hexadecimal Converter in Visual Basic NET

A simple program that will ask the user to give a value in decimal and then it will convert it into hexadecimal equivalent using Visual Basic NET.

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

Public Class Form1

    Public Shared Function DecimalToHexadecimal(dec As Integer) As String

        If dec < 1 Then Return "0"

        Dim hex As Integer = dec

        Dim hexStr As String = String.Empty

        While dec > 0

            hex = dec Mod 16

            If hex < 10 Then

                hexStr = hexStr.Insert(0, Convert.ToChar(hex + 48).ToString())

            Else

                hexStr = hexStr.Insert(0, Convert.ToChar(hex + 55).ToString())

            End If

            dec = Int(dec / 16)

        End While

        Return hexStr

    End Function

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

        Dim solve

        solve = DecimalToHexadecimal(Val(TextBox1.Text))

        Label2.Text = "The equivalent in hexadecimal is " & solve

    End Sub

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

        Label2.Text = ""

        TextBox1.Text = ""

        TextBox1.Focus()

    End Sub

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

        End

    End Sub

End Class

Kilometers To Miles Converter Using Visual Basic NET

A simple program that will ask the user value in kilometers and then it will convert into miles equivalent using Visual Basic NET

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

Public Class Form1

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

        Dim solve As Double

        solve = Val(TextBox1.Text) * 0.62

        Label2.Text = "The equivalent in miles is " & Str(solve)

    End Sub

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

        Label2.Text = ""

        TextBox1.Text = ""

        TextBox1.Focus()

    End Sub

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

        End

    End Sub

End Class

Kilometers To Miles Converter in QBasic

A simple program that will ask the user value

in kilometers and then it will convert into miles equivalent using QBasic.

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

CLS

PRINT

PRINT "Kilometer to Miles in QBasic"

PRINT

INPUT "What is the distance in kilometer"; K

M = K * 0.62

PRINT

PRINT "The distance in Miles is "; M

END

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

  }

}

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)