My life blog

honey… ini daq postingin scriptnya
MENJALANKAN FILE WAV PADA VB6 TAMBAHKAN MODUL (KLIK PROJECT – ADD MODULE) TULISKAN SCRIPT DI BAWAH INI :
Option Explicit
Private Declare Function sndPlaySound Lib “winmm” Alias “sndPlaySoundA” (ByVal lpszSoundName As String, ByVal uFlags As Long) As Long
Public Enum SNDSettings
SNDSYNC = &H0
SNDASYNC = &H1
SNDNODEFAULT = &H2
SNDMEMORY = &H4
SNDLOOP = &H8
SNDNOSTOP = &H10
SWSHOW = 5
End Enum

Public Sub Play(fname As String, Optional Settings As SNDSettings = SNDASYNC) Dim retval As Long
retval = sndPlaySound(fname, Settings)

End Sub
LALU PADA FORM TAMBAHKAN COMMAND BUTTON KETIIKAN KODE INI
Private Sub Command1_Click()
Play (”c:\wav\surgamu.wav”)
End Sub

ITU UNTUK MENJALANKAN SAJA SEMENTARA UNTUK STOP BELUM DAPAT KODENYA, GOGLING AJA SENDIRI YA :-)

Ini adalah mengenai Nilai kasih Ibu dari Seorang anak yang mendapatkan ibunya sedang sibuk menyediakan makan malam di dapur. Kemudian dia menghulurkan sekeping kertas yang bertulis sesuatu. si ibu segera membersihkan tangan dan lalu menerima kertas yang dihulurkan oleh si anak dan membacanya.
OngKos upah membantu ibu:
1) Membantu Pergi Ke Warung: Rp20.000
2) Menjaga adik Rp20.000
3) Membuang sampah Rp5.000
4) Membereskan Tempat Tidur Rp10.000
5) menyiram bunga Rp15.000
6) Menyapu Halaman Rp15.000
Jumlah : Rp85.000

Selesai membaca, si ibu tersenyum memandang si anak yang raut mukanya berbinar-binar.Si ibu mengambil pena dan menulis sesuatu dibelakang kertas yang sama.

1) OngKos mengandungmu selama 9bulan-GRATIS
2) OngKos berjaga malam karena menjagamu - GRATIS
3) OngKos air mata yang menetes karenamu - GRATIS
4) OngKos Khawatir kerana selalu memikirkan keadaanmu - GRATIS
5) OngKos menyediakan makan minum, pakaian dan keperluanmu - GRATIS
Jumlah Keseluruhan Nilai Kasihku - GRATIS
Air mata si anak berlinang setelah membaca. Si anak menatap wajah ibu, memeluknya dan berkata, “Saya Sayang Ibu”.Kemudian si anak mengambil pena dan menulis sesuatu didepan surat yang ditulisnya: “Telah Dibayar”
moga bermanfaat….