Pemrograman Grapik

selamat pagi,
salam bahagia
kali ini saya akan membuat Program tentang Bola(Ball).

1. Perintah Ball:
   
   package Bola;
   import java.awt.Color;
   import java.awt.Graphics;
   import java.awt.Polygon;
   import java.awt.event.ActionEvent;
   import java.awt.event.ActionListener;
   import javax.swing.Timer;
   import javax.swing.JPanel;
   
   /**
    *
    * @author Aris
    */
   public class Ball extends JPanel {
   private int delay = 50;
   // Create a timer with delay 1000 ms
      protected Timer timer = new Timer(delay, new TimerListener());
   
      public int x = 0; private int y = 0; // Current ball position
      private int radius = 5; // Ball radius
      private int dx = 2; // Increment on ball's x-coordinate
      private int dy = 2; // Increment on ball's y-coordinate
   
      public Ball() {
        timer.start();
   }
       private class TimerListener implements ActionListener {
        /** Handle the action event */
        public void actionPerformed(ActionEvent e) {
          repaint();
   
        }
      }
      protected void paintComponent(Graphics g) {
        super.paintComponent(g);
   
        g.setColor(Color.ORANGE);
   
        // Check boundaries
        if (x < radius) dx = Math.abs(dx);
        if (x > getWidth() - radius) dx = -Math.abs(dx);
        if (y < radius) dy = Math.abs(dy);
        if (y > getHeight() - radius) dy = -Math.abs(dy);
   
        // Adjust ball position
           x += dx;
           y += dy;
           g.fillOval(x - radius, y - radius, radius * 2, radius * 2);
   
          Polygon anu=new Polygon();
          anu.addPoint(0, 0);
           anu.addPoint(x - radius, y - radius);
          g.drawPolygon(anu);
   
         
   }
   
   public void suspend() {
   timer.stop(); // Suspend timer
   }
   
   public void resume() {
   timer.start(); // Resume timer
   }
   
   public void setDelay(int delay) {
   this.delay = delay;
   timer.setDelay(delay);
      }
   
   }
    
2. Perintah BallControl:
   
   package Bola;
   import java.awt.BorderLayout;
   import java.awt.Color;
   import java.awt.event.ActionEvent;
   import java.awt.event.ActionListener;
   import java.awt.event.AdjustmentEvent;
   import java.awt.event.AdjustmentListener;
   import javax.swing.JButton;
   import javax.swing.JPanel;
   import javax.swing.JScrollBar;
   
   /**
    *
    * @author Aris
    */
   public class BallControl extends JPanel {
       private Ball ball = new Ball();
       private JButton jbtStop = new JButton("Stop");
       private JButton jbtResume = new JButton("Lanjut");
       private JScrollBar jsbDelay = new JScrollBar();
   
      public BallControl() {
            JPanel panel = new JPanel();
        panel.add(jbtStop);
        panel.add(jbtResume);
            ball.setBorder(new javax.swing.border.LineBorder(Color.red));
           jsbDelay.setOrientation(JScrollBar.HORIZONTAL);
        ball.setDelay(jsbDelay.getMaximum());
        setLayout(new BorderLayout());
        add(jsbDelay, BorderLayout.NORTH);
        add(ball, BorderLayout.CENTER);
        add(panel, BorderLayout.SOUTH);
   
         jbtStop.addActionListener(new ActionListener() {
          public void actionPerformed(ActionEvent e) {
            ball.suspend();
          }
        });
          jbtResume.addActionListener(new ActionListener() {
          public void actionPerformed(ActionEvent e) {
            ball.resume();
          }
        });
        jsbDelay.addAdjustmentListener(new AdjustmentListener() {
          public void adjustmentValueChanged(AdjustmentEvent e) {
            ball.setDelay(jsbDelay.getMaximum() - e.getValue());
          }
        });
      }
   }
   
3. Perintah BounceBallApp:
   package Bola;
   import javax.swing.JApplet;
   /**
    *
    * @author Aris
    */
   public class BounceBallApp extends JApplet{
      public BounceBallApp(){
           add(new BallControl());
      }
   }
   
4. Hasilnya:
   
   

Read More

Basis Data Menggunakan Oracle

Perintah dibawah ini untuk menghubungkan dua Table:
perintah di bawah ini untuk menampilkan table emp.

select * from  emp;

perintah di bawah ini untuk menampilkan table dept.

select * from dept; 

Perintah di bawah ini untuk menghubungkan dua Table EMP dan DEPT:

select ename as nama, job as jabatan, dname as departemen, deptno as no_departemen from dept join emp using (deptno);

demikianlah yang saya buat tentang menghubungkan dua Table.
Terimah Kasih.

Read More

Pandangan Pertama

