Antrian Dengan Suara

Mengantri adalah hal yang membosankan bila menunggunnya terlalu lama. Antrian Dengan Suara ini dimaksudkan untuk memudahkan petugas untuk memanggil antrin yang selanjutnya.


Untuk menjalankan program ini, komputer kamu harus terinstall terlebih dahulu Visual Basicnya. Karena jika belom terinstall, filenya tidak akan dibaca...! mengerti kan...?

Baca selengkapnya »

Kalkulator

Assalamu'alaikum Sobat Semua...!

Gimana nie kabarnya semua...?, Nah kali ini saya berbagi ilmu tentang pembuatan Kalkulator dengan aplikasi Visual Basic, Jika yang dulu tuch lebih simpel tapi kali ini...!,yach bisa dibilang agak rumit karena membutuhkan banyak tombol.

Baca selengkapnya »

Login Biasa

Login merupakan salah satu yang harus ada pada suatu program karena untuk mengamankan program tersebut bagi yang tidak berhak untuk menggunakannya. Ini dimaksudkan agar data yang ada pada program tersebut aman dan tentram. Janji capres kleee...! aman dan tentram untuk indonesia dari teroris.
kembali ke topik bahasan lagi...!


Program ini menggunakan database access untuk menyimpan data-data yang diinputkan.
Jika anda ingin mencoba program ini silahkan download dibawah ini.
















SELAMAT MENCOBA...!

Program .exe

Bagi karyawan perkantoran pastilah tidak lepas pada aplikasi Ms Word, Ms Excel maupun aplikasi yag lain. Bukan hanya untuk karyawan perkantoran sich...! Tapi kebanyakanlah...!.
Kali ini saya mencoba untuk berbagi ilmu Program .exe, ngerti gak maksudnya...?
Ini maksudnya adalah program untuk membuka aplikasi seperti Ms. Word, dll. tapi membukanya menggunakan VB. Istilah lainnya program ini seperti Shortcut.


Ok,,,untuk menjalankan program ini. komputer anda harus terinstall terlebih dahulu Visual Basicnya dan aplikasi-aplikasi lain yang terdapat didalam program tersebut.

Langsung aja yachh...!

Jika anda berminat silahkan download dibawah ini.

Animasi Label

Banyak yang dilakukan oleh programmer untuk membuat suatu program agar program yang dikerjakan itu bisa menarik. Disina saya membuat contoh untuk membuat form menarik yaitu Animasi Label. ya seperti text berjalan gituch...! tapi kali ini banyak animasi yang terdapat pada form tersebut.

Anda penasaran dan berminat untuk membuatnya...!

Baca selengkapnya »

Jadwal Sholat

Sholat merupakan kewajiban bagi umat manusia khususnya bagi pemeluk agama Islam. Jadwal Sholat adalah hal yang tidak boleh dilupakan karena untuk membatasi waktu sholat. Jika anda sering menggunakan komputer dan lupa akan waktu sholat, Nah...!
saya mencoba membuat Jadwal Sholat.


Jadwal ini digunakan untuk memberi tau jam berapa waktu sholat baik itu Shubuh, Dhuhur, Ashar, Maghrib maupun Isya'.

Langsung aja yaaawww.....!
Silahkan download dibawah ini...!

Menghitung Perubahan Suhu Dengan VB

Ha...Ha...Ha...

Pada pelajaran Fisika pasti terdapat pelajaran Perubahan Suhu, dimana untuk menghitungnya membutuhkan ketelitian yang sangat tinggi. Kemudian saya mencoba membuat program untuk Menghitung Perubahan Suhu. Ini dimaksudkan untuk memudahkan dalam menghitungnya.

Baca selengkapnya »

Membuat Kalender Sendiri

Kali ini saya akan mencoba membagi ilmu pengetahuan tentang Pemrograman VB. Disini saya akan Membuat Kalender Sendiri dengan menggunakan aplikasi Visual Basic.
Untuk membuatnya...!

Silahkan Anda Download dibawah ini, oce...!













SELAMAT MENCOBA...!

Logika Matematika

Dalam pelajaran matematika untuk kelas 1 semester 2 tingkat SMK/SMA/MA/Sederajat pasti ada pelajaran yang namanya Logika Matematika. Dimana yanng dipelajari adalah kebenaran seperti negasi dll. Dibutuhkan ketelitian untuk menghitungnya. Setelah saya amati bahwa pelajaran Logika Matematika ini bisa dibuat program, tapi saya cuma bisa membuat program tersebut menggunakan Visual Basic nie...!

Menurut saya pelajaran Logika Matematika ini cukup sulit, meskipun kelihatannya gampang sich..!
nah kali ini saya mencoba membuat program untuk pelajaran Logika Matematika.

Silahkan Download yaa...!

Hide and Show Taskbar

Kali ini saya mencoba membuat Hide and Show Taskbar dengan Visual Basic. Program ini hanya untuk membuat komputer anda lebih menarik.


