Free Download Delphi 2010 Full Version

Bagi Anda yang sudah mahir dan/atau bosan menggunakan Delphi 7, Anda dapat mencoba Embarcadero Delphi 2010 yang akan saya bagikan kali ini.

Delphi adalah sebuah Lingkungan pengembangan terpadu (IDE) untuk mengembangkan aplikasi konsol, desktop, web, ataupun perangkat mobile. Produk ini pada awalnya dikembangkan oleh CodeGear sebagai divisi pengembangan perangkat lunak milik Embarcadero, divisi tersebut sebelumnya adalah milik Borland. Bahasa Delphi, atau dikenal pula sebagai object pascal (pascal dengan ekstensi pemrograman berorientasi objek (PBO/OOP)) pada mulanya ditujukan hanya untuk Microsoft Windows, namun saat ini telah mampu digunakan untuk mengembangkan aplikasi untuk Mac OS X, iOS, Microsoft .NET framework.

Lingkungan pengembangan Delphi

Umumnya Delphi lebih banyak digunakan untuk pengembangan aplikasi desktop dan enterprise berbasis database, tapi sebagai perangkat pengembangan yang bersifat general-purpose ia juga mampu dan digunakan dalam berbagai jenis proyek pengembangan software. Ia juga yang dikenal sebagai salah satu yang membawa istilah RAD tool, kepanjangan dari Rapid Application Development, saat dirilis tahun 1995 untuk windows 16-bit. Delphi 2, dirilis setahun kemudian, mendukung lingkungan windows 32-bit, dan versi c++, C++Builder, dirilis beberapa tahun kemudian. Pada tahun 2001 sebuah versi linux yang dikenal sebagai Kylix tersedia. Dengan satu rilis baru setiap tahunnya, pada tahun 2002 dukungan untuk Linux (melalui Kylix dan CLX component library) ditambahkan dan tahun 2003 .NET mulai didukung dengan munculnya Delphi.Net (Delphi 8).
Chief Architect yang membidani Delphi, dan pendahulunya Turbo Pascal, adalah Anders Hejlsberg sampai kemudian ia pindah ke Microsoft tahun 1996 di mana ia sebagai chief designer C# dan termasuk orang kunci dalam perancangan Microsoft .Net Framework. Dukungan penuh untuk .Net ditambahkan pada Delphi 8 (dirilis pada bulan Desember 2003) dengan penampilan user interface (look and feel) mirip dengan Microsoft Visual Studio .NET.
Delphi 2005 (nama lain dari Delphi 9) mendukung code generation baik untuk win32 maupun .NET, dan seperti yang telah dikenal, fitur-fitur manipulasi data secara live dari database secara design-time. Ia juga membawa banyak pembaruan pada IDE secara signifikan.
Para penganjur delphi mengklaim dengan bahasa pemrograman Delphi, IDE dan component library (VCL/CLX) yang disediakan oleh vendor tunggal memungkinkan satu paket yang lebih konsisten dan mudah dikenali.
Produk Delphi ini didistribusikan dalam beberapa rancangan: Personal, Professional, Enterprise (sebelumnya Client/Server) dan Architect.

Bahasa Pemrograman

Perbedaan fitur yang utama antara Delphi, Kylix dengan IDE-IDE yang lain adalah keberadaan bahasanya (Bahasa pemrograman delphi), VCL/CLX (Visual Component Library), Penekanan konektifitas database yang sangat baik, dan banyaknya komponen-komponen pihak ketiga yang mendukungnya.
Aspek penting yang perlu dicatat tentang Bahasa pemrograman Delphi termasuk:

• Penanganan object sebagai reference/pointer secara transparan.
• Properti sebagai bagian dari bahasa tersebut; baik, sebagai getter dan setter (atau accessor and mutator), yang secara transparan mengenkapsulasi akses pada field-field anggota dalam kelas tersebut.
• Property index dan Default yang menyediakan akses pada data kolektif.
• Pendelegasian (type safe method pointer) yang digunakan untuk memproses event yang dipicu oleh component.
• Pendelegasian implementasi interface pada Field ataupun property dari class.
• Implementasi penanganan windows message dengan cara membuat method dalam class dengan nomer/nama dari windows message yang akan dihandle.
• COM bersifat sebagai interface yang independen dengan implementasi class sebagai reference counted.
• Kompilasi yang dapat menghasilkan kode yang berjalan secara native x86 ataupun managed code pada arsitektur framework .NET.

