Program Sederhana Menggunakan Aplikasi VB 2010

Tutorial kali ini adalah membuat program sederhana di VB 2010 yaitu “Program Mengubah Ukuran Satuan Berat”. Adapun langkah-langkahnya adalah sbb :

1.      Buka program VB 2010

2.  Kemudian pilih Menu File → New → Project. Akan muncul kotak dialog New Project spt yg ditunjukkan gbr di bawah ini

3. Setelah Name di isi, klik Ok.

4. Pada Form1 buat 2 buah Label, 1 buah Button dan Timer. Kemudian susun seperti yg ditunjukkan gbr di bawah ini

5.  Kemudian tambahkan Form2. Caranya klik Add New Item pada ToolBar → pilih Windows Forms → Add. Buat 3 buah Button dan susun seperti yg ditunjukkan gbr di bawah ini

6. Kemudian tambahkan Form3. Buat 3 buah label, 2 buat TextBox, dan 1 buah Button

7. Kemudian tambahkan Form4. Buat 3 buah label, 2 buat TextBox, dan 1 buah Button

8. Kemudian tambahkan Form5. Buat 3 buah label, 2 buat TextBox, dan 2 buah Button

Setelah pembuatan desainnya selesai, maka langkah selanjutnya adalah memasukkan coding program untuk setiap Form.

Coding Program untuk Form1

Public Class Form1

    Dim tulisan(2) As String

    Dim i, j As Integer

   

    Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick

        If i.Equals(tulisan(j).Length) Then

            Me.Label1.Text = ""

            If j < tulisan.Length - 1 Then

                j = j + 1

                Me.Label1.Text = tulisan(j)

            Else

                j = 0

            End If

            i = 0

        End If

        Label1.Text = tulisan(j).Substring(0, i)

        i = i + 1

    End Sub

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

        tulisan(0) = " Selamat Datang di Program Sederhana Lilis Cilaen "

        tulisan(1) = " Selamat Datang di Program Sederhana Lilis Cilaen "

        tulisan(2) = " Selamat Datang di Program Sederhana Lilis Cilaen "

        Label1.Text = tulisan(j)

        Timer1.Start()

    End Sub

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

        Form2.Show()

    End Sub

End Class

Coding Program untuk Form2

Public Class Form2

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

        Form3.Show()

    End Sub

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

        Form4.Show()

    End Sub

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

        Form5.Show()

    End Sub

End Class

Coding Program untuk Form3

Public Class Form3

   

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

        TxtKg.Text = TxtTon.Text * 1000 & " Kg"

    End Sub

End Class

Coding Program untuk Form4

Public Class Form4

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

        TxtOns.Text = TxtKg.Text * 10 & " Ons"

    End Sub

End Class

Coding Program untuk Form5

Public Class Form5

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

        TxtGr.Text = TxtOns.Text * 100 & " Gram"

    End Sub

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

        End

    End Sub

End Class

Kini Program dapat di Run.

Adapun tampilan-tampilan Form setelah di Run adalah sbb :

Klik Ok, maka kita akan masuk ke Form2

Pada Form2 kita dapat memilih ukuran satuan berat yang akan kita ubah. Contohnya klik Button “ Mengubah Ukuran Ton ke Kilogram”. Maka, akan muncul Form3 spt yg terlihat pada gbr berikut

Dan begitu juga dengan Form4 dan Form5. Lakukan hal yang sama seperti pada Form sebelumnya.

Program Sederhana Menggunakan Aplikasi NetBeans

Tutor ini adalah membuat sebuah animasi lingkaran di NetBeans. Adapun langkah-langkah pembuatannya adalah sbb :

1.       Buka aplikasi NetBeans IDE 7.0

2.       Setelah aplikasi terbuka, klik Menu File → New Project. Kemudian pada kotak dialog New Project Pilih Java → Java Application → Next. Pada Project Name tuliskan nama sesuai yg ada inginkan dan klik Finish.

3.       Setelah lembar kerjanya terbuka ketikkan program ini :

/*

 * To change this template, choose Tools | Templates

 * and open the template in the editor.

 */

package example;

import java.awt.Color;

import java.awt.Font;

import java.awt.Graphics;

import java.awt.Graphics2D;

import java.awt.Rectangle;

import java.awt.RenderingHints;

import java.awt.event.ActionEvent;

import java.awt.event.ActionListener;

import javax.swing.JFrame;

import javax.swing.JPanel;

import javax.swing.Timer;

/**

 *

 * @author user

 */

public class Example extends JPanel implements ActionListener {

    private double angle = 0;

    Timer timer;

    Rectangle.Float r = new Rectangle.Float(20, 20, 50, 50);

    public Example() {

        timer = new Timer(20, this);//jalankan timer per 20 milisecond

        timer.start();

    }

    @Override

    public void paint(Graphics g) {

        int w = getWidth();

        int h = getHeight();

        Graphics2D g2d = (Graphics2D) g;

        g2d.setRenderingHint(RenderingHints.KEY_ANTIALIASING, RenderingHints.VALUE_ANTIALIAS_ON);

        g2d.setRenderingHint(RenderingHints.KEY_RENDERING, RenderingHints.VALUE_RENDER_QUALITY);

        g2d.setColor(Color.WHITE);

        Font font = new Font("Vivaldi", Font.BOLD, 50);

        g2d.setFont(font);

        g2d.drawString("Sebuah Animasi : ", 10, 50);

        g2d.drawString("Karya ", 10, 150);

        g2d.drawString("Lilis Silaen", 10, 250);

        g2d.setColor(Color.WHITE);

        g2d.drawString("Animation Never Die ", 900, 620);

         g2d.drawString("  in My Life", 980, 660);

        g2d.setColor(Color.RED);

        g2d.translate(w / 2, h / 2);

        g2d.rotate(angle);//rotasikan sudut sebesar nilai angle

        g2d.fill(r);

        g2d.setColor(Color.black);

        g2d.fillRect(50, 50, 50,50);

        g2d.setColor(Color.yellow);

        g2d.fillRect(80, 80, 50, 50);

         g2d.setColor(Color.green);

        g2d.fillRect(110, 110, 50, 50);

        g2d.setColor(Color.cyan);

        g2d.fillRect(140, 140, 50, 50);

        g2d.setColor(Color.MAGENTA);

        g2d.fillRect(170, 170, 50, 50);

        g2d.setColor(Color.ORANGE);

        g2d.fillRect(200, 200, 50, 50);

        g2d.setColor(Color.BLUE);

        g2d.fillRect(230, 230, 40, 40);

    }

    public static void main(String[] arg) {

        JFrame frame = new JFrame("Transformasi >> Rotasi....");

        frame.add(new Example());

        frame.setDefaultCloseOperation(JFrame.EXIT_ON_CLOSE);

        frame.setSize(600, 400);

        frame.setLocationRelativeTo(null);

        frame.setVisible(true);

        frame.setBackground(Color.DARK_GRAY);

    }

    public void actionPerformed(ActionEvent e) {

        angle = angle + 0.01;

        repaint();

    }

}

4.       Kemudian Klik Run Main Project atau tekan F6 pada keyboard. Hasilnya akan terlihat pada gambar di bawah ini