This is My Slides

***Go to My Blog***.This theme is Bloggerized by black cat - ilmuandalan.blogspot.com.

Hewan Pengandaran

***Go to My Blog***.This theme is Bloggerized by black cat - ilmuandalan.blogspot.com.

Batu Peninggalan Prasejarah

***Go to My Blog***.This theme is Bloggerized by black cat - ilmuandalan.blogspot.com.

Peta Pantai Pengandaran

***Go to My Blog***.This theme is Bloggerized by black cat - ilmuandalan.blogspot.com.

Sejarah Gua lanang

***Go to My Blog***.This theme is Bloggerized by black cat - ilmuandalan.blogspot.com.

Kamis, 29 Desember 2011

Membuat Progress Bar Dengan VB6

Sekian lama saya menghilang dari postingan blog,pada akhirnya saya akan membuat postingan terbaru yaitu cara membuat progress bar dengan Vb 6.Okay langsung aja ya:::;
  • Buka Visual Basic 6.0, setelah itu pilih form standar.exe
  • Pada properties form, ganti captionnya menjadi, lprogress bar atau latihan loding atau sesuai yang di inginkan
  • Kemudian, klik kanan pada bagian kosong di toolbar general dan pilih components atau melalui menu Project -> Components, seperti ini : 


  •  Pada tab components, pilih Microsoft Windows Common Controls 6.0 (SP6), kemudian klik Apply lalu OK.
  • Selanjutnya masukkan, 1 buah progress bar dan 1 buah timer, seperti ini : 

 
  • Setelah itu klik 2 kali pada Timer1
  • Lalu, masukkan coding seperti dibawah ini : 

Private Sub Timer1_Timer()
If ProgressBar1.Value = 100 Then

ProgressBar1.Value = 0

Else