Sejak pandangan pertama ,kita bertemu matamu yang begitu indah yang memandang seluruh tubuhku?,  senyummu yang manis yang melihat tampan saya yang ganteng.  Saya pun terhipnotis dengan dengan kecantikanmu yang sangat cantik, Dengan wajah yang malu-malu tapi hati kamu saya bisa membacaya kalau kamu itu suka sama saya.  Mungkin kita memang sangat cocok karena hatiku ini mangatakan kalau kamu itu wanita yang paling pas untuk pendamping hidup saya untuk selamanya.

Aku tak akan pernah membiarkan orang lain yang memiliki kamu karena kamu adalah cewek yang paling cantik  di mataku walupun kamu belum mengatakannya tentang  hubungan kita berdua namun aku sudah mengerti apa yang kamu mau. Oleh karena itu kamu harus mempertahankan hubungan kita karena aku sangat sayang sama kamu. bangaimana pun keadaan kamu, karena mungkin  Awalnya kita di beri cobaan Oleh sang Pencipta, Untuk mempertahankan hubungan Kita berdua dan saya berharap kita harus bersatu Untuk keluar dari cobaan itu.

Hari demi hari yang sudah kita lewati bersama-sama yang sangat menyenangkan,  dan yang paling menyenangkan di saat kamu menerima Aku sebagai Pendamping Hidupmu.  Dan kini saatnya Aku akan selalu menyayagi, melindungi kamu untuk selamanya. Setiap malam Aku tidak bisa tidur dan selalu gelisah  karena kecantikan kamu selalu terbanyang-bayang di wajahku, jantungku yang berdebar kencang tak sabar untuk bertumu kamu lagi.

Read More

Awal Dari Percintaan

Dengan sepenuh kasih,  yang kita lewati berdua dan  dengan penuh harapan yang selalu kita rasakan sampai sekarang ini. Itu semua ku lakukan untuk kesenangan dan kebahagian kita berdua agar kita selalu bersama – sama baik dalam suka maupun duka karena kita ditempatkan di Dunia ini dengan penuh cobaan dari Sang Pencipta Yang Maha Kuasa. Dengan semua cobaan yang kita hadapi marilah kita bersatu untuk keluar dari dalam cobaan itu, karena semua masalah itu pasti ada jalan keluarnya. Tak ada orang yang lahir di dunia ini dengan sempurna pasti semuanya ada kekurangan tapi hanyalah Sang Pencipta lah yang sempurna.

Kini kita udah dewasa kita bisa membedakan mana yang Baik untuk dilakukan dan mana yang tidak baik. Aku berharap itu semua kita bisa mengerti, kita sudah tahu sendiri karena kita ini bukan anak kecil lagi yang selalu diperhatikan dan disuruh-suruh. Diantara kita janganlah berbohong karena sekarang ini borbohong itu tidak ada untungnya malahan berbohong itu membawa kita kedalam masalah yang rumit yang selalu berdampak negatif. Disitu juga timbul suatu masalah yang bisa melibatkan orang lain.

Jika kamu memang sayang sama Aku ungkapkanlah itu dengan jujur, Aku  akan menerima kamu dengan setulus hatiku,  karena kita lahir di Dunia ini dan di berikan jodoh masing-masing dan kita hanya mencari jodoh kita masing-masing. Suatu saat nanti kita dipersatukan saya harap kita saling menghargai dan selalu memberikan kesempatan dalam bertindak atau melakukan sesuatu yang baik. Karena kehidupan sekarang ini semakin canggih dan moderen.

Read More

Kehilangan Orang Yang Kita Cintai

Di tengah dunia ini, sudah 2 bulan musim kemarau terjadi di toraja Utara, kebanyakan orang sulit untuk mengambil air untuk kebutuhannya sehari-hari. Seperti yang di alami oleh Seorang Bapak di Tagari Rantepao bernama Daniel kemari dia di meninggal akibat kecapeaan mengangkat air. Ia meninggalkan Semua keluarnganya Yang tercinta, semua keluarnga yang di tinggalkan  tak menahan tangis dan semua orang yang mengenal Bapak Daniel Menangis karena Bapak Daniel itu orangnya baik, suka menolong dan berbangi.

            Semua Para siswa di Tagari meneteskan air mata Atas kepergiaanya Bapak Daniel. Para siswa tidak bisa berbuat banyak, dan Bapak/Ibu guru sangat heran saat mendegarkan kabar itu dari siswa. Setelah Bapak/Ibu guru mendengar Kabar itu Ia tak tahan tangis.

            Sebelum Bapak Daniel  meninggal  siang itu Bapak Masih mengajarkan tentang Mengolah sampah menjadi kerajinan. Sebelum keluar dari ruang kelas bapak  daniel bepesan  kalau kita ingin menuju kesuksesan tidak ada kata tidak bisa karena mau tidak mau kita harus mengubah hidup kita. Karena kehidupan zaman  sekarang ini semakin moderen.

Read More