50 Saran & Kritik Untukku..
1
14:49 | Posted in

50 Saran dan Kritik Anak-Anak HMTI-Udinus (Bandungan, 17 Mei 2009)
(a.n. wahyu)

1. Wagu... wkwkwkwkw
2. Gendut, baik, jayuz
3. Ya, Jayuz, tp konyol.
4. Doraemon, Nobita, Sisuka
5. Good Luck
6. Good Job
7. Oke
8. Maju Terus...
9. Good Banget.
10. Go Tukul

11. Semangat ya... Hehe...!!!
12. Ayo semangat Donghwo....!!!
13. Ra' Ngerti.
14. Semangat cooy... !!!
15. Siapin Kekuatan...
16. Go Green..
17. Semangat.
18. Hidup HMTI...
19. Wahyu sp, g lengkap.
20. Wahyu? Mawapres?
21. Wahyu siapa tho??
22. Lam kenal aj maz!
23. Chaiyo Maz..
24. HMTI adalah organisasi kita, jadi kita hrs jaga ya!
25. Wahyu capa ia?
26. Nama kajenna spa!!
27. Wahyu??
28. ?????
29. ----------------------------------------- [sensored]
30. Perlihatkan dirimu.. jangan malu.
31. G tw
32. Semangat.....
33. Pinter, yakin?
34. Mawapres yg aneh!!! gokil! Good Luck Mas.
35. Wah.. Ampun DJ...
36. Good...
37. Saru!
38. Semangat.
39. Lucu Banget oooo...
40. Mas Mawapres!!!
41. Mase Ganjen, sukanya nyolek2 :p
42. No commen, teruskan!!
43. Mawapres??? oh.. no!!
44. Ternyata! O
45. Mawapres tahun berapa?? Good, Lucu orange
46. Mbak iiss... ngapusinan..
47. Ayem!!!Tambah tuwo tambah edan. tak kandake bojomu. mbok ojo jorok2, mentang2 karo PNS...
48. Mawapres koyo ngono, kudune tambah gering ben rodo pantes.
49. RUsuh... ckckckckckckc!!!!
50. Ajar DotA meneh, Pasal 1 : Mawapres selalu benar, Pasal 2 : Apabila melakukan kesalahan kembali ke pasal 1, Ati2 karo peninjau.
51. Mawapres gila! Kang kapan leh genepe???

Read More......
Category:
��

Life is Simple and Beautiful
0
19:47 | Posted in

(Oleh: Hingdranata Nikolay)

“Some things in life are bad
They can really make you mad
Other things just make you swear and curse.
When you're chewing on life's gristle
Don't grumble, give a whistle
And this'll help things turn out for the best...

And...always look on the bright side of life...
Always look on the light side of life...

If life seems jolly rotten
There's something you've forgotten
And that's to laugh and smile and dance and sing.
When you're feeling in the dumps
Don't be silly chumps
Just purse your lips and whistle - that's the thing.

And...always look on the bright side of life...
Always look on the light side of life... “

…………………………………………

Di atas adalah cuplikan dari lagu “Always Look on the Bright Side of Life” dari Monty Python.

A very nice song!

Pada saat diciptakan, konon hanya ide iseng pada saat shooting episode Life of Brian dari serial Monty Phython.

Para crew dan artist yang terlibat sedikit bosan dan saat break mereka mulai bernyanyi.

Dan jadilah lagu ini! SIMPLE and inspiring!



Minggu lalu saya traveling menyusuri Pekan Baru - Paya Kumbuh – Padang lewat jalan darat.

Sebuah pengalaman yang sangat berharga, terutama saya berkesempatan mempertajam sensitifitas saya terhadap SIMPLE-nya hidup ini di peta-peta pikiran orang yang jauh dari kota.

Saya naik mobil travel sewaan dan berkesempatan duduk dan ngobrol dengan penumpang dari berbagai kelas ekonomi.

Seorang nenek dan cucunya di sebelah saya, terutama, sangat menyenangkan.

