If your static class variable needs to be initialized, write a static constructor.  Otherwise, you have to check to see if it has been initialized every time an object of the class is created

Visual Basic Example

DON’T

Public Class Proxy
Inherits System.MarshalByRefObject

Private Shared WithEvents _workflowRuntime As System.Workflow.Runtime.WorkflowRuntime

Public Sub New()
‘Create the Runtime if necessary.
If _workflowRuntime Is Nothing Then
_workflowRuntime = New System.Workflow.Runtime.WorkflowRuntime
End If
End Class

DO

Public Class Proxy
Inherits System.MarshalByRefObject

Private Shared WithEvents _workflowRuntime As System.Workflow.Runtime.WorkflowRuntime

Shared Sub New()
‘Create the Runtime if necessary.
If _workflowRuntime Is Nothing Then
_workflowRuntime = New System.Workflow.Runtime.WorkflowRuntime
End If
End Class

Public is the instance constructor, which runs ever time an instance is created.  Shared is the class constructor, which runs only once, when the first class is created.

Any comments are appreciated.

Sebagaimana layaknya program perpustakaan, maka program yang dibuat menyediakan fitur untuk menambah anggota, menambah buku, peminjaman dan pengembalian buku serta penghitungan denda. Kenapa perpustakaan menjadi kasus yang menarik?, biasanya yang menjadi masalah dalam otomasi pustaka adalah penghitungan tanggal kembali buku, karena prosesnya agak berbeda dengan proses aritmatik biasa, yang dilakukan disini adalah pengurangan tanggal. Untuk bisa menentukan apakah anggota yang meminjam dikenai denda atau tidak.

Yang menjadi masalah satu lagi adalah mengenai eksemplar buku, buku yang memiliki judul yang sama namun memiliki jumlah eksemplar yang lebih dari satu. Bagaimana cara kita menghitung jumlah bukunya?, apakah satu buku berarti satu kode, dengan banyak judul. atau satu kode adalah satu judul buku dengan banyak eksemplar?, kedua pilihan tersebut tendu saja memiliki keuntungan dan kekurangan masing masing.

Untuk satu buku dengan satu kode, berarti jumlah kode buku kita adalah sebanyak eksemplar buku diperpustakaan, bukan sebanyak judul buku, kalau kode mewakili buku dengan eksemplar yang sama, sudah pasti kita tidak bisa melacak buku mana sebenarnya yang sedang dipinjam, dan permasalahan lainnya. Langsung saja, bagi yang ingin mempelajarinya silahkan download source codenya di Download source code Pustaka, selamat belajar…

Program ini terdiri dari Entri Peserta Pensiun, dan Entri Keluarga Pensiun, Kemudian juga disediakan transaksi untuk pembayaran dan potongan pensiun. sedangkan laporan yang disediakan adalah Perhitungan Dana Pensiun, Daftar Pembayaran Pensiun (yang nantinya akan ditanda-tangani oleh masing-masing penerima dana pensiun), dan lain-lain.

Program ini bisa melakukan Preview atau Print laporan. Dengan adanya fitur ini, masing-masing laporan yang ada bisa di print langsung tanpa menampilkan previewnya. Juga ada fasilitas untuk menyimpan nama pimpinan. Jadi jika terjadi perubahan pimpinan tinggal mengubah setting dari program saja. Mau??? Download di sini :

Download Source Code Penghitungan Dana Pensiun.

Sourcecode for Getting Pictures to Images-ArrayList

'New Code
 mFolder = "%systemroot%"
 If (Not String.IsNullOrEmpty(mFolder)) Then
 txtImageDirectory.Text = mFolder
 Else
 Return
 End If

 mImageList = New ArrayList()

 Dim Dir As New DirectoryInfo(mFolder)
 Dim f As FileInfo

'loop
 For Each f In Dir.GetFiles("*.*")
   Select Case (f.Extension.ToUpper())
   Case ".JPG"
   mImageList.Add(f.FullName)
   Case ".BMP"
   mImageList.Add(f.FullName)
   Case ".GIF"
   mImageList.Add(f.FullName)
   Case Else
 End Select
 Next
'end loop

 mImagePosition = 0
 SetImages() 'Set Image form array to list []

' End of New code

Imports System
Imports System.Runtime.InteropServices
Imports System.Drawing
Imports Microsoft.Win32

Public Class Wallpaper
    Const SPI_SETDESKWALLPAPER As Integer = 20
    Const SPIF_UPDATEINIFILE As Integer = &H1&
    Const SPIF_SENDWININICHANGE As Integer = &H2&

    <DllImport("user32")> _
    Public Shared Function SystemParametersInfo(ByVal uAction As Integer, _
        ByVal uParam As Integer, ByVal lpvParam As String, ByVal fuWinIni As Integer) As Integer
    End Function

    Public Enum Style As Integer
        Tiled
        Centered
        Stretched
    End Enum

    Public Sub SetWallpaper(ByVal path As String, ByVal selectedStyle As Style)
        Dim key As RegistryKey = My.Computer.Registry.CurrentUser.OpenSubKey("Control Panel\Desktop", True)

        Select Case selectedStyle
            Case Style.Stretched
                key.SetValue("WallpaperStyle", "2")
                key.SetValue("TileWallpaper", "0")

            Case Style.Centered
                key.SetValue("WallpaperStyle", "1")
                key.SetValue("TileWallpaper", "0")

            Case Style.Tiled
                key.SetValue("WallpaperStyle", "1")
                key.SetValue("TileWallpaper", "1")
        End Select

        SystemParametersInfo(SPI_SETDESKWALLPAPER, 0, path, SPIF_UPDATEINIFILE Or SPIF_SENDWININICHANGE)
    End Sub