Sumber: Wikipedia

Download Embarcadero Delphi 2010 Full Crack

Free Download Delphi 7 Full Version

Bagi Anda baru mulai belajar pemrograman Delphi, silakan download dahulu aplikasinya.

Delphi merupakan bahasa pemrograman berbasis Windows yang menyediakan fasilitas pembuatan aplikasi visual seperti Visual Basic. Delphi memberikan kemudahan dalam menggunakan kode program, kompilasi yang cepat, penggunaan file unit ganda untuk pemrograman modular, pengembangan perangkat lunak, pola desain yang menarik serta diperkuat dengan bahasa pemrograman yang terstruktur dalam bahasa pemrograman Object Pascal. Delphi memiliki tampilan khusus yang didukung suatu lingkup kerja komponen Delphi untuk membangun suatu aplikasi dengan menggunakan Visual Component Library (VCL). Sebagian besar pengembang Delphi menuliskan dan mengkompilasi kode program dalam IDE (Integrated Development Environment).

Sumber: Wikibuku

Silakan Download Delphi 7 Full Version

Ganti Owner Name dan Organization pada Windows dengan VB 6.0

Selanjutnya saya bagikan untuk Anda full source code program VB 6.0 (Visual Basic 6.0) untuk mengganti Owner Name dan Organization pada Windows Anda. OK, tanpa basa-basi lagi langsung saja ke TKP (Tempat Kode Program).

1. Buka VB 6.0 dan buat Project baru.
2. Tambahkan 1 Module dan Copy Paste kode di bawah ini.
   

   Private Const HKEY_LOCAL_MACHINE = &H80000002
   
   Private Declare Function RegCreateKey Lib _
      "advapi32.dll" Alias "RegCreateKeyA" _
      (ByVal Hkey As Long, ByVal lpSubKey As _
      String, phkResult As Long) As Long
   
   Private Declare Function RegCloseKey Lib _
      "advapi32.dll" (ByVal Hkey As Long) As Long
   
   Private Declare Function RegSetValueEx Lib _
      "advapi32.dll" Alias "RegSetValueExA" _
      (ByVal Hkey As Long, ByVal _
      lpValueName As String, ByVal _
      Reserved As Long, ByVal dwType _
      As Long, lpData As Any, ByVal _
      cbData As Long) As Long
   
   Private Const REG_SZ = 1
   Private Const REG_DWORD = 4
   
   Public Function ChangeWindowsOwner(OwnerName As String, _
    Organization As String) As Boolean
       On Error GoTo ErrorHandler
   
       Dim bAns As Boolean
   
       If OwnerName = "" Or Organization = "" Then
          ChangeWindowsOwner = False
          Exit Function
       End If
   
       bAns = SaveString(HKEY_LOCAL_MACHINE, _
             "Software\Microsoft\Windows\CurrentVersion", _
             "RegisteredOwner", OwnerName)
   
       If bAns Then bAns = SaveString(HKEY_LOCAL_MACHINE, _
             "Software\Microsoft\Windows\CurrentVersion", _
             "RegisteredOrganization", Organization)
   
       ChangeWindowsOwner = bAns
   
       Exit Function
   
   ErrorHandler:
       ChangeWindowsOwner = False
   End Function
   
   Private Function SaveString(Hkey As Long, strPath As String, _
   strValue As String, strdata As String) As Boolean
   
      Dim keyhand As Long
      Dim r As Long
   
      r = RegCreateKey(Hkey, strPath, keyhand)
      r = RegSetValueEx(keyhand, strValue, 0, _
         REG_SZ, ByVal strdata, Len(strdata))
      r = RegCloseKey(keyhand)
   
      SaveString = (r = 0)
   End Function
    

3. Pada Form yang aktif tambahkan 2 Textbox dan 1 CommandButton.
4. Atur Properties Textboxt masing-masing dengan Name=txtOwner, Name=txtOrg dan Text=Dikosongkan saja.
5. Atur Properties CommandButton dengan Name=cmdS dan Caption=Save.
6. Setelah itu double click CommandButton dan di bawah cmdS_Click copy paste source code di bawah ini.
   

   If Me.txtOwner.Text <> "" Or Me.txtOrg.Text <> "" Then
       Call ChangeWindowsOwner(Me.txtOwner.Text, Me.txtOrg.Text)
   Else
       MsgBox "Owner Name and Organization Name not be empty.", vbExclamation, "Warning"
   End If

