duduLBoys

Yang mau mau buat porject dengan vb6 ga ada salahnya mempercantik tampilan interfacenya dengan jam analog, biasanya jam di vb6 pada pake label, kan biasa bangad tuh.
kalo mau buat tampilan jam analog akan jadi seperti gambar ini

silahkan langsung download souce codenya DISINI

Pukul 10.15 Gw berniat tidur lenih awal karna besok harus kuliah pagi tapi gw iseng-iseng dulo ngecek bot-an gw(Ro mania pasti tau) saat mau nyari key (belom ada autokey bikinan agan smith)
gw liat2 group fb yg biasa share key dan forum d-best ternyata ga belom ada yang share yaudah gw ngaskus aja
malem2 gw bosen di the lounge(isinya lg banyak BB, mklum malem2 om momod lg pd tdr x)
akhirnya gw ke forum H 2 H (heart to heart) forum yg udah lama ga gw buka sekaligus forum yang udah bikin gw kenal sama kaskus
nyari2 curhatan orng biar bisa jadi inspirasi dan cerminan hidup
tapi isinya curhatan gajebo mlolo
tanpa sadar gw nemu subforum Story from the heart(SFTH) (setelah malang melintang di kaskus selama hampir 3 tahun gw baru tau ada sub forum ini di H2H :hammer)
pas buka ternyta banyak curhatan orng yg detail bangad(biasanya hampir semua thread di sana di bagi jadi bbrp part yg di update tanpa jadwal sama TS nya dan biasanya kalo udah banyak bangad jd ada indexnya di pageone)
dari sekian banyak thread yg ada di pageone gw tertarik buat baca salah satunya dan gw fokus ke judul thread "Kisah dua kamar" by bukanpujangga(TS nya) karna ratenya bintang 5 dan udh di view banyak bangad
gw baca introduction sang penulis dan kayanya bagus nh threadnya
gw baru baca beberapa part dan gw udah ngersa jadi si anto(si penulis)
sumpah jago bangad dia merangkai kata2nya
gw yg tadinya mau tidur cepet akhirnya ga jadi karna udah kebawa ceritanya(lebay mode:on)
akhirnya malem itu gw baru tidur jam setengah 4 pagi OMG pdhl kuliah gw jam 8 pagi
ceritanya enteng tapi kalo lo bisa serius dan fokus bacanya seakan lo ngalamin sendiri apa yg ada di cerita
pokoknya menurut gw bagus bangad deh cerita
lo yg baca tulisan ini harus baca tuh cerita, gw jamin ga bakal nyesel
sorry gw ga bisa share ceritanya di sini karna udah kata mas anto kalo itu cerita ga boleh di copy dan disebarluaskan(khusus buat warga kaskus) jadi disini gw akan kasih linknya aja yaa
selamat membaca dan menjadi peran anto di dalem ceritanya

Link Ceritanya
Reborn Link Cerita yg smpe selesai

Ingin merubah file mp3 biasa menjadi file untuk karaoke???

Etika berinternet dalam berkirim E-mail :
Selalu tepat dan to the point
Jangan menulis email lebih panjang dari yang seharusnya. Ingatlah bahwa membaca email itu lebih tidak mengenakkan mata daripada membaca surat biasa atau majalah. Email yang panjang membuat penerima email menjadi bosan untuk membacanya.

Jangan lampirkan attachment file yang tidak perlu.
Jika Anda mengirimkan file berlampiran/attachment yang besar, ini akan membuat koresponden Anda kesal dan marah. Jika memungkinkan, selalu kompres file Anda sebelumnya dengan program seperti WinZip dan jangan sekali-kali mengirim attachment yang tidak dibutuhkan. Lebih jauh lagi, cek dulu file Anda dari virus!
Jangan menulis email dengan HURUF BESAR.

Jika Anda menulis email dengan huruf besar, koresponden Anda akan mengartikannya bahwa Anda sedang marah atau berteriak, walaupun mungkin maksud Anda bukan itu. Jika Anda ingin memberi penekanan terhadap salah satu kata, cukup kata yang ingin Anda tekankan yang Anda tulis dengan huruf besar. Jangan seluruh kalimat.

Baca dulu sebelum dikirim.
Kadangkala, ada beberapa item yang ingin Anda edit atau juga beberapa hal yang ingin Anda sisipkan di email yang akan Anda kirim. Jika Anda membaca email secara keseluruhan terlebih dahulu, ini memungkinkan Anda untuk melakukan koreksi seperlunya. Termasuk penggunaan gramatik atau ejaan yang benar.
Gunakan subject atau judul secara benar.

