Blogger templates

By : -=[̲̅l̲̅Pe2 CyberII [̲̅Bl̲̅og̲̅] ™

Template Information

Random Product

Banner

Banner

Banner

Banner

Diberdayakan oleh Blogger.

Program Java Kalkulator Pepe..Siap RUNING

Program Open Source Java Kalkulator Bagi Mahasiswa Teknik Informatikan & Sis.Informasi

import javax.microedition.midlet.*;
import javax.microedition.lcdui.*;
public class Input_Data extends MIDlet implements CommandListener {
    //deklarasi variabel
    Display layar;
    Form f;
    Ticker t;
    Command keluar;
    DateField tglhi,tgllh;
    TextField nobp,nama,tmplahir;
    ChoiceGroup jnskelamin;
    StringItem si;
    //akhir deklarasi variabel
    //construktor
    public Input_Data(){
        f=new Form("Data Mahasiswa");
        t=new Ticker("Selamat Mencoba Hasil Program Saya");
        keluar=new Command("Exit",Command.EXIT,0);
        tglhi=new DateField("Tanggal Hari Ini",DateField.DATE_TIME);
        tgllh=new DateField("Tanggal Lahir",DateField.TIME);
        nobp=new TextField("No Bp :","",15,TextField.ANY);
        nama=new TextField("Nama :","",20,TextField.ANY);
        tmplahir=new TextField("Tempat Lahir :","",30,TextField.ANY);
        jnskelamin=new ChoiceGroup("Jenis Kelamin",ChoiceGroup.EXCLUSIVE);
        jnskelamin.append("Laki-laki",null);
        jnskelamin.append("Perempuan",null);
        si=new StringItem("UPI YPTK Padang \n"," Jln. Raya Lubuk Begalung");
        f.addCommand(keluar);
        f.append(tglhi);
        f.append(nobp);
        f.append(nama);
        f.append(tmplahir);
        f.append(jnskelamin);
        f.append(tgllh);
        f.append(si);
        f.setTicker(t);
        f.setCommandListener(this);
    }
    public void startApp() {
        layar=Display.getDisplay(this);
        layar.setCurrent(f);
    }

    public void pauseApp() {
    }

    public void destroyApp(boolean unconditional) {
    }

    public void commandAction(Command c, Displayable arg1) {
        if(c==keluar){
            destroyApp(true);
            notifyDestroyed();
        }
    }
}
Download Program EXE



KALKULATOR
import javax.microedition.midlet.*;
import javax.microedition.lcdui.*;
public class proses extends MIDlet implements CommandListener {
    Display layar;
    Ticker t;
    Form f;
    TextField bil1,bil2,hasil,ket;
    Command keluar,kali,bagi,tambah,kurang;
    public proses(){
        t=new Ticker ("Selamat Siang");
        f=new Form ("Kalkulator");
        bil1=new TextField ("Bilangan 1","",7,TextField.NUMERIC);
        bil2=new TextField ("Bilangan 2","",7,TextField.NUMERIC);
        hasil=new TextField ("Hasil","",10,TextField.ANY);
        ket=new TextField ("Keteangan","",30,TextField.ANY);
        keluar=new Command ("Exit",Command.EXIT,0);
        kali=new Command ("Kali",Command.OK,1);
        bagi=new Command ("Bagi",Command.OK,2);
        tambah=new Command ("Tambah",Command.OK,3);
        kurang=new Command ("Kurang",Command.OK,4);
        f.append(bil1);
        f.append(bil2);
        f.append(hasil);
        f.append(ket);
        f.addCommand(keluar);
        f.addCommand(kali);
        f.addCommand(bagi);
        f.addCommand(tambah);
        f.addCommand(kurang);
        f.setTicker(t);
        f.setCommandListener(this);
    }
    public void startApp() {
        layar=Display.getDisplay(this);
        layar.setCurrent(f);
    }

    public void pauseApp() {
    }

    public void destroyApp(boolean unconditional) {
    }

    public void commandAction(Command arg0, Displayable arg1) {
        if(arg0==keluar){
            destroyApp(true);
            notifyDestroyed();
        }
        if(arg0==kali){
            int b1,b2,h;
            String ket1="";
            b1=Integer.parseInt(bil1.getString());
            b2=Integer.parseInt(bil2.getString());
            h=b1*b2;
            hasil.setString(String.valueOf(h));
            if(b1>b2){
                ket1="Bil1 lebih besar daripada Bil2";
            }
            if(b1<b2){
                ket1="Bil1 lebih kecil dari Bil2";
            }
            if(b1==b2){
                ket1="Bil1 sama dengan Bil2";
            }
            ket.setString(ket1);
        }
    }
}



UserID
import javax.microedition.midlet.*;
import javax.microedition.lcdui.*;
public class Id extends MIDlet implements CommandListener {
    Display layar;
    Ticker tiker;
    Form fm;
    Alert a;
    TextField password,user,nama,alamat;
    Command keluar,lanjut,kembali,kembali2,ayah,ibu,kakak,saya,adik;
    ChoiceGroup Jkelamin,pendidikan,kwn;
    public Id(){
        tiker=new Ticker ("Selamat Pagi");
        fm=new Form ("Menu Login");
        user=new TextField ("User_ID","",10,TextField.ANY);
        password=new TextField ("No_Pin ","",10,TextField.PASSWORD);
        nama=new TextField ("Nama","",10,TextField.ANY);
        alamat=new TextField ("Alamat","",10,TextField.ANY);
        Jkelamin=new ChoiceGroup ("Jkelamin",ChoiceGroup.POPUP);
        pendidikan=new ChoiceGroup ("Pendidikan",ChoiceGroup.EXCLUSIVE);
        kwn=new ChoiceGroup ("Kewarganegaraan",ChoiceGroup.POPUP);
        lanjut=new Command ("Lanjut",Command.OK,0);
        keluar=new Command ("Keluar",Command.EXIT,0);
        kembali=new Command ("Kembali",Command.EXIT,0);
        kembali2=new Command ("Kembali",Command.EXIT,0);
        ayah=new Command ("Ayah",Command.OK,1);
        ibu=new Command ("Ibu",Command.OK,2);
        kakak=new Command ("Kakak",Command.OK,3);
        saya=new Command ("Saya",Command.OK,4);
        adik=new Command ("Adik",Command.OK,5);
        fm.append(user);
        fm.append(password);
        fm.addCommand(lanjut);
        fm.addCommand(keluar);
        fm.setTicker(tiker);
        fm.setCommandListener(this);
    }
    public void startApp() {
        layar=Display.getDisplay(this);
        layar.setCurrent(fm);
    }

    public void pauseApp() {
    }

    public void destroyApp(boolean unconditional) {
    }

    public void commandAction(Command arg0, Displayable arg1) {
        if(arg0==keluar){
            destroyApp(true);
            notifyDestroyed();
        }
        if(arg0==lanjut){
            if(user.getString().equals("Emtik")){
                if(password.getString().equals("123456")){
                    fm=new Form ("Data Keluarga");
                    fm.addCommand(ayah);
                    fm.addCommand(ibu);
                    fm.addCommand(kakak);
                    fm.addCommand(saya);
                    fm.addCommand(adik);
                    fm.addCommand(kembali);
                    fm.setCommandListener(this);
                    layar=Display.getDisplay(this);
                    layar.setCurrent(fm);
                }
            }
        }
        if(arg0==ayah){
            fm=new Form ("Data Ayah");
            nama=new TextField ("Nama :","",10,TextField.ANY);
            alamat=new TextField ("Alamat :","",15,TextField.ANY);
            Jkelamin=new ChoiceGroup ("Jkelamin",ChoiceGroup.POPUP);
            Jkelamin.append("Laki-laki", null);
            Jkelamin.append("Perempuan", null);
            pendidikan=new ChoiceGroup ("Pendidikan",ChoiceGroup.EXCLUSIVE);
            pendidikan.append("S1", null);
            pendidikan.append("S2", null);
            pendidikan.append("S3", null);
            kwn=new ChoiceGroup ("Kewarganegaraan",ChoiceGroup.POPUP);
            kwn.append("WNI", null);
            kwn.append("WNA", null);
            fm.append(nama);
            fm.append(alamat);
            fm.append(Jkelamin);
            fm.append(pendidikan);
            fm.append(kwn);
            fm.addCommand(kembali2);
            fm.setCommandListener(this);
            layar=Display.getDisplay(this);
            layar.setCurrent(fm);
        }

        if(arg0==kembali){
        tiker=new Ticker ("Selamat Pagi");
        fm=new Form ("Menu Login");
        user=new TextField ("User_ID","",10,TextField.ANY);
        password=new TextField ("No_Pin","",6,TextField.PASSWORD);
        lanjut=new Command ("Lanjut",Command.OK,0);
        keluar=new Command ("Keluar",Command.EXIT,0);
        fm.append(user);
        fm.append(password);
        fm.addCommand(lanjut);
        fm.addCommand(keluar);
        fm.setTicker(tiker);
        fm.setCommandListener(this);
        layar=Display.getDisplay(this);
        layar.setCurrent(fm);
        }
        if(arg0==kembali2){
            fm=new Form ("Data Keluarga");
            fm.addCommand(ayah);
            fm.addCommand(ibu);
            fm.addCommand(kakak);
            fm.addCommand(saya);
            fm.addCommand(adik);
            fm.addCommand(kembali);
            fm.setCommandListener(this);
            layar=Display.getDisplay(this);
            layar.setCurrent(fm);
        }
    }
}








Welcome to Bhenika
import javax.microedition.midlet.*;
import javax.microedition.lcdui.*;
public class Id extends MIDlet implements CommandListener {
    Display lcd;
    Ticker tkr;
    Alert al;
    Form fm;
    Command kembali,kembali2,keluar,masuk,komputer,printer,acsesoris;
    TextField cari, email,komentar;
    ChoiceGroup merek, type, harga;
    public Id() {
        tkr=new Ticker ("LATIHAN");
        al=new Alert ("TOKO KOMPUTER","Welcome to Bhineka.com",null,AlertType.INFO);
        masuk=new Command ("Masuk",Command.OK,0);
        keluar=new Command ("Keluar",Command.EXIT,0);
        al.setTicker(tkr);
        al.addCommand(masuk);
        al.addCommand(keluar);
        al.setTimeout(Alert.FOREVER);
        al.setCommandListener(this);
    }
    public void startApp() {
        lcd=Display.getDisplay(this);
        lcd.setCurrent(al);
    }
    public void pauseApp() {
    }
    public void destroyApp(boolean unconditional) {
    }
    public void commandAction(Command arg0, Displayable arg1) {
        if(arg0==keluar){
            destroyApp(true);
            notifyDestroyed();
        }
        if(arg0==masuk){
            fm=new Form("Menu");
            tkr=new Ticker("Daftar Produk");
            komputer=new Command("Komputer",Command.OK,0);
            printer=new Command("Printer",Command.OK,0);
            acsesoris=new Command("Acsesoris",Command.OK,0);
            kembali=new Command("Kembali",Command.EXIT,0);
            fm.setTicker(tkr);
            fm.addCommand(komputer);
            fm.addCommand(printer);
            fm.addCommand(acsesoris);
            fm.addCommand(kembali);
            fm.setCommandListener(this);
            lcd=Display.getDisplay(this);
            lcd.setCurrent(fm);
        }

        if(arg0==kembali){
            tkr=new Ticker ("LATIHAN");
            al=new Alert ("TOKO KOMPUTER","Welcome to\n  Bhineka.com",null,AlertType.INFO);
            masuk=new Command ("Masuk",Command.OK,0);
            keluar=new Command ("Keluar",Command.EXIT,0);
            al.setTicker(tkr);
            al.addCommand(masuk);
            al.addCommand(keluar);
            al.setTimeout(Alert.FOREVER);
            al.setCommandListener(this);
            lcd=Display.getDisplay(this);
            lcd.setCurrent(al);
        }

        if(arg0==komputer){
            fm=new Form("Komputer");
            cari=new TextField("Cari","",10,TextField.ANY);
            email=new TextField("E-Mail","",20,TextField.ANY);
            merek=new ChoiceGroup("Merek",Choice.EXCLUSIVE);
            merek.append("Acer",null);
            merek.append("Toshiba",null);
            merek.append("HP",null);
            type=new ChoiceGroup("Type",Choice.POPUP);
            type.append("Laptop",null);
            type.append("Netbook",null);
            harga=new ChoiceGroup("Harga",Choice.TEXT_WRAP_OFF);
            harga.append("1 Juta",null);
            harga.append("2 Juta",null);
            harga.append("3 Juta",null);
            kembali2=new Command("Kembali",Command.OK,0);
            fm.append(cari);
            fm.append(merek);
            fm.append(type);
            fm.append(harga);
            fm.append(email);
            fm.addCommand(kembali2);
            fm.setCommandListener(this);
            lcd=Display.getDisplay(this);
            lcd.setCurrent(fm);
        }

        if(arg0==kembali2){
             fm=new Form("Menu");
             tkr=new Ticker("Daftar Produk");
             komputer=new Command("Komputer",Command.OK,0);
             printer=new Command("Printer",Command.OK,0);
             acsesoris=new Command("Acsesoris",Command.OK,0);
             kembali2=new Command("Kembali",Command.EXIT,0);
             fm.setTicker(tkr);
             fm.addCommand(komputer);
             fm.addCommand(printer);
             fm.addCommand(acsesoris);
             fm.addCommand(kembali);
             fm.setCommandListener(this);
             lcd=Display.getDisplay(this);
             lcd.setCurrent(fm);
        }

        if(arg0==printer){
            fm=new Form("Printer");
            merek=new ChoiceGroup("Merek",Choice.POPUP);
            merek.append("HP", null);
            merek.append("Canon", null);
            type=new ChoiceGroup("Type",Choice.EXCLUSIVE);
            type.append("Laser", null);
            type.append("Inkjet", null);
            harga=new ChoiceGroup("Harga",Choice.TEXT_WRAP_OFF);
            harga.append("600.000", null);
            harga.append("1.000.000", null);
            harga.append("2.000.000", null);
            komentar=new TextField("Komentar","",10,TextField.ANY);
            kembali2=new Command("Kembali",Command.OK,0);
            fm.append(merek);
            fm.append(type);
            fm.append(harga);
            fm.append(komentar);
            fm.addCommand(kembali2);
            fm.setCommandListener(this);
            lcd=Display.getDisplay(this);
            lcd.setCurrent(fm);
        }
    }
}

3 komentar:

  1. mengirim orang tua di majalengka, sudah lama saya mengetahui roomnya om ini, juga sudah lama mendengar nama besar MBAH,tapi saya termasuk orang yangg tidak terlalu percaya dengan hal ghoib, jadi saya pikir ini pasti kerjaan orang iseng yang mau menipu.
    tetapi kemarin waktu pengeluaran , saya benar2 tidak percaya dan hampir pingsang,angka yg diberi MBAH JORO ternyata tembus, awalnya saya coba2 menelpon, saya bilang saya TKI Yang kerja di singapore mau pulang tidak ada ongkos, terus beliau bantu kasih angka . mulanya saya tdk percaya,mana mungkin angka ini keluar, tapi dengan penuh pengharapan saya pasangin kali 100 lembar, sisa gaji bulan april, ternyata berhasil….!!!
    dapat BLT 200jt, sekali lagi terima kasih banyak MBAH JORO, saya sudah kapok kerja jadi TKI, rencana senin depan mau pulang aja ke PALEMBANG.buat MBAH,saya tidak akan lupa bantuan dan budi baik MBAH.
    yang ingin merubah nasib seperti saya silahkan hub MBAH JORO di no. 082345573962


































    mengirim orang tua di majalengka, sudah lama saya mengetahui roomnya om ini, juga sudah lama mendengar nama besar MBAH,tapi saya termasuk orang yangg tidak terlalu percaya dengan hal ghoib, jadi saya pikir ini pasti kerjaan orang iseng yang mau menipu.
    tetapi kemarin waktu pengeluaran , saya benar2 tidak percaya dan hampir pingsang,angka yg diberi MBAH JORO ternyata tembus, awalnya saya coba2 menelpon, saya bilang saya TKI Yang kerja di singapore mau pulang tidak ada ongkos, terus beliau bantu kasih angka . mulanya saya tdk percaya,mana mungkin angka ini keluar, tapi dengan penuh pengharapan saya pasangin kali 100 lembar, sisa gaji bulan april, ternyata berhasil….!!!
    dapat BLT 200jt, sekali lagi terima kasih banyak MBAH JORO, saya sudah kapok kerja jadi TKI, rencana senin depan mau pulang aja ke PALEMBANG.buat MBAH,saya tidak akan lupa bantuan dan budi baik MBAH.
    yang ingin merubah nasib seperti saya silahkan hub MBAH JORO di no. 082345573962




























    BalasHapus
  2. cuma seorang pengamen jalanan yang pendapatannya tidak seberapa,buat makan saja nda cukup apalagi untuk beli obat buat ibu saya karna belakangan ini ibu saya lagi sakit sakitan jadi saya harus Assalamualaikum wr.wb saya NURMIA ingin berbagi cerita kepada anda bahwa dulunya saya ini membantin tulang buat ibu saya dan adik saya karna bapak kami pergi meninggalkan kami entah kemana,,saya dapat nomor MBAH JORO dari teman saya..awalnya sih saya ragu tapi nda ada salahnya juga saya coba karna sudah banyak paranormal yang saya hubungi tapi tidak ada yang berhasil malahan cuma uang saya aja yang terkuras habis dan akhirnya saya menghubungi MBAH JORO dan mengikuti 4D nya yaitu {1704} dan alhamdulillah berhasil..!!! Kini kehidupan kami sudah tidak seperti dulu lagi dan akhirnya saya juga sdh punya usaha sendiri dan bagi anda yang ingin seperti saya silahkan HBG 0823=4557=3962 MBAH JORO nomor ritual MBAH JORO meman benar2 100% tembus. >> >>>KLIK DISINI<<
    *****=====*****=====*****=====*****====*****=====*****=====*****=====


















    cuma seorang pengamen jalanan yang pendapatannya tidak seberapa,buat makan saja nda cukup apalagi untuk beli obat buat ibu saya karna belakangan ini ibu saya lagi sakit sakitan jadi saya harus Assalamualaikum wr.wb saya NURMIA ingin berbagi cerita kepada anda bahwa dulunya saya ini membantin tulang buat ibu saya dan adik saya karna bapak kami pergi meninggalkan kami entah kemana,,saya dapat nomor MBAH JORO dari teman saya..awalnya sih saya ragu tapi nda ada salahnya juga saya coba karna sudah banyak paranormal yang saya hubungi tapi tidak ada yang berhasil malahan cuma uang saya aja yang terkuras habis dan akhirnya saya menghubungi MBAH JORO dan mengikuti 4D nya yaitu {1704} dan alhamdulillah berhasil..!!! Kini kehidupan kami sudah tidak seperti dulu lagi dan akhirnya saya juga sdh punya usaha sendiri dan bagi anda yang ingin seperti saya silahkan HBG 0823=4557=3962 MBAH JORO nomor ritual MBAH JORO meman benar2 100% tembus. >> >>>KLIK DISINI<<
    *****=====*****=====*****=====*****====*****=====*****=====*****=====

































    cuma seorang pengamen jalanan yang pendapatannya tidak seberapa,buat makan saja nda cukup apalagi untuk beli obat buat ibu saya karna belakangan ini ibu saya lagi sakit sakitan jadi saya harus Assalamualaikum wr.wb saya NURMIA ingin berbagi cerita kepada anda bahwa dulunya saya ini membantin tulang buat ibu saya dan adik saya karna bapak kami pergi meninggalkan kami entah kemana,,saya dapat nomor MBAH JORO dari teman saya..awalnya sih saya ragu tapi nda ada salahnya juga saya coba karna sudah banyak paranormal yang saya hubungi tapi tidak ada yang berhasil malahan cuma uang saya aja yang terkuras habis dan akhirnya saya menghubungi MBAH JORO dan mengikuti 4D nya yaitu {1704} dan alhamdulillah berhasil..!!! Kini kehidupan kami sudah tidak seperti dulu lagi dan akhirnya saya juga sdh punya usaha sendiri dan bagi anda yang ingin seperti saya silahkan HBG 0823=4557=3962 MBAH JORO nomor ritual MBAH JORO meman benar2 100% tembus. >> >>>KLIK DISINI<<
    *****=====*****=====*****=====*****====*****=====*****=====*****=====

    BalasHapus
  3. cuma seorang pengamen jalanan yang pendapatannya tidak seberapa,buat makan saja nda cukup apalagi untuk beli obat buat ibu saya karna belakangan ini ibu saya lagi sakit sakitan jadi saya harus Assalamualaikum wr.wb saya NURMIA ingin berbagi cerita kepada anda bahwa dulunya saya ini membantin tulang buat ibu saya dan adik saya karna bapak kami pergi meninggalkan kami entah kemana,,saya dapat nomor MBAH JORO dari teman saya..awalnya sih saya ragu tapi nda ada salahnya juga saya coba karna sudah banyak paranormal yang saya hubungi tapi tidak ada yang berhasil malahan cuma uang saya aja yang terkuras habis dan akhirnya saya menghubungi MBAH JORO dan mengikuti 4D nya yaitu {1704} dan alhamdulillah berhasil..!!! Kini kehidupan kami sudah tidak seperti dulu lagi dan akhirnya saya juga sdh punya usaha sendiri dan bagi anda yang ingin seperti saya silahkan HBG 0823=4557=3962 MBAH JORO nomor ritual MBAH JORO meman benar2 100% tembus. >> >>>KLIK DISINI<<
    *****=====*****=====*****=====*****====*****=====*****=====*****=====













    cuma seorang pengamen jalanan yang pendapatannya tidak seberapa,buat makan saja nda cukup apalagi untuk beli obat buat ibu saya karna belakangan ini ibu saya lagi sakit sakitan jadi saya harus Assalamualaikum wr.wb saya NURMIA ingin berbagi cerita kepada anda bahwa dulunya saya ini membantin tulang buat ibu saya dan adik saya karna bapak kami pergi meninggalkan kami entah kemana,,saya dapat nomor MBAH JORO dari teman saya..awalnya sih saya ragu tapi nda ada salahnya juga saya coba karna sudah banyak paranormal yang saya hubungi tapi tidak ada yang berhasil malahan cuma uang saya aja yang terkuras habis dan akhirnya saya menghubungi MBAH JORO dan mengikuti 4D nya yaitu {1704} dan alhamdulillah berhasil..!!! Kini kehidupan kami sudah tidak seperti dulu lagi dan akhirnya saya juga sdh punya usaha sendiri dan bagi anda yang ingin seperti saya silahkan HBG 0823=4557=3962 MBAH JORO nomor ritual MBAH JORO meman benar2 100% tembus. >> >>>KLIK DISINI<<
    *****=====*****=====*****=====*****====*****=====*****=====*****=====






























    BalasHapus

Ads Header