Saya sempat kaget di sebuah pom bensin, nenek tersebut membeli 2 potong semangka, saya mengira untuk dia dan cucunya, ternyata satu ditawarkan ke saya.

Saya jadi teringat kampung halaman, dimana di tempat terpencil, seolah semua orang mengenal semua orang, dan hidup begitu SEDERHANA!



Di setiap perhentian, saya mengambil kesempatan membeli sesuatu di warung-warung untuk mempelajari cara berinteraksi orang setempat.

Dan paling terkesan saat saya sedang membeli air mineral di sebuah warung, mengintip dari warung ke dalam rumah, tiga orang anak kecil sedang bermain dengan ceria.

Mereka bertiga mengkaitkan kaki satu sama lain sambil berloncat-loncatan dengan riang (saya lupa nama permainan tersebut).

Saat ibu mereka yang sedang melayani saya di warung tahu saya mengintip ke dalam, dia ikut tertawa bersama saya. Wasn’t that BEAUTIFUL?

Sesaat saya berpikir, hidup semua orang bisa sesederhana itu. Bermain dan tertawa dengan lepas.

Jika semua memilih untuk melihat dari SISI TERANG KEHIDUPAN, seperti kata lagu di atas.

Di peta pikiran mereka mungkin tidak ada video games, baju baru, mal, dan lain-lain.

Mungkin juga ada, tapi mungkin dalam realita mereka itu bukan untuk mereka, sehingga tidak terbawa pikiran.

Seperti kata orang bijak “If you mind it matters, if you don’t mind it doesn’t matter!”

Saat cucu sang nenek tertidur pulas sepanjang 2 jam perjalanan yang tersisa, saya juga jadi teringat anak saya.

Saat mereka tidur, mereka tidur. Saat mereka bermain, mereka bermain.

LIFE IS SIMPLE AND BEAUTIFUL!



Lalu saat kembali dengan pesawat dari Padang ke Jakarta, terdengar sebuah suara yang sangat familiar dari radio announcer, memberi petuah-petuah bijak.

Saya tahu ini tidak biasa, di samping suaranya sangat familiar.

Saya mengintip ke depan, saat itu curtain ke kelas bisnis terbuka.

Dan terlihatlah di situ sosok AA Gym, dengan santai berbicara melalui announcer.

Para penumpang domestik, termasuk saya, menikmati sekali tutur bijak tersebut.

Dan yang paling saya ingat adalah ‘pesan’ beliau; kunci hidup senang adalah ‘jangan mudah tersinggung dan jangan mudah menyinggung’.

Saya senyum, dan berkata dalam hati, bisa jadi tambahan berharga untuk ‘pesan’ saya ke milis kita hari ini.



Salah satu line dari Hamlet adalah “Setiap hal itu tidak ada yang baik atau buruk. Pikiran kita yang membuat itu baik atau buruk”

Mau dibawa senang bisa, dibawa susah juga bisa.

Saat kita melihat hidup ini sulit, sulitlah hidup kita.

Saat kita melihatnya sebagai SEDERHANA, maka terjadilah ke-SEDERHANA-an.

Saat kita mencari keburukan hidup, kita juga akan menemukannya!

Saat kita ingin melihat KEINDAHAN hidup, kita akan melihatnya.



LIFE IS SIMPLE AND BEAUTIFUL.

Adalah PILIHAN kita untuk menentukan bagaimana kita melihat dan merasakan hidup!

Seperti kata lagu di atas, just whistle, laugh, smile, dance, and sing!

Kapan terakhir Anda begitu bersyukur dan menikmati hidup?



Have a simple and beautiful life!

___________________________________________________________

Read More......
Category:
��

Semangat Semangat !!!
0
22:52 | Posted in



Hidup ini terlalu berharga untuk dijadikan rata-rata. Marilah bersemangat.


Explode Your Potential, be the best of you and find the new you.



The Past Is not Our Future.





Siapakah Kita ini ?

