Showing posts with label vb6. Show all posts
Showing posts with label vb6. Show all posts

Event di Visual Basic

12:00 PM Add Comment
Hallo guys kali ini admin akan melnjutkan pembahasan tentang visual basic 6.0 atau sering disingkat dengan VB6, oke kita langsung saja ke pembahasan...

Logo VB

Pengertian Event di Visual basic 6.0

Kita sekarang akan membahas mengenai apa itu event di visual basic  ? Di javascript kita juga pernah pengenal apa itu event , Tetapi  agar lebih jelas lagi kita akan bahas kembali . Sekedar mengingatkan bahwa event itu adalah kejadian , maksudnnya misal di visual basic itu ada banyak sekali kejadian contoh seperti ketika di klik maka akan melakukan fungsi ini . Misalnya lagi di dalam sebuah games misal CS ketika kita menekan tombol W maka akan berpindah atau melakukan fungsi berpindah ke depan . Tidak hanya ketika mouse di click , atau keyboard di tekan , saja event itu .

Berbagai Event di VB 6.0

Di vb banyak sekali event event , antara lain :

  • Click : Ketika kita klik kiri mouse
  • Dblclick : ketika kita klik kiri dua kali
  • Dragdrop : Ketika kita menyeret objek 
  • Dragover : ketika kita meyeret objek 
  • Mouse Down : Ketika kita menekan dan menahan tombol kiri di mouse 
  • KeyPress : Ketika kita menekan tombol di keyboard . Misal menekan tombol w maka melakukan perintah . Untuk itu kita harus mengenal kode kode ASCII , tidak perlu di hapal kita cukup tau saja kegunaanya apa di dalam dunia pemprograman .
  • KeyDown : Ketika kita menekan dan menahan sebuah tombol di keyboard
Baca Juga : Perulangan pada Visual Basic 6
  • KeyUp : Ketika kita selesai menekan sebuah tombol yang ada di keyboard
  • Activate : Ketika sebuah form menjadi windows aktif
  • Deactive : Ketika berpindah form 
  • GotFocus : Ketika sebuah objek menjadi satu satunya fokus 
  • LostFokus : Ketika sebuah objek kehilangan fokus 
  • Load  : Ketika form di load atau di panggil atau di buka
  • LinkOpen : Ketika sebuah aplikasi menginisal suatu DDE dengan form
  • LinkClouse : Ketika di akhir pemanggilan DDE
  • LinkExecute : Ketika aplikasi mengirim perintah ke aplikasi vb dengan DDE
  • LinkError : Ketika kesalahan sebelum pemanggilan DDE
  • LinkNotify :Ketika aplikasi sumber mengubah data yang dihubungkan dengan aplikasi Vb
  • Timer : Ketika event lain dijalankan sebelum event ini dijalankan . Event ini hanya berhubungan dengan kontrol . 
  • Scoll : Ketika user menyerek kotak kecil pada scoll bar . 
  • PathChange : Ketika path standar mencari sebuah nama file di ubah . 
  • PatternChange : Ketika kode pencarian daftar file di ubah 
  • Validate : Ketika untuk memastikan bahwa data telah ditangani dengan baik

Itu dia berbagi Event di VB 6 . Gimana , pada ngantuk bacanya ya ? Jika ngantuk kita langsung saja praktek , jika tidak ngantuk coba lebih memahami lagi materi event ini .

Contoh menggunaan Event di VB 6

Sekarang kita akan coba , bagaimana cara menggunakan event ? Kita buat saja Tampilan seperti di bawah . Ada Text Box , Label , Commad Bottom . 

Event di Visual Basic

Desain saja sesuka hati kalian , yang terpenting di sini kita membutuhkan Text box , 2 label , dan command bottom .  Jika sudah kita Double click pada command bottom atau masuk ke bagian code .

Event di Visual Basic


Dan ketik Seperti berikut .

Private Sub Command1_Click()
Label2 = Text1
End Sub
Baca Juga : Operasi File pada VB6

Jika sudah Sekarang kita coba jalankan dengan menekan tombol F5 pada keyboard atau menekan tombol start

Event di Visual Basic

Nah kurang lebih seperti itu hasilnya jika kita isi textbox dan kita klik Simpan maka akan tampil di label2 . Jadi kita di sana sebagai contoh kita menggunakan event Clik .

Oke Mungkin itu dia pembahasan mengenai event di VB 6  , semoga bermanfaat dan juga menambah wawasan . Terimakasih telah berkenan membaca artikel ini . Sampai jumpa di artikel yang lainnya yang lebih menarik dan juga lebih bermanfaat .

Variable visual basic 6.0

