Kamis, 04 Desember 2008

Togamas kini sedia hot spot / hot ngelesot.


Pas jalan2 ke togamas kemarin sambil nunggu buku di sampul gratis, iseng2 foto2 di sana(padahal jelas2 gak boleh bawa kamera atw foto2 di dalam toko, tapi berhubung gw bawanya cuma hape yang ada tulisan cyber-shot nya. Gk ketahuan deh klo gw lg iseng ngambil gambar). Dari salah satu gambar yang berhasil di 'jepret' setelah di zoom ternyata ada istilah lain hotspot di toko buku togamas. Namanya hot ngelesot. Ntah apa artinya dan maksudnya hot ngelesot hanya orang yg bwt itu dan tuhan yg tahu. Yang jelas d gambarnya sudah jelas gambar ne2k 2x yg lg ngénet pake laptop.

Jumat, 11 Juli 2008

Kali adem.


Sekarang lagi d kali adem nih, hah ahirnya b7 refreshing juga...

Ini buktinya...


Nah ini hasil postingan dari K550i ku....

Blogging dari hp kamu ???

Anda punya hp Sony Ericsson yang ada fasilitas buat ngeblognya?
Saya punya K550i yang ada fasilitas foto blognya.

Pengen tau gak gimana cara ngeblog dari hp itu, pertama siapin gambarnya di hpmu trus pilih menu send->to blog (Pastikan gprs aktif) abiz tu isi title sama txtnya. setelah itu selesai langsung aja publish. Setelah sukses publishnya, anda akan dapat sms dari Blogger isinya gini:

To edit your blog, use your computer to go to this page: http://go.blogger.com/ Claim token (type of password): xxxxxx
Blog address: http://wasowlXXX.blogspot.com/


Bisa artiin sendiri kan.
intinya buka aja http://go.blogger.com/ trus isiin Claim tokennya trus isi juga kode captcha-nya bis tu klik tombolnya. Setelah itu anda diminta login ke blogger anda. so pastinya dah punya account blogger/gmail kan, klo gak punya ya daftar dulu ato pinjem sama temen aja.
Setelah berhasil login anda diminta memilih apakah mau mengganti alamat postingan dari hp ke alamat blog anda yang lain,nah klo saya memilih postingannya dialihkan ke BayBays blog biar lebih sering update blognya. klo anda ya terserah anda, anda yang memilih anda yang menentukan.
Hmmmm, klo sudah di pilih silahkan lanjutkan blogging dari hpnya...
Q mo nyoba posting lewat hp sekali lagi ah....

Kamis, 10 Juli 2008

Makan2


Makan2 d amplas dalam rangka ngerayain ultah gw yg dh lewat lama nunggu smuany kumpul.

Jumat, 02 Mei 2008

Kaos baru.


Sbelum mudik,cari kaos dulu d ramayana, malioboro. T4 blanja yg plng kjam cz g da t4 du2kny. Sm tmn kntrakan ja capekny bkn maen palagi klo blanjany sm ce,gk kbayang deh.

Lengkong



Sabtu, 05 April 2008

domain baru

Yes akhirnya gw bs punya domain sndiri, murah koq cuma 100rb bisa dapet domain 1th sesuai nama gw bayusetya.com lumayan lah, buat promosi. Sekarang tinggal bwt webnya aja trus diupload. bwtnya pake apa ya??? kayaknya mo pake cms aja ah, joomla... mambo... tunggin ja hasilnya

Senin, 24 Maret 2008

Hasil Print Screen Select YG dinamis



BIKIN SELECT AGAR ISINYA BISA BERUBAH OTOMATIS

Kadang dalam membuat sebuah website di dalam formnya dibutuhkan select
(atau dalam vb biasa disebut dengan combo box). Jika select tersebut isinya tetap
(sbg contoh isinya 'laki-laki' dan 'perempuan' saja), untuk membuat select tersebut
mudah saja tinggal buat :
<select name="pilih" id="pilih">
<option value="L" >Laki-laki</option>
<option value="P" >Perempuan</option>
</select>

Contoh diatas hanya untuk select yang isinya tetap,
kalau yang dibutuhkan select yang bisa berubah2 gimana???
Contohnya pas ngisi tanggal lahir, biar user nggak bisa milih tangga 31 Februari gimana???
biar nggak usah validasi pake alert/apa segala.

Disini contohnya hanya akan menampilkan nama kab/kota yang provinsinya sudah dipilih
sebelumnya, kalau belum memilih provinsi, maka kabupatennya juga nggak ada yang ditampilkan.