7. Coba jalankan (F5) dan lihat hasilnya. Selesai.

Silakan download full source code program dari tombol di bawah ini.

Ketikkan Hanya Angka pada Textbox (VB 6.0)

Masih dengan pemrograman, kali ini saya akan bagikan full source code untuk memasukkan/mengetikkan hanya angka (only number) ke dalam Textbox. Kode ini cocok diterapkan pada pengisian untuk No. Telp, Email dan sebagainya. OK, langsung saja ke TKP (Tempat Kode Program maksudnya).

1. Buka VB 6.0 dan buat Project baru.
2. Pada Form yang aktif tambahkan 1 Textbox dan atur Properties Text=Dikosongkan aja.
3. Setelah itu double click Textbox dan pada Text1_Change ganti dengan Text1_KeyPress(KeyAscii As Integer). Di bawah kode tersebut copy paste source code di bawah ini.
   

   If IsNumeric(Chr(KeyAscii)) <> True Then KeyAscii = 0

   atau

   Const Number$ = "0123456789" 'hanya bisa diisi dengan yg ada di const ini
   
   If KeyAscii <> 8 Then
      If InStr(Number$, Chr(KeyAscii)) = 0 Then
         KeyAscii = 0
         Exit Sub
      End If
   End If
   

4. Coba jalankan (F5) dan lihat hasilnya. Selesai.

Silakan download full source code programnya melalui tombol di bawah ini.

Free Download Crystal Report Runtime All Version

Mungkin sebagian dari Anda bertanya-tanya, apakah Crystal Report Runtime itu? Crystal Report Runtime itu sendiri merupakan file inti (core) dari Crystal Report. Sama halnya dengan software programming pasti mempunyai file inti seperti Visual Basic 6.0 = Msvbvm60.dll, VB.NET = NetFramework, Java = Java Runtime Environment dan lain sebagainya.

Jadi jika Anda menggunakan CR Runtime ini, Anda tidak perlu lagi menginstall aplikasi Crystal Report secara penuh/full.

Berikut ini link download Crystal Report Runtime berbagai versi.
Crystal Report Version 8.5 Runtime (For Visual Basic 6 Aplication) | Download
Crystal Report Version 10 Runtime (For Visual Basic 6 Aplication) | Download
Crystal Report Version 11 Runtime (For Visual Basic 6 / Visual Studio NET Aplication) | Download
Crystal Report Version 12 Runtime (For Visual Studio NET 2008 Aplication) | Download 32bit, 64bit
Crystal Report Version 13 Runtime (For Visual Studio NET 2010 Aplication) | Download
Crystal Report Version 3.5 Runtime (For Visual Studio NET 2012 Aplication) | Download 32bit, 64bit

Thanks to Original Uploader

Cek IP Address dengan VB 6.0

Berikut ini saya bagikan sebuah source code yang cukup berguna yaitu untuk mengetahui IP Address komputer kita. Terutama bagi Anda yang membuat aplikasi client server menggunakan cloud database / database online. Ok, langsung saja ke TKP.

Berikut ini contoh pembuatannya.

1. Buka VB 6.0 Anda dan buat Project baru.
2. Pada Form yang aktif tambahkan 1 Label dan 1 Textbox.
3. Atur Properties Label dengan Caption=IP Address:.
4. Atur Properties Textbox dengan Name=txtIP.
5. Tambahkan 1 Module dengan cara pilih menu Project --> Add Module dan pada module tersebut copy paste kode di bawah ini.

Option Explicit

Public Const MAX_WSADescription = 256
Public Const MAX_WSASYSStatus = 128
Public Const ERROR_SUCCESS       As Long = 0
Public Const WS_VERSION_REQD     As Long = &H101
Public Const WS_VERSION_MAJOR    As Long = WS_VERSION_REQD \ &H100 And &HFF&
Public Const WS_VERSION_MINOR    As Long = WS_VERSION_REQD And &HFF&
Public Const MIN_SOCKETS_REQD    As Long = 1
Public Const SOCKET_ERROR        As Long = -1

Public Type HOSTENT
   hName      As Long
   hAliases   As Long
   hAddrType  As Integer
   hLen       As Integer
   hAddrList  As Long
End Type

Public Type WSADATA
   wVersion      As Integer
   wHighVersion  As Integer
   szDescription(0 To MAX_WSADescription)   As Byte
   szSystemStatus(0 To MAX_WSASYSStatus)    As Byte
   wMaxSockets   As Integer
   wMaxUDPDG     As Integer
   dwVendorInfo  As Long