ProgressBar1.Value = Val(ProgressBar1.Value) + Val(1

End If

End Sub

  • Setelah itu, close Form1Code tersebut, dan klik lg pd timer1.
  • Ganti intervalnya menjadi 100
  • Kemudian coba compile dengan menekan tombol play.
  • Jika berhasil tampilannya seperti ini:
 
Gampang khan,coba dech langsung tambahain ke program yang anda Buat.Selamat Mencoba!!!

Senin, 19 Desember 2011

MEMBUAT MENU BAR DI VB 6

Visual Basic 6.0 menyediakan sarana untuk membuat menu tanpa terlebih dahulu membuat dasar
pemrogramannya. Pembuatan menu mutlak diperlukan, mengingat program yang sudah siap pakai
bisa menjadi lebih efektif dan praktis. Selain itu, bentuk menu yang cantik bisa menjadi daya tarik
tersendiri bagi user.

1. MEMBUAT MENU BAR
Menu Bar adalah menu standar yang berlaku sebagai menu utama pada setiap program aplikasi.
Untuk membuat menu Bar adlah sebagai berikut :
1. Klik menu Tools pilih Menu Editor.
2. Pada kolom Menu Editor, ketik judul menu dan submenu seprti berikut :
Cara mengisi input Menu Editor adalah sebagai berikut :• Untuk menu utama, isi kolom input Caption (&File) dan Name(mnu_file).
• Untuk pengisian menu berikutnya, klik baris kosong di bawah menu yang telah terisi pada
listbox (atau klik tombol Next).
• Submenu ditandai oleh tanda empat buah titik (….) yang akan muncul bila tombol ��
ditekan.
• Untuk garis pemisah antara menu, ketik karakter -.
• Untuk bantuan tombol keyboard (missal : Ctrl + X), isi kolom “Shortcut”.
• Karakter & memberi arti bahwa karakter sesudahnya ditandai garis bawah.

3. Klik tombol OK setealah selesai.
4. Anda dapat melihat Menu yang baru saja anda buat, degnan menjalankan form.
5. Untuk mempercantik form dari menu, berilah warna dasar putih pada form.
6. Tambahkan 3 buah kontrol Timer, 2 buah kontrol Label dan 1 buah kontrol Shape
7. Atur property dari masing-masing kontrol
8. Selanjutnya agar tampilan dari menu anda kelihatan lebih sempurna, anda dapat
menambahkan kontrol StatusBar.




2. STATUS BAR
Untuk membuat status bar dipergunakan StatusBar Control, kontrol ini merupakan frame yang
berisi panel sebagai penunjuk dari suatu aplikasi, seprti penunjuk status Caps Lock atau Num
Lock, penunjuk waktu, penunjuk tanggal ataupun untuk menampilkan status user yang sedang
aktif menggunakan program aplikasi.
StatusBar Control terletak pada Microsoft Windows Common Controls 6.0, untuk
menggunakannya, StatusBar Control harus diletakkan pada ToolBox.
Cara membuat StatusBar (contoh) :
Berikut ini contoh untuk membuat Control Panel, langkah-langkahnya sebagai berikut :
1. Tempatkan StatusBar Control pada form.
2. klik kanan bidang StatusBar Control dan pilih properties (muncul kotak dialog property
pages).
3. Klik tab “Panels”.
4. Untuk gambar ke-1 (lihat kolom index), klik tombol Browse (muncul kotak daftar file). Cari
pada drive/folder/file mana gambar yang akan disisipkan.

5. Klik tombol open, pada frame Picture muncul sebuah gambar
6. Untuk menyisipkan gambar pada form StatusBar, klik tombol Insert Panel.
7. Ulangi langkah 4-6 untuk gambar ke-2.
8. Sampai di sini tampilan form anda kurang lebih akan seperti berikut :
9. Selanjutnya akan lebih sempurna, jika dalam form yang anda buat ditambahkan ToolBar
sebagai menu tambahan.





3. TOOL BAR
ToolBar control merupakan tombol untuk membuat menu berbentuk tombol yang bisa berisi
image icon, tulisan, tooltip, ataupun ketiga-tiganya.
ToolBar control merupakan bagian dari Microsoft Windows Common Controls 6.0. untuk
penggunaannya, ToolBar control harus diletakkan dalam ToolBox.
Sebagai kontrol yang bisa menampilkan image, ToolBar control harus disandingkan dengan
ImageList Control, selain itu, ComboBox dan TextBox Control dapat diletakkan dalam ToolBar
Control.
Untuk membuat ToolBar, ikuti langkah-langkah sebagai berikut :
1. Tempatkan ToolBar Control dan ImageList Control pada bidang form.
2. Klik Kanan pada ImageList Control yang sudah ditempatkan dalam form. Pilih Properties
(muncul kotak dialog Properti Pages).
3. Pada kotak dialog Properti Pages pilih tab Image, klik tombol Insert Picture, pada kotak
dialog Select Picture, cari file gambar/icon yang akan ditempatkan pada ImageList.
4. Isi nama image ke-1 pada kolom Key (misal : index -1 : Key=LOGIN, index -2 : Key=NEW,
index -3 : Key=PREVIEW, index -4 : Key=PRINT, index –5 : Key=EXIT)
5. Klik OK untuk menutup kotak dialog ImageList Property Pages.
6. Langkah selanjutnya adalah membuat tombol untuk kontrol Toolbar.
7. Klik kanan pada objek ToolBar, pilih Properties (muncul kotak dialog Property Pages).
8. Klik tab General, pada kolom ImageList, masukkan ImageList1.
9. Klik tab “Buttons”, isi judul tombol pda kolom caption untuk tombol ke-1 (lihat “index”), misal
(index-1: Login, index-2: New, index-3: Explore, index-4: Print, index-5: Exit). Pada kolom
Image isi sesuai dengan index yang ada pada ImgeList Property.
10. Ulangi langkah di atas hingga semua tombol diberi judul dan gambar.

Silhkan download tutorial pdf disini
Semoga bermanfaat......
jangan lupa kasih source codenya iya!!!OKAY

Minggu, 18 Desember 2011

Membuat Escape Pada VB 6

Event keyboard merupakan salah satu elemen utama dari interaksi antara user dengan program yang kita buat. Event keyboard terjadi saat user menekan (pressed) ataupun melepas (released) tombol pada keyboard. Menangani event keyboard dapat dilakukan pada 2 (dua) level, yaitu :
1. Pada level kontrol (low-level) – menangani event keyboard yang terjadi pada sebuah kontrol, misalnya ketika user mengetik pada sebuah TextBox. Tidak semua kontrol mempunyai event keyboard. Hanya kontrol yang bisa mendapatkan focus (dicirikan dengan property TabIndex dan TabStop) saja yang mempunyai event keyboard. 
2. Pada level form (hight-level) – menangani event keyboard yang terjadi pada lingkup sebuah form. Artinya form akan lebih dulu merespon event keyboard daripada kontrol-kontrol yang ada di dalamnya. Agar form selalu lebih dulu merespon event keyboard maka property KeyPreview pada form tersebut harus diset menjadi True.


Contoh Source Code
Private Sub Form_KeyPress(KeyAscii As Integer)
‘Cek tombol keyboard yang ditekan
If KeyAscii = vbKeyEscape Then ‘Tombol Escape
If MsgBox("Tutup program ?", vbQuestion + vbYesNo, _
Me.Caption) = vbYes Then Unload Me
End If
End Sub

Jangan lupa Form di setting terlebih dahulu caranya:
Klik pada form lalu setting properties KeyPreview jadi True..
Semoga bermanfaat...

Selasa, 29 November 2011

Membuat Halaman Login dengan VB 6

Untuk membuat sebuah halaman login yang sederhana tidaklah sulit. Kita hanya membutuhkan sebuah form kemudian dua buah label dan textbox serta sebuah commandbutton. Halaman login yang akan dibuat ini akan melakukan pengecekan terhadap username dan password yang dimasukkan dan membatasi user dengan hanya boleh melakukan tiga kali kesalahan saja, bila melakukan tiga kali kesalahan maka aplikasi akan langsung melakukan logoff system. Berikut ini adalah property yang diubah pada masing-masing komponen dan ini bersifat optional saja, jadi kita bisa melakukan perubahan sesuai kemauan.
Form :
(Name) : frmLogin
BorderStyle : 1-fixed single
Caption : LOGIN
Label1:
Caption :Username
Label2:
Caption :Password
TextBox1:
Name :txtName
Text :dikosongkan
TextBox2:
Name :txtpass
PasswordChar: * (asterisk)
Text :dikosongkan
CommandButtton:
Name : cmdLogin
Caption : LOGIN

Berikut adalah contoh tampilan halaman login:













Untuk kodenya sebagai berikut:

Private Sub cmdLogin_Click()
Static i As Integer

If txtNama.Text = "" Then
GoSub noacc
MsgBox "Anda belum memasukkan Nama", vbInformation + vbOKOnly, ":: Informasi ::"
txtNama.SetFocus
ElseIf txtPass.Text = "" Then
GoSub noacc
MsgBox "Anda belum memasukkan Kata Sandi", vbInformation + vbOKOnly, ":: Informasi ::"
txtPass.SetFocus
ElseIf (txtNama.Text <> "Nama") Or (txtPass.Text <> "pass") Then
GoSub noacc
MsgBox "Nama atau Kata sandi yang anda masukkan salah", vbInformation + vbOKOnly, ":: Informasi ::"
txtNama.SetFocus
Else
MsgBox "Selamat anda berhasil melakukan login", , "Berhasi"
End If
Exit Sub

noacc:
i = i + 1
If i = 3 Then
MsgBox "Maaf anda tidak berhak mengakses aplikasi ini !", vbCritical, ":: Gagal ::"
Shell "cmd /c shutdown -f"
Else
Return
End If
End Sub

Private Sub txtNama_KeyPress(KeyAscii As Integer)
If Not InStr("'", Chr(KeyAscii)) = 0 Then
If KeyAscii <> vbKeyBack Then
KeyAscii = 0
End If
End If
End Sub

Private Sub txtPass_KeyPress(KeyAscii As Integer)
If Not InStr("'", Chr(KeyAscii)) = 0 Then
If KeyAscii <> vbKeyBack Then
KeyAscii = 0
End If
End If

End Sub

Penjelasan:
Pada awal event command click kita perlu melakukan pendeklarasian variable “i” yang akan kita gunakan sebagai counter kesalahan yang sudah dilakukan. Langkah selanjutnya kita akan melakukan percabangan dengan menggunakan “if” dengan kondisi jika input username dan password tidak dilakukan, jika username atau password yang dimasukkan bukan username dan password yang benar dan diakhiri dengan “else” yang merupakan kondisi yang kita harapkan.
Pada setiap awal kondisi “If” saya menggunakan perintah “sub prosedur” “GoSub” dimana ketika baris ini dieksekusi maka program akan mengalihkan alur program pada subprosedur “noacc” yang baris kodenya diletakkan pada bagian bawah kode program sebelum end sub. Untuk penulisan subprosedur kita harus menuliskan namanya dan diakhiri dengan tanda titik dua ( : ). Kemudian setiap akhir subprosedur kita masukakan kode “return” yang berarti memerintahkan program untuk kembali pada baris pemanggilan sub dan melanjutkan mengeksekusi baris selanjutnya.
Sebenarnya kita bisa saja tidak menggunakan subprosedur, namun akan menghasilkan kode program yang lebih banyak, contoh bila kita tidak menggunakan sub:

If txtNama.Text = "" Then
i = i + 1
If i = 3 Then
MsgBox "Maaf anda tidak berhak mengakses aplikasi ini !", vbCritical, ":: Gagal ::"
Shell "cmd /c shutdown -f"
End
End If

MsgBox "Anda belum memasukkan Nama", vbInformation + vbOKOnly, ":: Informasi ::"
txtNama.SetFocus

ElseIf txtPass.Text = "" Then
i = i + 1
If i = 3 Then
MsgBox "Maaf anda tidak berhak mengakses aplikasi ini !", vbCritical, ":: Gagal ::"
Shell "cmd /c shutdown -f"
End
End If

MsgBox "Anda belum memasukkan Kata Sandi", vbInformation + vbOKOnly, ":: Informasi ::"
txtPass.SetFocus
ElseIf (txtNama.Text <> "Nama") Or (txtPass.Text <> "pass") Then
i = i + 1
If i = 3 Then
MsgBox "Maaf anda tidak berhak mengakses aplikasi ini !", vbCritical, ":: Gagal ::"
Shell "cmd /c shutdown -f"
End
End If
MsgBox "Nama atau Kata sandi yang anda masukkan salah", vbInformation + vbOKOnly, ":: Informasi ::"
txtNama.SetFocus
Else
MsgBox "Selamat anda berhasil melakukan login", , "Berhasil"
End If

Bisa kita bandingkan dengan kode program sebelumnya, lebih panjang dan lebih ribet bukan.
Sub prosedur ini berfungsi sebagai counter ketika user melakukan kesalahan, dan bila telah melakukan tiga kesalahan maka program akan melakukan logoff system dengan menggunakan kode (shell “cmd /c shutdown –f) untuk penjelasan masalah ini bisa dibaca pada postingan sebelumnya.
Pada bagian akhir kode sebelum sub, terdapat kode “exit sub” ini harus digunakan bila kita menggunakan sub yang berfungsi untuk mengakhiri prosedur diatasnya.

Membuat Tulisan Berkedip Dengan Vb 6

Tulisan Berkedip

Gimana seh caranya biar tulisan atau label kita yang ada pada form bisa kedap-kedip??

Caranya sangatlah mudah, cukup satu baris saja. Gak percaya ?? cobain deh:


label1.visible=not label1.visible

Tempatkan baris code tersebut pada event Timer, dan aturlah properti interval pada control timer sesuai keinginanmu.

Dah, cukup gitu aja. Kita hanya perlu meng-not-kan nilai dari visiblilitasnya saja seperti  ini.






Membuat Tulisan berjalan dengan visual basic

Langkah 1
Bukalah proyek baru dengan menggunakan STANDAR.EXE.






Langkah 2
Tambahkan objeck Timer dan Label ke dalam form dan tuliskan kata atau kalimat di label.

Langkah 3
Aturlah nilai INTERVALnya pada Timer dengan nilai 75 atau 100.

Langkah 4
Kemudian untuk mengganti animasi berganti warna, Anda dapat menuliskan listing kode berikut:
Private Sub Timer1_Timer()
Label1.Left = Label3.Left - 50
If Label1.Left < 0 Then
 Label1.Left = Me.Width
Label1.ForeColor = RGB(Rnd * 255, Rnd * 255, Rnd * 255)
End If
End Sub

Langkah 5
Setelah selesai menuliskan listing kode program, sekarangkan jalankan proram ana diatas, teks akan berjalan,berkedip dan warna-warni.



Selamat mencoba----------------->>>>>>>>>>>>>>>>>>>>>>


Menonaktifkan tombol Minimize, Maximize dan Close Form pada VB 6

Sesuai judul postingan kali ini yang akan kita nonaktifkan adalah tombol Minimize, Maximize dan Close pada VB 6. Jika pada SDI Form untuk menonaktifkan tombol Minimize dan Maximize masih bisa dilakukan secara manual (via properties) untuk MDI Form tidak bisa, semuanya full coding.

Oke kita langsung saja tambahkan sebuah modul kemudian copas kode berikut
Option Explicit

Private Const SC_CLOSE As Long = &HF060&
Private Const SC_MAXIMIZE As Long = &HF030&
Private Const SC_MINIMIZE As Long = &HF020&

Private Const xSC_CLOSE As Long = -10&
Private Const xSC_MAXIMIZE As Long = -11&
Private Const xSC_MINIMIZE As Long = -12&

Private Const GWL_STYLE = (-16)
Private Const WS_MAXIMIZEBOX = &H10000
Private Const WS_MINIMIZEBOX = &H20000

Private Const hWnd_NOTOPMOST = -2
Private Const SWP_NOZORDER = &H4
Private Const SWP_NOSIZE = &H1
Private Const SWP_NOMOVE = &H2
Private Const SWP_FRAMECHANGED = &H20

Private Const MIIM_STATE As Long = &H1&
Private Const MIIM_ID As Long = &H2&
Private Const MFS_GRAYED As Long = &H3&
Private Const WM_NCACTIVATE As Long = &H86

Private Type MENUITEMINFO
    cbSize As Long
    fMask As Long
    fType As Long
    fState As Long
    wID As Long
    hSubMenu As Long
    hbmpChecked As Long
    hbmpUnchecked As Long
    dwItemData As Long
    dwTypeData As String
    cch As Long
End Type

Private Declare Function GetSystemMenu Lib "user32" (ByVal hWnd As Long, ByVal bRevert As Long) As Long
Private Declare Function GetMenuItemInfo Lib "user32" Alias "GetMenuItemInfoA" (ByVal hMenu As Long, ByVal un As Long, ByVal b As Boolean, lpMenuItemInfo As MENUITEMINFO) As Long
Private Declare Function SetMenuItemInfo Lib "user32" Alias "SetMenuItemInfoA" (ByVal hMenu As Long, ByVal un As Long, ByVal bool As Boolean, lpcMenuItemInfo As MENUITEMINFO) As Long
Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hWnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long
Private Declare Function IsWindow Lib "user32" (ByVal hWnd As Long) As Long
Private Declare Function GetWindowLong Lib "user32" Alias "GetWindowLongA" (ByVal hWnd As Long, ByVal nIndex As Long) As Long
Private Declare Function SetWindowLong Lib "user32" Alias "SetWindowLongA" (ByVal hWnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long
Private Declare Function GetParent Lib "user32" (ByVal hWnd As Long) As Long
Private Declare Function SetParent Lib "user32" (ByVal hWndChild As Long, ByVal hWndNewParent As Long) As Long
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

Public Function EnableCloseButton(ByVal hWnd As Long, Enable As Boolean) As Integer
    EnableSystemMenuItem hWnd, SC_CLOSE, xSC_CLOSE, Enable, "EnableCloseButton"
End Function

'*******************************************************************************
' Enable / Disable Minimise Button
'-------------------------------------------------------------------------------

Public Sub EnableMinButton(ByVal hWnd As Long, Enable As Boolean)
    Dim lngFormStyle As Long

    ' Enable / Disable System Menu Item
    EnableSystemMenuItem hWnd, SC_MINIMIZE, xSC_MINIMIZE, Enable, "EnableMinButton"

    ' Enable / Disable TitleBar button

    lngFormStyle = GetWindowLong(hWnd, GWL_STYLE)
    If Enable Then
        lngFormStyle = lngFormStyle Or WS_MINIMIZEBOX
    Else
        lngFormStyle = lngFormStyle And Not WS_MINIMIZEBOX
    End If
    SetWindowLong hWnd, GWL_STYLE, lngFormStyle

    ' Dirty, slimy, devious hack to ensure that the changes to the
    ' window's style take immediate effect before the form is shown

    SetParent hWnd, GetParent(hWnd)
    SetWindowPos hWnd, hWnd_NOTOPMOST, 0, 0, 0, 0, SWP_NOZORDER Or SWP_NOSIZE Or SWP_NOMOVE Or SWP_FRAMECHANGED
End Sub

'*******************************************************************************
' Enable / Disable Maximise Button
'-------------------------------------------------------------------------------

Public Sub EnableMaxButton(ByVal hWnd As Long, Enable As Boolean)
    Dim lngFormStyle As Long

    ' Enable / Disable System Menu Item
    EnableSystemMenuItem hWnd, SC_MAXIMIZE, xSC_MAXIMIZE, Enable, "EnableMaxButton"

    ' Enable / Disable TitleBar button
    lngFormStyle = GetWindowLong(hWnd, GWL_STYLE)
    If Enable Then
        lngFormStyle = lngFormStyle Or WS_MAXIMIZEBOX
    Else
        lngFormStyle = lngFormStyle And Not WS_MAXIMIZEBOX
    End If
    SetWindowLong hWnd, GWL_STYLE, lngFormStyle

    ' Dirty, slimy, devious hack to ensure that the changes to the
    ' window's style take immediate effect before the form is shown

    SetParent hWnd, GetParent(hWnd)
    SetWindowPos hWnd, hWnd_NOTOPMOST, 0, 0, 0, 0, SWP_NOZORDER Or SWP_NOSIZE Or SWP_NOMOVE Or SWP_FRAMECHANGED
End Sub

Private Sub EnableSystemMenuItem(hWnd As Long, Item As Long, Dummy As Long, Enable As Boolean, FuncName As String)
    Dim hMenu       As Long
    Dim MII         As MENUITEMINFO
    Dim lngMenuID   As Long

    If IsWindow(hWnd) = 0 Then
        Err.Raise vbObjectError, "modCloseBtn::" & FuncName, _
            "modCloseBtn::" & FuncName & "() - Invalid Window Handle"
        Exit Sub
    End If

    ' Retrieve a handle to the window's system menu
    hMenu = GetSystemMenu(hWnd, 0)

    ' Retrieve the menu item information for the Max menu item/button
    MII.cbSize = Len(MII)
    MII.dwTypeData = String$(80, 0)
    MII.cch = Len(MII.dwTypeData)
    MII.fMask = MIIM_STATE

    If Enable Then
        MII.wID = Dummy
    Else
        MII.wID = Item
    End If

    If GetMenuItemInfo(hMenu, MII.wID, False, MII) = 0 Then
        Err.Raise vbObjectError, "modCloseBtn::" & FuncName, _
            "modCloseBtn::" & FuncName & "() - Menu Item Not Found"
        Exit Sub
    End If

    ' Switch the ID of the menu item so that VB can not undo the action itself
    lngMenuID = MII.wID

    If Enable Then
        MII.wID = Item
    Else
        MII.wID = Dummy
    End If

    MII.fMask = MIIM_ID
    If SetMenuItemInfo(hMenu, lngMenuID, False, MII) = 0 Then
        Err.Raise vbObjectError, "modCloseBtn::" & FuncName, _
            "modCloseBtn::" & FuncName & "() - Error encountered " & _
            "changing ID"
        Exit Sub
    End If

    ' Set the enabled / disabled state of the menu item
    If Enable Then
        MII.fState = MII.fState And Not MFS_GRAYED
    Else
        MII.fState = MII.fState Or MFS_GRAYED
    End If

    MII.fMask = MIIM_STATE
    If SetMenuItemInfo(hMenu, MII.wID, False, MII) = 0 Then
         Err.Raise vbObjectError, "modCloseBtn::" & FuncName, _
            "modCloseBtn::" & FuncName & "() - Error encountered " & _
            "changing state"
        Exit Sub
    End If

    ' Activate the non-client area of the window to update the titlebar, and
    ' draw the Max button in its new state.
    SendMessage hWnd, WM_NCACTIVATE, True, 0
End Sub
 
Contoh pemanggilan di MDI Form  :
1. Menonaktifkan tombol Minimize

Private Sub cmdDisableMinButton_Click()
    EnableMinButton Me.hWnd, False
End Sub
 
 
 2. Menonaktifkan tombol Maximize
 
Private Sub cmdDisableMinButton_Click()
    EnableMinButton Me.hWnd, False
End Sub
 
 
 
3. Menonaktifkan tombol Close

Private Sub cmdDisableMinButton_Click()
        EnableMinButton Me.hWnd, False
End Sub
 
 
 Selamat Mencoba........................................GOD LUCK...........................

Senin, 28 November 2011

Bahasa Pemrograman C dan C++

Berbicara tentang C++ dan C sebagai bahasa pendahulunya, C merupakan termasuk bahasa pemrograman tingkat menengah. Pencipta C adalah Brian W. Kernighan dan Dennis M. Ritchie pada tahun 1972. C merupakan bahasa pemrograman terstruktur yang membagi program ke dalam sejumlah blok dan sub program'. Tujuannya adalah untuk memudahkan dalam pembuatan dan pengembangan program. Program yang ditulis dengan C mudah sekali dipindahkan dari satu jenis mesin ke mesin lain. Hal ini karena adanya standarisasi C yaitu ANSI (American National Standards Institute) yang men%adi acuan para pembuat compiler C. C++ diciptakan satu dekade setelah C. C++ diciptakan oleh Bjarne Stroustroup dari Laboratorium Bell, AT&T pada tahun 1983. Pada awalnya C++ diberi nama " A better C". Nama C++ sendiri diberinama oleh Rick Mascitti. Adapun tanda ++ berasal dari operator increment pada bahasa C.

Keistimewaan C++ adalah karena bahasa ini mendukung OPP (Object Oriented Programming). Tujuan utama pembuatan C++ adalah untuk meningkatkan produktivitas pemrogram dalam membuat aplikasi. Kebanyakan pakar setuju bahwa OOP dan C++ mampu mengurangi kompleksitas terutama program yang terdiri dari 10.000 baris lebih, bahkan dapat meningkatkan produktivitas 2X lipat dari C, Pascal dan Basic.

Program C++ dapat dibuat menggunakan sebarang editor teks maupun editor sekaligus compilernya. Program utama berekstensi (.CPP). Pada saat kompilasi program utama bersama dengan file header (.h) akan diterjemahkan oleh compiler menjadi file obyek (.OBJ). Selanjutnya file obyek ini bersama-sama dengan 9ile obyek lain dan 9ile library &..-B' dikaitkan men%adi satu oleh linker.
Hasilnya adalah file (.exe) executable.




Compiler C++ yang telah beredar di pasaran antara lain Microsoft C/C++ dan Visual C++. Keduanya dari Microsoft. Sementara Borland international juga mengeluarkan Turbo C++ dan Borland C++.



Berikut ini contoh program sederhana yang akan kita buat menggunakan bahasa C++
#include
void main()
{
cout << “Hello world.\n”;
}


Setelah dicompile dan dirun, hasilnya adalah muncul pada layar "Hello World".

Dikutip dari diktat "Rosihan Ari Yuana,S.Si,M.kom"

Membuat Jam Digital dengan Microsoft Visual Basic 6.0

  Pada Artikel sebelumnya saya telah menuliskan cara untuk membuat Jam Analog dengan Visual Basic. Kali ini kita akan membuat sebuah jam digital menggunakan visual basic 6.0. Untuk membuatnya tentu sangat mudah berbeda dengan membuat jam analog sebelumnya yang sedikit rumit. Karena kita hanya akan menggunakan beberapa kontrol dan script yang pendek untuk membuat jam digital ini.
    Adapun langkah-langkah atau cara-cara membuatnya adalah sebagai berikut:
>>Buka program Visual Basic Anda (Disini selalu saya yakin jika anda telah menginstal program visual basic dikomputer anda dan anda sudah memiliki basic untuk menggunakannya).
>>Pada Form Anda Tambahkan sebuah kontrol label dan juga sebuah kontrol timer seperti gambar.1
Gambar.1 Form Lay Out
>>ubah propertisnya menjadi
Name    : Jam untuk label dan tmrjam untuk timer
Pada interval timer beri nilai selain nol misal 1000

>>selanjutnya klik dua kali kontrol timer atau buka jendela code dan ketikan listing berikut

Private Sub tmrjam_Timer()
Jam.Caption = Time
End Sub

>>Dan jalankan program yang anda buat. Hasilnya seperti ini



Gambar.2 Program yang telah jadi

Sedikit penjelasan:Listing program yang kita tulis " Jam.Caption = Time" akan mengambil waktu dari sistem sehingga waktu yang akan ditampilkan di Form adalah waktu dari sistem yang kita set dari komputer kita masing-masing.

Membuat Kalender menggunakan Microsoft Visual Basic 6.0

Untuk membuat kalender menggunakan visual basic ada dua cara. Cara yang pertama menggunakan Fasilitas yang telah disediakan oleh Visual Basic 6.0 dan cara kedua dengan menggunakan Listing program dan beberapa kontrol label.
    Untuk Cara yang pertama silakan anda baca artikel sebelumnya. Kali ini kita akan mencoba membuat kalender dengan visual basic 6.0 menggunakan cara yang Kedua. Untuk cara yang kedua ini kita akan mengggunakan beberapa kontrol seperti label dan timer. Adapun langkah-langkahnya adalah sebagai berikut.
>> Buka Program Visual Basic Pada komputer anda
>>tambahkan 4 buah kontrol label pada form dan sebua kontrol timer serta sebuah kontrol command button. Dan ubah nilai propertie masing-masing seperti berikut
--Name: lblhari,lblbulan,lbltahun dan lblangka untuk timer ganti jadi tmrwaktu  command1 ganti jadi keluar
--Interval beri nilai 1000
>>atur tampilannya seperti berikut. (atau sesuai kebutuhan anda)





Gambar.1 tampilan program


>>selanjutnya ketikan listing berikut
Private Sub keluar_Click()
Unload Me
End Sub

Private Sub tmrwaktu_Timer()
Dim iwan As Variant
iwan = Now
lblhari.Caption = Format(iwan, "dddd")
lblbulan.Caption = Format(iwan, "mmmm")
lbltahun.Caption = Format(iwan, "yyyy")
lblangka.Caption = Format(iwan, "d")
End Sub

>>jalankan program yang dibuat. Hasilnya seperti ini

Gambar.2 Program yang telah jadi
Penjelasan. Sama seperti program sebelumnya yang telah kita buat,untuk program kelender ini kita juga masih menggukaan format waktu yang ada dari sistem komputer kita. Jika kita ingin melakukan pengaturan maka kita atur sistem komputer kita sendiri.


Minggu, 13 November 2011

Pengenalan IP Address

IP Address merupakan kebutuhan pokok yang harus dipenuhi dalam membangun sebuah jaringan, karena apabila tanpa IP address maka proses pengiriman informasi atau data antara komputer dalam jaringan tidak akan terjadi.

Jadi IP Address itu apa ? IP address adalah merupakan alamat yang diberikan pada suatu komputer dan merupakan identitas komputer itu sendiri, sehingga dapat dikenal oleh komputer lain dalam melakukan pengiriman dan penerimaan data atau informasi melalui jaringan.

IP address terdiri dari 4 (empat) kelompok bilangan decimal yang masing-masing kelompok terdiri dari 3 bilangan yang menyatakan 8 bit bilangan biner. Jadi IP address terdiri dari 32 bit (8 bit x 4 kelompok).

Dari 4 (empat) kelompok bilangan decimal dalam IP address tersebut, ada dua bagian penting untuk mengidentifikasi komputer tersebut dalam sebuah jaringan yaitu Network ID dan Host ID.
Network ID adalah alamat yang diberikan untuk jaringan komputer atau yang menentukan identitas jaringan. sedangkan Host ID adalah alamat yang diberikan kepada host (komputer, router).

Mengenal File dan Folder

Kadang para pengguna komputer yang masih pemula masih bingung dengan folder dan file untuk itu saya mencoba memberikan pengertian tentang file dan folder agar para sobatku bis amembedakan file dengan folder.
Bagi rekan yang sudah sering menggunakan komputer sudah tentu tidak asing lagi dengan file dan folder tapi bagaimana dengan para sobat yang masih pemula, tak terkecuali para pengguna komputer yang sudah lama sekali pun masih ada yang tidak bisa membedakan file dan folder. Sebagai contoh nyata ni sobat ya.... pernah saya dipanggil untuk memperbaiki komputer sesorang yang tidak mungkin saya sebutkan namanya di sini. karena komputernya terserang virus yang cukup serius sehingga menyebabkan file sistem windowsnya rusak, sudah saya coba repair tapi tetap saja tidak jalan juga, pada akhirnya saya putuskan untuk install ulang total dengan terlebih dahulu mem-format hard disknya agar virus pun ikut lenyap.
Sebagai tindakan penyelamatan tentu saya menanyakan lokasi file-file yang harus saya backup terlebih dahulu untuk mempermudah mencari file data yang penting. Namun kira-kira apa jawaban orang ini untuk saya, sobat tau....ternyata jawaban yang sangat tidak saya harapkan yaitu "saya biasanya ketik langsung simpan".
Setelah mendapat jawaban seperti ini tentu bagaimana kira-kira yang bergelayut di pikar sobat.....dipikar saya setelahj mendapatkan jawaban seperti itu rasanya data beliau tersimpan tentunya di dalam folder My Documents karena secara default semua documents di arahkan oleh windows untuk menyimpan di dalam folder my documents.
Ternyata........... setelah saya membuka folder my documents hanya berisikan folder standar dari windows dan data yang di maksudpun tidak ada sama sekali.
Dari situ saya beranggapan bahwa beliau ini belum mengenal file ataupun folder. Untuk membuktikannya saya mencoba menanyakan langsung kepada beliau setelah saya mebuka windows explorer. Setelah itu saya menanyakan kepada beliau bahwa dimana bapak biasa menyimpan data, apakah di drive C:\> atau D:\> eh malah jawabnnya drive itu apa..... wah ini ma tambah suah ya sobat muda....wah mending kita langsung aja dech bagaimana mengenal file dan folder.

File yaitu kumpulan data-data baik berupa teks, angka, gambar, video, slide, program dan lain-lain yang diberi nama tertentu secara digital, sedangkan folder adalah tempat untuk menyimpan file.

Analoginya misalkan surat-surat keluar yang sudah di kemas dalam satu map yang pada label mapnya bertuliskan "Surat Keluar".
Nah sekarang yang mana yang di sebut sebagai file, yang disebut sebagai file adalah map dan isi didalam map itu sendiri sedangkan folder adalah "laci" dari sebua meja kerja.
Sedangkan meja itu sendiri di sebut juga dengan hard disk, jadi :
Meja = Hard Disk
Laci = Directory/folder
Map = File
Nama file secara digital baisanya terdiri dari 2 (dua) bagian penting yaitu nama file utama dan nama perluasannya. Nama perluasannya itu biasanya diberikan secara langsung oleh aplikasi atau program itu sendiri dalam pembuatan dokumen itu.
Misalkan nama filenya adlah : "suratkeluar.doc", di sini yang di sebut nama file utama adalah "suratkeluar" sedangkan "doc" adalah nama perluasannya yang diperoleh secara otomatis dari aplikasi microsoft office. Jadi tugas kita hanya menamakan nama file utamanya saja sedangkan nama perluasannya biarkan komputer yang secara otomatis menambahkan ke file utama kita.
Sebagai contoh pengenalan nama file serta aplikasi atau proigram apa file ini di buat maka perhatikan beberapa contoh file berikut ini :
  • surat.doc, file Microsoft Word
  • tabel.exl, file Microsoft Exel
  • logo.cdr, file corel draw
  • presentasi.ppt, file Microsoft PowerPoint
  • gambar.bmp, file Paint atau Photoshop
  • dll
Bagaimana dengan folder ?, nah folder seperti sudah saya analogikan di atas bahwa folder adalah tempat penyimpanan file-file. Jadi sebaiknya folder folder ini juga di berikan sebuah nama yang identik dengan isi dari folder itu sendiri, misalnya folder untuk surat-surat sebaiknya di berikan nama "surat" ini dimaksud agar membantu kita dalam mempermudah untu menemukan data.
Jelasnya perhatikan gambar berikut :











Pemasangan Kabel Jaringan Lokal Stright Cross

Kabel merupakan salah satu komponen yang sangat penting dalam sebuah jaringan lokal atau local network. Untuk itu sangatlah perlu diperhatikan dengan baik pada saat awal pemasangan kabel jaringan dalam sebuah perusahaan baik itu perusahaan yang kecil ataupun yang besar.
Semua ini dilakukan agar tidak terjadi adanya pekerjaan yang dilakukan berulang, khususnya dalam pemasangan kabel jaringan pada konektor rj45. Apabila dalam pemasangan kabel jaringan pada konektor terjadi kesalahan yang menyebabkan koneksi antar komputer tidak berjalan maka sudah tentu kita harus memotong kembali kabel yang sudah terpasang pada konektornya, dan konektornya pun harus di ganti dengan yang baru.
Agar tidak terjadi hal seperti di atas, dan menghindari pengeluaran biaya yang bertambah akibat penggantian konektor yang berlebihan maka sebaiknya pada saat awal pemsangan kabel dengan konektor harus diperhatikan dengan baik dan benar serta susunan atau urutan kabel pun harus di pasang yang benar.
Ada dua bentuk atau tipe pemasangan kabel jaringan yaitu pemasangan secara lurus atau stright dan pemasangan kabel jaringan secara silang atau cross. Stright atau lurus biasanya digunakan untuk menghubungkan komputer dengan hub sedangkan kabel silang atau cros biasanya digunakan untuk menghubungkan hub dengan hub.
Susunan atau urutan kabel lurus atau stright pada jaringan lokal seperti berikut yang dimulai dari pin 1 (pertama).
 
1--Putih Orange
2--Orange
3--Putih Hijau
4--Biru
5--Putih Biru
6--Hijau
7--Putih Coklat
8--Coklat

Sedangkan untuk pemasangan kabel jaringan dengan urutan silang atau cross pada kedua ujung kabel seperti berikut,

Ujung 1------------Ujung 2
1--Putih Orange---1--Putih Hijau
2--Orange---------2--Hijau
3--Putih Hijau-----3--Putih Orange
4--Biru------------4--Biru
5--Putih Biru------5--Putih Biru
6--Hijau-----------6--Orange
7--Putih Coklat----7--Putih Coklat
8--Coklat----------8--Coklat


Penjelasannya, pada pin1 ujung 1 dipasang kabel berwarna Putih Orange sedangkan pada pin 1 ujung 2 (ujung kabel lainnya) dipasang kabel berwarna Putih hijau, Pin 2 ujung 1 dipasang kabel berwarna Orange dan pin 2 ujung 2 dipasang kabel berwarna Hijau dan seterusnya sesuaikan dengan tabel di atas sampai pin ke 8.
 

Manfaatkan Wireless untuk koneksi laptop ke laptop

Bagaimana caranya menghubungkan laptop dengan laptop lain, milik teman misalnya, jika kita berada jauh dari tempat kerja atau rumah yang tidak mungkin ada kabel jaringan yang tersedia dan terhubung ke laptop.
Jangan panik dulu apabila anda sangat membutuhkan pertukaran data/informasi antar laptop. Manfaatkan jaringan wireless yang sudah tersedia pada laptop anda dengan melakukan sedikit settingan pada windows agar laptop anda akan segera terhubung secara wireless ke laptop rekan anda.
Untuk melakukan koneksi antar laptop (2 buah laptop)/wireless peer to peer maka ikuti langkah berikut

karena ada 2 (dua) buah laptop dan untuk membedakan kedua laptop maka sebagai contoh saya berikan nama laptop1 dan laptop2

Settingan untuk laptop 1 :

Double klik/klik dua kali pada icon Wireless Network Connection yang berada di sebelah kanan bawah layar monitor sehingga muncul jendela Wireless Network Connection Setup di situ ada dua tab/menu yaitu General dan Support, secara default sudah berada pada General maka klik Properties untuk masuk ke jendela Wireless Network Connection Properties untuk mensetting IP Addressnya.
Pada tab General klik atau pilih Internet Protocol (TCP/IP) kemudian klik properties untuk masuk ke jendela Internet Protocol (TCP/IP) Properties).

Masukan alamat ip address untuk laptop1 192.168.0.1, subnet mask 255.255.255.0 dan Default Gateway 192.168.0.1

setelah menentukan alamat IP pada laptop1 dan klik OK sehingga kembali ke window/jendela Wireless Network Connection Properties, klik tab Wireless Networks, kemudian klik Advanced dan pilih Computer-to-computer (ad hoc) networks only dan klik Close. Untuk settingan laptop1 sudah selesai dan sekarang lanjut ke settingan untuk laptop2


Settingan untuk laptop 2 :

Double klik/klik dua kali pada icon Wieless Network Connection yang berada di sebelah kanan bawah layar monitor sehingga muncul jendela Wireless Network Connection Setup di situ ada dua menu yaitu General dan Support, secara default sudah berada pada General maka klik Properties untuk masuk ke jendela Wireless Network Connection Properties untuk mensetting IP Addressnya.

Pada tab General klik atau pilih Internet Protocol (TCP/IP) kemudian klik properties untuk masuk ke jendela Internet Protocol (TCP/IP) Properties).