Yang dibutuhkan :

1. data provinsi dan kabupaten, enaknya sih disimpen ke array agar manggilnya enak.
Disini saya menggunakan array multidimensi, gmn cara bwt array multidimensi pake javascript???
klo itu ntar aja ya klo saya ada waktu dan lagi gk males. Langsung saja , begini nyimpen data
kabupaten ke array multidimensinya:

<script language="javascript">
var kab=new Array(7);
for (i=0; i <7; i++) kab[i]=new Array();
kab[1][1]='Bandung';
kab[1][2]='Bekasi';
kab[1][3]='Bogor';
kab[1][4]='Ciamis';
kab[2][5]='Bangkalan';
kab[2][6]='Banyuwangi';
kab[2][7]='Blitar';
kab[2][8]='Bojonegoro';
kab[2][9]='Bondowoso';
kab[3][10]='Banjarnegara';
kab[3][12]='Banyumas';
kab[3][13]='Batang';
kab[3][14]='Blora';
kab[3][15]='Boyolali';
kab[3][16]='Brebes';

</script>

udah ah, segitu aja datanya, klo bingung taruhnya dimana, taruhnya paling atas saja setelah
<title>Untitled</title>. Klo masih belum tau, mending gk usah lanjutin aja, belajar html dasar dulu
:0 ntar daripada tambah pusing he...

2. klo datanya sudah siap terus pertama buat satu select untuk provinsinya dulu. Kodenya:

<select name="prov" id="prov">
<option value="all" >Pilih Provinsi</option>
<option value="1" >Jawa Barat</option>
<option value="2" >Jawa Timur</option>
<option value="3" >Jawa Tengah</option>
</select>

3. klo select untuk provinsinya sudah jadi, buat select untuk kabupaten/kotanya. Kodenya:

<select name="opkab" id="opkab" >
<option value="all">--Semua Kab/Kota--</option>
<option value="none">none</option>
</select>

Klo semua bahan2nya sudah disiapkan, sekarang perhatikan baik-baik...
Pertama buat fungsi untuk mengisikan select dengan kabupaten yang dikelompokkan per provinsi.
Langsung kodenya saja:

<script language="javascript">
function jabar(){
index=1;
for(i=1;i<kab[1].length;i++) {
document.form1.opkab.options[index]=new Option(kab[1][i],i,false,false);
index++;
};
};

function jatim(){
index=1;
for(i=kab[1].length;i<kab[2].length;i++) {
document.form1.opkab.options[index]=new Option(kab[2][i],i,false,false);
index++;
};
};

function jateng(){
index=1;
for(i=kab[2].length;i<kab[3].length;i++) {
document.form1.opkab.options[index]=new Option(kab[3][i],i,false,false);
index++;
};
};

</script>

Sebenarnya intinya sih di document.form1.opkab.options[index]=new Option(kab[3][i],i,false,false);
script tersebut untuk menambahkan/merubah option dari selectnya dimana optionnya menggunkan
index dimulai dari 0 untuk namanya. sebagai contoh, pilihan pertama berarti index ke-0, pilihan
kedua index ke-1 dst.
kalau form1 kebetulan yang saya buat selectnya di dalam form yang namanya form1. Sedangkan
opkab merupakan nama selectnya.

setelah buat fungsi untuk mengelompokkan kabupaten, sekarang buat fungsi untuk mengubah2 pilihan
dari kabupaten sesuai pilihan provinsinya. Kodenya:

<script language="javascript">
function pilihan(kode){
document.form1.cmbKab.options.length=0;
document.form1.cmbKab.options[0]=new Option("--Pilih Kab/Kota--","all",true,false);

if(kode==1) jabar();
if(kode==2) jatim();
if(kode==3) jateng();
if(kode=='all') document.form1.cmbKab.options[1]=new Option("none","none",false,false);

}
</script>

Penjelasanya:
pertama, script document.form1.cmbKab.options.length=0; untuk mengeset agar isi selectnya kosong.

trus script document.form1.cmbKab.options[0]=new Option("--Pilih Kab/Kota--","all",true,false);
untuk membuat satu option dengan index 0(pilihan pertama) yang isinya "--Pilih Kab/Kota--" dan
selectednya true atau pilihan yang ditampilkan "--Pilih Kab/Kota--" bukan nama kabuoaten atau
pilihan yang lain.

script selanjutnya, pasti anda tahu gunanya khan.....