End Type


Public Declare Function WSAGetLastError Lib "WSOCK32.DLL" () As Long
Public Declare Function WSAStartup Lib "WSOCK32.DLL" _
   (ByVal wVersionRequired As Long, lpWSADATA As WSADATA) As Long
Public Declare Function WSACleanup Lib "WSOCK32.DLL" () As Long
Public Declare Function gethostname Lib "WSOCK32.DLL" _
   (ByVal szHost As String, ByVal dwHostLen As Long) As Long
Public Declare Function gethostbyname Lib "WSOCK32.DLL" _
   (ByVal szHost As String) As Long
Public Declare Sub CopyMemory Lib "kernel32" Alias "RtlMoveMemory" _
   (hpvDest As Any, ByVal hpvSource As Long, ByVal cbCopy As Long)

' ---------
' Code
' ---------
Public Function GetIPAddress() As String
   Dim sHostName    As String * 256
   Dim lpHost    As Long
   Dim HOST      As HOSTENT
   Dim dwIPAddr  As Long
   Dim tmpIPAddr() As Byte
   Dim i         As Integer
   Dim sIPAddr  As String

   If Not SocketsInitialize() Then
      GetIPAddress = ""
      Exit Function
   End If
   If gethostname(sHostName, 256) = SOCKET_ERROR Then
      GetIPAddress = ""
      MsgBox "Windows Sockets error " & Str$(WSAGetLastError()) & _
              " has occurred. Unable to successfully get Host Name."
      SocketsCleanup
      Exit Function
   End If
   sHostName = Trim$(sHostName)
   lpHost = gethostbyname(sHostName)

   If lpHost = 0 Then
      GetIPAddress = ""
      MsgBox "Windows Sockets are not responding. " & _
              "Unable to successfully get Host Name."
      SocketsCleanup
      Exit Function
   End If

   CopyMemory HOST, lpHost, Len(HOST)
   CopyMemory dwIPAddr, HOST.hAddrList, 4
   ReDim tmpIPAddr(1 To HOST.hLen)
   CopyMemory tmpIPAddr(1), dwIPAddr, HOST.hLen
   For i = 1 To HOST.hLen
      sIPAddr = sIPAddr & tmpIPAddr(i) & "."
   Next

   GetIPAddress = Mid$(sIPAddr, 1, Len(sIPAddr) - 1)

   SocketsCleanup
End Function

' ==================================================================== '

Public Function HiByte(ByVal wParam As Integer)
    HiByte = wParam \ &H100 And &HFF&
End Function

' ==================================================================== '

Public Function LoByte(ByVal wParam As Integer)
    LoByte = wParam And &HFF&
End Function

' ==================================================================== '

Public Sub SocketsCleanup()
    If WSACleanup() <> ERROR_SUCCESS Then
        MsgBox "Socket error occurred in Cleanup."
    End If
End Sub

' ==================================================================== '

Public Function SocketsInitialize() As Boolean
   Dim WSAD As WSADATA
   Dim sLoByte As String
   Dim sHiByte As String

   If WSAStartup(WS_VERSION_REQD, WSAD) <> ERROR_SUCCESS Then
      MsgBox "The 32-bit Windows Socket is not responding."
      SocketsInitialize = False
      Exit Function
   End If

   If WSAD.wMaxSockets < MIN_SOCKETS_REQD Then
        MsgBox "This application requires a minimum of " & _
                CStr(MIN_SOCKETS_REQD) & " supported sockets."

        SocketsInitialize = False
        Exit Function
   End If

   If LoByte(WSAD.wVersion) < WS_VERSION_MAJOR Or _
     (LoByte(WSAD.wVersion) = WS_VERSION_MAJOR And _
      HiByte(WSAD.wVersion) < WS_VERSION_MINOR) Then

      sHiByte = CStr(HiByte(WSAD.wVersion))
      sLoByte = CStr(LoByte(WSAD.wVersion))

      MsgBox "Sockets version " & sLoByte & "." & sHiByte & _
             " is not supported by 32-bit Windows Sockets."

      SocketsInitialize = False
      Exit Function

   End If
    SocketsInitialize = True
End Function

6. Kembali ke Form dan klik 2x (double click) pada area form dan pada Form_Load() copy paste kode di bawah ini.

