Belajar Visual Basic - Membuat Menu Login

Menu Login yang dimaksud disini adalah menu sederhana dengan menginputkan user dan password agar dapat terhubung . Disini kita akan belajar menggunakan Message Box (MsgBox) dalam Visual Basic 6.0


1. Buat Design form

2. Penjelasan :

            - Menu Login adalah dari frame

            - User Name (Label)

            - Password (Label)

            - Textbox user (textbox) : textuser

            - Textbox pass (textbox) : textpass

            - Login (Command Button) : cmdlogin

            - Exit (Command Button) : cmdexit

3. Coding : 

            a. Klik 2 kali pada cmdlogin , coding :

                Private Sub cmdlogin_Click()

                If textuser.Text = "MIRRA" And textpass.Text = "smkn1" Then

                Form2.Visible = True

                ElseIf textuser.Text = "ARIESTA" And textpass.Text = "rpl2" Then

                ElseIf MsgBox("User dan Password Anda salah ! coba cek Capslock Anda !!!") Then

                textuser.Text = ""

                textpass.Text = ""

                End If

                End Sub

            b. Klik 2 kali pada cmdexit , coding :

                Private Sub cmdexit_Click()

                End

                End Sub

4. user name : MIRRA dan password : smkn1

   atau user name : ARIESTA dan password : rpl2

   Jika user nama dan password, maka yang terjadi adalah 

Belajar Visual Basic - Menentukan Ganjil Genap

Posting kali ini akan membahas bagaimana caranya menentukan sebuah bilangan , apakah itu merupakan bilangan genap atau bilangan ganjil dengan menggunakan Visual Basic 6.0 ..

1. Membuat design di visual basic :

2. Penjelasan :

                      - Menentukan Bilangan Ganjil Dan Genap itu merupakan sebuah frame.

                      - Masukkan Angka (Label)

                      - Texboxt masukkan angka (textbox) : Text1

                      - Proses (Command Button) :  cmd_proses

                      - Ulang (Command Button) : cmd_ulang

                      - Exit (Command Button) : cmd_exit

                      - Bikin Label dengan nama label_hasil

3. Coding :

                      a. Klik 2 kali pada cmd_proses,

                           Private Sub cmd_proses_Click()

                           If Text1.Text = "" Then

                           MsgBox "Silahkan isi dulu", vbOKOnly

                           Text1.SetFocus

                           ElseIf Text1.Text Mod 2 = 0 Then

                           label_hasil.Caption = Text1.Text + "  adalah Bilangan Genap"

                           Else

                           label_hasil.Caption = Text1.Text + " adalah Bilangan Ganjil"

                           End If

                           End Sub

                     b. Klik 2 kali pada cmd_ulang,

                         Private Sub cmd_ulang_Click()

                         Text1.Text = ""

                         label_hasil.Caption = ""

                         Text1.SetFocus

                         End Sub

                    c. Klik 2 kali pada cmd_exit

                        Private Sub cmd_exit_Click()

                        End

                        End Sub

4. Hasilnya :

Gambar yang menunjukkan bilangan ganjil

Gambar yang menunjukkan bilangan genap

Visual Basic - Membuat Kalkulator

     Kali ini saya ingin membuat aplikasi kalkulator melalui Visual Basic 6.0 

1. Bikin menu kalkulator sesuai design dibawah ini .

2. Kita beri nama masing-masing object :
    - Kalkulator (Label) : Label1
    - Bilangan 1 (Label) : Bilangan1
    - Bilangan 2 (Label) : Bilangan2
    - Hasil (Label) : Hasil
    - Textbox Bilangan1 (Textbox) : Text1
    - Textbox Bilangan2 (Textbox) : Text2
    - Textbox Hasil (Textbox) : Text3
    - "+" (Command Button) : Cmdtambah
    - "-" (Command Button) : Cmdkurang
    - "/" (Command Button) : Cmdbagi
    - "*" (Command Button) : Cmdkali
    - Hapus (Command Button) : Command1
    - Exit (Command Button) : Cmdexit


3. Klik 2 kali pada command "+"
    coding :
    Private Sub Cmdtambah_Click()
    Dim Bilangan1 As Integer
    Dim Bilangan2 As Integer
    Dim Hasil As Integer
    Bilangan1 = Text1.Text
    Bilangan2 = Text2.Text
    Hasil = Bilangan1 + Bilangan2
    Text3.Text = Hasil
    End Sub