Selalu gunakan judul yang sesuai dengan isi email Anda. Jangan pernah menggunakan judul yang hanya satu kata saja karena itu sama sekali tidak memberikan penjelasan apapun juga.

Hormati privacy orang lain.
Ini termasuk juga alamat email mereka. Bila anda sedang mengirim email
ke sejumlah orang yang mungkin satu-sama- lain tidak
saling mengenal, gunakan "bcc" atau "blind carbon copy " agar
alamat-alamat email mereka tidak saling diketahui.
Bila anda mudah mengirim email ke banyak alamat sekaligus tanpa
mempertimbang - kan saran ini, maka bersiap-siaplah untuk
dikomplain karena mereka menerima spam.

Etika berinternet dalam berbicara dalam chating:
Jangan pernah memberikan informasi pribadi apapun seperti nomor telpon rumah alamat rumah dan lain – lain kepada orang yang belum anda kenal betul.

Jangan pernah menggunakan nama asli sebagai nickname anda
Jangan pernah berjanji untuk bertemu dengan seseorang yang satu kota dengan anda apa lagi luar kota sebelum anda tidak benar – benar mengenal orang tersebut.

Jangan pernah menggunakan kata – kata yang tidak senonoh (tidak sopan), karena hal ini membuat anda akan di tendang oleh operator channel tersebut, sehingga anda tidak bergabung lagi.

Jangan pernah melayani teman chating yang menggunakan kata kasar atau tidak sopan
Jangan suka mengganggu dan iseng, walaupun partner chatting keliatan online, belum tentu dia mempunyai waktu untuk melakukan chatting dengan
kita, siapa tahu dia mempunyai pekerjaan yang memerlukan konsentrasi.
Jika demikian, kita tidak boleh mengganggunya atau mengisenginya dengan
mengetikkan “BUZZ” terus menerus.

Visi :

• Membangun Indonesia menjadi lebih baik agar menjadi Negara yang di perhitungkan dan berpengaruh di dunia

Misi:

• Menuntut Ilmu setinggi mungkin
• Memperkuat iman agar tidak terseret dalam keras dan jahatnya politik di indonesia
• Bergabung dipemerintahan agar turun langsung dalam pembangunan
• Meningkatkan kualitas pendidikan diindonesia agar masyarakat tidak mudah dibodohi orang-orang pintar
• Meningkatkan Ekonomi seluruh rakyat Indonesia agar tidak mudah diiming-imingi uang agar demo hanya untuk kepentingan pribadi, golongan, maupun partai politik
• Memberantas Budaya Korupsi Diindonesia
  

Berikut saya sertakan Ebook pembuatan aplikasi Sistem Informasi Akademik dengan menggunakan VB dan sql server2005 secara detail beserta coding dan screenshotnya
aplikasi ini sudah disertakan dengan fungsi laporan menggunakan Cyrstal repost 8
E-book bisa di download langsung di

http://www.scribd.com/doc/27240286

GRATISSS !!!
aLL For VB-Ers

SQL FUNCTIONS

1. Buat database SQLFunctions

 

create database SQLFunctions;

 

2. Pada database tersebut buat table barang jual dengan field yang ada pada jobssheet

 

create table BarangJual

(

[No Ururt] tinyint primary key,

[Nama Barang] varchar(50),

kode varchar(50),

[Jumlah Barang] int,

[Harga Satuan] int

);

 

3. Masukan data pada table tersebut sesuai jobssheet

 

insert into barangjual

values ('1','TRAFO','CASH','150','5000');

insert into barangjual

values ('2','STABILIZER','KREDIT','200','20000');

insert into barangjual

values ('3','KABEL','CASH','1400','2000');

insert into barangjual

values ('4','LAMPU TL','CASH','175','4500');

insert into barangjual

values ('5','PCB','KREDIT','350','1750');

insert into barangjual

values ('6','BOHLAM','CASH','700','3500');

insert into barangjual

values ('7','STEKER','KREDIT','150','4500');

insert into barangjual

values ('8','CELLOTAPE','CASH','1500','1000');

insert into barangjual

values ('9','REWINDER','CASH','75','30000');

insert into barangjual

values ('10','PARABOLA','KREDIT','15','750000');

 