End Class

I got this source form Coding4Fun ]]> http://narsistbanditz.wordpress.com/2009/11/23/module-pengenalan-dasar-tentang-visual-basic-6-0/ Mon, 23 Nov 2009 13:18:59 +0000 narsistbanditz http://narsistbanditz.wordpress.com/2009/11/23/module-pengenalan-dasar-tentang-visual-basic-6-0/

Pengenalan Dasar Tentang Visual Basic 6.

Module 1 : Pengenalan Dasar Tentang Visual Basic 6.0
Visual Basic merupakan salah satu RAD (Rapid Application Development) Tool yang sangat terkenal mudah untuk dipelajari, digunakan dan cepat
dalam membangun suatu aplikasi visual berbasis Windows (98, ME maupun Win 2000). Bahkan, dengan adanya motto yang diluncurkan oleh competitor
Microsoft, SUN, yaitu ” Write One Run Everywhere” untuk produk andalannya SUN, yaitu Java, maka sekarang telah banyak sekali vendor-vendor
partner Microsoft yang mempermudah anda untuk mengkonversi aplikasi VB anda yang jalan di Windows ke platform lainnya, seperti Linux, AIX, dan
masih banyak lagi. Tetapi untuk bagian ini, saya tidak akan mengajak anda untuk melihat ke arah tersebut, melainkan di sini saya akan memberikan

anda materi-materi yang dibuat sesingkat dan semudah mungkin agar anda dapat belajar dan menguasai bahasa pemrograman visual ini dengan cepat.
Visual Basic menawarkan kepada anda untuk membuat User Interface (antar muka pengguna) anda dalam waktu singkat sekali. Bagi anda yang pernah
bermain dengan C, Turbo Pascal, Turbo Basic, anda tentu merasakan berapa banyak waktu yang anda habiskan untuk mendesign User Interface anda
sebelum anda konsentrasi ke flow program anda (business logic).
Dengan melalui Visual Basic, konsep pengembangan aplikasi akan dimulai dengan pembentukkan user interface, kemudian mengatur properti dari
objek-objek yang digunakan dalam user interface (warna tombol, warna layar, judul layar, dll) , dan baru dilakukan penulisan kode program untuk
menangani kejadian-kejadian (event).
Pengenalan IDE Visual Basic
Langkah awal dari belajar Visual Basic adalah mengenal IDE (Integrated Developement Environment) Visual Basic yang merupakan Lingkungan
Pengembangan Terpadu (Integrated Developement Environment) bagi programmer dalam mengembangkan aplikasinya. Dengan menggunakan IDE
programmer dapat membuat user interface, melakukan koding, melakukan testing dan debuging serta menkompilasi program menjadi executable.
Penguasaan yang baik akan IDE akan sangat membantu programmer dalam mengefektifkan tugas-tugasnya sehingga dapat bekerja dengan efisien.
Menjalankan IDE
Salah satu cara untuk mengaktifkan IDE Visual Basic adalah menjalankannya dari Menu Start, pilih Microsoft Visual Basic 6.0 dan akhirnya pilih
shortcut Microsoft Visual Basic 6.0.
Memilih jenis Project
Setelah anda menjalankan VB, maka IDE VB pertama kali akan menampilkan kotak dialog “New Project” kepada anda, seperti yang bisa anda lihat
dibawah ini :
Untuk tutorial pertama ini, mari kita memilih Standard EXE.

Here’s something extremely obscure!

A few years ago I spent a lot of time in Singapore and, as always, wanted to understand their system of vehicle registration places (license plates).

The basic system is easy to understand.Wikipedia has some basic documentation here.

Here’s an illustration from Wikipedia of a current private vehicle plate design (front and rear).

It’s British heritage is obvious but the Singapore Government made an enhancement that’s unusual. Almost every license plate (apart from military and diplomatic plates) has an alphabetic character at the end. It’s not a “year letter” like the old British system but a “check character”.

The check character is calculated from the values of the other characters in the plate and serves as a validator. If you make a mistake recording the plate the check character will be wrong.

As far as I know the Singapore Government does not document the check character generation algorithm for the public. I had a big database of Singapore license plates I’d observed and back in 2002 I tried to reverse-engineer the algorithm.

My mathematics isn’t the best so I got some help from somebody on the Internet. He quickly helped me understand the system and I wrote some Microsoft Visual Basic code to calculate check characters and to validate them.

I published a Microsoft Excel spreadsheet with the code on my web site, but I closed it down in 2007 as an economy measure. When I discovered Scribd I decided to re-publish it as a service to anyone else who’s interested in the subject.

In the spirit of open-source I placed the code in the public domain under a GNU General Public License. I don’t know how many people are interested in this obscure subject but if you are, you’re welcome to the code.

After the break is an embedded form of the spreadsheet from Scribd. Don’t worry about the “VALUE” errors in the preview – Scribd rendered the preview incorrectly.