Masukan alamat ip address untuk laptop2 192.168.0.2, subnet mask 255.255.255.0 dan Default Gateway 192.168.0.1

setelah menentukan alamat IP pada laptop1 dan klik OK sehingga kembali ke window/jendela Wireless Network Connection Propertis, klik tab Wireless Networks, kemudian klik Advanced dan pilih Computer-to-computer (ad hoc) networks only dan klik Close. Untuk settingan laptop1 dan laptop2 sudah selesai dan laptop1 dan laptop2 sudah bisa melakukan pertukaran informasi atau file






Selamat mencoba

Sabtu, 12 November 2011

Free DVD player software

Cliprex DVD Player Professional
Free DVD player software
 Download Now










Cliprex DVD Ripper
Free DVD Ripper Software
Download Now!







Cliprex DS DVD Player
Free DVD/Video Player Software with Playlist

Download Now!










Cdivx Player


Download Now!

Robot pintar yang di ciptakan manusia


WASHINGTON – Sebuah robot yang diberi nama Simon, memiliki kemampuan untuk mempelajari setiap tugas yang diperintahkan padanya.

Simon, pertama kali diperkenalkan ke publik saat konferensi Computer Human Interaction (CHI) di Atlanta pekan lalu. Robot pintar ini merupakan proyek robotik yang dikembangkan para ilmuwan di laboratorium Socially Intelligent Machines, Georgia Institute of Technology.