Caranya mudah ko', cukup kamu ikuti aja langkah-langkah berikut, oce...!
1. Buat form baru dan tambahkan 2 CommandButton dan atur hingga seperti gambar diatas.
2. Letakkan kode dibawah ini.

Private Declare Function SetWindowPos Lib "user32" (ByVal hwnd _
As Long, ByVal hWndInsertAfter As Long, ByVal x As Long, _
ByVal y As Long, ByVal cx As Long, ByVal cy As Long, ByVal _
wFlags As Long) As Long

Private Declare Function FindWindow Lib "user32" Alias _
"FindWindowA" (ByVal lpClassName As String, ByVal _
lpWindowName As String) As Long

Const SWP_HIDEWINDOW = &H80
Const SWP_SHOWWINDOW = &H40

Private Sub Command1_Click()
Dim Thwnd As Long
Thwnd = FindWindow("Shell_traywnd", "")
Call SetWindowPos(Thwnd, 0, 0, 0, 0, 0, SWP_HIDEWINDOW)
End Sub

Private Sub Command2_Click()
Dim Thwnd As Long
Thwnd = FindWindow("Shell_traywnd", "")
Call SetWindowPos(Thwnd, 0, 0, 0, 0, 0, SWP_SHOWWINDOW)
End Sub

Function Task(xhide As Boolean)
Dim Thwnd As Long
If xhide = True Then
Thwnd = FindWindow("Shell_traywnd", "")
Call SetWindowPos(Thwnd, 0, 0, 0, 0, 0, SWP_HIDEWINDOW)
Else
Thwnd = FindWindow("Shell_traywnd", "")
Call SetWindowPos(Thwnd, 0, 0, 0, 0, 0, SWP_SHOWWINDOW)
End If
End Function

Private Sub Form_Load()
Command1.Caption = "Hide"
Command2.Caption = "Show"
End Sub

3. don't forget diSimpan ya....!

Selamat Mencoba...!

Animasi Form

Nah...! Kali ini saya mencoba membuat animasi form, tapi ini hanya sederhana ko'. gampang loo cara buatnya.

Tanpa panjang lebar dan banyak penjelasan, Saya akan kasik tau cara membuatnya.
kamu hanya membutuhkan form baru dan letakkan kode dibawah ini

Private Sub Form_Unload(Cancel As Integer)
Animation
End Sub


Public Sub Animation()
Dim I As Long
Dim J As Long
I = Me.ScaleHeight
J = Me.ScaleWidth


While Not I = 0
Me.Height = Me.Height - 25
I = I - 1
Wend


While Not J = 0
Me.Width = Me.Width - 25
J = J - 1
Wend
End Sub

Jangan lupa diSimpan ya....!

SELAMAT MENCOBA'N SEMOGA SUKSES YA...!

Membuat Jam Analog

Ha...Ha...Ha...!
saya mencoba membuat jam analog dengan VB dan saya ingin berbagi ilmu tentang VB, meskipun hanya sedikit.

Caranya sich...! gampang ko', cuma membutuhkan Aplikasi VB di komputer anda.

1. Buat form baru dan 1 Timer.
2. Anda cukup letakkan kode dibawah ini pada kode editor, oce...!

Option Explicit
Dim xgen, ygen, xmin, ymin, xsec, ysec, xhor, yhor As Double
Dim h, m, s As Date
'control the minute '
Function mint()

If s >= 0 And s < 12 Then
Call findminangle(CDbl(m))
ElseIf s >= 12 And s < 24 Then
Call findminangle(CDbl(m) + 0.2)
ElseIf s >= 24 And s < 36 Then
Call findminangle(CDbl(m) + 0.4)
ElseIf s >= 36 And s <= 48 Then
Call findminangle(CDbl(m) + 0.6)
ElseIf s >= 48 And s <= 59 Then
Call findminangle(CDbl(m) + 0.8)
End If
xmin = xgen
ymin = ygen

Line (Form1.ScaleWidth / 2, Form1.ScaleHeight / 2)-(xmin, ymin), RGB(255, 24, 32)
End Function
'control the second
Function secnd()
Call findminangle(CDbl(s))
xsec = xgen
ysec = ygen
Line (Form1.ScaleWidth / 2, Form1.ScaleHeight / 2)-(xsec, ysec), RGB(100, 100, 100)

End Function
'control the hour
Function hr()

If m >= 0 And m < 12 Then
Call findminangle(CDbl(h) * 5)
ElseIf m >= 12 And m < 24 Then
Call findminangle(5 * (CDbl(h) + 0.2))
ElseIf m >= 24 And m < 36 Then
Call findminangle(5 * (CDbl(h) + 0.4))
ElseIf m >= 36 And m < 48 Then
Call findminangle(5 * (CDbl(h) + 0.6))
ElseIf m >= 48 And m <= 59 Then
Call findminangle(5 * (CDbl(h) + 0.8))
End If
xhor = xgen
yhor = ygen
If xhor >= Form1.ScaleWidth / 2 And yhor >= Form1.ScaleHeight / 2 Then