11:30 PM Add Comment
Hallo guys kembali lagi bersama saya, di kesempatan kali ini saya akan memcoba share ilmu mengenai visual basic . Sekarang saya akan membahas mengenai Variable pada visual basic . Kawan kawan mungkin sudah pada tau apa itu variable ?



Hanya mengingatkan
Ini Versi wikipedia

Dalam pemrograman komputervariabel adalah lokasi penyimpanan dan terkait nama simbolis yang berisi beberapa kuantitas yang diketahui atau tidak diketahui atau informasi,nilai. Nama variabel adalah cara biasa untuk referensi nilai yang disimpan, pemisahan nama dan konten ini memungkinkan nama yang akan digunakan secara terpisah dari informasi tepat yang diwakilinya.[diragukan ] Nama variabel di kode sumber komputer adalah pengenal yang dapat terikat ke nilai selama waktu berjalan, dan nilai yang dapat berubah selama program eksekusi.


Variable pada Visual Basic 6.0

Variable pada visual basic di visual basic merupakan penulisan varibale yang paling mudah dari pada yang lainnya , Apa alasannya  ?
Baca Juga : Percabangan pada visual basic 6
  • Tidak perlu menentukan tipe data dulu . Kalo di bahasa pemprograman lain seperti c , java , dan kawan kawan perlu untuk menentukan tipe data dulu , tetapi kalo di vb tidak perlu menentukan tipe data , tipe datanya otomatis ketika kita memberi nilai misal bilangan berarti integer .
  • Tinggal tulis nama variable saja . Kalo di bahasa pemprograman lain menulis variable perlu penentukan tipe data atau menulisakan kata atau simbol tertentu , seperti di php diawali $ , di javascript di awali var spasi namanya . Kalo di vb ini tinggal tulis nama saja 
Variable di vb memang beda .

Di dalam vb terdapat dua jenis variable , yaitu vaiable lokal dan variable global , dari namanya saja sudah bisa di tebak . Kalo variable lokal berarti hanya di dalam suatu fungsi atau subroutine ,  penilisannya langsung saja .Kalo variable global variable yang bisa di akses oleh berbagai fungsi , Untuk itu perlu mendeklarasikan dulu di paling atas kode , contoh dim nama as string . 

Contoh program variable


Sebagai contoh kita akan coba untuk membuat penambahan 2 bilang dengan variable . Berarti kita memerlukan tiga buah variable yang dua inputan user dan yang satu lagi adalah buat menampung atau menyimpan penjumlahan inputan user . Jadi di ibaratkan kita memiliki tiga buah ember yang dua sudah diisi dan yang satu lagi akan diisi dengan pengabungan dua ember tersebut . 

Desain seperti di bawah , gak sama desainnya gak apa apa , yang terpenting kita siapkan 2 textbox , 3 label , dan 1 command button . Nama jangan di ubah 


Kita ketik kode berikut


Val itu untuk mengambil nilai angka , jadi kalo kita kasih text1 dan text2 string maka hasilnya akan nol .
Ini contoh yang paling sederhananya .

Sebenarnya kita bisa  sih hanya satu variable saja , tetapi sebagai dasarnnya tiga dulu . Kalo kawan kawan ingin satu variable coba buat sendiri atau kalo gak mau yang ribet ketik seperti gambar di bawah


Hasilnya sama saja . Sekarang kawan kawan coba buat pengurangan , perkalian , pembagian , dan lain lain , Sebagai penglebih pahaman saja .

Oke mungkin itu dia bahas bahas mengenai variable di vb6 . Semoga bermanfaat dan juga menambah wawasan . Terimakasih telah berkenan  .Sampai jumpa di artikel yang lainnya yang lebih bermanfaat dan juga lebih menarik lagi .

Percabangan pada visual basic 6

3:00 AM Add Comment
Kali ini saya akan berbagi mengenai percabangan pada visual basic . Seperti yang kita tau bahwa percabangan adalah merupakan struktur dasar pada algoritma , jadi percabangan merupakan dasar pemprograman . Seluruh bahasa pemprograman pasti ada yang namanya percabangan .


Percabangan vb6

Percabangan ibaratnya kita sedang ulangan fisika dan hasil nilainya adalah 100 dan kkm adalah 99 . Maka tidak perlu lagi adanya remedial . Tetapi jika hasil nilainya lebih kecil dari 99 maka akan ada remedial . Jadi percabangan itu di pengaruhi oleh kondisi , kalo nilai >= 99 maka tidak perlu remedial dan nilai < 99 maka remedial . > , >= , <= , < , = ,!= ( jika tidak sama dengan ) ini disebut operator perbandingan .

Percabangan pada vb6 ada if  , select case .

percabangan dengan if

Oke yang akan pertama kita bahas adalah if . Penulisan if adalah


If kondisi Then
    perintah
    perintah
    ...