Oya, kalau segitu aja Insyaalloh gak bakal bisa jalan/ berpengaruh apa2, itu karena fungsinya juga
belum dipanggil. Pemanggilan fungsinya diletakkan di pilihan provinsi agar jika provinsi diubah,
maka di kabupaten langsung berubah juga pilihannya.
Caranya dengan menambahkan event onchange pada pilihan provinsinya dan pastikan kode untuk pilihan
provinsinya menjadi seperti ini:

<select name="cmbProv" id="cmbProv" onchange="pilihan(this.value)">

KLo sudah semuanya sekarang silahkan coba sendiri, jika masih belum bisa cek lagi scriptnya barangkali
anda atau malah saya salah mengetikkan scriptnya...

Met berkreasi dengan javascript.

Senin, 03 Maret 2008

Bikin any things transparan di HTML

Bingung mo bikin form/tombol/gambar jadi transparan di HTML, caranya gampang koq cuma butuh javascript 1 baris koq. Tapi ini berhasilnya cuma di internet explorer aja lho, klo browser yg laen gk tw tuh gmn he...
Gini caranya.
Di dalam javascript tinggal panggil aja id/name object yg mo di bikin transparan trus dlm tag.... ehm langsung contohnya aja ya...
Seumpamanya object yg mo di bwt transparan tombol namanya btnOk (kayak penamaan d vb aja)...
scriptnya gini :

document.all.btnOk.style.filter="progid:DXImageTransform.Microsoft.Alpha(opacity=50)"

selain itu bisa langsung d masukkan ke tagnya koq tanpa harus pke javascipt. contohnya gini :

<input name="btnOk" style="filter:'progid:DXImageTransform.Microsoft.Alpha(opacity=50)'" type="button" value="OK">

gampang kan....
Untuk tingkat transparansinya bisa diubah mulai dari 0 s/d 100 klo tadi contohnya 50

me vs ken

Koneksi SQL SERVER di VB .NET

Cara buat koneksi SQL SERVER di VB .NET:
1. Library yg dibutuhkan --> System.Data.SqlClient
Klo lum tau caranya sebelum Module/Class ketik Imports System.Data.SqlClient

2. Di dalam Module/Class siapkan variabel2nya
Langsung aja ketik :
Public con As SqlConnection
Public strkonek As String


3. Untuk koneksinya bisa diletakkan di dalam function/subroutine.
Caranya.... LAngsung aja ketik :
Public Sub konek()
Dim nama As String
nama = My.Computer.Name
Try
strkonek = "Data Source=" & nama & ";Initial Catalog=taspen;Integrated Security=True"
con = New SqlConnection(strkonek)
If con.State = ConnectionState.Closed Then con.Open()
Catch ex As Exception
MsgBox(ex.Message)
End Try
End Sub



Penjelasannya :
a. nama = My.Computer.Name --> mengambil nama dari komputer host/server sql untuk digunakan dalam Data Source dari strkonek,dg menggunakan cara tadi maka setiap kali pindah komputer tidak perlu merubah data sourcenya.
b. Data Source=" & nama & "; --> server dari database sql servernya.
c. Initial Catalog=taspen; --> nama databasenya, dalam contoh ini namanya taspen.
d. con = New SqlConnection(strkonek) --> menyimpan koneksi ke variabel con.
e. con.Open() --> membuka koneksi ke database.

4. Penggunaanya:
a. jika tadi pembuatan koneksinya menggunakan modul langsung aja panggil fungsinya. seperti :
Call konek()

b. jika menggunakan class jangan lupa ditambahkan nama kelasnya. Contohnya :
Call clsBahan.konek()

c. jika koneksinya dibuat pada class yang sama, tinggal memanggil nama fungsinya saja :
Call konek()

Kamis, 28 Februari 2008

Print Preview dg data dr DataGridView menggunan VB .NET


Ini adalah contoh script untuk menampilkan laporan/print preview tanpa menggunakan cristal report atau report2 yang lain yang malah bikin repot.
Object yg dibutuhkan :
1. sebuah button dengan Caption/Text "Print Preview" atau bisa diganti sesuai selera anda.
2. sebuah PrintDocument.
3. sebuah DataGridView yang sudah berisi data2 yang diperlukan.
4. sebuah PrintPreviewDialog.
5. tentunya Object2 yg laen yg sebagai pendukung kyk form, dsb yg gk perlu disebutin.


Terus Secaranya......
1. Rancang tampilan print preview yang nanti akan ditampilkan
kode programnya pada event PrintPage dari PrintDocument :