Menurut Waktu Kita adalah pendatang terakhir di bumi ini, dan kita hidup di dunia ini hanya dalam waktu yang sangat singkat.

Tempat Kita Berdasarkan waktu

Siapakah Sebenarnya kita ini?

Berdasarkan ukuran kita hanya sebutir debu apabila dibandingkan dengan ukuran dunia.

Apabila Bumi yang kita banggakan ini dibandingkan dengan planet dan bintang lainnya :

Bumi lebih besar dari Venus, Mars, Mercury dan Pluto. Bagaimana dengan planet lain?
Dibandingkan Jupiter dan Saturnus Bumi kita ini hanya sekecil kelereng. Apakah anda ingin tau perbandinganya dengan Matahari kita?
Bumi hanya terlihat seperti titik hitam yang teramat-amat kecil sekali. bagaimana dengan kita sebagai manusia yang kadang-kadang merasa sombong? seberapa besarkah kita? lalu apakah matahari adalah bintang terbesar?
Dibandingkan dengan bintang lain di Galaksi Kita Bima Sakti, Matahari terlihat sangat kecil, bahkan Bumi sudah tidak dapat terlihat lagi dalam skala ini. Lalu apakah Arcturus merupakan bintang terbesar di Galaksi Bima Sakti?
bahkan arcturus pun masih kalah dengan bintang lain seperti Antares.... Allahu Akbar Allahu Akbar Allahu Akbar.

Bagaimana bumi dengan 7 milyar manusia di permukaannya????


Lalu,mau kita bikin menjadi seperti apa hidup kita yang teramat singkat dan hanya sekali ini?

Bagaimana kalau kita buat menjadi hidup yang SUCCESS, dengan menjadi makhluk yang berperan signifikan.


Berani?


Read More......
Category:
��

VB Fundamental 2
0
22:47 | Posted in



Untuk membuat form transaksi penjualan pertama anda harus membuat tabel transaksi dan detil transaksi. Di form ini digunakan juga tabel temporary sebagai penampung sementara barang yang dibeli sebelum masuk ke detil transaksi. Tabel transaksi dan detil transaksi harus ada karena menghindari terjadinya redudansi data (perulangan data di tabel yang sama).



Tabel Transaksi

Field name

Data Type

Field size

No_nota

Text

4

Tgl_transaksi

Date/time

Format long date

Tabel Detiltransaksi

Field name

Data Type

Field size

No_nota

Text

4

Kode_brg

Text

6

Harga_brg

Number

Double

Jml_jual

Number

integer

Objek-Objek yang digunakan di form ini

Objek

Nama Objek

Keterangan

Properties awal

Textbox

Txtno_nota

Isian no nota


Textbox

Txtkode_brg

Isian kode barang


Textbox

Txtnama_brg

Isian nama barang


Textbox

Txtstok

Isian stok barang


Textbox

Txtharga

Isian harga barang


Textbox

Txtjml_beli

Isian jumlah beli


Dtpicker

Dtpicker1

Tanggal transaksi à Objek ini dapat diperoleh dengan menambah komponen Microsoft Windows Common Controls-2.6.0


Command

Command1

View data barang


Command

Cmdadd

Tambah data


Command

Cmdsave

Simpan Transaksi


Command

Cmdundo

Batal transaksi


Command

Cmdclose

Tutup form


DataGrid

Gridbarang

View Data Barang

Visible = false

DataGrid

GridTransaksi

View Data Transaksi


Adodc

Dbbarang

Koneksi ke tabel barang

Visible = false

Adodc

Dbtemp

Koneksi ke tabel temporari

Visible = false

Adodc

Dbdetiltran

Koneksi ke tabel detiltransaksi

Visible = false

Source Codenya :

Private Sub cmdadd_Click()

pil = "add"

End Sub

Private Sub cmdclose_Click()

Unload Me

End Sub

Private Sub cmdsave_Click()

Dim a, b, c, d As String

