Thursday, 13 August 2020

PUZZLE GAME IN JAVA

 This is a simple puzzle game in java. I am going to add new levels and update this post from time to time. There are fifteen levels currently.

  • Start your java IDE and make a new class named Game.
  • Type the following code:

import java.util.Scanner;



public class Game {


public static void main(String[] args) {

System.out.println("Enter your username");

Scanner scan=new Scanner(System.in);

String name=scan.nextLine();

System.out.println("Well, "+name+", welcome to Puzzler: The best puzzle set in the world!");

System.out.println("Remember this game is case sensitive");

System.out.println("Let's start, shall we?");

//ONE

System.out.println("LEVEL ONE");

System.out.println("What's your username?");

myloop:{

for(;;){

if (scan.nextLine().equals(name)) {break myloop;}

System.out.println("Nope. Try again");}}

System.out.println("Well, I admit, it was easy. But wait!");

//TWO

System.out.println("LEVEL TWO");

System.out.println("What's the middle of the middle and the end of the end?");

myloop:{

for(;;){

if (scan.nextLine().equals("d")) {break myloop;}

System.out.println("Nope. Try again");}}

System.out.println("Wonderful!(This is actually a puzzle from Harry Potter and The Goblet of Fire)");

//THREE

System.out.println("LEVEL THREE");

System.out.println("Enter the code to pass this level");

myloop:{

for(;;){

if (scan.nextLine().equals("the code")) {break myloop;}

System.out.println("Nope. Try again");}}

System.out.println("You are learning fast! Keep going!");

//FOUR

System.out.println("LEVEL FOUR");

System.out.println("What's the square root of -1?(The one character answer, please)");

myloop:{

for(;;){

if (scan.nextLine().equals("i")) {break myloop;}

System.out.println("Nope. Try again");}}

System.out.println("You're a mathematician too? That's great!");

//FIVE

System.out.println("LEVEL FIVE");

System.out.println("What's the full name of J.K.Rowling? (No net surfing!)");

myloop:{

for(;;){

if (scan.nextLine().equals("Joanne Kathleen Rowling")) {break myloop;}

System.out.println("Nope. Try again");}}

System.out.println("Fan of Harry Potter? I see...");

//SIX

System.out.println("LEVEL SIX");

System.out.println("sin(theta)/cos(theta)=?(give answer in format shown in question.)");

myloop:{

for(;;){

if (scan.nextLine().equals("tan(theta)")) {break myloop;}

System.out.println("Nope. Try again");}}

System.out.println("Good!");

//SEVEN

System.out.println("LEVEL SEVEN");

System.out.println("Sam's mother has three children.");

System.out.println("If the first two are June and July then waht's the name of the third one?");

myloop:{

for(;;){

if (scan.nextLine().equals("Sam")) {break myloop;}

System.out.println("Nope. Try again");}}

System.out.println("Good one, wasn't it?");

//EIGHT

System.out.println("LEVEL EIGHT");

System.out.println("Which vehicle is spelled backwards remains the same?(all in caps)");

myloop:{

for(;;){

if (scan.nextLine().equals("RACECAR")) {break myloop;}

System.out.println("Nope. Try again");}}

System.out.println("You love cars, don't you?");

//NINE

System.out.println("LEVEL NINE");

System.out.println("What's the java code to declare a integer x with value of 10?(the one-liner one)");

myloop:{

for(;;){

if (scan.nextLine().equals("int x=10;")) {break myloop;}

System.out.println("Nope. Try again");}}

System.out.println("Java coder, huh?");

//TEN

System.out.println("LEVEL TEN");

System.out.println("How do  you rate this game?(1-7)");

myloop:{

for(;;){

if (scan.nextLine().equals("7")) {break myloop;}

System.out.println("Nope. Try again");}}

System.out.println("Thanks for the rating ,"+name+"!");

//ELEVEN

    System.out.println("LEVEL ELEVEN");

System.out.println("What comes once in a minute, twice in a moment, but never in a thousand years?");

myloop:{

for(;;){

if (scan.nextLine().equals("m")) {break myloop;}

System.out.println("Nope. Try again");}}

System.out.println("Good, wasn't it?");

//TWELVE

System.out.println("LEVEL TWELVE");

System.out.println("Which palindrome has been used many time in this game?(only the word,in all-caps)");

myloop:{

for(;;){

if (scan.nextLine().equals("LEVEL")) {break myloop;}

System.out.println("Nope. Try again");}}

    System.out.println("Good going, "+name+"!");

    //THIRTEEN

System.out.println("LEVEL THIRTEEN");

System.out.println("Re-arrange the letters, OOUSWTDNEJR, to spell just one word. What is it?(in all-caps)");

myloop:{

for(;;){

if (scan.nextLine().equals("JUST ONE WORD")) {break myloop;}

System.out.println("Nope. Try again");}}

    System.out.println("Tricked!");

    //FOURTEEN

System.out.println("LEVEL FOURTEN");

System.out.println("How mnay wodrs are splet wromg in tihs lebel?");

myloop:{

for(;;){

if (scan.nextLine().equals("7")) {break myloop;}

System.out.println("Nope. Try again");}}

System.out.println("Didn't count the fourteen, did you?");

//FIFTEEN

System.out.println("LEVEL FIFTEEN");

System.out.println("What is more useful when it is broken?(one word, all-caps, singular.)");

myloop:{

for(;;){

if (scan.nextLine().equals("EGG")) {break myloop;}

System.out.println("Nope. Try again");}}

System.out.println("Hah, tricked, weren't you?");

//END

System.out.println("You won, "+name+"! Three cheers for "+name+"! Hip, hip, hurray!");

System.out.println("Don't forget to recommend you friends this game!");

}

}

  • Press run.
  • Play the game and enjoy.