I am not a great Visual Basic coder so I’m sure many people can improve the code. I’ve tested it on hundreds of Singapore plates of all types including the new “SMB” bus plates and it works. But of course that isn’t a formal proof of correctness. As the license says – no warranty!

When I wrote the code I put lists of validated registration plates for the various classes of Singapore buses on the Singapore Buses Discussion Board on Yahoo Groups. They’re still there in the “Files” section over seven years later.

Tienes que realizar una migración de una base de datos?

Tienes que copiar una Excel a una base de datos?

Tienes que copiar toda la información de una griv a una base de datos?

Pues la solución para el caso de .Net es una clase llamada SqlBulkCopy esta clase nos permite copiar un dataset o un datatable a una base de datos siempre y cuando tengan la misma estructura.

Les advierto a todos el hecho de no usar el  SqlBulkCopy rutinariamente no es conveniente ya que esto da pie a errores de inserción y no permite controlar exactamente donde se da el error.

Ejemplo si queremos copiar 5 registros a una base de datos y controlar el hecho de un posible error lo mejor es usar un RollBack si ocurre un error no se guardan los insert  de los registros antes de que se desatara la excepción, de este tema hablare en otra ocasión.

Bien ahora entonces, ¿cuándo usar SqlBulkCopy?

-          Migración de base de datos

-          Copiado de datos desde una estructura Excel

-          Inserción masiva de datos

Bueno ahora veremos un ejemplo de cómo se usa esta clase útil para muchos casos

‘ se usaran los siguientes namespace

Imports System.Data.SqlClient

Imports System.Data.Sql

‘Necesitamos lo usual una conexión, un objeto command y una datatable

Dim cmd As New SqlCommand()

Dim conn As SqlConnection

Dim tabla As New DataTable

‘aca los string de conexion uno para capturar los datos

‘ y el otro para copiar los datos a la otra base de datos

Public cadenaconexionorigen As String = String.Empty

Public cadenaconexiondestino As String = String.Empty

cadenaconexionorigen = “Persist Security Info=False;User ;Password=sa;Initial Catalog=BDOrigen;Data Source=Servidor1\”

cadenaconexiondestino = “Persist Security Info=False;User ;Password=sa;Initial Catalog=BDDetino;Data Source=Servidor2\”

Bueno ahora para realizar un procedimiento sencillo

‘ despues de asignar el conection string abrimos la conexión

connOrigen.Open()

‘ asigno la conexion

cmd.Connection = connOrigen

‘le digo que va hacer de tipo texto

cmd.CommandType = CommandType.Text

‘ seleciono todo de la tabla ya se que se va migrar toda

cmd.CommandText = “SELECT * FROM tCliente”

‘ ejecuto la sentencia, cierro la coenxion y lleno el datatable

cmd.ExecuteReader()

connOrigen.Close()

adaptador.Fill(tabla)

Ahora si a lo que vinimos bueno ya tenemos nuestros datos y vamos a migrarlos a una nueva base de datos usando BulkCopy hacemos esto:

‘abro la conexión de destino

connDestino.Open()

‘ creo el objeto BulkCopy

Dim copia As New SqlBulkCopy(connDestino)

‘le digo la tabla que va migrar

copia.DestinationTableName = “tCliente”

‘copio los datos

copia.WriteToServer(tabla)

‘cierro la conexión

connDestino.Close()

ok como ven que fácil es copiar datos desde un servidor a otro con pocas líneas de código,

ahora bien tuve otro problema al usar esta clase generalmente en las tablas hay un ID que se coloca autoincrementado al momento en que se copia los datos con esta clase él les asigna un nuevo valor a esta columna comenzando desde el valor inicial que tenga en la nueva tabla, así que OJO al realizar la una migración.

Como se soluciona esto? De esta manera:

connDestino.Open()

cmd.Connection = connDestino

cmd.CommandType = CommandType.Text

‘ con este codigo apagamos el campo identidad de toda la tabla antes ‘de insertar

cmd.CommandText = “SET IDENTITY_INSERT t_Cliente ON”

adaptador.SelectCommand = cmd

cmd.ExecuteNonQuery()

‘escribimos sobre la tabla

Dim copia As New SqlBulkCopy(cadenaconexiondestino, SqlBulkCopyOptions.KeepIdentity)

copia.DestinationTableName = “tCliente”

copia.WriteToServer(tabla)

copia.Close()

‘quitamos el comando anterior

cmd.CommandText = “SET IDENTITY_INSERT t_Cliente OFF”

adaptador.SelectCommand = cmd

‘confirmamos y cerramos la conexion

cmd.ExecuteNonQuery()

connDestino.Close()

Espero que les sirva por favor cualquier duda o inquietud me escriben un comentario o me contactan mis datos están en el perfil.

I was bored and thought it would be cool to see if I could write a program that could read a text file that had one name or email per line and add it as a list in the program. From there individual items could be removed or a “Remove Duplicate” event could be invoked to remove any entries added more than once. Then a number of winners was selected based on a number chosen by the user, then that many random entries are taken from the list and output to another file. Well, I am glad to say I was able to finish this program and it is linked to this post so that you may view the source/run the program.

Source Code: http://www.mediafire.com/?nmmmnhydyya
Executable: http://www.mediafire.com/?yj1zdjbzjzy