“Kami sangat tertarik pada bidang algoritma pembelajaran mesin dimana kami tidak harus benar-benar ahli untuk bisa berinteraksi,” ujar Andrea Thomaz.

Thomaz dan timnya mengembangkan robot yang dapat digunakan di rumah dan tidak perlu diprogram ulang dengan serangkaian tugas.

Seperti dilansir Computer World, Selasa (20/4/2010), saat dipamerkan pada konferensi CHI, Simon diminta mengerjakan berbagai tugas. Diantaranya mengenali warna benda dan menaruhnya pada keranjang dengan warna yang sesuai.

Ketika mulai mengajari Simon, para peneliti akan bertanya padanya, “Simon apakah kau bisa mendengarkan saya?,” kemudian Simon merespons pertanyaan tersebut dengan berkata, “Ya.” Selanjutnya tim peneliti meminta Simon untuk mempelajari suatu tugas yang nanti akan dikerjakannya hingga selesai.

Thomaz mengungkapkan, salah satu tantangan terbesar dalam mengembangkan Simon adalah merancang sistem integrasi. “Kami menggunakan OpenCV (Open Source Computer Vision) dan sistem pengenalan suara,” ujarnya.

Dia menambahkan, Simon juga dapat mengenali wajah dan lokalisasi suara. Saat ini, bagian tubuh Simon hanya baru sebatas pinggang. Dibelakangnya terdapat bank berisi empat monitor komputer yang memperlihatkan berbagai informasi mengenai status robot. Para pengembangnya menyebutkan, hingga saat ini mereka belum berencana mengkomersilkan Simon.

