Membuat Gambar yang mengikuti mouse pada Visual Basic 2008/vb.net

Sebenarnya untuk Membuat Gambar yang mengikuti mouse pada Visual Basic 2008/vb.net sangatlah simple dan mudah sekali jika sudah sedikit tahu tentang kode visual basic 2008 karena kodenya sangat simple dan tidak terlalu banyak.
Tahap awal dalam Pembuatan program ini adalah membuat form dan berikan komponen:

• 1 Timer
• 1 Picturebox

Langkah pertama masukkan gambar apa saja kedalam picturebox kemudian klik2 kali formnya, hapus semua kode yang ada lalu masukkan kode dibawah:

Public Class Form1



    Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
        PictureBox1.Left = MousePosition.X
        PictureBox1.Top = MousePosition.Y - 20
        If PictureBox1.Left = Me.Right Then
            PictureBox1.Left -= 10
        ElseIf PictureBox1.Top > Me.Bottom Then
            PictureBox1.Top += 10
        End If
    End Sub

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Timer1.Enabled = True
        Me.WindowState = FormWindowState.Maximized
    End Sub
End Class
 

Read more

Color Picker visual basic 2008 / vb.net

 Kali ini saya akan memberikan kode untuk membuat Color Picker visual basic 2008 / vb.net paling sederhana, karena ini baru langkah awal agar dapat dikembangkan sesuai keinginan para pecinta visual basic, color picker ini bisa digunakan untuk membuat program seperti Spanduk, Logo, Stiker dan semacamnya.

Untuk mengawali membuat Color Picker visual basic 2008 / vb.net, anda buka Microsoft visual basic 2008/vb.net lalu klik 2 kali form yang sudah dibuat, hapus semua kode yang ada dan masukkan kode dibawah ini:

Public Class Form1

    Dim clr As New ColorDialog


    Private Sub Form1_DoubleClick(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.DoubleClick
        If clr.ShowDialog = Windows.Forms.DialogResult.OK Then
            Me.BackColor = clr.Color
            Me.Text = "Warna yang anda pilih: " & clr.Color.Name
        End If
    End Sub
End Class

Sekarang coba Run setelah terbuka windows yang baru saja di run, klik 2 kali halaman Form1 nya maka akan muncul Settingan warna dan jika anda pilih salah satu warn tersebut maka background form akan berubah sesuai dengan warna yang anda pilih dan  Judul Form akan menyesuaikan warna ang anda pilih.

Read more

DDOS Attacker visual basic 2008/ vb.net

Tadinya saya tidak mau membuat program yang dapa merugikan orang lain seperti DDOS Attacker visual basic 2008/ vb.net namun setelah berfikir dalam waktu yang cukup lama akhirnya keputusan untuk membuat DDOS Attacker visual basic 2008/ vb.net ditentukan, mungkin software ini saya peruntukan hanya untuk orang yang ingin belajar mengembangkan Programing language saja, jadi kalau ada seseorang yang menggunakan ilmu atau pelajaran yang didapat dari blog ini untuk kepentingan pribadi saja, saya tidak akan dan tidak mau bertanggung jawab sama sekali.

Baiklah, sekarang bukalah Visual basic 2008 anda kemudian buatlah satu form dengan kmponen sebagai berikut:

• 1 label
• 1 textbox
• 2 button
• 1 listbox
• 1 Timer dengan ketentuan sebagai berikut:

            - Enabled= False
            - Interval = 1
            - Modifier = Friends

Lihat gambar dibawah:

 

Kemudian klik 2 kali formnya, hapus semua kode yang ada dan masukkan kode dibawah ini:

Imports System.Net
Public Class form1
    Dim pi As New System.Net.NetworkInformation.PingOptions
    Dim pipi As New System.Net.NetworkInformation.Ping
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Timer1.Enabled = True
        Button2.Enabled = True
        Button1.Enabled = False

    End Sub

    Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
        Dim host As IPHostEntry = Dns.GetHostByName(TextBox1.Text)
        Dim ip As IPAddress() = host.AddressList

        Shell("Ping " & (TextBox1.Text) & "-1" & "6500")
        pipi.Send(TextBox1.Text)
        Try
            ListBox1.Items.Add("Ping Reply From " & ip(0).ToString & " time=" & pipi.Send(TextBox1.Text).RoundtripTime & " TTL=" & pipi.Send(TextBox1.Text).Options.Ttl)
            ListBox1.SelectedIndex += 1

        Catch
            ListBox1.Items.Add("Timed Out")
            ListBox1.SelectedIndex += 1
        End Try
    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        Timer1.Enabled = False
        Button1.Enabled = True
        Button2.Enabled = False
    End Sub
End Class

 Lalu coba jalankan program yang sudah dibuat tersebut, maka hasilnya akan seperti gambar dibawah ini:

 

 

 

Read more

Cara memasang icon pada visual basic 6

Banyak sekali orang yang bingung tentang Cara memasang icon pada visual basic 6 karena tidak semua file .ico support untuk dimasukkan pada vb6, ada beberapa persyaratan untuk icon visual basic 6 yaitu:

• File icon jangan lebih dari 100kb
• Ukuran icon harus standard biasanya icon yang dibuat melalui online tidak support

Setelah 2 syarat tadi terpenuhi lihat gambar dibawah ini:

Ukuran icon lebih dari 100kb maka jika diklik ok akan keluar error seperti gambar dibawah ini:

Lalu lihat gambar dibawah ini:

Ukuran icon hanya 2.18kb maka jika diklik akan berhasil menjadi icon form lihat gambar dibawah :

Tapi ketika form di make project1.exe icon pada folder masih tetap menggunakan icon default dari visual basic 6 bagaimana cara mengatasinya? untuk mengatasi permasalahan yang sangat sederhana ini cukup klik kanan Project1.vbp dibagian kanan atas-->Project1 Properties-->Make --> icon--> pilih form1.

Read more

Video Tutorial visual basic 6 dan visual basic 2008

Bagi anda yang menginginkan Video Tutorial visual basic 6 dan visual basic 2008 dari berbagai macam jenis aplikasi yang dibuat oleh saya dapat dilihat di channel youtube saya, video tutorial ini dibuat untuk mempermudah anda dalam mempelajari bahasa pemprograman visual basic baik visual basic 6 ataupun versi yang setelahnya.

Dalam Video Tutorial visual basic 6 dan visual basic 2008 yang saya buat mungkin belum pernah ada yang mempublish meskipun dengan judul yang sama saya yakin kode yang saya gunakan tidak sama dengan yang lain, Video Tutorial visual basic 6 dan visual basic 2008 yang saya masukkan ke youtube akan selalu update sehingga anda tidak kebingungan lagi ketika mencari pelajaran tentang pemprograman menggunakan visual basic.

Video Tutorial visual basic 6 dan visual basic 2008 yang pertama kali di upload adalah tutorial database ms access dengan visual basic 6 ketika database sudah selesai selanjutnya adalah pemprograman lain yang menggunakan visual basic 6 baik yang berhubungan dengan database ataupun yang tidak menggunakan database.

Anda dapat melihat semua video tutorial saya di channel saya yang di youtube yaitu http://www.youtube.com/user/ArtikelVisualBasic/videos
Copy link diatas dan pastekan pada browser kesayangan anda dan make bookmark jika memang anda benar-benar membutuhkan tutorial tentang visual basic, karena saya akan mencoba menerangkan visual basic secara gamblang dan terbuka tanpa ada yang ditutup-tutupi.

Read more

Membuat kalkulator sederhana menggunakan visual basic 2008/vb.net

Bagi pada pemula yang masih bingung untuk Membuat kalkulator sederhana menggunakan visual basic 2008/vb.net kali ini saya ingin memberikan artikel bagaimana Membuat kalkulator sederhana menggunakan visual basic 2008/vb.net dan dibawah ini adalah cara memulai pembuatan kalkulator sederhana versi saya.

Buatlah satu form dengan komponen 1 textbox, 2 label, dan 4 radio button, rubah visible untuk label1 menjadi falsedan ganti text radiobutton1 menjadi Tambah, radiobutton2 menjadi Kurang, radiobutton3 menjadi Kali dan radiobtton4 menjadi Bagi seperti gambar dibawah:

Selanjutnya klik 2 kali form yang sudah dibuat dan hapus semua kode yang ada lalu ganti dengan kode ini:

Public Class form1


    Private Sub TextBox1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox1.TextChanged
        If TextBox1.Text = "" Then
            TextBox1.Text = 0
        End If
        If RadioButton1.Checked = True Then
            Label2.Text = TextBox1.Text + +Label1.Text
        ElseIf RadioButton2.Checked = True Then
            Label2.Text = Label1.Text - TextBox1.Text
        ElseIf RadioButton3.Checked = True Then
            Label2.Text = Label1.Text * TextBox1.Text
        ElseIf RadioButton4.Checked = True Then
            Label2.Text = Label1.Text / TextBox1.Text
        End If

    End Sub

    Private Sub RadioButton1_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RadioButton1.CheckedChanged
        Label1.Text = TextBox1.Text
        TextBox1.Text = 0
    End Sub

    Private Sub RadioButton2_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RadioButton2.CheckedChanged
        Label1.Text = TextBox1.Text
        TextBox1.Text = 0
    End Sub

    Private Sub RadioButton3_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RadioButton3.CheckedChanged
        Label1.Text = TextBox1.Text
        TextBox1.Text = 0
    End Sub

    Private Sub RadioButton4_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RadioButton4.CheckedChanged
        Label1.Text = TextBox1.Text
        TextBox1.Text = 0
    End Sub
End Class

Read more

Cara mengoperasikan visual basic 2008 dan membuat aplikasi menggunakan visual basic 2008

Banyak sekali pemula yang belum tahu Cara mengoperasikan visual basic 2008 padahal program visual basic adalah program yang sangat sederhana sekali, padahal dengan visual basic 2008 anda dapat membuat berbagai macam aplikasi, dibawah ini adalah langkah awal membuat aplikasi menggunakan visual basic 2008.

Untuk membuat aplikasi menggunakan visual basic 2008 anda perlu menginstall program visual basic 2008 terlebih dahulu, kemudian buka program visual basic 2008 yang sudah di install dan klik Create Project, dan ketikkan nama program yang akan anda buat semisal anda akan membuat program yang mengeluar alert message lihat gambar dibawah:

 

 Kemudian klik oke maka akan muncul halaman seperti gambar dibawah:

Kemudian klik 2 kali halaman form1, dan ketikkan kode ini:

        MsgBox("Halaman pertama telah kebuka")

lihat gambar dibawah:

 

 Maka ketika gambar play dibagian menu barisan atas (Untuk melihat hasil sementara) di klik akan keluar alert message seperti gambar dibawah:

 

Read more

Fungsi Module vb6

Module biasanya digunakan untuk mengurangi kode yang dimasukkan pada form, module juga digunakan sebagai koneksi database untuk mempermudah coding sebagai contoh akan menampilkan msgbox yang ditulis pada text1 form namun kodenya berada pada module lihat untuk penggunaan module:

Kemudian masukkan kode dibawah ini dihalaman module:

Sub buka()
MsgBox (Form1.Text1)
End Sub









Pada Form1 buatlah 1 text dan 1 Command dan klik 2 kali Command dan masukkan kode dibawah ini

module1.buka

Maka ketika dirun dan diklik Command1 akan keluar msgbox sesuai dengan yang diketikkan di text1

Read more

Penggunaan IF & THEN dan ELSE vb6

Pada vb6 bahasa yang membedakan dengan bahasa pemprograman yang lain adalah pada IF dan then yang terdapat di vb6, jika di C++ penggunaan if dengan struktur IF(blablabla=blablabla){blablabla} maka pada vb6 menggunakan bahasa yang bisa dikatakan hampir murni bahasa inggris seperti IF a=a THEN b=b tanpa menggunakan kode tambahan kecuali tanda "" untuk menunjukkan string yang tidak terdapat pada text atau label atau di menu yang sudah terdapat pada vb6.

Contoh pembuatan program yang menggunakan if dan then pada vb6 adalah buatlah form dengan 1 text 2 label, 1 timer dan 2 command, text pada command pertama ganti dengan Zoom dan text pada Command2 ganti dengan Lihat Tulisan, Setting timer interval 500 dan Enabled False, lihat gambar dibawah:

 

Kemudian Klik 2 kali form dan hapus kode yang sudah ada dan masukkan kode dibawah ini:

Private Sub Command1_Click()
Timer1.Enabled = True
End Sub

Private Sub Command2_Click()
If Text1 = "" Then
MsgBox "Anda belum menuliskan sesuatu"
Else
MsgBox (Text1)
End If
End Sub

Private Sub Timer1_Timer()
Text1.FontSize = Text1.FontSize + 10
If Text1.FontSize > 32 Then
Timer1.Enabled = False
End If
End Sub
 

Maka jika command Zoom diklik font otomatis akan berukuran lebih besar dan dan ketika ukuran font lebih dari 32 maka otomatis zooming berhenti, dan ketika command Lihat Tulisan diklik dan text1 masih kosong, maka akan keluar msgbox dengan kalimat "Anda belum menuliskan sesuatu" dan jika text1 sudah berisi tulisan apa saja maka msgbox yang keluar sesuai dengan kalimat atau kata atau huruf yang diketikkan pada text1.

Read more

Membuat Font Zooming otomatis vb6

Untuk membuat font zooming otomatis di vb6 yang dibutuhkan adalah 1 text1, 2 Command dan 1 Timer, Setting timer interval menjadi 500, enabled ganti false, Command1 ganti text menjadi Zoom dan Command2 ganti menjadi Stop atau berhenti, lihat gambar dibawah ini:

Kemudian klik 2 kali form1 hapus kode yang sudah ada dan masukkan kode dibawah ini:

Private Sub Command1_Click()
Timer1.Enabled = True
End Sub

Private Sub Command2_Click()
Timer1.Enabled = False
End Sub

Private Sub Timer1_Timer()
Text1.FontSize = Text1.FontSize + 10
End Sub

Ketika Command Zoom diklik maka otomatis ukuran font yang ada di text1 akan membesar sendiri dan ketika Command Berhenti diklik maka zooming akan berhenti secara otomatis juga.

Read more

Merubah warna Background dan font vb6

Pada vb6  untuk merubah warna background dan font sangatlah mudah cukup buatlah form dengan beberapa Command atau label kemudiann ganti text dimasing-masing Command atau label dengan nama warna seperti merah, kuning, hijau, biru dan hitam seperti gambar dibawah ini:

Agar secara otomatis ketika program dijalankan tulisan Merah, Kuning, Hijau menjadi huruf tebal dan miring klik 2 kali form dan masukkan kode dibawah ini:

Private Sub Form_Load()
Label1.FontBold = True
Label1.FontItalic = True
Label2.FontBold = True
Label2.FontItalic = True
Label3.FontBold = True
Label3.FontItalic = True

End Sub

Kemudian masukkan kode dibawah ini :

Private Sub Label1_Click()
Me.BackColor = &HFF&
End Sub

Private Sub Label2_Click()
Me.BackColor = &HFFFF&
End Sub

Private Sub Label3_Click()
Me.BackColor = &HFF00&
End Sub

Maka ketika program di run, otomatis tulisan Merah, Kuning, Hijau akan menjadi tebal dan miring, kemudian jika tulisan Merah diklik maka background program menjadi merah, ketika tulisan Kuning diklik maka background menjadi berwarna kuning begitu juga keyika tulisah hijau diklik maka background akan otomatis menjadi warna hijau.

Read more

Merubah Karakter Huruf Menjadi Kode vb6

Ketika ingin membuat symbol menggunakan huruf biasa dan secara otomatis ketika mengetikkan huruf pada text1 dan pada label1 atau bisa diganti dengan text2 akan memunculkan symbol yang terdapat pada huruf yang diketikkan pada text1, caranya seperti gambar dibawah ini:

Pada gambar diatas yang digunakan adalah text1 dan text2 dan Command1 yang ditaruh diantara text1 dan text2, kemudian klik 2 kali form1 dan masukkan kode vb6 dibawah ini:

Private Sub Command1_Click()
Label1 = UCase(Text1)
End Sub

Private Sub Command2_Click()
Text2.Font = "Webdings"
Text2.FontSize = "27"
 Text2 = Text1
End Sub

Private Sub Text1_Click()
Text1 = ""
End Sub

Test run program yang sudah dibuat dan hasilnya seperti gambar dibawah ini:

Read more

Penggunaan Ucase & Lcase

Seperti pada artikel sebelumnya Ucase berfungsi untuk membuat huruf besar sedangkan Lcase digunakan untuk membuat huruf kecil atau huruf normal, dibawah ini adalah contoh penggunaan Ucase dari text1 yang dimunculkan pada label1.

1. Buatlah form dengan 1 text, 1 label, dan 2 command, rubah text pada Command1 menjadi Huruf Besar, dan Command2 menjadi Huruf Kecil, lihat gambar dibawah:

2. Masukkan kode dibawah ini:

Private Sub Command1_Click()
Label1 = UCase(Text1)
End Sub

Private Sub Command2_Click()
Label1 = LCase(Text1)
End Sub

Private Sub Text1_Click()
Text1 = ""
End Sub

Maka ketika diketikkan sesuatu pada text1 dan diklik Huruf Besar hasilnya seperti gambar dibawah ini:

Read more

Penggunaan string replace pada vb6

Penggunaan string replace pada vb6 biasanya untuk mengganti kata-kata yang jorok, berbau pornografi, dan kata-kata kasar, string Replace ini dapat dimasukkan pada hasil dari input yang sudah diketikkan dan ketika diklik Submit maka hasil yang keluar akan berbeda.

dibawah ini contoh penggunaan string Replace yang digunakan untuk mengeluarkan hasil yang berbeda dengan yang diketikkan pada text1, lihat langkah-langkah dibawah ini:

1. Buatlah form dengan 1 text, 1 label dan 1 button lihat seperti gambar dibawah ini:

 

2. klik 2 kali pada form1 dan masukkan kode ini:

Private Sub Command1_Click()
Dim str As String
str = Replace(Text1, "bangsat", "hebat")
Label1 = str
End Sub

Private Sub Text1_Click()
Text1 = ""
End Sub

 Kemudian test run program yang sedang dibuat dengan meng klik tanda play yang berada dibagian atas maka ketika diketikkan semisal bangsat loe maka yang keluar di label1 adalah hebat loe, lihat gambar dibawah ini:

Read more

Fungsi string vb6

Fungsi string pada vb6 sangat fatiatif disesuaikan dengan string yang akan digunakan, dibawah ini string-string yang sering digunakan dalam pembuatan program menggunakan vb6:

1. Right : untuk menampilkan karakter dari kanan ke kiri dengan jumlah karakter yang ditentukan contoh label1=Right("Kursus",3) maka yang keluar pada label1 adalah sus


2. Left : untuk menampilkan karakter sebelah kiri kekanan dengan jumlah karakter yang ditentukan contoh label1=Left("Kursus",3) maka yang keluar pada label1 adalah Kur


3. Mid: untuk menampilkan karakter dari data sesuai dengan nilai yang ditentukan contoh label1=Mid("Kursus",1,4) angka 1 pada contoh adalah awal karakter yang akan ditampilkan dan angka 4 yang ada dicontoh adalah jumlah karakter yang akan ditampilkan, dari contoh tersebut label 1 akan menampilkan Kurs.


4. Ucase : untuk menampilkan huruf besar contoh label1=Ucase("Kursus") maka yang tampil di label1 adalah KURSUS


5. Lcase : untuk menampilkan huruf kecil contoh label1=Lcase("Kursus") maka yang tampil di label1 adalah kursus


6. Trim : untuk menghapus spasi dibagian kanan dan kiri string contoh label1=Trim(" Kursus ") maka yang tampil pada label1 adalah Kursus tanpa spasi


7. RTrim: untuk menghapus spasi sebelah kanan string contoh label1=RTrim(" Kursus ") maka yang akan muncuk di label satu adalah   Kursus.


8. LTrim: untuk menghaspus spasi sebelah kiri string contoh LTrim(" Kursus ") maka yang muncul pada label1 adalah Kursus   dengan spasi disebelah kanan masih ada


9. Len: untuk menghitung jumlah karakter contoh label1=Len("Kursus") maka yang keluar pada label1 adalah 6 karena jumlah karakter pada kata Kursus adalah 6.


10. Replace: untuk mengganti karakter dengan karakter yang lain contoh buatlah label1 dan label 2 kemudian klik 2 kali formnya dan masukkan kode ini label1=Date tekan enter dan masukkan lagi kode ini label2=Replace(label1,"/","-"), maka yang keluar di label 1 adalah 10/30/2013 dan yang di label2 adalah 10-30-2013 karena tanda "/" pada label1 diganti dengan "-".


11. StrReverse: untuk membalik kata atau kalimat maksudnya tulisan dapat dibaca kalau dari kanan contoh label1=StrReverse("Kursus") maka yang keluar di label1 adalah susruK.

Read more

Fungsi Timer vb6

Timer pada vb6 biasanya digunakan untuk menggerakkan data atau menghitung data secara otomatis atau membuat jam yang berjalan sesuai dengan jam yang ada dikomputer atau laptop, intinya timer digunakan sebagai pengatur waktu.
Sebagaimana namanya Timer berfungsi untuk mengatur waktu, lihat gambar dibawah ini:

Lihat dikotak Setting Timer, disitu terdapat menu Enabled dengan isian True dan Interval dengan isi 0, ganti interval 0 menjadi 30 atau sesuka hati saja semakin banyak nilai interval semakin lama detik berjalan, kemudian klik 2 kali gambar timer yang berada di form dan masukkan kode ini label1=label1-1, dan coba running maka secara otomatis angka 100 yang berada dilabel1 akan berkuran 1 disesuaikan dengan pergantian detik.

Read more

Pengenalan VB6

VB6 adalah sebuah program yang digunakan untuk pembuatan program, dengan bahasa yang mudah dipahami maka vb6 banyak digunakan oleh perusahaan-perusahaan besar didunia seperti camfrog,yahoo messenger, corel, dan masih banyak yang lainnya.

Tampilan awal ketika membuka program vb6 seperti gambar dibawah ini:

Pada gambar diatas menu yang sudah terpilih adalah Standar EXE, Standar EXE adalah menu untuk pembuatan program dengan tampilan ang disesuaikan dengan menu yang telah disediakan, setelah Klik Open maka tampilan selanjutnya seperti gambar dibawah ini:

Kotak berwarna cream ditengah adalah kotak untuk penempatan design program nama default untuk kotak tersebut adalah form sedangkan menu yang berada disampingnya adalah menu untuk penyempurna program, lihat gambar dibawah:

Dibawah ini adalah nama dari menu-menu tersebut:

1. Pointer


2. Picturebox


3. Label


4. Textbox


5. Groupbox


6. Button


7. Checkbox


8. RadioButton


9. Combobox


10. Listbox


11. HScrollbar


12. VScrollbar


13. Timer


14. Drive Listbox


15. Dir Listbox


16. File Listbox


17. Shape


18. Line


19. Image


20. Data


21. OLE

Read more