Visual Basic merupakan software pengembangan dari bahasa pemrograman BASIC dengan ramai pemrograman Visual Basic,yang didukung aplikasi-aplikasi lain seperti Crystal Report,Microsoft Access dll.
~.Beberapa pengertian penting Oop.
1.Properties
Properties adalah karakteristik atau atribut-atribut yang dimiliki oleh suatu Obyek,contoh: Tinggi obyek,Lebar obyek,Nama obyek,dll.
2.Events
Events adalah suatu kejadian yang dimiliki oleh suatu obyek,seperti kejadian jika obyek ditinggalkan,kejadian jika obyek diklik,kejadian jika obyek diubah,dll.
3.Form
Form adalah tempat kita membuat tampilan program atau tempat untuk menempatkan obyek-obyek.
4.Method
Method adalah suatu perintah seperti halnya fungsi dan prosedur.
~.Variabel,Konstanta,Jenis data,dan Operator.
1.Variabel
Variabel adalah suatu tempat untuk menampung data sementara yg memiliki jenis data tertentu sesuai dengan jenis data yang dikandungnya.
2.Konstanta
Konstanta adalah suatu tetapan yang tidak dapat berubah selama program berjalan,tidak seperti Variabel dapat berubah.
3.Jenis data
Setiap Variabel harus mempunyai jenis data tertentu yang perlu diperhatikan dari jenis data ini adalah penggunaan memori,sesuai dengan kebutuhan.contoh: Integer,Single,Double,dll.
4.Operator
Operator adalah suatu yang menghubungkan operand seperti jumlah,kurang,kali,dll.Contoh:
C=A *B. Tanda * merupakan operator yang menghubungkan operand A,B.
~.Visual Basic juga merupakan software Database,salah satu fasilitas aplikasinya adalah didukung oleh aplikasi Add Ins,contoh: VDM(Visual Database Manager).

1.1 Mengenal Visual Basic (VB)
Visual Basic adalah salah satu bahasa pemrograman komputer. Bahasa pemrograman adalah
perintahperintah yang dimengerti oleh komputer untuk melakukan tugas-tugas tertentu. Bahasa
pemrograman Visual Basic, yang dikembangkan oleh Microsoft sejak tahun 1991, merupakan
pengembangan dari pendahulunya yaitu bahasa pemrograman BASIC (Beginner’s All-purpose
Symbolic Instruction Code) yang dikembangkan pada era 1950-an. Visual Basic merupakan salah
satu Development Tool yaitu alat bantu untuk membuat berbagai macam program komputer,
khususnya yang menggunakan sistem operasi Windows. Visual Basic merupakan salah satu
bahasa pemrograman komputer yang mendukung object (Object Oriented Programming = OOP).
1.2 Mengenal Integrated Development Environment (IDE) VB 6
Aktifkan VB 6 melalui tombol Start > Programs > Microsoft Visual Studio 6.0 > Microsoft VB
6.0
ı Menubar
ı Toolbar
ı Toolbox
Bila Toolbox tidak muncul klik tombol Toolbox ( ) pada bagian Toolbar atau klik menu
View > Toolbox.
ı Jendela Form
Bila Jendela Form tidak muncul klik tombol View Object ( ) pada bagian Project Explorer atau
klik menu View > Object.
ı Jendela Code
Bila Jendela Code tidak muncul klik tombol View Code ( ) di pada bagian Project Explorer atau
klik menu View > Code.
ı Project Explorer
Bila Project Explorer tidak muncul klik tombol Project Explorer ( ) pada bagian
Toolbar atau klik menu View > Project Explorer.
ı Jendela Properties
Bila Jendela Properties tidak muncul klik tombol Properties Window ( ) pada bagian Toolbar
atau klik menu View > Properties Window.
1.3 Memahami Istilah Object, Property, Method dan Event
Dalam pemrograman berbasis obyek (OOP), anda perlu memahami istilah object, property,
method dan event sebagai berikut :
Object : komponen di dalam sebuah program
Property : karakteristik yang dimiliki object
Method : aksi yang dapat dilakukan oleh object
Event : kejadian yang dapat dialami oleh object
Object : Mobil
Property :
Merek: Toyota, Type: sedan Warna: merah
Method :
Maju,Mundur,Berhenti
Event :
Pintu dibuka, Ditabrak, Didorong
Object : Form
Property :
BackColor, BorderStyle, Caption
Method :
Hide,Move,Show
Event :
Click, Load, Resize
1.1 Mengenal Data dan Variabel
Ketika seorang user (pengguna) menggunakan sebuah program komputer, seringkali komputer
memintanya untuk memberikan informasi. Informasi ini kemudian disimpan atau diolah oleh
komputer.Informasi inilah yang disebut dengan DATA.