at No comments:

Sunday, 12 July 2020

Simple Calculator in HTML

  • Start notepad.exe
  • Type:
<!doctype HTML>
<html>
<head>
<title>Calculator</title>
<script type="text/javascript">
function showTheAdd(){
 var abc = document.getElementById('n1').value;
 var def = document.getElementById('n2').value;
 document.getElementById('data').innerHTML=parseInt(abc)+ parseInt(def);
}
function showTheSubs(){
 var abc = document.getElementById('n1').value;
 var def = document.getElementById('n2').value;
 document.getElementById('data').innerHTML=parseInt(abc)- parseInt(def);
}
function showTheMult(){
 var abc = document.getElementById('n1').value;
 var def = document.getElementById('n2').value;
 document.getElementById('data').innerHTML=parseInt(abc)* parseInt(def);
}
function showTheDiv(){
 var abc = document.getElementById('n1').value;
 var def = document.getElementById('n2').value;
 document.getElementById('data').innerHTML=parseInt(abc)/ parseInt(def);
}
</script>
</head>
<body bgcolor="red" topmargin="200">
<form id="frm" autocomplete="off">
<table align="center" border="1">
<tr><td colspan="4">First Number&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<input type="number" id="n1" /></td></tr>
<tr><td colspan="4">Second Number&nbsp;&nbsp;&nbsp;<input type="number" id="n2" /></td></tr>
<tr>
    <td align="center"><button type="button" onClick="javascript:return showTheAdd();">Add</button></td>
    <td align="center"><button type="button" onClick="javascript:return showTheSubs();">Substract</button></td>
    <td align="center"><button type="button" onClick="javascript:return showTheMult();">Multiply</button></td>
    <td align="center"><button type="button" onClick="javascript:return showTheDiv();">Divide</button></td>
</tr>
<tr><td align="center" colspan="4"><button type="reset">Reset</button></td></tr>
<tr><td colspan="4" align="center"><label id="data"></label></td></tr>
</table>
</form>
</body>
</html>
  • Save this file as calc.cmd
  • This can be used as a simple calculator to add, substract, multiply and divide.
at No comments:

Thursday, 2 July 2020

Use CMD as Calculator!