Else
    perintah
    perintah
    ...
End If
Sekarang kita akan coba gunakan
Atur tampilan seperti berikut


Sekarang kita ke bagian koding


Private Sub Command1_Click()
bil1 = Val(Text1)
bil2 = Val(Text2)
If bil1 > bil2 Then
    Label3.Caption = "Bilangan 1 lebih besar dari bilangan 2"
Else
    Label3.Caption = "Bilangan 1 lebih kecil dari bilangan 2"
End If
End Sub
Jadi disana terlihat bahwa bil1 > bil2 itu adalah kondisinya . Artinya variable bil1 lebih besar dari variable  bil2. jika kondisinya benar atau kodisinya memenuhi , maka akan melakukan perintah yang if dan jika kondisinya salah atau tidak memenuhi maka akan melakukan perintah else . Mudah kan belajar VB itu .
Baca juga : Array pada vb6
Sekarang bagaimana kalo didalam percabangan ada percabangan lagi atau istilahnya percabangan berantai .
Langsung saja kita ke contohnya
atur tampilan seperti berikut


Bagian koding


Private Sub Command1_Click()
nilai = Val(Text1)
If nilai > 60 Then
    If nilai >= 80 Then
        If nilai >= 90 Then
            Label2 = "A"
        Else
            Label2 = "B"
        End If
    Else
        Label2 = "C"
    End If
Else
    Label2 = "D"
End If
End Sub


Percabangan dengan select case

Sekarang kita akan coba menggunakan select case , select case ini bisa lebih dari dua percabangan . Oleh karena itu select case biasanya di manfaatkan salah satunya pembuatan game yang memerlukan code ascii .Tetapi tidak hanya itu select case ini sangat bermanfaat . Untuk penulisan select case


Select Case variable
    Case 1:
        perintah
    Case 2:
        perintah
    Case 3:
        perintah
    Case 4:
        perintah
    Case 5:
        perintah
....
End Select
Baca juga Operasi File pada vb

Sekarang kita akan coba contohnya , atur tampilan seperti berikut

Di bagian koding


Private Sub Command1_Click()
kode = Val(Text1)
Select Case kode
    Case 1:
        Label2 = "Senin"
    Case 2:
        Label2 = "Selasa"
    Case 3:
        Label2 = "Rabu"
    Case 4:
        Label2 = "Kamis"
    Case 5:
        Label2 = "Jum'at"
    Case 6:
        Label2 = "Sabtu"
    Case 7:
        Label2 = "Minggu"
End Select
End Sub
Nah jadi itu dia bahas bahas mengenai percabangan pada visual basic 6 . Semoga bermanfaat dan juga menambah wawasan .Terimakasih telah berkenan membaca artikel ini . Sampai jumpa di artikel yang lainnya yang lebih menarik dan juga lebih bermanfaat .

Operasi file pada vb6

3:20 AM Add Comment


Selamat datang kawan kawan di blog saya yang sederhana ini . Di kesempatan kali ini saya akan coba share mengenai vb lagi . Kali ini kita akan bahas mengenai operasi file pada vb6 . Jadi kita kali ini akan coba untuk membaca file , menulis file , dkk .

Baca Juga : Constrctor pada Java
Untuk struktur penulisan operasi file di vb6 , kita gunakan


open "lokasi_file" for status as #n

close #n
Status di dalam vb6 ada dua yaitu input untuk membaca file dan output untuk menyimpan file . #n itu maksudnya file mana yang akan di proses , yang nilainya berupa integer .

Oke kita akan lakukan pertama kali adalah menulis file , Sekarang desain tampilan seperti berikut .


Jika sudah desain tampilan , sekarang ke bagian coding tulis listing program seperti berikut



Dim tulisan As String
Private Sub Command2_Click()
tulisan = Text1
lokasi = App.Path & "/contoh.txt"
Open lokasi For Output As #1
    Print #1, tulisan
Close #1
End Sub

Private Sub Text1_Change()
Label1.Caption = Text1
End Sub
Oke sekarang kawan kawan save project , lalu jalankan programnya .
Begitu kita isi text1 dan klik simpan maka akan ada file baru contoh.txt , dan jika kita buka tulisan seperti yang kita inputkan . Bro kalo selain file txt bisa gak ? jelas bisa , gak percara coba ganti contoh.txt dengan contoh.html .

Untuk memasukan tulisan ke file yang kita operasi kita gunakan print #n, nilai . Oke sekarang sudah pada jelaskan . Kalo gak jelas saya saranin lakukan experimen yang dengan listing program yang saya berikan , sampai paham . Oke kalo sudah paham kita lanjut untuk membaca file .

Masih projek yang tadi , tinggal kita ganti saja kodinganya