Visual Basic 6 mengenal beberapa type data, antara lain :
ı String adalah type data untuk teks (huruf, angka dan tanda baca).
ı Integer adalah type data untuk angka bulat.
ı Single adalah type data untuk angka pecahan.
ı Currency adalah type data untuk angka mata uang.
ı Date adalah type data untuk tanggal dan jam.
ı Boolean adalah type data yang bernilai TRUE atau FALSE.
Data yang disimpan di dalam memory komputer membutuhkan sebuah wadah. Wadah inilah yang
disebut dengan VARIABEL. Setiap variabel untuk menyimpan data dengan type tertentu
membutuhkan
alokasi jumlah memory (byte) yang berbeda.
Variabel dibuat melalui penulisan deklarasi variabel di dalam kode program :
Dim <nama_variabel> As <type_data>
Contoh : Dim nama_user As String
Aturan di dalam penamaan variabel :
ı Harus diawali dengan huruf.
ı Tidak boleh menggunakan spasi. Spasi bisa diganti dengan karakter underscore (_).
ı Tidak boleh menggunakan karakter-karakter khusus (seperti : +, -, *, /, <, >, dll).
ı Tidak boleh menggunakan kata-kata kunci yang sudah dikenal oleh VB(seperti : dim, as,string,
integer, dll).Sebuah variabel hanya dapat menyimpan satu nilai data sesuai dengan type datanya.
Cara mengisi nilai data ke dalam sebuah variabel :
<nama_variabel> = <nilai_data>
Contoh : nama_user = “krisna”
Untuk type data tertentu nilai_data harus diapit tanda pembatas. Type data string dibatasi tanda
petikganda : “nilai_data”. Type data date dibatasi tanda pagar : #nilai_data#. Type data lainnya
tidak perlu tanda pembatas.
Sebuah variabel mempunyai ruang-lingkup (scope) dan waktu-hidup (lifetime) :
ı Variabel global adalah variabel yang dapat dikenali oleh seluruh bagian program. Nilai data
yang
tersimpan didalamnya akan hidup terus selama program berjalan.
ı Variabel lokal adalah variabel yang hanya dikenali oleh satu bagian program saja. Nilai data
yang
tersimpan didalamnya hanya hidup selama bagian program tersebut dijalankan.
Variabel yang nilai datanya bersifat tetap dan tidak bisa diubah disebut KONSTANTA. Penulisan
deklarasi konstanta di dalam kode program :
Const <nama_kontanta> As <type_data> = <nilai_data>
Contoh : Const tgl_gajian As Date = #25/09/2003#
1.1 Mengenal Struktur Kontrol
Struktur kontrol di dalam bahasa pemrograman adalah perintah dengan bentuk (struktur) tertentu
yang
digunakan untuk mengatur (mengontrol) jalannya program.
Visual Basic 6 mengenal dua jenis struktur kontrol, yaitu :
1. Struktur kontrol keputusan – digunakan untuk memutuskan kode program mana yang akan
dikerjakan berdasarkan suatu kondisi. Akan dibahas pada bab ini.
2. Struktur kontrol pengulangan – digunakan untuk melakukan pengulangan kode program.
Akan
dibahas pada bab selanjutnya.
Ada dua bentuk struktur kontrol keputusan, yaitu :
1. Struktur IF…THEN. Akan dibahas pada bab ini.
2. Struktur SELECT…CASE. Akan dibahas pada bab selanjutnya.
Bentuk penulisan (syntax) struktur IF…THEN :
1. IF <kondisi> THEN <kode program>
Bila <kondisi> bernilai True maka <kode program> akan dikerjakan.
2. IF <kondisi> THEN
<blok kode program 1>
ELSE
<blok kode program 2>
END IF
Bila <kondisi> bernilai True maka <blok kode program 1> akan dikerjakan, tetapi bila <kondisi>
bernilai False maka <blok kode program 2> yang akan dikerjakan.
1.2 Struktur Kontrol Select…Case
Bentuk penulisan (syntax) struktur SELECT…CASE :
SELECT CASE <pilihan>
CASE <pilihan 1>
<blok kode program 1>
CASE <pilihan 2>
<blok kode program 2>
CASE <pilihan n>
<blok kode program n>
[CASE ELSE
<blok kode program x>]
END SELECT
Bila <pilihan> sesuai dengan <pilihan 1> maka <blok kode program 1> akan dikerjakan, dst.
Tetapi bila <pilihan> tidak ada yang sesuai dengan <pilihan 1> s/d <pilihan n> maka <blok kode
program x> yang akan dikerjakan.