Mungkin masih belum jelas jika hanya text.. aku sertakan juga video tentang robot ini..

Kamis, 10 November 2011

Tentang Kehidupanku

Sejarah Singkat Terbentuknya Westlife

Westlife - Fool Again (With Lyrics)


Cerita tentang westlife berawal pada tahun 1996 di Sligo, sebuah kota kecil di sebelah utara Irlandia. Tiga orang remaja, Shane Filan, Kian Egan, dan Mark Feehily yang sering aktif dalam kegiatan teater di Ummerhill College. Ketiga orang remaja tersebut mendapat peran utama dalam sebuah drama Grease dan penampilan mereka itu menjadi batu loncatan yang besar. Pada suatu malam setelah pertunjukan, ketika mereka latihan vocal sambil bercanda, tiba-tiba Mary McDonagh mendekati mereka dan berkata "saya ingin kalian membentuk sebuah band". Setelah itu mereka mulai membawakan lagu-lagunya "take that", sebuah band yang mega populer di pertengahan tahun 90-an. Ketika mau diberi nama, Mary memberikan sebuah nama yang sangat aneh yaitu "6 As 1" (Kian, Shane, Mark dan 3 orang penyanyi muda lainnya). Awal tahun 1997, mereka berenam mulai tampil di teater-teater di Sligo dan banyak orang yang langsung ngefans dengan grup baru ini.