strsql = "insert into transaksi values ('" & txtno_nota.Text & "', '" & DTPicker1.Value & "')"

conn.Execute strsql

Set rs = New ADODB.Recordset

strsql = "select * from temp"

rs.Open strsql, conn

rs.MoveFirst

While Not rs.EOF

strsql = "insert into detiltransaksi values('" & rs.Fields(0) & "','" & rs.Fields(1) & "','" & rs.Fields(2) & "','" & rs.Fields(3) & "')"

conn.Execute strsql

rs.MoveNext

Wend

MsgBox "Transaksi Berhasil Disimpan", vbInformation, "Informasi"

hapustemp

Form_Activate

End Sub

Private Sub cmdundo_Click()

Form_Activate

End Sub

Private Sub Command1_Click()

gridbarang.Visible = True

gridbarang.SetFocus

End Sub

Private Sub Form_Activate()

gridbarang.Visible = False

If koneksi = True Then

With dbbarang

.CommandType = adCmdText

.RecordSource = "select * from tb_barang where kode_brg<>''"

.Refresh

End With

hapustemp

With dbtemp

.CommandType = adCmdText

.RecordSource = "select * from temp where no_nota<>''"

.Refresh

End With

With dbdetiltran

.CommandType = adCmdText

.RecordSource = "select * from detiltransaksi where no_nota<>''"

.Refresh

End With

Set gridbarang.DataSource = dbbarang

Set gridtransaksi.DataSource = dbtemp

End If

bersihatas

bersihbawah

End Sub

Private Sub gridbarang_DblClick()

txtkode_brg.Text = dbbarang.Recordset!kode_brg

txtnama_brg.Text = dbbarang.Recordset!nama_brg

txtstok.Text = dbbarang.Recordset!stok_brg

txtharga.Text = dbbarang.Recordset!harga_brg

gridbarang.Visible = False

txtjml_beli.SetFocus

End Sub

Private Sub gridbarang_KeyPress(KeyAscii As Integer)

If KeyAscii = 27 Then

gridbarang.Visible = False

txtkode_brg.SetFocus

End If

End Sub

Private Sub gridtransaksi_KeyPress(KeyAscii As Integer)

If KeyAscii = 27 Then

conn.RollbackTrans

Set rs = New ADODB.Recordset

strsql = "select * from temp"

rs.Open strsql, conn

Set gridtransaksi.DataSource = rs

txtkode_brg.SetFocus

End If

End Sub

Private Sub txtjml_beli_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

If txtno_nota.Text <> "" And txtjml_beli.Text <> "" And txtkode_brg.Text <> "" Then

strsql = "insert into temp values ('" & txtno_nota.Text & "','" & txtkode_brg.Text & "'," & _

"'" & txtharga.Text & "', '" & txtjml_beli.Text & "')"

conn.Execute strsql

Set rs = New ADODB.Recordset

strsql = "select * from temp"

rs.Open strsql, conn

Set gridtransaksi.DataSource = rs

bersihbawah

txtkode_brg.SetFocus

End If

End If

End Sub

Private Sub txtkode_brg_Change()

With dbbarang

.RecordSource = "select * from tb_barang where kode_brg like '%" & txtkode_brg.Text & "%'"

.Refresh

End With

Set gridbarang.DataSource = dbbarang

End Sub

Private Sub txtkode_brg_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

gridbarang.Visible = True

gridbarang.SetFocus

End If

End Sub

Public Sub bersihatas()

txtno_nota.Text = ""

DTPicker1.Value = Date

End Sub

Public Sub bersihbawah()

txtkode_brg.Text = ""

txtnama_brg.Text = ""

txtstok.Text = ""

txtharga.Text = ""

txtjml_beli.Text = ""

End Sub

Public Sub hapustemp()

strsql = "delete from temp"

conn.Execute strsql

End Sub



Klo mau file latihan lengkap klik disini ya...
Jangan lupa koneksi Adodc nya dikoneksikan berdasarkan tempat kamu mengcopy databasenya.