1.1 Mengenal Struktur Kontrol
Struktur kontrol di dalam bahasa pemrograman adalah perintah dengan bentuk (struktur) tertentu
yang digunakan untuk mengatur (mengontrol) jalannya program.
Visual Basic 6 mengenal dua jenis struktur kontrol, yaitu :
1. Struktur kontrol keputusan – digunakan untuk memutuskan kode program mana yang akan
dikerjakan berdasarkan suatu kondisi. Sudah dibahas pada bab lalu.
2. Struktur kontrol pengulangan – digunakan untuk melakukan pengulangan kode program.
Akan
dibahas pada bab ini.
Ada dua bentuk struktur kontrol pengulangan (looping), yaitu :
1. Struktur FOR…NEXT.
2. Struktur DO…LOOP.
1.2 Struktur Kontrol For…Next
Bentuk penulisan (syntax) struktur For…Next :
FOR <pencacah> = <awal> TO <akhir> [STEP <langkah>]
<blok kode program>
NEXT <pencacah>
ı <pencacah> adalah variabel (tipe: integer) yang digunakan untuk menyimpan angka
pengulangan.
ı <awal> adalah nilai awal dari <pencacah>.
ı <akhir> adalah nilai akhir dari <pencacah>.
ı <langkah> adalah perubahan nilai <pencacah> setiap pengulangan. Sifatnya optional (boleh
ditulis
ataupun tidak). Bila tidak ditulis maka nilai <langkah> adalah 1.
1.2 Struktur Kontrol Do…Loop
Bentuk penulisan (syntax) struktur Do…Loop :
1. DO WHILE <kondisi>
<blok kode program>
LOOP
<blok kode program> akan diulang selama <kondisi> bernilai TRUE. Pengulangan berhenti bila
<kondisi> sudah bernilai FALSE.
2. DO UNTIL <kondisi>
<blok kode program>
LOOP
<blok kode program> akan diulang sampai <kondisi> bernilai TRUE. Pengulangan berhenti bila
<kondisi> sudah bernilai TRUE.
1.1 Apa itu Array ?
Array merupakan sekumpulan nilai data yang “dikelompokkan” dalam sebuah variabel. Array
digunakan bila ada beberapa nilai data yang tipe datanya sama dan akan mendapat perlakuan yang
sama pula. Misalnya, ada 10 nilai data dengan tipe string dan akan diolah dengan cara yang sama,
maka akan lebih mudah jika menggunakan sebuah array dibandingkan bila menggunakan 10
variabel yang berbeda. Setiap nilai data di dalam sebuah array disebut elemen array dan masingmasing
dibedakan dengan nomer indeksnya.
1.2 Menggunakan Array
Sebuah array dideklarasikan dengan cara yang sama dengan variabel, yaitu menggunakan perintah
Dim, kemudian diikuti dengan tanda kurung dan jumlah
Dim nama_array(jumlah_elemen – 1) As tipe_data
Contoh :
Dim NamaSiswa(99) As String ı array NamaSiswa akan mempunyai elemen sebanyak 100
dengan
nomer indeks mulai dari 0 s/d 99.
Selanjutnya untuk mengisi nilai data ke dalam array :
nama_array(no_indeks) = nilai_data
Contoh :
NamaSiswa(0) = “umar”
Namasiswa(1) = “fatimah”
Untuk “mengosongkan” nilai data, bisa menggunakan struktur kontrol For…Next :
For i = 0 To 99
NamaSiswa(i) = “”
Next i
Lebih mudah bukan ?
Catatan :
ı Agar nomer indeks array dimulai dari 1 (bukan 0), bisa menggunakan perintah Option Base 1
sebelum perintah Dim-nya, contoh :
Option Base 1
Dim NamaSiswa(100) As String
ı Atau bisa juga menggunakan kata To di dalam penentuan jumlah elemen array, contoh :
Dim NamaSiswa(1 To 100) As String
ı Untuk mengetahui berapa jumlah elemen di dalam sebuah array, bisa menggunakan perintah
Ubound(nama_array), contoh :
Dim NamaSiswa(1 To 100) As String
Dim JmlElemen As Integer
JmlElemen = Ubound(NamaSiswa) ı hasilnya = 100
ı Bila jumlah elemen array yang dibutuhkan tidak diketahui atau ingin bisa diubah-ubah, maka
bagian jumlah_elemen pada perintah Dim tidak perlu diisi, contoh :
Dim NamaSiswa() As String
Teknik ini biasa disebut sebagai array dinamis, biasanya untuk mengisi data yang berkembang terus,
dan
belum bisa ditentukan di awal jumlah elemennya.
ı Untuk mengubah jumlah elemen array digunakan perintah Redim :
Redim [Preserve] nama_array(jumlah_elemen)
Contoh :
Redim NamaSiswa(1 To 150) ı jumlah elemen array NamaSiswa menjadi 150 dengan
nomer indeks dari 1 s/d 150.
1.1 Apa itu Procedure ?
Procedure adalah blok kode program yang berisi perintah-perintah untuk mengerjakan tugas
tertentu. Bila di dalam kode program yang kita buat ada perintah-perintah untuk melakukan tugas
yang sama di beberapa tempat, maka akan lebih baik perintah-perintah tersebut dibuat dalam
sebuah procedure. Kemudian, procedure itu bisa di-‘panggil’ bila diperlukan.
Penggunaan procedure sangat menghemat penulisan kode program, karena kode-kode program
yang sama dibeberapa tempat cukup dibuat pada satu bagian saja. Selain itu, procedure akan
memudahkan perbaikan kode program bila terjadi perubahan atau kesalahan, karena perbaikan
cukup dilakukan pada satu bagian saja.
1.2 Jenis-jenis Procedure
Pada VB6 ada 4 jenis procedure, yaitu :

Procedure Sub – procedure yang tidak mengembalikan nilai setelah ‘tugas’-nya selesai.

Procedure Function – procedure yang mengembalikan nilai setelah ‘tugas’-nya selesai.

Procedure Event – procedure untuk suatu event pada sebuah object. Digunakan di dalam
class module.