4.  Klik 2 kali pada command "-"
    coding :

    Private Sub Cmdkurang_Click()

    Dim Bilangan1 As Integer

    Dim Bilangan2 As Integer

    Dim Hasil As Integer

    Bilangan1 = Text1.Text

    Bilangan2 = Text2.Text

    Hasil = Bilangan1 - Bilangan2

   Text3.Text = Hasil

   End Sub

5.  Klik 2 kali pada command "/"
    coding :

    Private Sub Cmdbagi_Click()

    Dim Bilangan1 As Integer

    Dim Bilangan2 As Integer

    Dim Hasil As Integer

    Bilangan1 = Text1.Text

    Bilangan2 = Text2.Text

    Hasil = Bilangan1 / Bilangan2

    Text3.Text = Hasil

    End Sub

6.  Klik 2 kali pada command "*"
    coding :

    Private Sub Cmdkali_Click()

    Dim Bilangan1 As Integer

    Dim Bilangan2 As Integer

    Dim Hasil As Integer

    Bilangan1 = Text1.Text

    Bilangan2 = Text2.Text

    Hasil = Bilangan1 * Bilangan2

    Text3.Text = Hasil

    End Sub

6.  Klik 2 kali pada command Hapus
    coding :

    Private Sub Command1_Click()
    Text1.Text = ""
    Text2.Text = ""
    Text3.Text = ""
    End Sub




6.  Klik 2 kali pada command Exit
    coding :


    Private Sub cmdexit_Click()
    End
    End Sub


7. Dan hasilnya adalah :

Belajar Java -- Splash Screen

* Membuat splash screen di java * 


Splash screen adalah gambar yang muncul ketika permainan atau program sedang loading. Hal ini juga dapat digunakan untuk menggambarkan suatu halaman introduction pada situs . Layar splash kadang tidak menutupi seluruh layar , tetapi hanya persegi panjang di dekat pusat. Layar splash dari sistem operasi dan beberapa aplikasi yang mengharapkan akan dijalankan layar penuh biasanya mencakup seluruh layar.


Cara membuat contoh splash screen :
1. Buka netbeans 7.0.1
2. Klik file - new project (ctrl+shift+n) - java me - mobile application - next
3. Ketik nama package "Coba splash"
4. Hanya centang "Set As Main Project" dan jangan centang " create hello midlet"
5. Klik kanan pada package dan pilih New - MIDlet
6. Beri nama pada MIDLet :"Midlet"
7. Pada midlet.java souece codenya :
   
              package splash;
              import javax.microedition.lcdui.Display;
              import javax.microedition.midlet.*;


              public class Midlet extends MIDlet {
              private Display display = Display.getDisplay(this);
              private Splash s = new Splash();
              private Menu m = new Menu();


              public void startApp() {
              display.setCurrent(s);
              try {
              Thread.sleep(3000);
              } catch (InterruptedException ex) {
              ex.printStackTrace();
              }
              display.setCurrent(m);
              }
              public void pauseApp() {
              notifyPaused();
               }
              public void destroyApp(boolean unconditional) {
              notifyDestroyed();
                }
              }

8.  Buat MIDlet baru dengan nama "Menu"
source codenya adalah :

                package splash;

               import javax.microedition.lcdui.Canvas;

               import javax.microedition.lcdui.Graphics;

               import javax.microedition.lcdui.Image;

               public class Menu extends Canvas {

                private Image menu;

                public Menu() {

                try {

                menu = Image.createImage("/splash/menu.png");

                } catch (Exception e) {

                e.printStackTrace();

                }

                }

                protected void paint(Graphics g) {

                g.drawImage(menu, 0, 0, 0);

                 }

                 }

9. Buat MIDlet baru dengan nama "Splash"
berikut ini source codenya :

                package splash;

               import javax.microedition.lcdui.Canvas; 

               import javax.microedition.lcdui.Graphics;

               import javax.microedition.lcdui.Image;

               public class Splash extends Canvas {

               private Image splash;

  

               public Splash() {

               try {

               splash = Image.createImage("/splash/splash.png");

               } catch (Exception e) {

               e.printStackTrace();

               }

               }

               protected void paint(Graphics g) {

               g.drawImage(splash, 0, 0, 0);

               }

               }

10. Jangan lupa masukkan gambar pada package splash dengan nama :
- splash.png
- menu.png