Read More......
Category:
��

VB Fundamental 1
4
22:15 | Posted in



Membuat Tabel barang
1. Masuk ke Ms Access
2. Buat Database dengan nama penjualan
3. Buat tabel dengan nama tb_barang
4. Detil Tabel Barangnya seperti di bawah ini

FieldnameDataType PanjangData
kode_brg Text6
nama_brgText30
stok_brg Numberinteger
satuan_brgText15
harga_brgNumberDouble

Membuat Form Input Data Barang

Objek di Form Input Barang
ObjectNama ObjectKeterangan
TextBoxtxtkode_brgkode barang
TextBoxtxtnama_brgnama barang
TextBoxtxtstok_brgstok barang
ComboBoxcmbsatuan_brgsatuan barang
TextBoxtxtharga_brgharga barang
Commandcmdaddtambah data
Commandcmdsavesimpan data
Commandcmdeditedit data
Commandcmddeletehapus data
Commandcmdsearchcari data
Commandcmdundobatal
Commandcmdclosetutup
DataGridgridbarangGrid Data
AdodcAdodc1Buat Koneksi Ke Tabel



Private Sub cmbsatuan_brg_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
SendKeys vbTab
End If
End Sub

Private Sub cmdadd_Click()
pil = "add"
tombol 0, 1, 0, 0, 0, 1, 0
isian 1, 1, 1, 1, 1
txtkode_brg.SetFocus
End Sub

Private Sub cmdclose_Click()
Unload Me
End Sub

Private Sub cmddelete_Click()
pesan = MsgBox("Yakin Menghapus Data ?", vbQuestion + vbYesNo, "Konfirmasi")
If pesan = 6 Then
strsql = "delete from tb_barang where kode_brg = '" & txtkode_brg.Text & "'"
conn.Execute strsql

Set rs = New ADODB.Recordset
strsql = "select * from tb_barang"
rs.Open strsql, conn

Set gridbarang.DataSource = rs

bersih

MsgBox "Data Telah Berhasil Dihapus", vbInformation, "Informasi"

Form_Activate
End If
End Sub

Private Sub cmdedit_Click()
pil = "edit"
isian 0, 1, 1, 1, 1
tombol 0, 1, 0, 0, 0, 1, 0
End Sub

Private Sub cmdsave_Click()
If pil = "add" Then

Set rs = New ADODB.Recordset
strsql = "select * from tb_barang where kode_brg = '" & txtkode_brg.Text & "'"
rs.Open strsql, conn

If Not rs.EOF Then
MsgBox "Kode Barang Sudah Ada", vbCritical, "Peringatan"
txtkode_brg.SetFocus
Exit Sub
Else
If Len(Trim(txtkode_brg.Text)) <> 6 Then
MsgBox "Kode Barang Harus 6 Digit", vbCritical, "Peringatan"
txtkode_brg.SetFocus
Exit Sub
End If
End If

strsql = "insert into tb_barang values ('" & txtkode_brg.Text & "', '" & txtnama_brg.Text & "'," & _
"'" & txtstok_brg.Text & "', '" & cmbsatuan_brg.Text & "', '" & txtharga_brg.Text & "')"
conn.Execute strsql

Set rs = New ADODB.Recordset
strsql = "select * from tb_barang"
rs.Open strsql, conn

Set gridbarang.DataSource = rs

MsgBox "Data Berhasil Disimpan", vbInformation, "Informasi"
Else
strsql = "update tb_barang set nama_brg='" & txtnama_brg.Text & "', stok_brg = '" & txtstok_brg.Text & "'," & _
"satuan_brg = '" & cmbsatuan_brg.Text & "', harga_brg = '" & txtharga_brg.Text & "' where kode_brg = '" & txtkode_brg.Text & "'"
conn.Execute strsql

Set rs = New ADODB.Recordset
strsql = "select * from tb_barang"
rs.Open strsql, conn

Set gridbarang.DataSource = rs

