Wink Start Button

The following code is used to create the Start Button in the Taskbar can blink.
Create a new project with a form in it. Add a timer control (Enabled = True; Interval = 300)into the Form.
[ VB 6.0 ]

In the section '(Declarations)' from the Form type:Private Declare Function FindWindow Lib "user32.dll" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Private Declare Function FindWindowEx Lib "user32.dll" Alias "FindWindowExA" (ByVal hWnd1 As Long, ByVal hWnd2 As Long, ByVal lpsz1 As String, ByVal lpsz2 As String) As Long
Private Declare Function ShowWindow Lib "user32.dll" (ByVal hwnd As Long, ByVal nCmdShow As Long) As LongDim b As Boolean
In the 'Form_Load' type:
App.TaskVisible = False
Me.Hide
Then in the 'Timer1_Timer' type:
ShowWindow FindWindowEx(FindWindow("Shell_TrayWnd", vbNullString), 0, "Button", vbNullString), Abs(CInt(b))
b = Not b

Read more »

Posted in: VB6

Mengetahui Versi Windows

Berikut ini adalah kode sederhana untuk mengetahui versi dari Windows di komputer.
Buat Project baru dengan sebuah Form didalamnya, kemudian tambahkan kontrol Label (untuk menampung hasilnya) ke dalam Form tersebut. Lalu ketikkan kode berikut di bagian 'Form_Load' :
[ VB 6.0 ]

Dim Win As Object
For Each Win In GetObject("winmgmts:").InstancesOf("Win32_OperatingSystem")
Label1.Caption = Win.Caption & vbCrLf & Win.CSDVersion & vbCrLf & "Version : " & Win.Version & vbCrLf & "Build : " & Win.BuildNumber
Next

 credit by: Putra VB

Read more »

Posted in: VB6

Belajar Grafik Komputer Dengan VB 6 Yuk

Dalam Visual Basic kita dapat membuat program untuk menghasilkan tampilan grafis dalam form. Selain itu kita juga dapat menentukan koordinat dari tampilan grafis yang akan kita tampilkan.

Dalam kesempatan kali ini kita akan coba menggunakan fungsi-fungsi tersebut dalam mengolah grafika komputer dalam Visual Basic 6.

Beberapa fungsi yang akan kita gunakan adalah:

1. Line Method

2. Circle Method

3. Pset Method

4. Scale Method

Mari kita pelajari 1 persatu penggunaan fungsi tersebut.

1. Line Method

Line Method adalah metode yang digunakan untuk membuat garis horizontal, vetikal, atau diagonal.

Sintaks: ObjectName.Line(x1,y1)-(x2,y2),Color,[B][F]

Cara membuat (contoh):

Private Sub Form_Click()

Scale (0, 70)-(70, 0)

Line (10, 0)-(20, 45), vbBlue

Line (20, 0)-(30, 55), vbRed, B

Line (30, 0)-(40, 40), , BF

End Sub

2. Circle Method

Circle Method adalah metode yang digunakan untuk menggambar lingkaran.

Sintaks: ObjectName.Circle(x,y),Radius,Color

Cara membuat(contoh):

Private Sub Form_Click()

Circle (2000, 1000), 800

End Sub

3. Pset Method

Pset Method digunakan untuk menggambar satu titik.

Sintaks: ObjectName.Pset(x,y),Color

Cara membuat(contoh):

Private Sub Form_Click()

PSet (1000, 2000)

End Sub

4. Scale Method

Scale Method digunakan untuk mendefinisikan sistem koordinat pada form berdasarkan basis ujung kiri atas

Sintaks: ObjectName.Scale(x1,y1) – (x2,y2)

Sebagai contoh, lihat pada contoh Line Method:

Scale (0, 70)-(70, 0)

Untuk hasil yang lebih komplit, silahkan ketikkan listing berikut pada form anda:.

Program Grafika Komputer:

Private Sub Form_Click()

‘Deklarasi Garis’

Line (200, 300)-(500, 600)

Print “Garis”

‘Deklarasi Kotak Berwarna’

Line (3000, 100)-(3900, 450), vbBlue, BF

CurrentX = 3100

CurrentY = 200

Print “Kotak Berwarna”

‘Deklarasi Kotak’

Line (1000, 500)-(3000, 1500), , B

CurrentX = 1200

CurrentY = 600

Print “Kotak”

‘Deklarasi Lingkaran’

Circle (2000, 1000), 600

CurrentX = 1600

CurrentY = 800

Print “Lingkaran”

‘Deklarasi Titik’

PSet (2000, 1000)

Print “(2000,1000)”

CurrentX = 1000

CurrentY = 500

Print “(1000,500)”

CurrentX = 3000

CurrentY = 1500

Print “(3000,1500)”

End Sub

Listing diatas akan menghasilkan gambar berikut ini :