Me.txtIP.Text = GetIPAddress()

If txtIP.Text = "127.0.0.1" Then
    Me.Caption = "You are offline"
Else
    Me.Caption = "You are online"
End If

7. Sekarang coba jalankan program dengan menekan tombol F5 pada keyboard dan lihat hasilnya.
8. Jika berhasil terkoneksi, maka akan ditampilkan seperti gambar di bawah ini.

9. Akan tetepi jika tidak terkoneksi akan ditampilkan seperti gambar di bawah ini.

10. Selesai.

Bagi Anda yang menginginkan contoh programnya silakan download melalui tombol di bawah ini.

Enkripsi Text pada VB .NET 2010

Bagi Anda yang sedang membuat program menggunakan VB .NET 2010 apalagi yang menyangkut koneksi ke database entah itu database lokal ataupun database server. Tentu saja Anda akan membuat tabel user untuk login ke dalam aplikasi yang Anda buat, oleh karena itu diperlukan password yang terenkripsi agar lebih aman.

Jika Anda tidak melakukan enkripsi bisa saja orang yang tidak bertanggung jawab membuka database dan menggunakan password user yang tidak terenkripsi untuk login maka secara otomatis akan dapat masuk ke dalam aplikasi Anda. Namun, jika password yang user yang sudah terenkripsi digunakan secara otomatis tidak akan dapat login ke dalam aplikasi.

OK, langsung saja ke contoh penggunaannya.

1. Jalankan aplikasi Visual Studio 2010 Anda.
2. Buat Project baru dengan cara klik menu File --> New Project.
3. Setelah itu pilih Visual Basic --> .NET Framework 2.0 --> Windows Forms Application --> Klik OK. Lihat gambar.

4. Pada Form yang aktif tambahkan 2 Textbox dan 3 Button.
5. Atur Properties masing-masing Textboxt dengan Name=txtSource dan Name=txtHasil.
6. Atur Properties masing-masing Button dengan Name=btMD5 dan Caption=MD5, Name=btSHA1 dan Caption=SHA1, serta Name=btSHA384 dan Caption=SHA384.
7. Atur posisi Component seperti gambar di paling atas.
8. Klik 2x (Double click) Form yang aktif dan di atas Public Class Form1 (Form1 = nama form) copy paste kode di bawah ini.

Imports Microsoft.VisualBasic
Imports System.Text
Imports System.Security.Cryptography
Imports System.IO

9. Kemudian di bawah Public Class Form1 (Form1 = nama form) copy paste kode di bawah ini.

Enum HashMethod
     MD5
     SHA1
     SHA384
End Enum

Function EnkripsiText(ByVal source As String, ByVal algorithm As HashMethod) As String
        Dim hashAlgorithm As HashAlgorithm = Nothing
        Select Case algorithm
            Case HashMethod.MD5
                hashAlgorithm = New MD5CryptoServiceProvider
            Case HashMethod.SHA1
                hashAlgorithm = New SHA1CryptoServiceProvider
            Case HashMethod.SHA384
                hashAlgorithm = New SHA384Managed
            Case Else
                MsgBox("Error Algorithm", vbCritical, "Error")
        End Select

        Dim byteValue() As Byte = Encoding.UTF8.GetBytes(source)
        Dim hashValue() As Byte = hashAlgorithm.ComputeHash(byteValue)
        Return Convert.ToBase64String(hashValue)
End Function

10. Setelah itu klik Button MD5 dan pada Private Sub btMD5_Click(...) copy paste kode di bawah ini.

If txtSource.Text <> "" Then txtHasil.Text = EnkripsiText(txtSource.Text, HashMethod.MD5)

11. Setelah itu klik Button MD5 dan pada Private Sub btSHA1_Click(...) copy paste kode di bawah ini.

If txtSource.Text <> "" Then txtHasil.Text = EnkripsiText(txtSource.Text, HashMethod.SHA1)

12. Setelah itu klik Button MD5 dan pada Private Sub btSHA384_Click(...) copy paste kode di bawah ini.

If txtSource.Text <> "" Then txtHasil.Text = EnkripsiText(txtSource.Text, HashMethod.SHA384)

13. Sekarang jalankan programnya dengan menekan F5 pada keyboard dan lihat hasilnya.

Enkripsi dengan MD5

Enkripsi dengan SHA1

Enkripsi dengan SHA384

Silakan yang ingin mendownload contohnya dapat melalui tombol download di bawah ini.
Selesai, selamat mencoba dan terima kasih.

