Ora Et Labora

Rabu, 28 November 2012

Listing Program Java




Pertemuan 1

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

public class adam extends MIDlet implements CommandListener               {
    Alert tampil;
    Display layar;
    Ticker jalan;
    public adam(){
        tampil=new Alert("Projek awal","Hai",null,AlertType.ALARM);
        jalan=new Ticker("Helb");
        tampil.setTicker(jalan);
        tampil.setCommandListener(this);
    }
    public void startApp() {
        layar=Display.getDisplay(this);
        layar.setCurrent(tampil);
    }

    public void pauseApp() {
    }

    public void destroyApp(boolean unconditional) {
    }

    public void commandAction(Command arg0, Displayable arg1) {
       
    }
}


Pertemuan 2

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

public class Menu extends MIDlet implements CommandListener{
    Display D;
    Alert a,b;
    Ticker r;
    Command K,C1,C2,B;
    Image h;
    public Menu(){
       try{
           h = Image.createImage("/3.jpg");
       }catch(Exception e){e.printStackTrace();}
       
               
        a=new Alert("Menu Utama",null,h,null);
        b=new Alert("Profil",null,null,null);
        r=new Ticker("Hello");
        K=new Command("Keluar",Command.EXIT,0);
        C1=new Command("Profil",Command.OK,0);
        C2=new Command("Objek Wisata",Command.OK,1);
        B=new Command("Kemabali",Command.BACK,0);
        a.setTicker(r);
        a.addCommand(C1);
        a.addCommand(C2);
        a.addCommand(K);
        a.setTimeout(Alert.FOREVER);
        a.setCommandListener(this);
    }
    public void startApp() {
        D=Display.getDisplay(this);
        D.setCurrent(a);
    }
    public void commandAction (Command x,Displayable arg1){
    if(x==K){
        destroyApp(true);
        notifyDestroyed();
    }
    if(x==C1){
        b.setTicker(r);
        b.addCommand(C1);
        b.addCommand(C2);
        b.addCommand(B);
        b.setTimeout(Alert.FOREVER);
        b.setCommandListener(this);
        D.setCurrent(b);
    }
    if(x==B){
        D.setCurrent(a);
       
    }
    }
    public void pauseApp(){
    }

    public void destroyApp(boolean unconditional) {
    }

         }

  

Pertemuan 3

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


public class gambar extends MIDlet implements CommandListener  {
    Image g,g1,g2,g3,g4;
    Display D;
    Form fr,fr1;
    Alert a;
    List ls;
    Command S,B,B1;
   
    public gambar (){
        try {g = Image.createImage("/1.jpg");
             g1= Image.createImage("/2.jpg");
             g2= Image.createImage("/3.jpg");
             g3= Image.createImage("/4.jpg");
             g4= Image.createImage("/5.jpg");
        } catch (Exception e){e.printStackTrace();}
        S = new Command ("OK",Command.OK,0);
        B = new Command ("BACK",Command.BACK,0);
        B1 = new Command ("BACK",Command.BACK,1);
        fr = new Form ("halaman awal");
        fr.append("selamat datang \n");
        fr.append(g);
        fr.append("tekan OK untuk melanjutkan");
        fr.addCommand(S);
        fr.setCommandListener(this);
       
        fr1= new Form ("gambar1");
        fr.append(g1);
        fr.append("tuliskan apa saja tentang gambar");
        fr.addCommand(B1);
        fr.setCommandListener(this);
       
        a= new Alert("pemberitahuan","data kosong",g4,AlertType.INFO);
        a.addCommand(B1);
        a.setCommandListener(this);
        a.setTimeout(Alert.FOREVER);
        ls= new List ("album",List.IMPLICIT);
        ls.append("gambar1", null);
        ls.append("gambar2",null);
        ls.append("gambar3", null);
        ls.addCommand(B);
        ls.setCommandListener(this);
       
    }
    public void startApp() {
        D= Display.getDisplay(this);
        D.setCurrent(fr);
    }

    public void pauseApp() {
    }

    public void destroyApp(boolean unconditional) {
    }

    public void commandAction(Command x, Displayable arg1) {
        if (x== ls.SELECT_COMMAND){
        int i= ls.getSelectedIndex();
        String p=ls.getString(i);
        if (p=="gambar1"){
            D.setCurrent(fr1);}
        else {D.setCurrent(a);}
        }
    if (x== S){
        D.setCurrent(ls);
    }
    if (x== B1){
        D.setCurrent(ls);
    }
    if (x== B){
        D.setCurrent(fr);}
       
            }
        }
Share

Senin, 13 Agustus 2012

Selasa, 07 Februari 2012