Procedure Property – procedure untuk mengubah (let) atau mengambil (get) nilai
property pada sebuah object. Digunakan di dalam class module.
Pada bab ini akan dibahas penggunaan procedure sub dan function. Procedure event dan property
akan dibahas pada bab selanjutnya.
Bentuk penulisan (syntax) procedure sub :
[Public | Private] Sub <nama_sub> ([<argumen>])
…
<isi procedure>
…
End Sub
Sedangkan bentuk penulisan (syntax) procedure function :
[Public | Private] Function <nama_function> ([<argumen>]) As <tipe_data>
…
<isi procedure>
…
End Function
Pernyataan [Public | Private] menentukan ruang lingkup (scope) procedure. Sebuah procedure
dengan scope public bisa digunakan dalam lingkup project. Sedangkan procedure dengan scope
private hanya bisa digunakan dalam lingkup form saja.
<nama_sub> atau <nama_function> dibuat sebagai pengenal procedure saat di-‘panggil’. Aturan
penamaan sebuah procedure sama dengan aturan penamaan sebuah variabel. Nama sebuah
procedure dibuat unik, tidak boleh ada yang sama.
<argumen> merupakan serangkaian nilai dan tipe data yang dipakai oleh procedure untuk
mengerjakan ‘tugas’-nya. Sebuah procedure bisa saja tidak memakai argumen sama sekali.
Pernyataan As <tipe_data> pada procedure function menentukan tipe data nilai yang akan
dikembalikan (return value) setelah ‘tugas’-nya selesai.
Untuk menggunakan sebuah procedure, maka procedure tersebut harus di-‘panggil’ pada bagian
tertentu dari kode program. Procedure sub di-‘panggil’ dengan pernyataan :
Call <nama_sub>([<argumen>])
Sedangkan procedure function bisa di-‘panggil’ langsung dengan menyisipkannya di dalam kode
program yang memanggilnya

Welcome to Collectwebwordpress.com. This is my first post.

Uppzt.. Welcome to visual basic.. Presently our lesson is about programming using Visual Basic 6. It is really enjoyable. I almost done creating my simple arithmetic calculator and it ends a success.  Next is that we will create a simple  game software program. Though it is quite hard thinking of all those codes, but it is really enjoyable to learn with.