MsgBox "Data Berhasil DiUpdate", vbInformation, "Informasi"
End If
Form_Activate
End Sub

Private Sub cmdsearch_Click()
tampung = InputBox("Masukkan Kode Barang yang Dicari", "Pencarian")
Set rs = New ADODB.Recordset
strsql = "select * from tb_barang where kode_brg like '%" & tampung & "%'"
rs.Open strsql, conn

If Not rs.EOF Then
txtkode_brg.Text = rs.Fields(0)
txtnama_brg.Text = rs.Fields(1)
txtstok_brg.Text = rs.Fields(2)
cmbsatuan_brg.Text = rs.Fields(3)
txtharga_brg.Text = rs.Fields(4)

tombol 0, 0, 1, 1, 0, 1, 0
Else
MsgBox "Data Tidak Diketemukan"
End If

End Sub

Private Sub cmdundo_Click()
Form_Activate
End Sub

Private Sub Form_Activate()
With Adodc1
.CommandType = adCmdText
.RecordSource = "select * from tb_barang where kode_brg<>''"
.Refresh
End With
Set gridbarang.DataSource = Adodc1
tombol 1, 0, 0, 0, 1, 0, 1
isian 0, 0, 0, 0, 0
bersih
cmdadd.SetFocus

End Sub

Private Sub Form_Load()
If koneksi = True Then
Set rs = New ADODB.Recordset
strsql = "select * from tb_barang"
rs.Open strsql, conn
Else
MsgBox "Koneksi Gagal", vbCritical, "Peringatan"
Exit Sub
End If

End Sub

Private Sub txtharga_brg_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
SendKeys vbTab
End If
End Sub

Private Sub txtkode_brg_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
SendKeys vbTab
End If
End Sub

Private Sub txtnama_brg_GotFocus()
If pil = "add" Then
Set rs = New ADODB.Recordset
strsql = "select * from tb_barang where kode_brg = '" & txtkode_brg.Text & "'"
rs.Open strsql, conn

If Not rs.EOF Then
MsgBox "Kode Barang Sudah Ada", vbCritical, "Peringatan"
txtkode_brg.SetFocus
Else
If Len(Trim(txtkode_brg.Text)) <> 6 Then
MsgBox "Kode Barang Harus 6 Digit", vbCritical, "Peringatan"
txtkode_brg.SetFocus
End If
End If

End If
End Sub

Private Sub txtnama_brg_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
SendKeys vbTab
End If
End Sub

Private Sub txtstok_brg_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
SendKeys vbTab
End If
End Sub

Public Function tombol(t1, t2, t3, t4, t5, t6, t7)
cmdadd.Enabled = IIf(t1 = 1, True, False)
cmdsave.Enabled = IIf(t2 = 1, True, False)
cmdedit.Enabled = IIf(t3 = 1, True, False)
cmddelete.Enabled = IIf(t4 = 1, True, False)
cmdsearch.Enabled = IIf(t5 = 1, True, False)
cmdundo.Enabled = IIf(t6 = 1, True, False)
cmdclose.Enabled = IIf(t7 = 1, True, False)
End Function

Public Function isian(i1, i2, i3, i4, i5)
txtkode_brg.Enabled = IIf(i1 = 1, True, False)
txtnama_brg.Enabled = IIf(i2 = 1, True, False)
txtstok_brg.Enabled = IIf(i3 = 1, True, False)
cmbsatuan_brg.Enabled = IIf(i4 = 1, True, False)
txtharga_brg.Enabled = IIf(i5 = 1, True, False)
End Function

Public Sub bersih()
txtkode_brg.Text = ""
txtnama_brg.Text = ""
txtstok_brg.Text = ""
cmbsatuan_brg.Text = ""
txtharga_brg.Text = ""
End Sub

Klo mau file latihan lengkap klik disini ya...
Jangan lupa koneksi Adodc nya dikoneksikan berdasarkan tempat kamu mengcopy databasenya.

Read More......
Category:
��