Cek Port yang Terpakai dengan VB 2010

Nih saya bagikan lagi satu source code untuk mengecek port yang terpakai dengan menggunakan VB 2010 (Visual Basic .NET).

OK, langsung saja ke contoh penggunaannya.

1. Jalankan aplikasi Visual Studio 2010 Anda.
2. Buat Project baru dengan cara klik menu File --> New Project.
3. Setelah itu pilih Visual Basic --> .NET Framework 2.0 --> Windows Forms Application --> Klik OK. Lihat gambar.

4. Pada Form yang aktif tambahkan 1 Textbox lalu atur Properties Multiline=True, Scrollbars=Vertical dan Name=txtPort.
5. Double click Form dan pada Form_Load(...) copy paste kode di bawah ini.

For Each portName As String In My.Computer.Ports.SerialPortNames
    txtPort.Text = portName & vbCrLf
Next

6. Jalankan program dengan menekan tombol F5 pada keyboard dan lihat hasilnya.

Selesai dan terima kasih.
Untuk Anda yang ingin mendownload contoh programnya bisa melalui tombol di bawah ini.

Cek Koneksi Internet dengan VB 2010

Pada siang hari yang sedikit mendung ini, saya akan bagikan sebuah source code VB 2010 (Visual Basic .NET) untuk mengecek apakah komputer/laptop kita terkoneksi dengan internet.

OK, langsung saja simak contoh penggunaannya.

1. Jalankan aplikasi Visual Studio 2010 Anda.
2. Buat Project baru dengan cara klik menu File --> New Project.
3. Setelah itu pilih Visual Basic --> .NET Framework 2.0 --> Windows Forms Application --> Klik OK. Lihat gambar.

4. Pada Form yang aktif tambahkan 1 Button lalu atur Properties Text=Cek Koneksi Internet dan Name=btCekStatus.
5. Klik 2x (Double click) Button Cek Koneksi Internet dan pada Private Sub btCekStatus_Click(...) copy paste kode di bawah ini.

Dim isAvailable As Boolean
isAvailable = My.Computer.Network.IsAvailable
If isAvailable = False Then
   MsgBox("Tidak terkoneksi.", vbCritical, "Error")
Else
End If

6. Sekarang jalankan program dengan menekan tombol F5 pada keyboard.
7. Selanjutnya tekan tombol Cek Koneksi Internet.

Jika komputer Anda terkoneksi maka akan muncul pesan seperti di bawah ini.

Sedangkan kalau komputer Anda tidak terkoneksi maka akan muncul pesan seperti di bawah ini.

Selesai dan terima kasih. Untuk mendapatkan contoh programnya dapat di download melalui tombol download di bawah ini.

Disable Keyboard dengan VB 6.0

Seperti postingan sebelumnya Disable Mouse dengan VB 6.0, kali ini tidak begitu berbeda. Menonaktifkan (disable) keyboard dengan memanfatkan VB 6.0 (Visual Basic 6.0). Ok, langsung saja ke tahap selanjutnya.

Berikut contoh pembuatannya.

1. Buat Project VB 6.0 baru.
2. Pada Form yang aktif klik 2x (double click) Form tersebuat dan copy paste source code di bawah ini.

shell "rundll32 keyboard, disable" 'disable keyboard
app.previnstance=false 'menyembunyikan aplikasi dari task manager

3. Selesai.

Sangat sederhana bukan?
Efek akan terasa sampai Anda me-restart/mematikan komputer.

Disable Mouse dengan VB 6.0

Admin share ulang untuk postingan menonaktifkan (disable) mouse dengan VB 6.0 (Visual Basic 6.0). Karena IP address komputer yang sebelumnya admin gunakan terkena Malware saat blogging, jadi postingan tentang disable mouse ini tidak dapat diakses alias diblokir oleh Anti Virus.

Terkadang kita sangat jengkel karena ada orang-orang yang tidak bertanggung jawab mengutak atik komputer kita dengan klik sana klik sini tidak karuan, entah itu teman atau adik-adik kita. Untuk itu salah satu cara untuk mencegah hal itu terulang lagi, saya akan balikan cara untuk menonaktifkan mouse dengan

source code VB 6.0. Ok, langsung saja ke TKP.

1. Buatlah Project VB 6.0 baru.
2. Pada Form yang aktif klik 2x (double click) Form tersebut.
3. Pada Form_Load() copy paste kode di bawah ini.