KRIPTOGRAFI


Public Class Kriptografi

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim x As String
        TextBox2.Text = ""
        For i = 1 To Len(TextBox1.Text)
            x = Microsoft.VisualBasic.Mid(TextBox1.Text, i, 1)
            TextBox2.Text = TextBox2.Text & x & "=" & Asc(x) & vbCrLf
        Next i
    End Sub
Share

Senin, 30 Januari 2012

Cara Cepat Diet dan Sehat


Dulu semasa Sekolah Menegah Pertama, Badan saya gemuk, gampang kena penyakit,Melakukan aktifitas sebentar saja rasanya udah mau mati,.. aduch.. sakit nya,..HeHe.. Trus saya bertanya kepada teman-teman saya bagaimana cara mengurangi berat badan, eh malah mereka menganjurkan yang tidak baik,..
akhirnya saya bertekad dengan cara saya sendiri, dengan ini :

Diet Cepat dan Sehat. Kegemukan adalah masalah yang dialami banyak orang. Berat badan yang berlebihan dapat menimbulkan berbagai masalah kesehatan. Pada dasarnya diet cepat dan sehat terdapat 2 aktifitas di dalamnya antara lain mengatur pola makan dan berolahraga yang teratur.


Dalam artikel ini akan diuraikan beberapa tips tentang diet cepat dan sehat. Keberhasilan anda dalam melakukan diet cepat tergantung dari tergantung seberapa banyak usaha yang anda lakukan untuk mencapainya.

Untuk membantu anda dalam menjalankan diet cepat dan sehat, di bawah ini ada beberapa cara diet cepat dan sehat, antara lain:

1. Makanlah sayur atau buah-buahan terlebih dahulu. Kemudian dilanjutkan dengan makan nasi dan lauk pauknya. Dan jangan makan dengan porsi yang berlebihan.

2. Cara diet cepat yang berikutnya yaitu jangan makan makanan cepat saji.

3. Walaupun anda sedang menjalani diet cepat, usahakan tetap makan 3x sehari tetapi Makan Jangan Dengan Porsi Yang Berlebihan

4. Cara diet cepat selanjutnya yaitu batasi makan kue kering dan juga snack.

5. Pakailah piring dengan ukuran yang kecil dari piring yang anda biasa gunakan. Karena secara tidak langsung dapat memanipulasi pikiran anda, yang mana seolah-olah anda telah makan satu piring tetapi kali ini lebih sedikit.

6. Cara diet cepat yang berikutnya adalah membatasi mengkonsumsi cream atau indomie.

7. Selanjutnya cara diet cepat yang efektif yaitu dengan mengunyah makanan dengan perlahan sehingga dapat membuat cepat kenyang.

8. Batasi mengkonsumsi garam.

9. Bawalah makanan sendiri dari rumah agar anda tidak tergiur untuk makan di luar dan dapat membatasi makan anda saat makan siang.

9. Agar cairan tubuh anda tetap terjaga, minumlah air putih sebanyak delapan gelas sehari.

10. Cara diet cepat yang terakhir yaitu dengan Berolah Raga Secara Teratur

Anda dapat berkonsultasi terlebih dulu dengan dokter agar anda dapat mengetahui kondisi tubuh anda sehingga anda dapat melakukan cara diet cepat dengan tepat.


Nb : semoga bermanfaatShare

Minggu, 29 Januari 2012

Data karyawan



Listing Program
Public Class Karyawan
Sub BUATTABEL()
LV.Columns.Add("NIP", 80, HorizontalAlignment.Center)
LV.Columns.Add("Nama Karyawan", 180, HorizontalAlignment.Left)
LV.Columns.Add("Golongan", 70, HorizontalAlignment.Left)
LV.Columns.Add("Gaji Pokok", 80, HorizontalAlignment.Left)
LV.Columns.Add("Status", 80, HorizontalAlignment.Left)
LV.Columns.Add("Jumlah Anak", 80, HorizontalAlignment.Left)
LV.Columns.Add("Tunjangan Istri", 80, HorizontalAlignment.Left)
LV.Columns.Add("Tunjangan Anak", 80, HorizontalAlignment.Left)
LV.Columns.Add("Lama Lembur", 80, HorizontalAlignment.Left)
LV.Columns.Add("Gaji Lembur", 80, HorizontalAlignment.Left)
LV.Columns.Add("Pajak", 80, HorizontalAlignment.Left)
LV.Columns.Add("Total Gaji", 80, HorizontalAlignment.Left)
LV.View = View.Details
LV.GridLines = True
LV.FullRowSelect = True
End Sub
Sub ISITABEL()
For i = 1 To 3
NIP.Items.Add("000" & i)
Next
Gol.Items.Add("IIIA")
Gol.Items.Add("IIIB")
Gol.Items.Add("IIIC")