4. Buat Perintah SQL Dalam satu perintah untuk mendapatkan Total, Discount, dan Harus Bayar dengan ketentuan yang ada pada jobs sheet

 

SELECT [no ururt],[nama barang],kode,[jumlah barang],[harga satuan],[jumlah barang]*[harga satuan] as [total],'discount'=

case

when kode='cash' then [jumlah barang]*[harga satuan]*0.1

else 0

end,([jumlah barang]*[harga satuan])-(case when kode='cash' then [jumlah barang]*[harga satuan]*0.1 else 0 end) as [harus bayar] from barangjual

 

 

5. Buat perintah SQL dalam satu perintah untuk mendapatkan nilai minimam jumlah barang, harga satuan, alias total, alias discount, dan alias harus bayar

 

select min([jumlah barang]) as [minimal jumlah barang],min([harga satuan]) as [minimal harga satuan],min([harga satuan]*[jumlah barang]) as [minimal total],min(case when kode='cash' then [jumlah barang]*[harga satuan]*0.1 else 1000000 end) as [minimal discount],min([jumlah barang]*[harga satuan]-case when kode='cash' then [jumlah barang]*[harga satuan]*0.1 else 0 end) as [minimal total bayar] from barangjual

 

6. Buat perintah SQL dalam satu perintah untuk mendapatkan nilai maximum jumlah barang, harga satuan, alias total, alias discount, dan alias harus bayar

 

select max([jumlah barang]) as [maximal jumlah barang],max([harga satuan]) as [maximal harga satuan],max([harga satuan]*[jumlah barang]) as [maximal total],max(case when kode='cash' then [jumlah barang]*[harga satuan]*0.1 else 0 end) as [maximal discount],max([jumlah barang]*[harga satuan]-case when kode='cash' then [jumlah barang]*[harga satuan]*0.1 else 0 end) as [maximal total bayar] from barangjual

 

 

7. Buat perintah SQL dalam satu perintah untuk mendapatkan nilai Rata-rata jumlah barang, harga satuan, alias total, alias discount, dan alias harus bayar

 

select avg([jumlah barang]) as [rata-rata jumlah barang],avg([harga satuan]) as [rata-rata harga satuan],avg([harga satuan]*[jumlah barang]) as [rata-rata total],avg(case when kode='cash' then [jumlah barang]*[harga satuan]*0.1 else 0 end) as [rata-rata discount],avg([jumlah barang]*[harga satuan]-case when kode='cash' then [jumlah barang]*[harga satuan]*0.1 else 0 end) as [rata-rata total bayar] from barangjual

 

 

8. Buat perintah SQL dalam satu perintah untuk mendapatkan nilai Total jumlah barang, harga satuan, alias total, alias discount, dan alias harus bayar

 

select sum([jumlah barang]) as [total jumlah barang],sum([harga satuan]) as [total harga satuan],sum([harga satuan]*[jumlah barang]) as [total harga sebelum discount],sum(case when kode='cash' then [jumlah barang]*[harga satuan]*0.1 else 0 end) as [total discount],sum([jumlah barang]*[harga satuan]-case when kode='cash' then [jumlah barang]*[harga satuan]*0.1 else 0 end) as [total harga setelah discount] from barangjual

 

 

9. Buat perintah SQL Functions untuk mendapatkan apa saja barang yang harus dibayar melebihi jumlah keseluruhan harga satuan

 

SELECT [nama barang] from barangjual1 where ([jumlah barang]*[harga satuan])-(case when kode='cash' then [jumlah barang]*[harga satuan]*0.1 else 0 end) > (select sum([harga satuan]) from barangjual)

 

10. Buat perintah SQL functions untuk mendapatakan berapa banyak barang yang dibeli dengan kredit

 

select count(kode) as [banyak barang yang kredit] from barangjual where kode='kredit'

 

 

11. Pada database tersebut, buat lagi tabel Gaji seperti yang ditentukan jobssheet

 

create table gaji

(

[nama pegawai] varchar(50),

Gol varchar(5),

Sex varchar(6),

Status varchar(7),

[jumlah anak] tinyint

);

           

           

12. Masukan data pada table tersebut sesuai jobssheet

 

insert into gaji

values ('RIYANTO','I','Pria','Menikah','2');

insert into gaji

values ('FANNY','II','Wanita','Single','0');

insert into gaji

values ('ANDI','I','Pria','Menikah','3');

insert into gaji

