Archive for January 2012

Tugas Akhir

yeah i'm bored in this week, if i meet two word. This is 
TUGAS AKHIR


~ THE END ~

Tuesday, January 31, 2012
Posted by jody baharizki
Tag :

read file dengan Java


Hai kali ini saya akan mengupdate tentang pelajaran java.
Materi kali ini tentang READ FILE. Yaitu dengan membaca text  yang tersimpan pada suatu direktori sebagai contoh di direktori C:\a.txt.



(buat tulisan pada notepad kemudian save as ke C:\a.txt.)
Maksutnya adalah kita menyimpan file .txt pada direktori C.

Kemudian kita buka netbeans. Buat new project. Pada paketnya kita buat new class.
Ketikan script ini :
Begini scriptnya:
/*
 * To change this template, choose Tools | Templates
 * and open the template in the editor.
 */
package javaapplication32;
import java.io.*;
/**
 *
 * @author Jody
 */
public class readfilr {
   
   

public static void main(String args[]) throws IOException {
System.out.println("What is the name of the file to read from?");
String filename;
BufferedReader br = new BufferedReader(new
InputStreamReader(System.in));
filename = br.readLine();
System.out.println("Now reading from " + filename + "...");
FileInputStream fis = null;
try {
fis = new FileInputStream(filename);
} catch (FileNotFoundException ex) {
System.out.println("File not found.");
}
try {
char data;
int temp;
do {
temp = fis.read();
data = (char) temp;
if (temp != -1) {
System.out.print(data);
}
} while (temp != -1);
} catch (IOException ex) {
System.out.println("Problem in reading from the file.");
}
}
}

Setelah itu klik tombol run


                                                                  (dilingkari merah)

Dan ketikan direktori penyimpananya



Kemudian enter
Hasil akan terlihat.




Selamat mencoba. Silahkan di modifikasi sesuka anda.


   

Wednesday, January 25, 2012
Posted by jody baharizki

10 Tanda Anda Harus Pindah Kerja

Rata-rata jam kerja pegawai kantoran adalah 8 hingga 9 jam. Artinya, setiap hari, Anda menghabiskan sepertiga hidup Anda di kantor. Sia-sia sekali rasanya jika waktu sebanyak ini dihabiskan dengan mengeluh dan berbagai hal lain yang membuat Anda tak bahagia. Mungkin sudah saatnya Anda mengundurkan diri dan pindah kerja ke perusahaan lain, atau jadi pengusaha?

Jika Anda mengalami 10 hal berikut ini, tandanya Anda memang harus segera mengucap selamat tinggal pada rekan kerja.


1. Anda begitu membenci hari Senin
Merasa sedih saat weekend berakhir dan Senin kembali datang itu hal yang wajar. Tapi jika Anda membayangkan masuk kantor, bekerja, bertemu bos, bertemu rekan kerja, dan semua yang akan terjadi hari Senin, lalu Anda merasa muak, takut, bahkan stres, artinya Anda memang tak ingin berada di sana. Mungkin Anda hanya bertahan hanya demi punya pekerjaan? Tapi untuk apa menyiksa diri dan menghabiskan sepertiga hidup Anda di tempat yang Anda benci, sementara banyak orang lainnya yang menikmati pekerjaan mereka?

2. Anda bekerja tak dengan hati
Pekerjaan yang ideal adalah saat kita mengerjakan apa yang kita cintai. Memang tak semua orang seberuntung itu, tapi jika Anda mencintai pekerjaan Anda, melakukan aktivitas sehari-hari di kantor pun tak akan terasa berat. Bahkan jika pekerjaan Anda berat, Anda masih bisa bersenang-senang di kantor. Namun jika Anda mulai merasa terpaksa, atau bahkan benci, mengerjakan tugas di kantor, sampai Anda mencari-cari alasan untuk tak masuk kantor, untuk apa dilanjutkan?

3. Hubungan dengan bos tidak baik
Bos galak itu biasa. Yang harus diwaspadai adalah jika hubungan Anda dengan bos lebih buruk dibanding hubungan bos dengan rekan-rekan kerja Anda. Merupakan pertanda buruk pula jika Anda sampai harus menyelesaikan masalah Anda dengan bos lewat atasan bos Anda, atau lewat departemen SDM (HRD).