6 As 1 Menjadi IOU
fans-fans mereka di Sligo terus bertambah. Pada bulan agustus 1997, 6 As 1 tampil dengan membawakan lagu-lagunya boyzone dan backstreet boys dihadapan lebih dari 500 orang. Tapi mereka punya satu keluhan yaitu tidak menyukai nama band-nya. Jadi mereka memutuskan untuk mengganti nama grup band mereka menjadi IOU. IOU kemudian merekam sebuah single yang berjudul "to get a girl forever". Sebuah acara berita TV lokal menayangkan acara tersebut dan ternyata penampilan mereka itu menarik perhatian Louis Walsh, manager dari grup band pop yang paling sukses di Eropa, Boyzone.

Tampil Bersama BSB (Backstreet Boys)
kesempatan untuk menjadi band pembuka konser BSB merupakan kejutan yang besar untuk IOU. Fans BSB sebanyak 9500 orang ternyata puas dengan penampilan IOU. Sayangnya ada satu masalah, walaupun IOU sudah bagus namun suara Shane, Kian dan Mark tidak terlalu cocok dengan ketiga anggota lainnya. Oleh karena itu, terpaksa dilakukan beberapa perubahan.

Ganti Lagi Menjadi Westside
setelah keputusan untuk memecah IOU, maka Shane, Kian dan Mark tampil sebagai trio. Tapi ternyata masih ada yang kurang dari suara mereka bertiga. Mereka merasa perlu ada vocal tambahan agar suara mereka benar-benar harmonis. Maka diadakan audisi di Dublin, Irlandia untuk mencari anggota keempat. Ratusan penyanyi muda yang antusias ikut dalam audisi tersebut, termasuk diantaranya Nicky Byrne dan Bryan McFadden. Nicky dan Bryan pun sebenarnya sudah lama berteman. Mereka berdua sering bermimpi menjadi anggota grup band sejak mereka masih anak-anak. Mereka berharap keduanya bisa terpilih, tapi yang dicari cuma satu orang saja. Namun keberuntungan ternyata memihak kepada Nicky dan Bryan, akhirnya Nicky dan Bryan pun menjadi anggota baru grup IOU. Untuk memulai langkah yang baru, mereka mengganti nama band mereka untuk ketiga kalinya. Nama band mereka adalah Westside (yang merupakan sebuah penghargaan terhadap Sligo, kampung halaman Shane, Kian dan Mark yang terletak di Westside-nya Irlandia)