Dim tulisan As String
Dim lokasi As String
Dim karakter As String
Private Sub Command2_Click()
tulisan = Label1.Caption
'untuk menyimpan file
Open lokasi For Output As #1
    Print #1, tulisan
Close #1
End Sub

Private Sub Form_Load()
lokasi = App.Path & "/contoh.html"
'membaca file
Open lokasi For Input As #1
        Input #1, karakter
        Label1 = karakter
Close #1
End Sub

Private Sub Text1_Change()
Label1.Caption = karakter & Text1
End Sub
Begitu di jalankan


Maka membaca dan meedit telah berhasil , sekarang kita coba lihat contoh.html .



Oke semoga pada ngarti . Terimakasih telah berkenan membaca artikel ini .Sampai jumpa di artikel yang lainnya yang lebih menarik dan juga lebih bermanfaat .

Array pada vb6

3:00 AM Add Comment



Selamat datang kawan di blog saya yang sederhana ini . Di kesempatan kali ini saya akan coba share mengenai vb6 lagi , kali ini saya bahas mengenai array pada vb6 . Yang di tanyakan array pada vb6 ini adalah . Apa itu array ? Bagaimana cara membuat array ? Apa kegunaan array ?

Baca juga : Fungsi pada vb6

Apa itu array ?

Array merupakan kumpulan nilia bervariable sama yang membedakan adalah indexnya . Index itu apa ? nanti kita akan tahu setelah kita menulis dan mejalankan contoh dari saya .  Apa sih keuntungan dari array itu ? keuntungannya adalah kita dapat menampung banyak nilai dalam variable yang sama .  Cara penulisannya gimana ?


dim nama_varible(jumlah_array) as tipe_data

Baca juga : Cara membuat jam digital degan vb6
Mudahkan penulisan array pada vb6 ini . Di vb6 ini ada yang namanya array dinamis . Array dinamis itu apa sih ? Jadi array dinamis adalah array yang jumlah maksimumnya tidak terbatas .

Contoh array

Atur tampilan seperti berikut . Kita tambahkan saja satu list box


Sekarang kita tinggal koding . Codingnya seperti berikut 


Dim nama(3) As String

Private Sub Form_Load()
nama(0) = "Naruto"
nama(1) = "Sasuke"
nama(2) = "Sakura"
nama(3) = "Kakashi"
For n = 0 To 3
List1.AddItem nama(n)
Next n
End Sub
Sebagai tambahan jadi array itu dimulai dari 0 indexnya , jadi kalo kita ingin memanggil Naruto maka nama(0) . Mudah bukan untuk membuat array .

Contoh multi array 


Maksudnya apa sih mult array itu ? Jadi multi array adalah array di dalamnya itu ada array lagi . Penulisannya sama hanya pas di bagian indexnya ditambah lagi . Contoh Dim nama(2, 2) As String yang artinya itu adalah kita memiliki variable nama yang merupakan array dan di dalam array tersebut ada array lagi .Membingunkan ya . Jika bingung kita langsung ke contohnya saja , semoga tidak bingung .

Atur tampilan seperti berikut . Ada listbox dan combo box , 


Sekarang kita ke bagian koding , dan tulis seperti berikut


Dim nama(2, 2) As String

Private Sub Combo1_Click()
List1.Clear
pilah = Combo1.Text
Select Case pilah
Case "Genin"
    For n = 0 To 2
        List1.AddItem nama(0, n)
    Next n
Case "Jonin"
    For n = 0 To 2
        List1.AddItem nama(1, n)
    Next n
Case "Senin"
    For n = 0 To 2
        List1.AddItem nama(2, n)
    Next n
End Select
End Sub

Private Sub Form_Load()
nama(0, 0) = "Naruto"
nama(0, 1) = "Sasuke"
nama(0, 2) = "Konohamaru"
nama(1, 0) = "Shikamaru"
nama(1, 1) = "Neji"
nama(1, 2) = "Kakashi"
nama(2, 0) = "Jiraya"
nama(2, 1) = "Sunade"
nama(2, 2) = "Orochimaru"
End Sub
Jadi kalo kita ingin kita kalo kita ingin manggil naturo maka nama(0,0) atau di ibaratkan nama(Genin,0) , kalo manggil neji nama(1,1) atau di ibaratkan nama(Jonin,1) . Kalo masih binggun di bagian multi arraynya coba terus pahami . ingat belajar itu tidak mudah butuh perjuangan , dan setelah perjuangan itu kita akan mendapat hasilnya .

Oke mungkin itu dia bahas bahas mengenai array pada vb6 . Semoga bermanfaat dan juga menambah wawasan . Terimakasih telah berkenan membaca artikel ini . Sampai jumpa di artikel yang lainnya yang lebih bermanfaat dan juga lebih menarik .