Langsung ke konten utama

Latihan J2ME ChoiceGroup Tampil

import javax.microedition.lcdui.*;
import javax.microedition.midlet.*;

  public class Midlet_8 extends MIDlet implements CommandListener {
    private Display display;
    private Form frmInput;
    private ChoiceGroup cgPilihan;
    private TextField nama;
    private Command cmdKeluar;
    private Command cmdTampil;
    private CommandListener listener;
    private StringItem siPilih;
    //private Alert alert;
    public Midlet_8 () {
 }
    public void startApp() {
        //Form
        frmInput = new Form("Form Input Nama");
        nama = new TextField("Nama: ", null, 35, TextField.ANY);
        frmInput.append(nama);
        cgPilihan = new ChoiceGroup("Pilih Jurusan : ", Choice.POPUP);
        cgPilihan.append("Teknik Informatika", null);
        cgPilihan.append("Sistem Informatika", null);
        cgPilihan.append("Managemen Informatika", null);
        cgPilihan.setSelectedIndex(2, true);
        siPilih = new StringItem("Program yang anda pilih adalah: ", "");
       
        cmdKeluar = new Command("Keluar", Command.EXIT, 1);
        cmdTampil = new Command("Tampil", Command.SCREEN, 1);
       
        frmInput.append(cgPilihan);
        frmInput.addCommand(cmdKeluar);
        frmInput.addCommand(cmdTampil);
        frmInput.append(siPilih);
        frmInput.setCommandListener(this);
        display = Display.getDisplay(this);
        display.setCurrent(frmInput);
    }
   
    public void pauseApp() {}
    public void destroyApp(boolean unconditional) {}
    public void commandAction(Command c, Displayable d) {
if (c==cmdKeluar){
destroyApp(true);
   notifyDestroyed();
                }else if (c==cmdTampil){
                    int pilih;
                    String pilihan;
                    pilih = cgPilihan.getSelectedIndex();
                    pilihan = cgPilihan.getString(pilih);
                    siPilih.setText(pilihan);
     
                   
                }
    }

}

Komentar

Postingan populer dari blog ini

Bumi Bumi Mengelilingi Matahari 3D Cara meruning dengan menggunakan Keyboard: CTRL + y Yaitu untuk Revolusi Bumi mengelilingi Matahari y yaitu Kebalikannya CTRL + d yaitu untuk Rotasi poros Bumi d yaitu kebalikannya #include #include #include static int year = 0, day = 0; void init(void) { glClearColor (0.0, 0.0, 0.0, 0.0); glShadeModel (GL_FLAT); } void display(void) { glClear (GL_COLOR_BUFFER_BIT); glColor3f (1.0, 0.0, 0.0); /*Warna Merah*/ glPushMatrix(); glutWireSphere(1.0, 20, 16); /* Draw Matahari */ glRotatef ((GLfloat) year, 0.0, 1.0, 0.0); glTranslatef (2.0, 0.0, 0.0); glRotatef ((GLfloat) day, 0.0, 1.0, 0.0); glutWireSphere(0.2, 10, 8); /* Draw planet Kecil */ glPopMatrix(); glutSwapBuffers(); } void reshape (int w, int h) { glViewport (0, 0, (GLsizei) w, (GLsizei) h); glMatrixMode (GL_PROJECTION); glLoadIdentity (); gluPerspective(60.0, (GLfloat) w/(GLfloat) h, 1.0, 20.0); glMatrixMode(GL_MODELVIEW); glLoadIdentity...

Game Diver Jimmy

Bantu Kenny menemukan harta karun, awas ada mahluk yang membahayakan. DOWNLOAD DISINI!!!

Hacking Registry dengan batch file

Pada dasarnya batch file adalah sebuah script apabila script tersebut dijalankan akan berhubungan langsung dengan shell windows. Perintah dasar seperti copy, rename dan masih banyak lagi. Kita akan bahas disini yaitu perintah REG. Perintah REG merupakan perintah untuk mengakses Registry secara langsung.  Perintah dasarnya: REG ADD REG DELETE REG COPY REG SAVE REG LOAD REG UNLOAD REG QUERY REG COMPARE REG EXPORT REG IMPORT 1. REG ADD digunakan untuk menambahkan key atau value pada registry windows. Struktur dari perintah REG ADD adalah sebagai berikut: REG ADD KeyName [/v NamaValue] [/t Type] [/d Data] [/f] Keterangan: REG ADD perintah dasar untuk menambah key atau value pada registry KeyName yang akan dijadikan sasaran (root key) HKEY_CLASSES_ROOT => HKCR HKEY_CURRENT_USER => HKCU HKEY_LOCAL_MACHINE => HKLM HKEY_USERS => HKU HKEY_CURRENT_CONFIG => HKCC NamaValue => digunakan untuk menambahkan nama value pada registry Type =...