Status.Items.Add("MENIKAH")
Status.Items.Add("BELUM MENIKAH")


jlhanak.Items.Add(1)
jlhanak.Items.Add(2)
Lama.Items.Add("1 JAM")
Lama.Items.Add("2JAM")
Lama.Items.Add("3JAM")
Lama.Items.Add("4JAM")
Lama.Items.Add("5JAM")
End Sub

Private Sub Karyawan_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
BUATTABEL()
ISITABEL()
End Sub

Private Sub Btnkeluar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btnkeluar.Click
End
End Sub
Private Sub NIP_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles NIP.SelectedIndexChanged
If NIP.Text = "0001" Then
Nama.Text = "Begu"
ElseIf NIP.Text = "0002" Then
Nama.Text = "Ganjang"
ElseIf NIP.Text = "0003" Then
Nama.Text = "Josua"
End If
End Sub

Private Sub Gapok_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Gapok.TextChanged
Pajak.Text = Gapok.Text * 1.5
End Sub

Private Sub jlhanak_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles jlhanak.SelectedIndexChanged
If jlhanak.Text = "1" Then
Tuna.Text = Gapok.Text * 0.1
ElseIf jlhanak.Text = "2" Then
Tuna.Text = Gapok.Text * 0.19
End If
End Sub

Private Sub Btnok_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btnok.Click
Dim sublv As New ListViewItem
sublv.Text = NIP.Text
sublv.SubItems.Add(Nama.Text)
sublv.SubItems.Add(Gol.Text)
sublv.SubItems.Add("RP. " & Gapok.Text)
sublv.SubItems.Add(Status.Text)
sublv.SubItems.Add("RP. " & Tuna.Text)
sublv.SubItems.Add(" RP. " & Tunis.Text)
sublv.SubItems.Add(jlhanak.Text)
sublv.SubItems.Add("JAM " & Lama.Text)
sublv.SubItems.Add("RP. " & gajilembur.Text)
sublv.SubItems.Add("RP. " & Pajak.Text)
sublv.SubItems.Add("RP. " & Total.Text)
LV.Items.Add(sublv)
End Sub
Private Sub Status_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Status.SelectedIndexChanged
If Status.Text = "Menikah" Then
Tunis.Text = Gapok.Text * 0.09
ElseIf Status.Text = "BELUM MENIKAH" Then
Tunis.Text = 0
Tuna.Text = 0

End If
End Sub

Private Sub Gol_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Gol.SelectedIndexChanged
If Gol.Text = "IIIA" Then
Gapok.Text = 95000000
ElseIf Gol.Text = "IIIB" Then
Gapok.Text = 67500000
ElseIf Gol.Text = "IIIC" Then
Gapok.Text = 40000000
End If
End Sub

Private Sub Pajak_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Pajak.TextChanged
Total.Text = Val(Gapok.Text) + Val(Tuna.Text) + Val(Tunis.Text) - Val(Pajak.Text)
End Sub

Private Sub Btnhapus_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btnhapus.Click
Pajak.Text = ""
Nama.Text = ""
Gol.Text = ""
Gapok.Text = ""
Status.Text = ""
Tunis.Text = ""
Tuna.Text = ""
jlhanak.Text = ""
Lama.Text = ""
gajilembur.Text = ""

Total.Text = ""
Pajak.Focus()
End Sub

Private Sub Lama_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Lama.SelectedIndexChanged
If Gol.Text = "IIIA" Then
gajilembur.Text = Lama.Text * 7500
ElseIf Gol.Text = "IIIB" Then
gajilembur.Text = Lama.Text * 10000
ElseIf Gol.Text = "IIIC" Then
gajilembur.Text = Lama.Text * 5000
Else
Lama.Text = 0
End If
End Sub
End ClassShare

MenuUtama



Listing Program
Public Class MenuUtama
Private Sub DataKaryawanToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles DataKaryawanToolStripMenuItem.Click
Karyawan.show()
End Sub

Private Sub KeluarProgramToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles KeluarProgramToolStripMenuItem.Click
End
End Sub
End ClassShare

Form Login


Public Class Form1

Private Sub Btnok_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btnok.Click
If Username.Text = "Josua" And Password.Text = "jjj" Then
MenuUtama.Show()
Me.Hide()
Else
MsgBox("data username/password salah !!!")
Username.Text = ""
Password.Text = ""
End If
End Sub

Private Sub Btnkeluar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btnkeluar.Click
End
End Sub
End Class
Share