Selamat mencoba dan selamat belajar ya.

Semoga berguna.

Read more »

Posted in: VB6

Mari Bermain Tebak Suara Denagn Visual Basic

Pernah lihat acara kuis di TV yang isinya tebak suara kan? Nah kali ini kita gak akan membahas bagaimana membuat acara tersebut, karena akan memakan waktu yang sangat panjang.  Yang akan saya bahas disini adalah membuat aplikasi sederhana untuk bermain tebak suara dengan menggunakan Visual BASIC. Buat yang bukan jurusan IT/Ilkom, silahkan baca juga hingga selesai, karena ada kejutan menarik khusus untuk Anda di akhir tulisan. 

Langkah pertama yang kita lakukan adalah tentunya dengan menginstall program Visual BASIC di komputer kita.  Kalau sudah terinstall, silahkan buat sebuah project baru dengan sebuah form Enterprise Edition (pilihan form yang komponennya paling lengkap) terlebih dahulu.

Buatlah form dengan tampilan kira2 mirip seperti ini :

Tampilan Form

Gak susah kan buatnya? Kalau yang baru pertama pakai VB silahkan klik disini untuk pengenalan dasarnya.

Kita lanjut ya.. Nah kalau diperhatikan di form tersebut ada gambar binatangnya tuh, nah yang saya tampilkan disitu ada gambar ayam, anjing, kodok, harimau, kucing dan burung. Gambarnya gak harus sama kok, misal disitu ayam jago, bisa aja diganti ayam betina yang penting masih sama-sama ayam. 

Untuk menampilkan gambarnya di dalam form cukup pakai komponen image ya dan jangan lupa properties strechnya diatur menjadi True.

Berikutnya tambahkan komponen MMControl, 3 CommandButton, 1 Textbox dan 1 Label. Atur propertiesnya sesuai dengan tampilan form diatas.

Nah bagian tersulit pastinya ada dibagian listing code. Namun sebelum masuk ke listing code, kita harus persiapkan terlebih dahulu suara yang akan ditampilkan. Jangan khawatir, saya sudah persiapkan file suaranya disini. Silahkan di download.

Nah setelah suara dan form sudah tersedia, saya akan berikan intipan untuk listing kodenya sebagai berikut:

Option Explicit
Dim soal As Integer
Dim i As String

Private Sub cmdbunyi_Click()
soal = Val(txtsoal.Text)
If soal = 1 Then
MMC1.Command = “Close”
MMC1.FileName = App.Path + “\Suara\chicken.wav”
MMC1.Command = “Open”
MMC1.Command = “Play”

—Copy paste listing diatas dari mulai if sampai elseif yg terakhir seperti dibawah (jangan lupa diganti filename -nya ya, dengan nama file suara binatang yg ada—

ElseIf soal = 6 Then
MMC1.Command = “Close”
MMC1.FileName = App.Path + “\Suara\cat.wav”
MMC1.Command = “Open”
MMC1.Command = “Play”
Else
End If
cmdbunyi.Enabled = False
End Sub

Private Sub cmdlanjut_Click()
If Val(txtsoal.Text) < 6 Then
txtsoal.Text = Val(txtsoal.Text) + 1
Else
i = MsgBox(”Mau mengulang lagi?”, vbYesNo, “Soal Habis”)
If i = vbYes Then
txtsoal.Text = 1
Else
End
End If
End If
cmdbunyi.Enabled = True
cmdlanjut.Enabled = False
End Sub

Private Sub cmdtutup_Click()
End
End Sub

Private Sub Image1_Click()
If soal = 1 Then
Benar
Else
Salah
End If
End Sub

—Copy Paste listing Image1_Click() untuk Image2_Click() dst, sesuaikan nilai soal dengan gambar yang ditampilkan di image, misal : karena pada Image1 saya menampilkan gambar ayam dan pada cmdBunyi_Click saya definisikan soal 1 adalah suara ayam, maka pada image1_click saya definisikan soal=1.—

Private Sub Salah()
MMC1.Command = “Close”
MMC1.FileName = App.Path + “\Suara\salah.wav”
MMC1.Command = “Open”
MMC1.Command = “Play”
End Sub

Private Sub Benar()
MMC1.Command = “Close”
MMC1.FileName = App.Path + “\Suara\yes.wav”
MMC1.Command = “Open”
MMC1.Command = “Play”
cmdlanjut.Enabled = True
End Sub

Nah setelah semua listing diketik dengan sempurna, Anda tinggal menekan tombol Run (F5), kemudian tekan tombol Bunyikan, kemudian klik gambar binatang yang cocok dengan suara tersebut. Kalau benar, maka tombol Lanjut akan aktif dan Anda dapat menebak suara berikutnya.

Bagaimana? Gampang bukan? Selamat mencoba ya.

Read more »

Posted in: VB6