Private Sub PrintDocument1_PrintPage(ByVal sender As System.Object, ByVal e As System.Drawing.Printing.PrintPageEventArgs) Handles PrintDocument1.PrintPage
Dim linesPerPage As Single = 0
Dim yPos As Single = 0
Dim xPos As Single = 0
Dim count As Single = 0
Dim count2 As Single = 0
Dim line As String = Nothing
Dim leftMargin As Single = e.MarginBounds.Left
Dim topMargin As Single = e.MarginBounds.Top
Dim myFont As Font = dgpegawai.Font
linesPerPage = e.MarginBounds.Height / myFont.Height()
Dim i As Integer
e.Graphics.DrawString("LAPORAN DATA PEGAWAI PT. TASPEN", dgpegawai.Font, Brushes.Black, (leftMargin + (0 * myFont.Height)), (topMargin + (count * myFont.Height)))
count = 2
e.Graphics.DrawString("NIK", dgpegawai.Font, Brushes.Black, (leftMargin + (0 * myFont.Height)), (topMargin + (count * myFont.Height)))
e.Graphics.DrawString("Nama", dgpegawai.Font, Brushes.Black, (leftMargin + (7 * myFont.Height)), (topMargin + (count * myFont.Height)))
e.Graphics.DrawString("Jenis Kelamin", dgpegawai.Font, Brushes.Black, (leftMargin + (20 * myFont.Height)), (topMargin + (count * myFont.Height)))
e.Graphics.DrawString("Alamat", dgpegawai.Font, Brushes.Black, (leftMargin + (30 * myFont.Height)), (topMargin + (count * myFont.Height)))
e.Graphics.DrawString("Jabatan", dgpegawai.Font, Brushes.Black, (leftMargin + (43 * myFont.Height)), (topMargin + (count * myFont.Height)))
e.Graphics.DrawString("Departemen", dgpegawai.Font, Brushes.Black, (leftMargin + (53 * myFont.Height)), (topMargin + (count * myFont.Height)))
e.Graphics.DrawString("Golongan", dgpegawai.Font, Brushes.Black, (leftMargin + (60 * myFont.Height)), (topMargin + (count * myFont.Height)))
count = 4
For i = 0 To dgpegawai.RowCount - 1

yPos = (topMargin + (count * myFont.Height))
e.Graphics.DrawString(dgpegawai.Item(0, i).Value, dgpegawai.Font, Brushes.Black, (leftMargin + (0 * myFont.Height)), yPos)
e.Graphics.DrawString(dgpegawai.Item(1, i).Value, dgpegawai.Font, Brushes.Black, (leftMargin + (7 * myFont.Height)), yPos)
e.Graphics.DrawString(dgpegawai.Item(2, i).Value, dgpegawai.Font, Brushes.Black, (leftMargin + (20 * myFont.Height)), yPos)
e.Graphics.DrawString(dgpegawai.Item(3, i).Value, dgpegawai.Font, Brushes.Black, (leftMargin + (30 * myFont.Height)), yPos)
e.Graphics.DrawString(dgpegawai.Item(4, i).Value, dgpegawai.Font, Brushes.Black, (leftMargin + (43 * myFont.Height)), yPos)
e.Graphics.DrawString(dgpegawai.Item(5, i).Value, dgpegawai.Font, Brushes.Black, (leftMargin + (53 * myFont.Height)), yPos)
e.Graphics.DrawString(dgpegawai.Item(6, i).Value, dgpegawai.Font, Brushes.Black, (leftMargin + (60 * myFont.Height)), yPos)

count += 1

Next
End Sub


Saya gk perlu menjelaskan tiap bagian khan, klo iya, capek deh....
intinya itu di e.Graphics.DrawString yg digunakan untuk menulisi print previewnya, kita tinggal mengutak-atik posisinya saja.

2. Siapkan pengaturan tampilan print previewnya nanti, mengaturnya pd saat form load
kodenya:
Private Sub data_pegawai_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Call konek()
Call tampilpegawai()
Call aturdgpegawai()
PrintDocument1.DefaultPageSettings.Landscape = True
PrintPreviewDialog1.PrintPreviewControl.Zoom = 0.95
End Sub

Untuk pengaturan yang lain anda bisa menambahkan sendiri.

3. Siapkan tombol agar bisa di klik.
Setelah bisa di klik maka kode yang dibutuhkan seperti ini:
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
PrintPreviewDialog1.Document = PrintDocument1
PrintPreviewDialog1.ShowDialog()
End Sub

Udah gitu aja, gampang khan, sekarang tinggal jalanin aja... Gak perlu pake report2 dh bisa bikin laporan dari data yang ada.
N met recode ajah....