values ('MIMI','III','Pria','Menikah','1');

insert into gaji

values ('SANTI','II','Wanita','Menikah','2');

insert into gaji

values ('ENDANG','I','Wanita','Menikah','4');

insert into gaji

values ('LILIS','II','Wanita','Menikah','2');

insert into gaji

values ('EKO','III','Pria','Menikah','1');

insert into gaji

values ('WIJAYA','III','Pria','Single','0');

insert into gaji

values ('RONALD','II','Pria','Menikah','2');

insert into gaji

values ('WENNY','I','Wanita','Menikah','2');

insert into gaji

values ('EFFENDY','I','Pria','Menikah','1');

 

 

13. Buat perintah SQL Functions dalam satu perintah untuk mendapatkan Gaji pokok, Tunjangan Istri, Tunjangan Anak, Total Gaji dengan ketentuan yang ditentukan pada jobssheet

 

select [nama pegawai],gol,sex,status,[jumlah anak],'Gaji Tunjangan'=

case

      when gol = 'I' then 1500000

      when gol = 'II' then 2500000

      when gol = 'III' then 3500000

      else 0

end,

'Tunjangan Istri'=

case

      when gol = 'I' then 750000

      when gol = 'II' then 250000

      when gol = 'III' then 525000

      else 0

end,

'Tunjangan anak'=

case

      when sex='pria' or status='menikah' then 50000 * [jumlah anak]

      else 0

end,

(case

      when gol = 'I' then 1500000

      when gol = 'II' then 2500000

      when gol = 'III' then 3500000

      else 0

end) + (case

      when gol = 'I' then 750000

      when gol = 'II' then 250000

      when gol = 'III' then 525000

      else 0

end) + (case

      when sex='pria' or status='menikah' then 50000 * [jumlah anak]

      else 0

end) as [Total Gaji] from gaji

 

     

 

14. Buat perintah SQL Functions dalam satu perintah untuk mendapatkan nilai minimum, maksimum, dan nilai rata-rata total gaji serta jumlah seluruh total gaji

 

select min(case

      when Gol='I' then 1500000

      when Gol='II' then 2500000

      when Gol='III' then 3500000

      else 0

end +

 case

      when sex='Pria' and Status='Menikah' then 750000

      when sex='Pria' and Status='Menikah' then 250000

      when sex='Pria' and Status='Menikah' then 525000

      else 0

end +

case

      when sex='Pria' or Status='Menikah' then 50000 * [Jumlah Anak]

 

      else 0

end) as [Minimal Total Gaji],

max(case

      when Gol='I' then 1500000

      when Gol='II' then 2500000

      when Gol='III' then 3500000

      else 0

end +

 case

      when sex='Pria' and Status='Menikah' then 750000

      when sex='Pria' and Status='Menikah' then 250000

      when sex='Pria' and Status='Menikah' then 525000

      else 0

end +

case

      when sex='Pria' or Status='Menikah' then 50000 * [Jumlah Anak]

 

      else 0

end) as [MaksimalTotal Gaji],

avg(case

      when Gol='I' then 1500000

      when Gol='II' then 2500000

      when Gol='III' then 3500000

      else 0

end +

 case

      when sex='Pria' and Status='Menikah' then 750000

      when sex='Pria' and Status='Menikah' then 250000

      when sex='Pria' and Status='Menikah' then 525000

      else 0

end +

case

      when sex='Pria' or Status='Menikah' then 50000 * [Jumlah Anak]

 

      else 0

end) as [Rata-Rata Total Gaji],

sum(case

      when Gol='I' then 1500000

      when Gol='II' then 2500000

      when Gol='III' then 3500000

      else 0

end +

 case

      when sex='Pria' and Status='Menikah' then 750000

      when sex='Pria' and Status='Menikah' then 250000

      when sex='Pria' and Status='Menikah' then 525000

      else 0

end +

case

      when sex='Pria' or Status='Menikah' then 50000 * [Jumlah Anak]

 

      else 0

end) as [Jumlah Total Gaji]

 from gaji;

Perintah-perintah di atas dibuat menggunakan SQL server 2005

script agar project vb yang kita buat saat dijalankan tidak tampil di taskmanager

biasanya digunakan untuk virus yang dibuat dengan vb

berikut scriptnya

App.TaskVisible = False

dibawah tulisan tersebut tambahkan script "(div align="center")" script ini berfungsi untuk menempatkan file flash pas di posisi tengah monitor anda