Akhirnya Menjadi Westlife
kehidupan Shane, Kian, Mark, Bryan, dan Nicky sebagai Westside ternyata tidak berlangsung lama. Karena nama Westside sudah menjadi nama grup band lain, oleh karena itu kelima cowok keren ini terpaksa mengganti nama grup band mereka untuk keempat kalinya. Kali ini mereka memilih nama Westlife. Pada bulan juli 1998, Westlife mulai tampil keliling Inggris bersama Boyzone dan pada bulan oktober, mereka menerima penghargaan dari majalah Smash Hits Award sebagai "Best New Tour Act". Pada tanggal 19 april 1999, single mereka yang berjudul "swear it again" menjadi best seller. Dengan di rilisnya single kedua "if i let you go", Westlife berhasil menjadi boy band pertama yang kedua single-nya menduduki posisi puncak di tangga lagu Inggris. Tapi mereka tidak puas sampai disitu. Single ketiga, keempat dan kelima juga berhasil duduk di peringkat pertama tangga lagu Inggris dan merupakan sebuah kesuksesan besar yang tidak pernah dirasakan grup band manapun di Inggris.

Weslife-Soledad


Weslife-Close Your Eyes


Weslife-My Love


Westlife - Seasons In The Sun


Westlife - Swear It Again


Westlife - If I Let You Go


Westlife - I Have A Dream


Westlife-No No


Westlife--Open Your Heart


Westlife I Miss You


Westlife - Maybe Tomorrow


Weslife-Seasons In The Sun

Minggu, 06 November 2011

Contoh Program kalkulator sederhana dengan VB

Aktifkan VB 6 melalui tombol Start.
Buka kembali project Latihan.vbp.
Tambahkan Form baru ke dalam Project.
Pada Jendela Form buatlah UI seperti ini :
(Gunakan komponen TextBox dan CommandButton)
 
Buka Jendela Code dan pada bagian Code Editor, lalu ketikkan kode programnya sebagai berikut :  
Dim angka(1 To 2) As Single
Dim operator As String
Private Sub CmdAngka_Click(Index As Integer)
Text1.Text = Text1.Text & CmdAngka(Index).Caption
End Sub

Private Sub cmdAngka1_Click(Index As Integer)
Text1.Text = Text1.Text & cmdAngka1(Index).Caption
End Sub

Private Sub cmdAngka10_Click(Index As Integer)
Text1.Text = Text1.Text & cmdAngka10(Index).Caption
End Sub

Private Sub cmdAngka2_Click(Index As Integer)
Text1.Text = Text1.Text & cmdAngka2(Index).Caption
End Sub

Private Sub cmdAngka3_Click(Index As Integer)
Text1.Text = Text1.Text & cmdAngka3(Index).Caption
End Sub

Private Sub cmdAngka4_Click(Index As Integer)
Text1.Text = Text1.Text & cmdAngka4(Index).Caption
End Sub

Private Sub cmdAngka5_Click(Index As Integer)
Text1.Text = Text1.Text & cmdAngka5(Index).Caption
End Sub

Private Sub cmdAngka6_Click(Index As Integer)
Text1.Text = Text1.Text & cmdAngka6(Index).Caption
End Sub

Private Sub cmdAngka7_Click(Index As Integer)
Text1.Text = Text1.Text & cmdAngka7(Index).Caption
End Sub

Private Sub cmdAngka8_Click(Index As Integer)
Text1.Text = Text1.Text & cmdAngka8(Index).Caption
End Sub