shell "rundll32 mouse, disable" 'untuk disable mouse
app.previnstance=false 'untuk menyembukan form dari task manager

4. Selesai.

Sangat mudah bukan?

Aplikasi Ramalan Cuaca v2 (VB 6.0)

Ini ada lagi saya bagikan Aplikasi Ramalan Cuaca v2 yang dibuat menggunakan VB 6.0 (Visual Basic 6.0) yang memanfaatkan XML dari www.weather.com.

Kali ini aplikasi memanfaatkan style dari Yahoo Weather agar lebih cantik. Aplikasi ini memiliki kelemahan dibandingkan dengan Aplikasi Ramalan Cuaca v1 yang sebelumnya, karena Aplikasi Ramalan Cuaca v2 ini tidak dapat mendeteksi lokasi yang lebih kecil, misalnya ibukota kabupaten yang secara umum tidak ditampilkan dalam daftar kota-kota besar di suatu negara.

Ok, langsung saja di coba...

Perhatian! Aplikasi dengan style ini tidak boleh untuk diperjual belikan karena telah dipatenkan oleh pihak Yahoo Weather.

Aplikasi Ramalan Cuaca v1 (VB 6.0)

Kali ini saya akana bagikan kepada Anda aplikasi Ramalan Cuaca yang di buat menggunakan VB 6.0 (Visual Basic 6.0). Aplikasi Weather ini memanfaatkan (clsXML) yang diambil dari accuweather.com dengan menggunakan informasi cuaca xKiz.

Cara pengguna aplikasi ini sangat gampang dengan hanya memasukkan nama lokasi mana yang ingin Anda ketahui cuacanya, seperti gambar di bawah ini.

Membuat Jam Analog dengan VB 6.0

Berikut ini saya bagikan satu lagi full source code aplikasi Jam Analog yang dibuat menggunakan VB 6.0 (Visual Basic 6.0) dan mungkin cukup berguna bagi Anda. Jam Analog ini memiliki banyak sekali pilihan style, selain itu juga ada fungsi sebagai alarm. Ok, langsung saja dapatkan contoh full source codenya.

Memuat Icon Alpha 32 Bit pada VB 6.0

Kadang kala saat kita membuat aplikasi menggunakan VB 6.0 (Visual Basic 6.0) kita kurang menyukai Icon yang ditampilkan menggunakan component Image ataupun Picturebox.

Component Image ataupun Picturebox yang ada di Visual Basic 6.0 tidak dapat memuat Icon 32 bit (Alpha Icon), untuk itulah Control Alpha Icon ini dapat membantu Anda untuk memecahkan masalahnya. Dengan ActiveX Control ini juga memungkinkan Anda untuk mengatur Transparansi dan/atau Contrast/Brightness gambar Icon yang dimuat.

Ok, langsung saja download full source code VB 6.0 melalui tombol di bawah ini.

Membuat Image Slider dengan VB 6.0

Ini adalah User Control yang memungkinkan Anda untuk menampilkan semua gambar dalam folder dan/atau subfolder dan mirip dengan yang digunakan oleh Windows, tetapi dengan beberapa opsi tambahan untuk menyesuaikannya.
Dalam memuat gambar ke dalam Image Slider tidak dibutuhkan memori, hal tersebut digunakan agar pemborosan memori tidak terjadi. Namun untuk kecepatan menampilkan gambar di Image Slider akan menyesuaikan dengan Prosessor yang digunakan dalam komputer Anda.
Dalam User Control ini juga memungkinkan Anda untuk mengatur bingkai, warna border, bayangan teks dll.
Ok, langsung saja download full source code VB 6.0 melalui tombol di bawah ini.

Transfer File Client Server (VB 6.0)

Berikut ini saya akan bagikan sebuah source code sederhana VB 6.0 (Visual Basic 6.0) untuk mentransfer file via Jaringan (Client-Server).

Pada sorce code Transfer File Client-Server, Anda belum dapat mentransfer lebih dari 1 file. Selain itu Anda juga belum dapat mengatur port berapa yang digunakan. Dalam aplikasi ini juga belum mendukung transfer file antar Client. Untuk full Function nya, tunggu saja ya. :-)

Ok, langsung saja download full source code VB 6.0 sederhananya dari tombol di bawah ini.

Penggunaan API Google Speak (VB 6.0)