4. Kemampuan Anda tak dianggap
Anda lulusan S2 manajemen, namun di kantor ini Anda hanya diberi tugas mengerjakan hal-hal remeh. Berkali-kali Anda meminta naik jabatan atau diberi tanggung jawab lebih, namun permohonan itu tak pernah digubris. Jangan sia-siakan bakat dan potensi Anda untuk perusahaan yang tak menghargainya.

5. Masa depan perusahaan Anda tak jelas
Perusahaan Anda terlilit utang, beberapa departemen ditutup, sejumlah besar karyawan diberhentikan, gaji sudah tak dibayarkan selama dua bulan. Jika perusahaan diibaratkan perahu, segeralah Anda menyelamatkan diri sebelum ikut tenggelam.

6. Prinsip Anda dan perusahaan tak sejalan
Anda adalah orang yang sangat mencintai lingkungan, namun Anda bekerja di perusahaan yang dikenal suka mencemari lingkungan. Awalnya mungkin Anda masih bisa berkompromi, tapi jika hal ini tetap mengganggu Anda dan bahkan membuat Anda stres, carilah perusahaan lain yang sejalan dengan prinsip Anda.

7. Gaji Anda tak memadai
Biasanya fresh graduate alias yang baru lulus kuliah dan memiliki nol pengalaman masih mau menerima pekerjaan dengan gaji di bawah standar. Tapi itu pun seharusnya disertai catatan bahwa dalam setahun atau dua tahun akan ada kenaikan gaji. Jika usia Anda sudah lebih dari 27 tahun dan Anda masih digaji di bawah standar, padahal pekerjaan yang sama di perusahaan lain gajinya berkali lipat, saatnya Anda cari kesempatan lain. Tentu saja ini berlaku jika permintaan Anda untuk naik gaji tak pernah digubris.

8. Anda tak suka rekan-rekan kerja Anda
Pekerjaan yang berat akan terasa ringan dan menyenangkan jika dikerjakan bersama orang-orang yang Anda cintai. Bahkan rekan-rekan kerja bisa jadi alasan kita untuk bersemangat berangkat kerja di hari Senin. Tapi jika Anda tak punya teman dekat di kantor, atau sama sekali tak bergaul dengan mereka karena merasa tak cocok, makan siang selalu sendiri, rekan-rekan kerja memperlakukan Anda dengan tidak baik, dan Anda sering terlibat pertengkaran dengan rekan kerja, saatnya ucapkan selamat tinggal pada mereka.

9. Anda makan gaji buta
Yang Anda lakukan di kantor sebagian besar adalah browsing di internet yang tak berhubungan dengan pekerjaan, lalu nongkrong, lalu ngobrol-ngobrol dengan rekan kerja, dan tak mengerjakan apapun. Enak memang, karena Anda tetap digaji meskipun Anda tak berkontribusi. Tapi ini artinya Anda "tak dianggap" oleh perusahaan. Anda produktif atau tidak, perusahaan tak peduli. Bahkan mungkin Anda tak masuk kantor pun tak ada pengaruhnya bagi keseluruhan alur kerja perusahaan. Waspadalah, bisa-bisa Anda didepak dari perusahaan karena larut dalam perilaku "makan gaji buta" ini.

10. Anda masih mencari-cari lowongan pekerjaan di tempat lain
Tak ada salahnya mencari tahu peluang dan kesempatan apa yang ada di luar sana. Namun jika sebagian besar waktu Anda dihabiskan dengan mencari lowongan kerja di internet, atau setiap bertemu teman Anda selalu berkata, "Ada lowongan nggak, di kantormu?", artinya Anda memang benar-benar ingin keluar dari perusahaan Anda. Ikutilah kata hati itu.

sumber : http://id.she.yahoo.com/10-tanda-anda-harus-pindah-kerja.html

Sunday, January 22, 2012
Posted by jody baharizki
Tag :

wikusama festival 2012 #1

Welcome to Wikusama Festival 2012 at SMK Telkom Sandhy Putra Malang.....