Line (Form1.ScaleWidth / 2, Form1.ScaleHeight / 2)-(xhor - 200, yhor - 200), RGB(0, 0, 255)
ElseIf xhor <= Form1.ScaleWidth / 2 And yhor >= Form1.ScaleHeight / 2 Then
Line (Form1.ScaleWidth / 2, Form1.ScaleHeight / 2)-(xhor + 200, yhor - 200), RGB(0, 0, 255)
ElseIf xhor <= Form1.ScaleWidth / 2 And yhor <= Form1.ScaleHeight / 2 Then
Line (Form1.ScaleWidth / 2, Form1.ScaleHeight / 2)-(xhor + 200, yhor + 200), RGB(0, 0, 255)
ElseIf xhor >= Form1.ScaleWidth / 2 And yhor <= Form1.ScaleHeight / 2 Then
Line (Form1.ScaleWidth / 2, Form1.ScaleHeight / 2)-(xhor - 200, yhor + 200), RGB(0, 0, 255)
End If

End Function
'draw the clock
Function drawdig()
Dim i As Integer
Circle (Form1.ScaleWidth / 2, Form1.ScaleHeight / 2), 1411, RGB(255, 34, 34)
For i = 5 To 60
Call findminangle(CDbl(i))
Form1.CurrentX = xgen - TextWidth(i / 5) / 2
Form1.CurrentY = ygen - TextWidth(i / 5) / 2
Form1.Print i / 5
i = i + 4
Next
End Function
'find the co-ordinate
Function findminangle(p As Double)
Dim temp As Double

temp = 60 - (p - 15)
temp = temp * 60 * 0.1
temp = (22 * temp) / (7 * 180)

xgen = (Form1.ScaleWidth / 2) + (1000 * Cos(temp))
ygen = (Form1.ScaleHeight / 2) - (1000 * Sin(temp))

End Function

Private Sub Timer1_Timer()

Form1.Cls

Call drawdig
Form1.Caption = Time()
h = Hour(Time())
m = Minute(Time())
s = Second(Time())

Call mint
Call secnd
Call hr
End Sub

3. Simpan yaaa....!
Kalender Siap Pakai

Shutdown Komputer

Kali ini saya akan mencoba membuat program sederhana untuk mematikan komputer/Shoutdown hanya dengan aplikasi Visual Basic.

Baca selengkapnya »

Buka - Tutup CD ROM 2

Pada kali ini saya akan mencoba lagi cara membuka dan menutup CD ROM versi 2 hanya dengan Visual Basic. Banyak cara yang dilakukan oleh para programmer. Ada yang menggunakan VB, Borland Delphi maupun pakai Aplikasi yang lain.

Langsung aja buatnya ya...!

Baca selengkapnya »

Tips Meningkatkan Kinerja Komputer

Seiring dengan banyaknya software/program yang diInstall dikomputer, sering kta merasa kinerja komputer kita menjadi semakin lambat. Atau kadang kita tahunya komputer kita semakin lambat kinerjanya. Hal ini wajar apalagi dengan semakin lamanya pengguna komputer dengan berbagai program yang diInstall.
Sebenarnya kinerja komputer bisa dipengaruhi oleh banyaknya faktor, baik software maupun hardware. Ada berbagai tips yang dapat dilakukan agar kinerja komputer menjadi lebih baik. Berikut beberapa tips yang mungkin dapat dilakukan dan mungkin sebagian sudah umum kita lakukan atau kita dengar.

Baca selengkapnya »

Program Acak Angka

Kali ini saya mencoba untuk membuat contoh program sederhana untuk mengacak angka. Tidak usah panjang lebar penjelasannya. Langsung aja, cara membuatnya adalah sebagai berikut.

Baca selengkapnya »

Text Berjalan (2)

Text berjalan merupakan fariasi dalam suatu program. banyak sekali model text berjalan. Cukup menggunakan aplikasi Visual Basic, kamubisa membuat text berjalan dengan berbagai macam bentuknya. Kali ini saya akan memberikan kode text berjalan dengan model naik turun.

Langsung aja yachhhh...!

1. Buat suatu project dengan satu form.
2. Tambahkan kontrol berikut pada formnya : Timer dan Label.
3. Ubah property Timer dengan Intervel=10

Ketikkan kode dibawah ini pada form.

Private Sub Timer1_Timer()
Static Atas As Boolean
Label1.Top=Label1.Top + IIf(Atas, -50, 50)
If Label1.Top<0 atas =" False"> me.Height - Label1.Height - 300 Then
Atas = True
End If
End Sub

4. Simpan Project dan Form tersebut.
5. Coba kamu liat hasilnya. Jalankan promram tersebut. Asyiiik kan.......!

Angka yang berwarna biru bisa kamu rubah sesuai dengan keinginan kamu...!

Selamat Mencoba...!