==> Jika masih ada yang error , comment saja dibawah ini <==

-Good Luck-

Belajar java --- Menentukan Bilangan Prima

Program yang kali ini akan saya buat adalah untuk menentukan bilangan prima menggunakan JOPtionPane .

source codenya adalah :

/**

 *

 * @author Mirra Ariesta Amalia Adiba

 */

import javax.swing.JOptionPane;

public class main {

    public static void main(String[] args) {

        int input = Integer.parseInt(JOptionPane.showInputDialog("Masukkan bilangan : "));

        boolean PRIMA = true;

        for (int i = 1; i <= input; i++) {

            if (i == 1 || i == input) {

            } else {

                if (input % i == 0) {

                    PRIMA = false;

                }

            }

        }

        if (PRIMA) {

            JOptionPane.showMessageDialog(null, input + " adalah Bilangan Prima");

        } else {

            JOptionPane.showMessageDialog(null, input + " BUKAN Bilangan Prima");

        }

    }

}

Belajar java --- Deret Bilangan

Disini program yang akan saya buat adalah membuat deret bilangan menggunakan looping . Sebuah program sederhana dengan menggunakan String .




Source codenya adalah :


package deretkuadrat;


import javax.swing.JOptionPane;


/**
 *
 * @author Mirra Ariesta Amalia Adiba
 */


public class Main {
   


    public static void main(String[] args) {
    int hasil;
    int input=Integer.parseInt(JOptionPane.showInputDialog("Masukkan Angka :"));
    hasil = input*input;
    JOptionPane.showMessageDialog(null, "Hasil pangkatnya adalah " + hasil);
    }


}

Belajar java -- Kuadrat dengan JOPtionPane

Saya akan membuat nilai kudrat, dimana sekarang ini saya mencoba menggunakan JOPtionPane , yaitu apabila ketika di compile akan keluar sebuah kotak dialog .


Source codenya adalah :


package deretkuadrat;


import javax.swing.JOptionPane;


/**
 *
 * @author Mirra Ariesta Amalia Adiba
 */


public class Main {
   


    public static void main(String[] args) {
    int hasil;
    int input=Integer.parseInt(JOptionPane.showInputDialog("Masukkan Angka :"));
    hasil = input*input;
    JOptionPane.showMessageDialog(null, "Hasil pangkatnya adalah " + hasil);
    }


}

GOOD LUCK ^^

Belajar java --- Menentukan Hari menggunakan Switch Case

Kali ini kita akan membuat sebuah program dimana jika user menginputkan angka 1 sampai 7 akan menghasilkan dan di implementasikan ke dalam hari . Misalnya kita input angka 1 dan outputnya adalah hari Senin , begitu seterusnya ..


Berikut ini source codenya :


package implementasiswitchcase;
import java.util.Scanner;


public class Main {


public static void main(String[] args) {
int hari_ke;
String hari;
Scanner input = new Scanner(System.in);
System.out.println("Masukkan hari_ke : \n");
hari_ke = input.nextInt();
switch (hari_ke) {
case 1:
hari = "senin";
break;
case 2:
hari = "selasa";
break;
case 3:
hari = "rabu";
break;
case 4:
hari = "kamis";
break;
case 5:
hari = "jumat";
break;
case 6:
hari = "sabtu";
break;
default:
hari = "minggu";
break;
}


System.out.println("Hari ke " + hari_ke + " adalah "+hari);
}
}


Berikut ini adalah hasil compilenya :

Masukkan hari_ke : 1

Hari ke 1 adalah senin

BUILD SUCCESSFUL (total time: 6 seconds)

Belajar java --- Deret Fibonacci

Deret Fibonacci merupakan sebuah deret istimewa . Dimana bilangan itu adalah hasil dari penjumlahan dua bilangan sebelumnya .. maksudnya jika a , b maka deret ketiga nya adalah a+b . Dan begitu seterusnya .. Disini saya akan membuat deret fibonacci dimana bilangan pertama dimulai dari 0 sampai 1000 .

Berikut ini source codenya :


package deretfibonacci;


/**
 *
 * @author Mirra Ariesta Amalia Adiba
 */

public class Main {


    public static void main(String[] args) {
        // TODO code application logic here


        System.out.println(": : : Deret Fibonacci : : :");
        String deret = "";
        int a=0;
        int b=1;
        System.out.print(deret+"Hasilnya adalah :\n " );
        for (int i=0;i<1000;i++){
            if(a>1000){
            break;
            }
            System.out.print(a+" ");
            a=a+b;
            b=a-b;
        }
    }


}