wikufest 2012 sangat mengesankan. mendapat banyak ilmu dari para alumni yang telah menjadi orang-orang yang sukses. Bagaimana tidak sukses? mereka rata-rata berani keluar dari perusahaanya untuk banting setir menjadi seorang wirausahawan. sebagai contoh mas Budi Siswanto, beliau adalah pemilik wirausaha paradays.com .
beliau bercerita bahwa dulu waktu di sekolah SMK telkom, beliau adalah orang yang lulus urutan ke 102 dari 108 siswa. bagi sebagian orang yang melihat dari satu sisi orang ini adalah orang yang gagal.
tetapi apapun bisa terjadi, tergantung bagaimana kita berusaha dan memiliki kemauan.
beliau berpesan "janganlah kamu takut untuk bermimpi" . Ya!! itu yang masuk  ke dalam benak saya.
beliau bercerita tentang omsetnya per bulan. beliau hanya berbisnis kaos sablon online. tahu berapa omsetnya?
fantastis sekali, 200 juta/bulan. mungkin anda tidak bisa membayangkan tapi inilah kehidupan berbisnis, bisa lebih sukses daripada orang kantoran, atau manager.
inti yang bisa saya ambil dari kegiatan  wikufest 2012  ini adalah:
tidak selamanya kita terpaku di bidang IT dalam menggapai sukses walaupun bidang kita IT.
jangan takut bermimpi bisa menjadi solusi atas keinginan kita untuk beranjak dari dunia yang datar-datar saja tanpa adanya inovasi.
sekian dulu pengalaman saya di wikufest 2012 jilid pertama ini kita akan bertemu di jilid 2 besok ya kawan.

Friday, January 20, 2012
Posted by jody baharizki
Tag :

membuat data teman dari VB.net

selamat datang di tutorial saya ang ke sekian kalinya, kita akan membuat data teman dengan VB.net
seperti biasa buka aplikasinya FILE - NEW PROJECT - Visual Basic - Windows Form Application - ok
kemudian setelah terbuka tampilanya akan terlihat kosong kemudian buatlah desain seperti berikut :


untuk nama - rumah menggunakan label yang iconya A.
kemudian untuk tombol2nya menggunakan button (di modifikasi sesuai kreatifitas).
untuk image menggunakan picture box
untuk text yang akan kita isi menggunakan textbox


setelah jadi desainya kita masuk ke script

dobel klik pada form1, kemudian ketik sript di bawah ini