Fungsi ini menggunakan API dari Google Speak, dengan Google Speak ini kita dapat membuat teks berbicara. Namun sayang hanya dapat membuat teks berbisara sepanjang 100 karakter. Untuk menggunakan Google API ini tentu saja kita membutuhkan koneksi internet.

Dalam penggunaan API Google Speak ini parameter yang haru diatur pertama adalah teks yang ingin didengar, kedua pengucapannya dalam bahasa apa,

Berikut kode negara untuk pengucapan textnya.
Indonesia: id
Jerman: de
Denmark: da
Spanyol: es
Finlandia: fi
Prancis: fr
Inggris: en
Italia: it
Belanda: nl
Polandia: pl
Portugis: pt
Swedia: sv

dan parameter ketiga adalah untuk memanggil DoEvents yang kita ingin.

Option Explicit
Private Declare Function mciSendString Lib "winmm.dll" Alias "mciSendStringA" (ByVal lpstrCommand As String, ByVal lpstrReturnString As String, ByVal uReturnLength As Long, ByVal hwndCallback As Long) As Long
Private Declare Function URLDownloadToFile Lib "urlmon" Alias "URLDownloadToFileA" (ByVal pCaller As Long, ByVal szURL As String, ByVal szFileName As String, ByVal dwReserved As Long, ByVal lpfnCB As Long) As Long
 
Public Function GoogleSpeak(ByVal sText As String, Optional ByVal Language As String = "es", Optional ByVal bDoevents As Boolean) As Boolean
    On Error Resume Next
    Dim sTempPath As String, ml As String
    Dim FileLength As Long
 
    sText = Replace(sText, vbCrLf, " ")
 
    If Len(sText) > 100 Then Exit Function
 
    sTempPath = Environ("Temp") & "\TempMP3.MP3"
 
    If URLDownloadToFile(0&, "http://translate.google.com/translate_tts?tl=" & Language & "&q=" & sText, sTempPath, 0&, 0&) = 0 Then
 
        If mciSendString("open " & Chr$(34) & sTempPath & Chr$(34) & " type MpegVideo" & " alias myfile", 0&, 0&, 0&) = 0 Then
 
            ml = String(30, 0)
            Call mciSendString("status myfile length ", ml, 30, 0&)
            FileLength = Val(ml)
            If FileLength Then
                If mciSendString("play myFile", 0&, 0&, 0&) = 0 Then
                    Do While mciSendString("status myfile position ", ml, 30, 0&) = 0
                        If Val(ml) = FileLength Then GoogleSpeak = True: Exit Do
                        If bDoevents Then DoEvents
                    Loop
                End If
            End If
            Call mciSendString("close myfile", 0&, 0&, 0&)
 
        End If
 
        Kill sTempPath
    End If
 
End Function
 
Private Sub Command1_Click()
   Debug.Print GoogleSpeak("Terima kasih telah berkunjung.", "id", True)
End Sub

Aplikasi RSS Reader (VB 6.0)

RSS Reader adalah sebuah aplikasi yang memungkinkan Anda untuk membaca RSS blog ini melalui system tray Desktop komputer Anda. Saat mengklik icon system tray yang dibuat oleh Aplikasi ini Anda akan dapat mengakses postingan terbaru blog ini tanpa membuka terlebih dahulu Aplikasi web browser Anda.

Perlu Anda ketahui, jika Anda ingin menutup aplikasi ini disarankan untuk tidak menggunakan tombol Stop pada IDE Visual Basic 6.0, melainkan menekan tombol Exit pada aplikasi RSS Reader. Jika Anda tidak melakukan hal tersebuat bisa-bisa komputer Anda akan langsung di restart secara otomatis.

Untuk mendownload full source code nya bisa melalui tombol download di bawah ini.

PopupTray Custom pada VB 6.0

Berikut ini saya bagikan sebauh source code VB 6.0 (Visual Basic 6.0) yang bernama PopupTray Icon. Untuk membuat Popup System Tray seperti gambar dibutuhkan beberapa Class.

ClsSysTray.cls digunakan untuk membuat Icon tampil pada System Tray Windows, Class tersebut di buat oleh Cobein. Selain itu ada juga ucCommandLink.ctl (dibuat oleh Raul338) yang yaitu Commandbutton khusus untuk memuat Link, dan yang terakhir ucLabelItem.ctl untuk membuat Label custom dengan Caption dan  Note.
Ok, langsung saja download full source code nya melalui tombol download di bawah ini.