Berikut ini hasil compilenya :

: : : Deret Fibonacci : : :
Hasilnya adalah :
 0 1 1 2 3 5 8 13 21 34 55 89 144 233 377 610 987 BUILD SUCCESSFUL (total time: 3 seconds)

Belajar java --- Membandingkan Luas Bangunan

Kita akan membuat sebuah aplikasi dimana user dapat menginputkan  panjang dan lebar dari dua bangunan . Dan kita akan menentukan luas dari kedua bangunan tersebut dan membandingkan bangunan mana yang lebih luas antara bangun pertama atau kedua .


Berikut ini source codenya :


package luastanah;


import java.util.Scanner;


/**
 *
 * @author Mirra Ariesta Amalia Adiba
 */
public class LuasTanah {


    /**
     * @param args the command line arguments
     */
    public static void main(String[] args) {
        //menentukan luas bangunan pertama
        int panjang;
        int lebar;
        int luas;
        
        Scanner a = new Scanner(System.in);
        System.out.println("Masukkan panjang bangunan 1 :");
        panjang=a.nextInt();
        Scanner b = new Scanner(System.in);
        System.out.println("Masukkan lebar bangunan 1 :");
        lebar=b.nextInt();
        
        luas = panjang * lebar;
        System.out.println("Luas bangunan I adalah :" +luas);
        
        //menentukan luas bangunan kedua
     
        int panj;
        int leb;
        int luass;
        
        Scanner c= new Scanner(System.in);
        System.out.println("Masukkan panjang bangunan II :");
        panj=c.nextInt();
        Scanner d = new Scanner(System.in);
        System.out.println("Masukkan lebar bangunan II :");
        leb=d.nextInt();
        
        luass = panj*leb;
        System.out.println("Luas bangunan II adalah : " +luass);
        
        //menentukan luas yang lebih besar
        
        if (luas>luass)
        System.out.println("Bangunan yang lebih luas adalah Bangunan I dengan luas " +luas);
        else
        System.out.println("Bangunan yang lebih luas adalah Bangunan II dengan luas " +luass);
     
    }
}
        
     
        // TODO code application logic here

--- Just TRY and Good Luck ---

Belajar java --- Menentukan Tahun Kabisat

Tahun Kabisat adalah sebuah Tahun Syamsiah dimana pada tahun tersebut jumlah hari tidak terdiri dari 364 hari tetapi 366 hari. Bisa diartikan juga kalau Tahun Kabisat terjadi setiap 4 tahun sekali yang dimulai dari tahun 1980.


Sekarang kita akan membuat program untuk menentukan apakah tahun itu merupakan tahun tahun kabisat .


Ini adalah source codenya :

/*
 * To change this template, choose Tools | Templates
 * and open the template in the editor.
 */
package kabisat;


/**
 *
 * @author Mirra Ariesta Amalia Adiba
 */
public class Kabisat {


    /**
     * @param args the command line arguments
     */
    public static void main(String[] args) {
        // TODO code application logic here
        System.out.println(": : : DAFTAR TAHUN KABISAT MULAI TAHUN 1980-2500 : : :");
        String deret = "";
        int a=1980;
        int b=4;
        System.out.print(deret+"Daftarnya adalah :\n " );
        for (int i=1980;i<10000;i++){
            if(a>2500){
            break;
            }
            System.out.print("tahun " +a );
            System.out.println("\n");
            a=a+b;
    }
}
}




jika ada error dalam mencoba .. bisa berkomentar disini :-D

Belajar J2ME koneksi MySQL ..