You can use CMD as your own Calculator! (It doesn't allow desimals though)
  • Start cmd.exe on your system
  • Type : 
    set /a n=<type your equation here>
  • Press enter
  • You will see your answer below the question.
  • For example, if you type set /a n=(5+1)/3 then you will see 2 given below
at 1 comment:

Prime Checker Program in CMD

This program is to make a program that checks whether a number is prime or not
  • Start Notepad or Notepad++ on your system
  • Type this:
  • @echo off
    :x
    set /p num=Enter number: 
    set /a n=%num%
    set /a s=1
    :a
    set /a s=%s%+1
    if %s% equ %n% goto c
    set /a a=%n% %% %s%
    if %a% equ 0 goto b
    goto a
    :b 
    echo Composite  
    goto x
    :c 
    echo Prime  
    goto x
  • Save it as prime.cmd on desktop and double click the file to start it
at No comments:

List of primes in CMD

This program aims to make a program that will give a list of prime numbers (slowly...) from 2 to infinity.
  • Start notepad.exe on your system or Notepad++
  • Type the following:  
@echo off
echo 2 
set /a n=1
:x 
set /a n=%n%+2
set /a s=1
:a
set /a s=%s%+1
if %s% equ %n% goto c
set /a a=%n% %% %s%
if %a% equ 0 goto b
goto a
:b   
goto x
:c
echo %n% 
goto x

  • Save this as primelist.cmd at desktop
  • Double-click on the file to start the program
at No comments:

Friday, 19 June 2020

Internal Search Spider in CMD

The aim of this post is to help you make an internal search spider using CMD. A search spider is a program which searches all the files in your system to find the files which contain your keyword. 

First start Notepad or Notepad++ on your computer.
 
Now type:
    @echo off
    title Search Everything
    echo Welcome to Search Everything
    echo ----------------------------
    cd c:\windows\system32
    set /p e=Enter your search word: 
    set /p n=Name of file to send data (no extension): 
    echo '
    echo Your data is being sent to %n%.txt at desktop
    echo '
    echo This process may take some time. Please don't close this window.
    echo Searching C: drive... >> c:\users\%username%\desktop\%n%.txt
    dir /s c: |find "%e%" > c:\users\%username%\desktop\%n%.txt
    echo C: drive searched. >> c:\users\%username%\desktop\%n%.txt
    echo '>> c:\users\%username%\desktop\%n%.txt
    echo Searching D: drive... >> c:\users\%username%\desktop\%n%.txt
    dir /s d: |find "%e%" >> c:\users\%username%\desktop\%n%.txt
    echo D: drive searched. >> c:\users\%username%\desktop\%n%.txt
    echo '>> c:\users\%username%\desktop\%n%.txt
    echo Searching E: drive... >> c:\users\%username%\desktop\%n%.txt
    dir /s e: |find "%e%" >> c:\users\%username%\desktop\%n%.txt
    echo E: drive searched. >> c:\users\%username%\desktop\%n%.txt
    echo '
    type c:\users\raj\desktop\%n%.txt |more
    pause
Now save the file as Search.cmd on the desktop.
When you enter your keyword, the program will check C: drive, E: drive and D: drive to check for any instances of the keyword on your system files. This program takes a lot of time to search the whole computer, but still, it is perfectly working.
at No comments:

Thursday, 18 June 2020

Text Encoding Program in Java

This program can be used to encrypt text messages with a 5-digit pass code and can also be used to decrypt the same message with that code. If you try to decrypt the message with any wrong code then the program will give gibberish result. You need the Eclipse IDE to follow this code.

  • Create a new class named Code2Decode
  • Delete all the text there and paste the following code:
  • import java.io.File;
    import java.io.FileNotFoundException;
    import java.io.PrintStream;
    import java.util.Scanner;

    public class Code2Decode {

        public static void main(String[] args) throws FileNotFoundException {
            
            Scanner scan=new Scanner(System.in);
            System.out.println("Welcome to Code2Decode.");
            System.out.println("Please enter file name to send your coded or decoded message.There is no need of any extension.");
            String abcd=scan.next();
            System.out.println("Please note that the file would be saved with .txt extension");
            System.out.println("Type c for coder,and d for decoder.");
            String x=scan.next();
            int z=0;
            if (x.equals("c")){
                z=-1;
                }
            if (x.equals("d")){
                z=1;
                }
            System.out.println("enter 5-digit pass code.");
            int cd=scan.nextInt();
            int ef=(cd/10000);
            cd=cd-ef*10000;
            int gh=(cd/1000);
            cd=cd-gh*1000;
            int a=(cd/100);
            int b=(cd/10)-(a*10);
            int d=(cd)-(a*100+b*10);
            int dre=(ef*gh)%10;
            int n=a*b+d;
            n=(n%13)+10;
            String s="";
            if (x.equals("c")){
            System.out.println("Failure in remembering pass code might cause loss of data.");
            System.out.println("It is our advise that you and the receiver remember it and never disclose it to others.");
            System.out.println("Please use backslash (\\) instead of any spaces in your message");
            System.out.println("\nPLAINTEXT?");
            }
            else{
            System.out.println("\nCIPHERTEXT?");}
            String abc=scan.next();
            int xyz=abc.length();
            int p=-1;
            goop:{for(int j=1;j<=xyz;j++){
            for(int i=dre;i<=n;i++){
            p=p+1;
            char c = 0;
            if(p != abc.length()){
                c=abc.charAt(p);
            }
            if (p>=xyz){
                break goop;
                }
            int q = ((int) c)+z*i;
            char e=(char)q;
            s=s+e;
            }
            }
            }
            if (x.equals("c")){
                System.out.println("CIPHERTEXT:");}
            else{
                System.out.println("PLAINTEXT:");}
            System.out.println(s);
            System.out.println("\nSent to file "+abcd+".txt");
            PrintStream o=new PrintStream(new File(abcd+".txt"));
            System.setOut(o);
            if (x.equals("c")){
                System.out.println("CIPHERTEXT:");}
            else{
                System.out.println("PLAINTEXT:");}
            System.out.println(s);

        }

    }

  • Press run to start the program. All the information you need will be there.
at No comments:

Tuesday, 16 June 2020

Basic Calculator in CMD

  • Start notepad on your system
  • Paste the following code:
  • @echo off
    cd c:\windows\system32
    title CALCULATOR
    echo Enter a to add, s to substract, d to divide and m to multiply
    set /p ch=:
    If %ch% == a goto a
    If %ch% == s goto s
    If %ch% == d goto d
    If %ch% == m goto m
    :a
    set /p o=First Number: 
    set /p t=Second Number: 
    set /a a=%o% 
    set /a b=%t% 
    set /a ans = %a%+%b% 
    echo %ans% 
    goto end
    :s
    set /p o=First Number: 
    set /a a=%o% 
    set /p t=Second Number: 
    set /a b=%t%
    set /a ans = %a%-%b% 
    echo %ans% 
    goto end
    :d 
    set /p o=First Number: 
    set /a a=%o% 
    set /p t=Second Number: 
    set /a b=%t%
    set /a ans = %a%/%b% 
    echo %ans% 
    goto end
    :m
    set /p o=First Number: 
    set /a a=%o% 
    set /p t=Second Number: 
    set /a b=%t%
    set /a ans = %a%*%b% 
    echo %ans% 
    goto end
    :end
    pause
  • Save the notepad file as Calc.cmd on desktop
  • Just double-click the file to start the Calculator
at 1 comment:

Sunday, 14 June 2020

Calculator in Visual Basic

 

 

 

·          First start Visual Basic Studio 2008 Express Edition

·         Then press Ctrl+n to start a new project

·         Choose Windows Form Application format and press OK

·         Now double click on the Form1 box

·         Now paste the following code after deleting everything written in the place that opens.

 

Public Class Form1

    Dim x As Double

    Dim z As String

    Dim y As Double

    Private Sub Button10_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button10.Click

        TextBox1.Text = (TextBox1.Text) + "0"

        TextBox2.Text = TextBox2.Text + "0"

    End Sub

 

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

        TextBox1.Text = (TextBox1.Text) + "1"

        TextBox2.Text = TextBox2.Text + "1"

    End Sub

 

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

        TextBox1.Text = (TextBox1.Text) + "2"

        TextBox2.Text = TextBox2.Text + "2"

    End Sub

 

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

        TextBox1.Text = (TextBox1.Text) + "3"

        TextBox2.Text = TextBox2.Text + "3"

    End Sub

 

    Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click

        TextBox1.Text = (TextBox1.Text) + "4"

        TextBox2.Text = TextBox2.Text + "4"

    End Sub

 

    Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click

        TextBox1.Text = (TextBox1.Text) + "5"

        TextBox2.Text = TextBox2.Text + "5"

    End Sub

 

    Private Sub Button6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button6.Click

        TextBox1.Text = (TextBox1.Text) + "6"

        TextBox2.Text = TextBox2.Text + "6"

    End Sub

 

    Private Sub Button7_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button7.Click

        TextBox1.Text = (TextBox1.Text) + "7"

        TextBox2.Text = TextBox2.Text + "7"

    End Sub

 

    Private Sub Button8_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button8.Click

        TextBox1.Text = (TextBox1.Text) + "8"

        TextBox2.Text = TextBox2.Text + "8"

    End Sub

 

    Private Sub Button9_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button9.Click

        TextBox1.Text = (TextBox1.Text) + "9"

        TextBox2.Text = TextBox2.Text + "9"

    End Sub

 

    Private Sub Button11_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button11.Click

        TextBox1.Text = (TextBox1.Text) + "."

        TextBox2.Text = TextBox2.Text + "."

    End Sub

 

    Private Sub Button16_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button16.Click

        y = Val(TextBox1.Text)

        If z = "+" Then

            TextBox1.Text = x + y

        End If

        If z = "-" Then

            TextBox1.Text = x - y

        End If

        If z = "/" Then

            TextBox1.Text = x / y

        End If

        If z = "*" Then

            TextBox1.Text = x * y

        End If

        x = Val(TextBox1.Text)

    End Sub

 

    Private Sub Button17_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button17.Click

        y = Val(TextBox1.Text)

        If z = "+" Then

            TextBox1.Text = x + y

        End If

        If z = "-" Then

            TextBox1.Text = x - y

        End If

        If z = "/" Then

            TextBox1.Text = x / y

        End If

        If z = "*" Then

            TextBox1.Text = x * y

        End If

        TextBox1.Text = 1 / (Val(TextBox1.Text))

        TextBox2.Text = "1/(" + TextBox2.Text + ")"

    End Sub

 

    Private Sub Button18_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button18.Click

        y = Val(TextBox1.Text)

        If z = "+" Then

            TextBox1.Text = x + y

        End If

        If z = "-" Then

            TextBox1.Text = x - y

        End If

        If z = "/" Then

            TextBox1.Text = x / y

        End If

        If z = "*" Then

            TextBox1.Text = x * y

        End If

        TextBox1.Text = (Val(TextBox1.Text)) ^ (1 / 2)

        TextBox2.Text = "√(" + TextBox2.Text + ")"

    End Sub

 

    Private Sub Button12_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button12.Click

        y = Val(TextBox1.Text)

        If z = "+" Then

            TextBox1.Text = x + y

        End If

        If z = "-" Then

            TextBox1.Text = x - y

        End If

        If z = "/" Then

            TextBox1.Text = x / y

        End If

        If z = "*" Then

            TextBox1.Text = x * y

        End If

        x = Val(TextBox1.Text)

        TextBox1.Text = ""

        z = "+"

        TextBox2.Text = TextBox2.Text + "+"

    End Sub

 

    Private Sub Button13_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button13.Click

        y = Val(TextBox1.Text)

        If z = "+" Then

            TextBox1.Text = x + y

        End If

        If z = "-" Then

            TextBox1.Text = x - y

        End If

        If z = "/" Then

            TextBox1.Text = x / y

        End If

        If z = "*" Then

            TextBox1.Text = x * y

        End If

        x = Val(TextBox1.Text)

        TextBox1.Text = ""

        z = "-"

        TextBox2.Text = TextBox2.Text + "-"

    End Sub

 

    Private Sub Button14_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button14.Click

        y = Val(TextBox1.Text)

        If z = "+" Then

            TextBox1.Text = x + y

        End If

        If z = "-" Then

            TextBox1.Text = x - y

        End If

        If z = "/" Then

            TextBox1.Text = x / y

        End If

        If z = "*" Then

            TextBox1.Text = x * y

        End If

        x = Val(TextBox1.Text)

        TextBox1.Text = ""

        z = "/"

        TextBox2.Text = TextBox2.Text + "/"

    End Sub

 

    Private Sub Button15_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button15.Click

        y = Val(TextBox1.Text)

        If z = "+" Then

            TextBox1.Text = x + y

        End If

        If z = "-" Then

            TextBox1.Text = x - y

        End If

        If z = "/" Then

            TextBox1.Text = x / y

        End If

        If z = "*" Then

            TextBox1.Text = x * y

        End If

        x = Val(TextBox1.Text)

        TextBox1.Text = ""

        z = "*"

        TextBox2.Text = TextBox2.Text + "*"

    End Sub

 

    Private Sub Button19_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button19.Click

        TextBox1.Text = ""

        TextBox2.Text = ""

        x = 0

        y = 0

        z = ""

    End Sub

 

    Private Sub Button20_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button20.Click

        Me.Close()

    End Sub

 

End Class

 

·         Click on Ctrl+Shift+S

·         Enter name “Calculator” in the name bar. Don’t close the vb window

·         Click on the Start button.

·         Enter the name “Visual Studio 2008” in the search bar of the start window.

·         Open the folder 

·         From there go to projects>calculator>calculator [yes, two times]

·         Double click on Form1.Designer.vb and close the folder.

·         Open the vb window

·         You will find a new tab there named Form1.Designer.vb

·         Delete everything written there and paste the following code.

 

 

 

<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _

Partial Class Form1

    Inherits System.Windows.Forms.Form

 

    'Form overrides dispose to clean up the component list.

    <System.Diagnostics.DebuggerNonUserCode()> _

    Protected Overrides Sub Dispose(ByVal disposing As Boolean)

        Try

            If disposing AndAlso components IsNot Nothing Then

                components.Dispose()

            End If

        Finally

            MyBase.Dispose(disposing)

        End Try

    End Sub

 

    'Required by the Windows Form Designer

    Private components As System.ComponentModel.IContainer

 

    'NOTE: The following procedure is required by the Windows Form Designer

    'It can be modified using the Windows Form Designer. 

    'Do not modify it using the code editor.

    <System.Diagnostics.DebuggerStepThrough()> _

    Private Sub InitializeComponent()

        Me.TextBox1 = New System.Windows.Forms.TextBox

        Me.Button1 = New System.Windows.Forms.Button

        Me.Button2 = New System.Windows.Forms.Button

        Me.Button3 = New System.Windows.Forms.Button

        Me.Button4 = New System.Windows.Forms.Button

        Me.Button5 = New System.Windows.Forms.Button

        Me.Button6 = New System.Windows.Forms.Button

        Me.Button7 = New System.Windows.Forms.Button

        Me.Button8 = New System.Windows.Forms.Button

        Me.Button9 = New System.Windows.Forms.Button

        Me.Button10 = New System.Windows.Forms.Button

        Me.Button11 = New System.Windows.Forms.Button

        Me.Button12 = New System.Windows.Forms.Button

        Me.Button13 = New System.Windows.Forms.Button

        Me.Button14 = New System.Windows.Forms.Button

        Me.Button15 = New System.Windows.Forms.Button

        Me.Button16 = New System.Windows.Forms.Button

        Me.Button17 = New System.Windows.Forms.Button

        Me.Button18 = New System.Windows.Forms.Button

        Me.Button19 = New System.Windows.Forms.Button

        Me.Button20 = New System.Windows.Forms.Button

        Me.TextBox2 = New System.Windows.Forms.TextBox

        Me.SuspendLayout()

        '

        'TextBox1

        '

        Me.TextBox1.Location = New System.Drawing.Point(10, 33)

        Me.TextBox1.Name = "TextBox1"

        Me.TextBox1.Size = New System.Drawing.Size(169, 20)

        Me.TextBox1.TabIndex = 0

        Me.TextBox1.TextAlign = System.Windows.Forms.HorizontalAlignment.Right

        '

        'Button1

        '

        Me.Button1.Location = New System.Drawing.Point(10, 129)

        Me.Button1.Name = "Button1"

        Me.Button1.Size = New System.Drawing.Size(29, 29)

        Me.Button1.TabIndex = 1

        Me.Button1.Text = "1"

        Me.Button1.UseVisualStyleBackColor = True

        '

        'Button2

        '

        Me.Button2.Location = New System.Drawing.Point(45, 129)

        Me.Button2.Name = "Button2"

        Me.Button2.Size = New System.Drawing.Size(29, 29)

        Me.Button2.TabIndex = 2

        Me.Button2.Text = "2"

        Me.Button2.UseVisualStyleBackColor = True

        '

        'Button3

        '

        Me.Button3.Location = New System.Drawing.Point(80, 129)

        Me.Button3.Name = "Button3"

        Me.Button3.Size = New System.Drawing.Size(29, 29)

        Me.Button3.TabIndex = 3

        Me.Button3.Text = "3"

        Me.Button3.UseVisualStyleBackColor = True

        '

        'Button4

        '

        Me.Button4.Location = New System.Drawing.Point(10, 94)

        Me.Button4.Name = "Button4"

        Me.Button4.Size = New System.Drawing.Size(29, 29)

        Me.Button4.TabIndex = 4

        Me.Button4.Text = "4"

        Me.Button4.UseVisualStyleBackColor = True

        '

        'Button5

        '

        Me.Button5.Location = New System.Drawing.Point(45, 94)

        Me.Button5.Name = "Button5"

        Me.Button5.Size = New System.Drawing.Size(29, 29)

        Me.Button5.TabIndex = 5

        Me.Button5.Text = "5"

        Me.Button5.UseVisualStyleBackColor = True

        '

        'Button6

        '

        Me.Button6.Location = New System.Drawing.Point(80, 94)

        Me.Button6.Name = "Button6"

        Me.Button6.Size = New System.Drawing.Size(29, 29)

        Me.Button6.TabIndex = 6

        Me.Button6.Text = "6"

        Me.Button6.UseVisualStyleBackColor = True

        '

        'Button7

        '

        Me.Button7.Location = New System.Drawing.Point(10, 58)

        Me.Button7.Name = "Button7"

        Me.Button7.Size = New System.Drawing.Size(29, 29)

        Me.Button7.TabIndex = 7

        Me.Button7.Text = "7"

        Me.Button7.UseVisualStyleBackColor = True

        '

        'Button8

        '

        Me.Button8.Location = New System.Drawing.Point(45, 58)

        Me.Button8.Name = "Button8"

        Me.Button8.Size = New System.Drawing.Size(29, 29)

        Me.Button8.TabIndex = 8

        Me.Button8.Text = "8"

        Me.Button8.UseVisualStyleBackColor = True

        '

        'Button9

        '

        Me.Button9.Location = New System.Drawing.Point(80, 58)

        Me.Button9.Name = "Button9"

        Me.Button9.Size = New System.Drawing.Size(29, 29)

        Me.Button9.TabIndex = 9

        Me.Button9.Text = "9"

        Me.Button9.UseVisualStyleBackColor = True

        '

        'Button10

        '

        Me.Button10.Location = New System.Drawing.Point(10, 164)

        Me.Button10.Name = "Button10"

        Me.Button10.Size = New System.Drawing.Size(64, 29)

        Me.Button10.TabIndex = 10

        Me.Button10.Text = "0"

        Me.Button10.UseVisualStyleBackColor = True

        '

        'Button11

        '

        Me.Button11.Location = New System.Drawing.Point(80, 164)

        Me.Button11.Name = "Button11"

        Me.Button11.Size = New System.Drawing.Size(29, 29)

        Me.Button11.TabIndex = 11

        Me.Button11.Text = "."

        Me.Button11.UseVisualStyleBackColor = True

        '

        'Button12

        '

        Me.Button12.Location = New System.Drawing.Point(115, 59)

        Me.Button12.Name = "Button12"

        Me.Button12.Size = New System.Drawing.Size(29, 29)

        Me.Button12.TabIndex = 12

        Me.Button12.Text = "+"

        Me.Button12.UseVisualStyleBackColor = True

        '

        'Button13

        '

        Me.Button13.Location = New System.Drawing.Point(115, 94)

        Me.Button13.Name = "Button13"

        Me.Button13.Size = New System.Drawing.Size(29, 29)

        Me.Button13.TabIndex = 13

        Me.Button13.Text = "-"

        Me.Button13.UseVisualStyleBackColor = True

        '

        'Button14

        '

        Me.Button14.Location = New System.Drawing.Point(115, 129)

        Me.Button14.Name = "Button14"

        Me.Button14.Size = New System.Drawing.Size(29, 29)

        Me.Button14.TabIndex = 14

        Me.Button14.Text = "/"

        Me.Button14.UseVisualStyleBackColor = True

        '

        'Button15

        '

        Me.Button15.Location = New System.Drawing.Point(115, 164)

        Me.Button15.Name = "Button15"

        Me.Button15.Size = New System.Drawing.Size(29, 29)

        Me.Button15.TabIndex = 15

        Me.Button15.Text = "*"

        Me.Button15.UseVisualStyleBackColor = True

        '

        'Button16

        '

        Me.Button16.Location = New System.Drawing.Point(150, 129)

        Me.Button16.Name = "Button16"

        Me.Button16.Size = New System.Drawing.Size(29, 64)

        Me.Button16.TabIndex = 16

        Me.Button16.Text = "="

        Me.Button16.UseVisualStyleBackColor = True

        '

        'Button17

        '

        Me.Button17.Font = New System.Drawing.Font("Microsoft Sans Serif", 6.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))

        Me.Button17.Location = New System.Drawing.Point(150, 94)

        Me.Button17.Name = "Button17"

        Me.Button17.Size = New System.Drawing.Size(29, 29)

        Me.Button17.TabIndex = 17

        Me.Button17.Text = "1/x"

        Me.Button17.UseVisualStyleBackColor = True

        '

        'Button18

        '

        Me.Button18.Location = New System.Drawing.Point(150, 59)

        Me.Button18.Name = "Button18"

        Me.Button18.Size = New System.Drawing.Size(29, 29)

        Me.Button18.TabIndex = 18

        Me.Button18.Text = "√"

        Me.Button18.UseVisualStyleBackColor = True

        '

        'Button19

        '

        Me.Button19.Location = New System.Drawing.Point(45, 199)

        Me.Button19.Name = "Button19"

        Me.Button19.Size = New System.Drawing.Size(47, 23)

        Me.Button19.TabIndex = 19

        Me.Button19.Text = "Reset"

        Me.Button19.UseVisualStyleBackColor = True

        '

        'Button20

        '

        Me.Button20.Location = New System.Drawing.Point(98, 199)

        Me.Button20.Name = "Button20"

        Me.Button20.Size = New System.Drawing.Size(40, 23)

        Me.Button20.TabIndex = 20

        Me.Button20.Text = "Exit"

        Me.Button20.UseVisualStyleBackColor = True

        '

        'TextBox2

        '

        Me.TextBox2.Location = New System.Drawing.Point(10, 11)

        Me.TextBox2.Name = "TextBox2"

        Me.TextBox2.Size = New System.Drawing.Size(169, 20)

        Me.TextBox2.TabIndex = 21

        Me.TextBox2.TextAlign = System.Windows.Forms.HorizontalAlignment.Right

        '

        'Form1

        '

        Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)

        Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font

        Me.ClientSize = New System.Drawing.Size(189, 232)

        Me.Controls.Add(Me.TextBox2)

        Me.Controls.Add(Me.Button20)

        Me.Controls.Add(Me.Button19)

        Me.Controls.Add(Me.Button18)

        Me.Controls.Add(Me.Button17)

        Me.Controls.Add(Me.Button16)

        Me.Controls.Add(Me.Button15)

        Me.Controls.Add(Me.Button14)

        Me.Controls.Add(Me.Button13)

        Me.Controls.Add(Me.Button12)

        Me.Controls.Add(Me.Button11)

        Me.Controls.Add(Me.Button10)

        Me.Controls.Add(Me.Button9)

        Me.Controls.Add(Me.Button8)

        Me.Controls.Add(Me.Button7)

        Me.Controls.Add(Me.Button6)

        Me.Controls.Add(Me.Button5)

        Me.Controls.Add(Me.Button4)

        Me.Controls.Add(Me.Button3)

        Me.Controls.Add(Me.Button2)

        Me.Controls.Add(Me.Button1)

        Me.Controls.Add(Me.TextBox1)

        Me.Name = "Form1"

        Me.Text = "Calculator"

        Me.TopMost = True

        Me.ResumeLayout(False)

        Me.PerformLayout()

 

    End Sub

    Friend WithEvents TextBox1 As System.Windows.Forms.TextBox

    Friend WithEvents Button1 As System.Windows.Forms.Button

    Friend WithEvents Button2 As System.Windows.Forms.Button

    Friend WithEvents Button3 As System.Windows.Forms.Button

    Friend WithEvents Button4 As System.Windows.Forms.Button

    Friend WithEvents Button5 As System.Windows.Forms.Button

    Friend WithEvents Button6 As System.Windows.Forms.Button

    Friend WithEvents Button7 As System.Windows.Forms.Button

    Friend WithEvents Button8 As System.Windows.Forms.Button

    Friend WithEvents Button9 As System.Windows.Forms.Button

    Friend WithEvents Button10 As System.Windows.Forms.Button

    Friend WithEvents Button11 As System.Windows.Forms.Button

    Friend WithEvents Button12 As System.Windows.Forms.Button

    Friend WithEvents Button13 As System.Windows.Forms.Button

    Friend WithEvents Button14 As System.Windows.Forms.Button

    Friend WithEvents Button15 As System.Windows.Forms.Button

    Friend WithEvents Button16 As System.Windows.Forms.Button

    Friend WithEvents Button17 As System.Windows.Forms.Button

    Friend WithEvents Button18 As System.Windows.Forms.Button

    Friend WithEvents Button19 As System.Windows.Forms.Button

    Friend WithEvents Button20 As System.Windows.Forms.Button

    Friend WithEvents TextBox2 As System.Windows.Forms.TextBox

 

End Class

 

·         Click on the green triangle at the top part of vb window.

·         You will see the calculator on your screen. It does not support BODMAS function (even your windows calc doesn’t support that!) or keyboard input.

·         You can use the calculator just like a normal one.

·         You can convert this file to an exe too!

·         Enter this in the windows searchbar: “Visual Studio 2008\Projects\Calculator\Calculator\bin\Debug”

·         You will see a file named calculator with an icon like this one:

·         Copy that file to your desktop

·         You can now use the calculator just by double clicking the icon

·         Thank You!

 

at 4 comments:
Subscribe to: Posts (Atom)

Algorithmic Pixel Art: The Beauty of Aliasing

Discussed  here More images in  Google drive Some outputs: Forward to anyone who says aliasing is ugly.

  • Vector Field Simulator in Java
    Inspired by  https://github.com/anvaka/fieldplay  (This is what happens when you try to recreate code just from looking at its output) Depen...
  • Calculator in Visual Basic
          ·            First start Visual Basic Studio 2008 Express Edition ·          Th...