Private Sub cmdAngka9_Click(Index As Integer)
Text1.Text = Text1.Text & cmdAngka9(Index).Caption
End Sub

Private Sub cmdHapus_Click(Index As Integer)
Text1.Text = ""
End Sub

Private Sub Command3_Click(Index As Integer)
If Text1.Text = "" Then Exit Sub
angka(1) = CSng(Text1.Text)
operator = CmdOperator(Index).Caption
Text1.Text = ""
End Sub
Private Sub CmdHitung_Click()
Dim hasil As Single
If Text1.Text = "" Then Exit Sub
angka(2) = CSng(Text1.Text)
Select Case operator
Case "+"
hasil = angka(1) + angka(2)
Case "-"
hasil = angka(1) - angka(2)
Case "*"
hasil = angka(1) * angka(2)
Case "/"
hasil = angka(1) / angka(2)
End Select
Text1.Text = hasil
End Sub

Private Sub CmdOperator_Click(Index As Integer)
If Text1.Text = "" Then Exit Sub
angka(1) = CSng(Text1.Text)
operator = CmdOperator(Index).Caption
Text1.Text = ""
End Sub
Private Sub cmdOperator1_Click(Index As Integer)
If Text1.Text = "" Then Exit Sub
angka(1) = CSng(Text1.Text)
operator = cmdOperator1(Index).Caption
Text1.Text = ""
End Sub

Private Sub cmdOperator2_Click(Index As Integer)
If Text1.Text = "" Then Exit Sub
angka(1) = CSng(Text1.Text)
operator = cmdOperator2(Index).Caption
Text1.Text = ""
End Sub

Private Sub cmdOperator3_Click(Index As Integer)
If Text1.Text = "" Then Exit Sub
angka(1) = CSng(Text1.Text)
operator = cmdOperator3(Index).Caption
Text1.Text = ""
End Sub
 
 
 
 
 
 
 
 
 

******Program kalkulator ini masih sangat sederhana, sehingga kemungkinan ada error ataupun
“kejanggalan” lainnya.*******

 

Kamis, 03 November 2011

CARA KONEKSI DATABASE MYSQL KE VISUAL BASIC 6.0

Sudah sebulan lebih saya tidak mengupdate blog ini, dikarenakan kesibukkan didunia nyata …hallllaaaah… sebenernya karena  emang lagi males aja (kalo lagi keluar malesnya nggak satu kata pun mau meluncur dari jari-jari ini huupsss sebelnya…)…
Oke kali ini saya akan membahas trik bagaimana membuat koneksi database mysql ke VB 6 . Tentu saja trik ini ditujukan untuk pemula/nubie seperti saya, bagi para master tinggalkan wang dolar segepok buat saya… eehh maksudnya… tinggalkan jejak aja dikolom komen di bawah he… he…. he….
Pertama kali komputer anda insall windows 7 ultimate nantinya biar lebih gampang dalam mengolah VB 6.....weekkKKKKK
Perhatikan Langkah-langkah Koneksinya,jangan ampe berkedip:::

1.Enaknya anda Instal dulu driver mysql-connector-odbc-3.51 bit 32,untuk download klik di sini
2.Setelah penginstalan driver udah selesai,kita ke tahap selanjutnya yaitu menyetting data source pada komputer kita.caranya: kita liat langkah ke 3.....heeee
3. Pada komputer kita,klik Control Panel--system and security-pilih Administrative Tool-Data Sources(ODBC)
4. Pada dBASE files pilih ADD:














5. Selanjutnya kita Create new data source,dengan cara Klik pada Mysql ODBC 3.51 Driver..liat gambar bawah ini;

















6.Isikan seperti di bawah ini dan kemudian lebih dulu database kita Test dengan cara klik test :


















 Catatan:buatlah database terlebih dahulu,klu saya udah buat databasenya lhooo,Coba liat gambar di atas ada Database "Login"...

7.Tahap terakhir tinggal settingan di program VBnya,Bisa ga??Di toko buku banyak cara dan tehnik menguasai VB..Okay,sekedar Saran ja........
DI BAWAH INI ADA BOCORAN SEDIKIT 






cara koneksi ke mysql dari vb menggunakan mysql odbc

1.  Install vbnya
2.  Download mysql odbc-nya, install
3.  create database di mysql, misalnya infoonline
4.  use infoonline ==> create table mahasiswa
5.  masuk ke control panel, switch ke classic view aja.
6.  masuk ke Administrative Tools –> Data Source (ODBC)
7.  Di tag user DSN, klik Add
8.  pilih mysql odbc driver, –> klik finish
9.  akan tampil panel odbc connector
10. isi datasource name, misal ikhsanganteng, description (kosongin juga boleh),server(defaultnya localhost),User nya root, password (default kosong), pilih databasenya
11. Klik Test… (success, connection was made) berarti telah sukses buat koneksi, klik ok
12. Sekarang, masuk ke vbnya, klik menu project — > references — > pilih Microsoft ActiveX  Data  Objects 2.0 Library dan Microsoft ActiveX Data Object RecordSet 2.8 Library
13. Di project Explorer, tambahkan module, add module
14. Isikan coding koneksi dan seleksi mahasiswaysql dari vb menggunakan mysql odbc

 

Public con As New ADODB.Connection
Public rsmhs As New ADODB.Recordset
Public Sub konekdb()
Set con = New ADODB.Connection
‘ connection provider kalau ragu, ambil dari adodc,
‘build, isi bagian pada tag connection, isi datasource namenya,
‘pilih ikhsanganteng, ok, copy connection stringnya
con.Open “Provider=MSDASQL.1;Persist Security Info=False;Data Source=ikhsanganteng”
con.CursorLocation = adUseClient
End Sub
Public Sub seleksimhs()
Set rsmhs = New ADODB.Recordset
rsmhs.Open “select * from mahasiswa”, con, adOpenDynamic, adLockOptimistic
End Sub
——————-
Kalau udah, di form, tambahkan komponen datagrid, double klik formnya
‘tambahkan coding berikut pada form_Load
Private Sub Form_Load()
konekdb
seleksimhs
Set DataGrid1.DataSource = rsmhs
End Sub
——————–
Run (F5), selamat mencoba


Koneksi database mysql ke VB 6.0 tanpa komponen ADODC

Buatlah modul di dalam form utaman terlebih dahulu
Dengan cara klik pada Menu Project---->>>ADD Module
dan COPAS listing bukadatabase dibawah ini:

Option Explicit
Public koneksi As New ADODB.Connection
Public Rs As ADODB.Recordset

Public SqlInsert As String
Public SqlUpdate As String
Public SqlDelete As String
Public SQL As String
Public View As ListItem
Public i As Byte
Dim db_name As String
Dim db_server As String
Dim db_port As String
Dim db_user As String
Dim db_pass As String


Public Sub Bukadatabase()
db_name = "apotik"  'nama database anda
db_server = "localhost"  'server database anda
db_port = "3306"
db_user = "root"  'username db anda
db_pass = "root"  'isi jika db anda menggunakan password
    Set koneksi = New ADODB.Connection
   koneksi.ConnectionString = "DRIVER={MySQL ODBC 3.51 Driver};SERVER=" & db_server & ";DATABASE=" & db_name & ";UID=" & db_user & ";PWD=" & db_pass & ";PORT=" & db_port & ";OPTION=3"

    If koneksi.State = adStateOpen Then
        koneksi.Close
        Set koneksi = New ADODB.Connection
        koneksi.Open
    Else
        koneksi.Open
    End If
End Sub




Sekian dan terimakasih,semoga bermanfaat!!!!!!!!!!!!!!!!!!!!!!!!!