Imports System.Data.OleDb
Public Class Form1

    Dim R, maxR As Integer
    Dim ds As New DataSet
    Dim da As OleDb.OleDbDataAdapter

    Private Sub navigasi()
        On Error Resume Next
        Label1.Text = "RECORD KE : " & R + 1
        txtnama.Text = ds.Tables("database1").Rows(R).Item(0)
        txtgender.Text = ds.Tables("database1").Rows(R).Item(1)
        txtTTL.Text = ds.Tables("database1").Rows(R).Item(2)
        txtagama.Text = ds.Tables("database1").Rows(R).Item(3)
        txtrumah.Text = ds.Tables("database1").Rows(R).Item(4)
        PictureBox1.Image = Image.FromFile("D:\tugas\vbnet\data teman\data teman\gambar\" & "images0" & R + 1 & ".jpg")

    End Sub



    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Dim con As New OleDb.OleDbConnection
        Dim dbprovider, dbsource, sql As String
        dbprovider = "provider=microsoft.jet.OLEDB.4.0;"
        dbsource = "data source = " & _
        "D:\tugas\vbnet\data teman\data teman\database1.mdb"
        con.ConnectionString = dbprovider & dbsource
        con.Open()
        sql = "select * from Table1"
        da = New OleDb.OleDbDataAdapter(sql, con)
        da.Fill(ds, "database1")
        maxR = ds.Tables("database1").Rows.Count
        navigasi()
    End Sub



    Private Sub btnfirst_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnfirst.Click
        If R <> 0 Then
            R = 0
            navigasi()

        End If
    End Sub

    Private Sub btnprevious_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnprevious.Click
        If R > 0 Then
            R = R - 1
            navigasi()
        Else
            MsgBox("first record")
        End If

    End Sub

    Private Sub btnnext_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnnext.Click
        If R <> maxR - 1 Then
            R = R + 1
            navigasi()
        Else
            MsgBox("last record")
        End If

    End Sub

    Private Sub btnlast_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnlast.Click
        If R <> maxR - 1 Then
            R = maxR - 1
            navigasi()
     
        End If

    End Sub

    Private Sub btnupdate_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnupdate.Click
        ds.Tables("database1").Rows(R).Item(0) = txtnama.Text
        ds.Tables("database1").Rows(R).Item(1) = txtgender.Text
        ds.Tables("database1").Rows(R).Item(2) = txtTTL.Text
        ds.Tables("database1").Rows(R).Item(3) = txtagama.Text
        ds.Tables("database1").Rows(R).Item(4) = txtrumah.Text
        da.Update(ds, "database1")
        MsgBox("data updated")

    End Sub

    Sub DelRec()
        Dim cd As New OleDb.OleDbCommandBuilder(da)
        ds.Tables("database1").Rows(R).Delete()
        maxR = maxR - 1
        R = 0
        navigasi()
        da.Update(ds, "database1")
    End Sub


    Private Sub btndelete_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btndelete.Click
        If MessageBox.Show("yakin untuk menghapus ?", "konfirmasi", MessageBoxButtons.OKCancel, _
        Nothing, MessageBoxDefaultButton.Button1) = DialogResult.OK Then
        Else
            MessageBox.Show("batal menghapus")
            Exit Sub
        End If

    End Sub

    Private Sub btnaddnew_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnaddnew.Click
        btncommit.Enabled = True
        Panel1.Enabled = False

        txtnama.Clear() : txtgender.Clear() : txtTTL.Clear()
        txtagama.Clear() : txtrumah.Clear() : txtnama.Clear()
        Label1.Text = "record ke : " & maxR + 1

    End Sub

    Private Sub btnCommit_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btncommit.Click
        If R <> -1 Then
            Dim cb As New OleDb.OleDbCommandBuilder(da)
            Dim dsNewRow As DataRow
            dsNewRow = ds.Tables("database1").NewRow()
            dsNewRow.Item("Nama") = txtnama.Text
            dsNewRow.Item("Gender") = TxtGender.Text
            dsNewRow.Item("TTL") = TxtTTL.Text
            dsNewRow.Item("Agama") = txtagama.Text
            dsNewRow.Item("Rumah") = txtrumah.Text

            ds.Tables("database1").Rows.Add(dsNewRow)
            da.Update(ds, "database1")
            maxR = ds.Tables("database1").Rows.Count
            R = MaxR
            MsgBox("New Record Added To The Database")
            Panel1.Enabled = True
            btnCommit.Enabled = False
        End If
    End Sub

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

    Private Sub TxtNama_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles txtnama.KeyPress
        If e.KeyChar = Chr(13) Then txtgender.Focus()
    End Sub

    Private Sub TxtGender_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles txtgender.KeyPress
        If e.KeyChar = Chr(13) Then TxtTTL.Focus()
    End Sub


    Private Sub TxtTTL_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles txtTTL.KeyPress
        If e.KeyChar = Chr(13) Then txtagama.Focus()
    End Sub


    Private Sub TxtAgama_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles txtagama.KeyPress
        If e.KeyChar = Chr(13) Then TxtRumah.Focus()
    End Sub


    Private Sub TxtRumah_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles txtrumah.KeyPress
        If e.KeyChar = Chr(13) Then btnCommit.Focus()
    End Sub
End Class


kalau sudah kita membuat database melalui microsoft acces
dengan nama databasenya Table1
dan fieldnya Nama,Gender,TTL,Agama,Rumah
kemudian simpan 1 folder dengan project anda
*pada script yang menyangkut direktori seperti "D:\gambar\" (diatas berwarna biru) sesuaikan pada direktori anda masing-masing

dan hasilnya...

hasil




*perhatian*
untuk nama pada textbox disesuaikan pada script
contoh txtnama,txtagama,txtrumah. dan lainya
intinya jangan hanya copast kita juga belajar bagaimana menganalisa script ini
semoga sukses
Friday, January 13, 2012
Posted by jody baharizki
Tag :

target belajar java semester 4

halooo haloo indonesia...
ketemu lagi dengan saya dalam nuansa yang cukup tegang ini ?*apanya yang tegang
kita akan kembali bertemu dengan materi java, wuuuu --
langsung ajadeh disimak dulu materi saya di semester 2 kelas 2 SMK ini (semester 4)

  • target belajar java semester 4 :
1. menjelaskan file I/O (input/output)
  • bahan ajar materi 1 :
-mengetahui tipe-tipe stream yang umum digunakan
-menggunakan class file dan methodnya
-menggunakan class - class I/O ang berbeda
-memahami konsep dari stream chaining
-mendefinisikan serialize
-memahami keyword transient
-menulis dan membaca dari sebuah object stream

yak segitu itu materi balajar gue semester 4 (kelas 2) di SMK Telkom malang *cuitcuit
gila kan pelajaranya tapi pelajaran ini bisa buat kita jadi banyak duit kalo mau mempelajarinya
teruslah bereksperimen sampai kamu mati *eaaa\
dan materi-materi ini akan berlanjut di postingan selanjutnya
jadi tetep pantau blog saya ya ceman ceman
be the best men
sampai jumpa di pelajaran java selanjutnya
Wednesday, January 11, 2012
Posted by jody baharizki

mr. brightside chord (thirteen cover)

The Killers - Mr Brightside

Dsus     D/C#            G/Dsus
Coming out of my cage and I've been doing just fine
   G/Ddsus             Dsus
Gotta gotta be down because I want it all 
                        D/C#                          G/Dsus
It started out with a kiss how did it end up like this?
   G/Dsus                  Dsus
It was only a kiss it was only a kiss
  D/C#                        G/Dsus
Now I'm falling asleep and she's calling a cab
               G/Dsus                                 Dsus
While he's having a smoke and she's taking the drag 
                   D/C#                        G/Dsus
Now they're going to bed and my stomach is sick
                   G/Dsus                             Bm
And it's all in my head but she's touching his chest now 
                  A                G
He takes off her dress now let me go
      Bm                   A
And I just can't look it's killing me
       G
And taking control 
D
Jealousy
G             Bm
Turning shapes into the sea
A   D
Turning through sick lullaby
G  Bm
Choking on your alibi
A         D
But it's just the price I pay
G    Bm
Destiny is calling me
A    D      G
Open up my eager eyes
Bm     A    
I'm Mr. Brightside 
D  G  Bm  A
Finish on
D  G  Bm  A
I never 


Saturday, January 7, 2012
Posted by jody baharizki
Tag :

Apakah anda ingin mengetahui HP anda asli atau tidak..???



Untuk mengetahui apakah HP anda asli atau tidak :

Dial *#06#

Akan tampil nomor imei(International Mobile Equipment Identity) dari HP anda.

Periksa digit ke 7 dan 8 dari nomor imei tersebut.

·      ·      Jika nomor pada digit tersebut adalah 02 atau 20 berarti HP anda di buat di Emirat Arab yang berarti kualitas JELEK…
·      ·      Jika nomor pada digit tersebut adalah 08 atau 80 berarti HP anda di buat di German yang berarti kualitas TIDAK TERLALU BURUK…
·      ·      Jika nomor pada digit tersebut adalah 01 atau 10 berarti HP anda di buat di Finlandia yang berarti kualitas BAGUS…
·      ·      Jika nomor pada digit tersebut adalah 00 berarti HP anda ASLI yang berarti kualitas TERBAIK …

Selamat Mencoba….

nb: Ada beberapa HP CDMA yang tidak berfungsi untuk cara ini.

Posted by jody baharizki
Tag :

Psang Iklan?

Psang Iklan?
Klik gambar diatas

Like Us!

Youtube

\
\

Labels

Powered by Blogger.

Total Pageviews

- Copyright © 2016 Jody Baharizki -@jodybaharizki- Powered by Blogger -