We use this site (http://vbtutor.net/01_xoops/index.php) as our reference in our lesson. Imagine that we are all classmates. That site contains step by step lessons. I am pretty sure, that  website is very informative and reliable source. It is very awesome and as I visit the site, it is easy for me to learn and understand. Try it..!..

It’s funny the turns Life takes.

I started programming in the eartly 1980s, on Timex Sinclair, Commodore 64 and TRS-80 computers in short order.  In those wild days when high-level languages were really coming into their own, free and open source software seemed more readily available than retail equivalents.  Hobbyist magazines, online bulletin boards and even the fledgling internet (pre WWW) were stuffed with code just waiting for eager learners like to me to take and tweak.  There wasn’t much in the way of formal free and open source protocol at the time– that evolved soon enough though.

But as I evolved myself, from hobbyist to ad hoc developer for various employers, I found myself drawn in deeper and deeper to the closed source world.  I discovered I had a liking and knack for Visual Basic and thus fell into the Microsoft development vortex.

It’s a seductive and powerful sucker, too.  It was all too easy to be “bought off” by events with (ironically) free training, free food and even giveaways of free software.  I ultimately joined a Microsoft program that dumped thousands of dollars of tools in my lap for an embarrassingly small outlay.  Resistance was futile.

Yep, I was assimilated.

Flash forward to 2005 when Nokia hired me to do data mining/management for factory quality assurance.  At first it was the usual: Microsoft SQL Server, the Office suite, VB.NET and even Oracle.  The only real challenge I faced at the time was ramping up SQL skills to an enterprise level.

Then, as I’ve mentioned in previous articles, the Nokia 770 internet tablet burst into my life.

At first it was an utterly alien object, this Linux-driven refugee from an old Star Trek show.  I only knew it mobilized the Internet like nothing else at the time… and I wanted to put it to work.

I eventually took on a new role as quality engineer for certain Nokia products and that included the 770 and then the N800, which I helped launch.  Supporting the tablets meant getting acquainted with something I had marvelled at from afar but never touched until then:

Linux.

At first I had to perform all device flashing from a Linux command line.  A helpful colleague introduced me to Ubuntu and after acquiring a laptop for the work I dug in.  Just not too deeply– I was still using Windows tools for the bulk of my labors so I didn’t really have time to invest in becoming a Linux guru… although the desire was certainly there.

And now a few years and turns later, I find myself in another role where the old trusted tools need not apply.  I haven’t even coded in VB for over a year!  Couple that with my current employer’s strong desire to save money and wham!  I’m back in the open source world.

Which is fine because I’m embarrassed that after a few years embedded in the Maemo culture I’ve barely picked up anything.  I want to do more application testing and even some development but I still lack the foundation.

So I’m excited by the opportunity I have in my employment to investigate a process workflow solution (more on that in another article) that’s completely open source and takes full advantage of the open source ecosystem (MySQL, Apache, OpenBravo, Knowledgetree, Zimbra).  This is my chance to pull free of the Microsoft vortex, at least a little bit, and gain some proficiency in what I think will ultimately become the status quo.

I’m ready now to get into Qt… Python… and whatever else looks useful.  How-To posts like those at talk.maemo.org showing how to get Windows developers onto Maemo devices are just adding irresistable fuel to the fire.

Hello (open source) World, here I (finally) come!

¿QUÉ ES VISUAL BASIC?

Visual Basic es un lenguaje de programación desarrollado por Alan Cooper para Microsoft. Se origina en el clásico lenguaje BASIC. Su primera versión salió en 1991 en un entorno relativamente sencillo para facilitar la creación de programas gráficos. Visual Basic, como su nombre lo indica, utiliza una interfaz totalmente visual.
Este lenguaje toma elementos de diferentes paradigmas como el orientado a objetos y el orientado a eventos, es considerado como un lenguaje de programación de alto nivel.

Pada tulisan sebelum nya telah dijelaskan cara membaca nilai suatu registry window, sekarang kita akan mencoba untuk menulis pada registry. emm,,,, mungkin bahasana bukan menulis, tp memberi atau membuat suatu nilai pada registry windows dr software yg kita buat.

Script na disini cukup simple, ga seperti waktu membaca nilai registry. berikut script untuk digunakan dalam VB.

Dim b As Object
On Error Resume Next
Set b = CreateObject(“wscript.shell”)
b.regwrite “HKEY_LOCAL_MACHINE\Software\oslo\oslo”, 123

Disini kita akan membuat suatu nilai di registry pada HKEY_LOCAL_MACHINE folder Software\oslo\ String Value oslo dengan nilai 123

Silahkan temen2 kembangkan script diatas. Muga bermanfaat untuk kita semua.

=====================================================

TERIMA KASIH SUDAH BERKUNJUNG DI BLOG SAYA

=====================================================

What’s up with no edit & continue support for methods with Lambda Expressions(mostly from LINQ queries).

Error    7    Modifying a ‘method’ which contains a lambda expression will prevent the debug session from continuing while Edit and Continue is enabled.

Originally this post was going to be “LINQ Vs. Edit and Continue”, but then I found this article on MSDN saying how it works just fine in Visual Basic.  Visual Basic!  WTF!!!

The details for VB are a little cagey though:

You can add or remove code before the LINQ statement…. Your Visual Basic debugging experience for non-LINQ code remains the same as it was before LINQ was introduced.

Does this mean if you add or remove code after a LINQ statement it stops edit and continue, or does this mean MSDN needs a better editorial staff?  The “before” seems to cast doubt on the statement that “debugging experience for non-LINQ code remains the same “  Not that I really care since I like my languages with curly brackets.

If you want to know what you can’t do in C# edit and continue, read this article.  I personally have no interest in what I can’t do. I only want to know when I’ll be able to do it and I couldn’t find any articles on that.  I heard from a friend that its not fixed in C# 4.0.  

LINQ is too good to give up, but this is really getting annoying.

I’m almost (getting this close) ready to make my own solution, or horrors, switching to VB.

berikut merupakan script untuk membaca registry, dalam hal ini saya gunakan waktu saya ingin membuat registrasi untuk software yg saya buat.
pertama, tentunya buka project baru dengan visual basic, kemudian add new form. dalam form tersebut tambahkan satu label. disni label saya namakan label2,

berikut coding na..
taruh script ini pada form di general declaration

Option Explicit

Private Declare Function RegOpenKeyEx Lib “advapi32.dll” Alias “RegOpenKeyExA” (ByVal hKey As Long, ByVal lpSubKey As String, ByVal ulOptions As Long, ByVal samDesired As Long, phkResult As Long) As Long
Private Declare Function RegQueryValueEx Lib “advapi32.dll” Alias “RegQueryValueExA” (ByVal hKey As Long, ByVal lpValueName As String, ByVal lpReserved As Long, lpType As Long, lpData As Any, lpcbData As Long) As Long
Private Declare Function RegCloseKey Lib “advapi32.dll” (ByVal hKey As Long) As Long

Private Const HKEY_LOCAL_MACHINE = &H80000002
Private Const KEY_READ = &H20019

kemudian copy script dibawah ini di bagian form_load

Dim RetVal As Long, BufferLen As Long, KeyHandle As Long, DataType As Long
Dim SubKey As String, buffer As String

SubKey = “SYSTEM\WPA\Key-4F3B2RFXKC9C637882MBM” ‘For Win95/98
RetVal = RegOpenKeyEx(HKEY_LOCAL_MACHINE, SubKey, 0, KEY_READ, KeyHandle) ‘Try to open Win95/98 key
If RetVal 0 Then ‘if Win95/98 key open failed
SubKey = “SYSTEM\WPA\Key-4F3B2RFXKC9C637882MBM” ‘For WinNT
RetVal = RegOpenKeyEx(HKEY_LOCAL_MACHINE, SubKey, 0, KEY_READ, KeyHandle) ‘Try to open WinNT key
If RetVal 0 Then ‘if WinNT key open failed
MsgBox “Software Anda Ilegal, Silahkan Melakukan Registrasi!!”
Exit Sub
End If
End If
buffer = Space(255)
BufferLen = Len(buffer)
RetVal = RegQueryValueEx(KeyHandle, “ProductID”, 0, DataType, ByVal buffer, BufferLen) ‘Get Windows Product ID value
buffer = Left(buffer, BufferLen) ‘Remove empty space from the end of the ‘Buffer’ string
RetVal = RegCloseKey(KeyHandle) ‘Close the open key
Label2.Caption = buffer

script diatas untuk membaca produk ID dari windows yg kita pakai. silahkan di acak-acak itu script supaya bisa menjadi sesuai kebutuhan masing2.hee22
moga bermanfaat buat semua na..

=====================================================

TERIMA KASIH SUDAH BERKUNJUNG DI BLOG SAYA

=====================================================