JAVA 2 Micro Edition ke Database

       Java adalah bahasa pemrograman yang dapat dijalankan di berbagai komputer termasuk telepon genggam. Bahasa ini awalnya dibuat oleh James Gosling dan Patrick Naughton bersama rekan-rekannya saat masih bergabung di Sun Microsystems saat ini merupakan bagian dari Oracle dan dirilis tahun 1995. Bahasa ini banyak mengadopsi sintaksis yang terdapat pada C dan C++ namun dengan sintaksis model objek yang lebih sederhana . Aplikasi-aplikasi berbasis java umumnya dikompilasi ke dalam p-code(bytecode) dan dapat dijalankan pada berbagai Mesin Virtual Java (JVM) . Java merupakan bahasa pemrograman yang bersifat umum/non-spesifik (general purpose) dan secara khusus di desaign untuk memanfaatkan depedensi implementasi seminimal mungkin . Karena fungsionalitasnya yang memungkinkan aplikasi java mampu berjalan di beberapa platform sistem operasi yang berbeda, java dikenal pula dengan slogannya "Tulis sekali, jalankan di manapun". Saat ini java merupakan bahasa pemrograman yang paling populer digunakan dan secara luas dimanfaatkan dalam pengembangan berbagai jenis perangkat lunak aplikasi ataupun berbasis web.

      Yang diperlukan sebelum membuat aplikasi java  :

           1. Netbeans -> versi 6.5 , versi 6.9.0 atau versi 7.1.0 (terserah user)

           2. Emulator untuk menjalankan program java ->JDK, WTK, atau sun wireless toolkit.

Apakah bisa Java mobile koneksi ke database?

      Tentu saja bisa , tidak hanya java desktop yang bisa dikoneksikan ke database MySQL tetapi J2ME atau Java 2 Micro Edition juga dapat dikoneksikan ke Database MySQL. Bagaimana caranya?


Mencoba membuat aplikasi j2me sederhana ke Database ..


1. Membuat aplikasi di java netbeans : new project - java ME (java mobile) - Mobile application - nama folder : CobaKoneksi .
      
       source codenya adalah :

/*

 * To change this template, choose Tools | Templates

 * and open the template in the editor.

 */

import java.io.InputStream;

import javax.microedition.io.Connector;

import javax.microedition.io.HttpConnection;

import javax.microedition.lcdui.Command;

import javax.microedition.lcdui.CommandListener;

import javax.microedition.lcdui.Display;

import javax.microedition.lcdui.Displayable;

import javax.microedition.lcdui.Form;

import javax.microedition.lcdui.TextField;

import javax.microedition.midlet.*;

/**

 * @author Mirra Ariesta Amalia Adiba

 */ 

public class Midlet extends MIDlet implements CommandListener {

    Display d = Display.getDisplay(this);

    Form form1 = new Form("Login");

    TextField user = new TextField("User", null, 75, TextField.ANY);

    TextField pass = new TextField("Password", null, 25, TextField.PASSWORD);

    Command ok = new Command("Masuk", Command.OK, 1);

    Form form2 = new Form("Konfirmasi");

    HttpConnection con = null;

    InputStream masuk = null;

    StringBuffer sb = new StringBuffer();

    String pesan = "";

    public void startApp() {

        form1.append(user);

        form1.append(pass);

        form1.addCommand(ok);

        form1.setCommandListener(this);

        d.setCurrent(form1);

    }

    public void pauseApp() {

    }

    public void destroyApp(boolean unconditional) {

    }

    public void commandAction (Command c, Displayable di ){

   // public void commandAction(Command c, Displayable di) {

        if (c == ok) {

            try {

                String URL = "http://localhost/Portalku/konek.php?user="+user.getString()+"&pass="+pass.getString();

                con = (HttpConnection) Connector.open(URL);

                masuk = con.openInputStream();

                int cek;

                while ((cek = masuk.read()) != -1) {

                    sb.append((char) cek);

                }

            } catch (Exception e) {

                e.printStackTrace();

            }

            pesan = sb.toString();

            form2.append(pesan);

            d.setCurrent(form2);

        }

    }

}

2. Membuat File koneksi di PHP : file - new - dynamic page - pilih PHP - save dengan nama konek.php.

  

    Source codenya adalah :

<?
$tuser = $_GET["user"];
$tpass = $_GET["pass"];


$koneksi = mysql_connect("localhost", "root", "root") or die ("koneksi gagal");
mysql_select_db("reg", $koneksi);


$masuk = "INSERT INTO `reg`.`id` (`user`, `pass`) VALUES ('$tuser', '$tpass')";


$hasil = mysql_query($masuk, $koneksi);


echo "User : ".$tuser;
echo "Password : ".$tpass;


echo "Data Sudah Tersimpan";
?>

3. Membuat Database di localhost (bila memakai appserv ): buka "localhost" di browser -  pilih phpMyAdmin Database Manager Version 2.9.0.2 - ciptakan database baru dengan nama "reg" .

- Selamat Mencoba ^.^ -