Program Penghitung IP, Subnet Mask, Network ID, Broadcast

Beberapa hari ini saya seringkali mengupload program-program dan source code Visual Basic 2010 yang membahas tentang bagaimana Menghitung IP ataupun cara memanage suatu jaringan komputer.


seperti yang saya katakan kemarin, kita sebagai programmer itu, harus serba bisa, jangan hanya handal di coding doank, tapi harus bisa pada semua bagian, agar nilai jual kita lebih tinggi.


karena codingnya sedikit agak lebih panjang. pengunjung sekalian bisa langsung saja mendownload sourcenya disini.

[Klik Download]

Read more »

Menambah, Mengedit & Menghapus Isi Listview

     Untuk para pengguna Visual Basic.Net 2010 kali ini saya akan memberikan Tutorial Visual Basic 2010 yang membahas tentang cara menggunakan ListView tools. bagaimana cara menambah, mengedit ataupun menghapus item yang ada di dalamnya. semoga bermanfaat

 

Source Code :

Public Class FrmListView
   Dim Baris As Integer = 0
   Dim BarisEdit As Integer = 0

   Private Sub FrmListView_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
      'Mengatur ListView
      ListView1.View = View.Details
      ListView1.FullRowSelect = True
      ListView1.GridLines = True
   
      ListView1.Columns.Add("Nama Lengkap", 150)
      ListView1.Columns.Add("Alamat", 200)
   End Sub

   Private Sub BtnTambah_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnTambah.Click
      ListView1.Items.Add(TextBox1.Text)
      ListView1.Items(Baris).SubItems.Add(TextBox2.Text)

      Baris += 1
   End Sub

   Private Sub BtnEdit_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnEdit.Click
      ListView1.Items(BarisEdit).Text = TextBox1.Text     ListView1.Items(BarisEdit).SubItems(1).Text = TextBox2.Text
   End Sub

   Private Sub ListView1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ListView1.SelectedIndexChanged)
      BarisEdit = ListView1.FocusedItem.Index
   End Sub

   Private Sub BtnHapus_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnHapus.Click
      ListView1.Items(BarisEdit).Remove()
   End Sub
End Class

 By Franky So

Read more »

Source Code Mengubah Angka Biner ke Desimal Dan Sebaliknya

apakah anda pernah berfikir untuk membuat sebuah program sederhana dengan visual basic 2010 untuk mengkonversi dari biner ke desimal atau sebaliknya?, kali ini saya akan membagikan source codenya secara .cuma-cuma hanya untuk anda. silahkan lihat dibawah ini. semoga bermanfaat.

 

 

Public Class FrmBiner

    'Array
    Dim Urutan As Integer() = {128, 64, 32, 16, 8, 4, 2, 1}

    Function BinerToDesimal(ByVal Biner As TextBox)
        'Apabila Terjadi Error Liwati Saja
        On Error Resume Next

        'Membuat Variabel Hasil Untuk Menyimpan Jumlah Desimal
        Dim Desimal As Integer = 0

        'Looping
        For i As Integer = 0 To 7
            'Memilih Satu Angka Dari Depan
            Dim AngkaTerpilih As Integer = Mid(Biner.Text, i + 1, 1)

            'Mengecek Angka Pilihan Apabila = 1 maka akan dijumlahkan
            If AngkaTerpilih = 1 Then
                Desimal = Desimal + Urutan(i)
            End If
        Next

        'Mengembalikan Hasil
        Return Desimal
    End Function

    Function DesimalToBiner(ByVal Desimal As String)
        'Apabila Terjadi Error Liwati Saja
        On Error Resume Next

        'Membuat Variabel Hasil Untuk Menyimpan Jumlah Desimal
        Dim Biner As String = ""

        'Looping
        Do Until Desimal = 0
            If Desimal Mod 2 = 0 Then
                Desimal = Val(Desimal) / 2
                Biner = "0" & Biner
            Else
                Biner = "1" & Biner
                Desimal -= 1
                Desimal = Val(Desimal) / 2
            End If
        Loop

        'Mengembalikan Hasil
        Return Biner
    End Function

    Private Sub TextBox1_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles TextBox1.KeyDown
        'Setelah Dienter langsung di ubah
        If e.KeyCode = Keys.Enter Then
            TextBox2.Text = BinerToDesimal(TextBox1)
        End If
    End Sub

    Private Sub TextBox2_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles TextBox2.KeyDown
        'Setelah Dienter langsung di ubah
        If e.KeyCode = Keys.Enter Then
            If TextBox2.Text >= 225 Or TextBox2.Text <= 0 Then
                MsgBox("Angka Desimal harus berada di antar 0 - 255")
            Else
                TextBox1.Text = DesimalToBiner(TextBox2.Text)
            End If
        End If
    End Sub
End Class

By Franky So

Read more »

Mengatur Font Source Code VB.Net 2010

Saat ini sangat sedikit blog-blog yang membahas mengenai Tutorial Visual Basic 2010 yang membahas Tutorial Visual Basic dengan bahasa indonesia.

Kali ini saya akan membahas bagaimana cara mengatur ukuran Font/Tulisan pada source code visual basic 2010. wheheheeeeee..... sebenarnya simpel aja sih...

caranya anda hanya tinggal menekan Ctrl + lalu menggerakan scroll mouse.
aku rasa semua orang juga tau kok. :(

ini hanya sekedar tips aja kok bagi yang belum tahu

Read more »

Membuat Form Hantu

Tutorial Visual Basic 2010 kali ini adalah cara membuat form hantu. yang di maksud dengan form hantu berikut ini merupakan form yang background colornya yang tembus pandang.
bisa di lihat pada gambar di bawah ini.

 

kalo penasaran pengen lihat gimana caranya? silahkan klik Download.

by Franky Soputra

Read more »

Membuat Efek Marquee

Trik Kali ini adalah cara untuk membuat Marquee. Langsung Saja mulai membuat Project Baru, dan sebuah form dengan komponen

Object	Properties
Form1	Name	FrmMarquee
	FormBorderStyle	FixedSingle
	Text	Marquee
Timer1	Enabled	True
	Interval	1
Textbox1	Name	TxtKata
	Text
Label1	Name	LblKata
	Text
	FontSize	18px

Setelah Itu Masukanlah Kode berikut pada

Public Class FrmMarquee

    Private Sub TextBox1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TxtKata.TextChanged

        'Menyamakan Isi Label dengan Isi Text

        LblKata.Text = TxtKata.Text

    End Sub

    Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick

        'Lebar Form Untuk Menentukan Titik Mulai Marquee

        Dim LebarForm As Integer = Me.Width

        Dim LebarLabel As Integer = LblKata.Width

        'MaxKiri Untuk Menentukan titik Akhir Maruquee

        Dim MaxKiri As Integer = LebarLabel * -1

        If LblKata.Left < MaxKiri Then

            LblKata.Left = LebarForm

        Else

            LblKata.Left -= 1

        End If

    End Sub

End Class

Untuk source code lengkapnya anda bisa mendownloadnya Disini

Read more »

4 Fitur Baru Dengan 4 Video Tutorial Visual Basic 2010

Ada beberapa fitur-fitur terbaik dari Visual Basic 2010.

diantarnya adalah :

1. Multi Windows : Dibagian Ini kita bisa menarik jendela kode keluar dari jendela utama
2. Zoom : Fitur ini memungkinkan kita untuk memperbesar tulisan atau memperkecilnya dengan mudah
3. Highlight Reference : Fitur ini memungkinkan kita untuk memaintain suatu variabel atau control. dengan Ctrl+Shift PanahAtas/Bawah
4. Generate From Usage : Fitur ini yang paling keren. pokoknya Lihat Filmnya Aja Dahhh...

Untuk mempermudah Senior Junindar Telah memecahnya menjadi 4 bagian. Silahkan Download

http://www.mediafire.com/file/yzoyyoo0gjg/Multi.avi

http://www.mediafire.com/file/x0jtytyz2kw/Zoom.avi

http://www.mediafire.com/file/ttjzdkn0tyy/Hight.avi

http://www.mediafire.com/file/yhxyflon2tu/Generate.avi

by http://junindar.blogspot.com & Franky So

Read more »

Membuat Animasi Pada Title Form

Siapa bilang title tidak bisa di maenin? Heheheeeeee nih dia triknya. Buatlah sebuah form dengan Properties :

Object	Properties
Form1	Name	FrmAniTit
	FormBorderStyle	FixedSingle
	Text	Visual Basic 2010
Timer1	Enabled	True
	Interval	250

Setelah Itu Masukanlah Kode berikut pada

Public Class FrmAniTit

'Pengatur Index dari Kata mana yang akan di tampilkan

Dim idx As Byte = 0

'Deklarasi Array Untuk Kata-kata

Dim Judul() = {"", "V", "Vi", "Vis", "Visu", "Visua", "Visual", "Visual B", "Visual Ba", "Visual Bas", "Visual Basi", "Visual Basic", "Visual Basic 2", "Visual Basic 20", "Visual Basic 201", "Visual Basic 2010"}

Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick

If idx = Judul.Length Then

idx = 0

Else

Me.Text = Judul(idx)

idx += 1

End If

End Sub

End Class

Untuk source code lengkapnya anda bisa mendownloadnya Disini 

By Franky So

Read more »

Membuat Efek Fade In Dan Fade Out Pada Form

Nah Tutorial kali ini akan membahas tentang cara membuat efek Fade In dan Fade Out. Langsung saja kita mulai dengan membuat sebuah form dengan design terserah kepada anda dan properties sebagai berikut :

Object	Properties
Form1	Name	FrmFade
	FormBorderStyle	None
	StartPosition	CenterParent
	TopMost	True

Setelah Itu Masukanlah Kode berikut pada

Public Class FrmFade

'Baris Kode FadeIn

Sub FadeIn()

Do Until Me.Opacity = 1

Me.Opacity += 0.00002

Application.DoEvents()

Loop

End Sub

'Baris Kode Fadeout

Sub FadeOut()

Do Until Me.Opacity = 0

Me.Opacity -= 0.00002

Application.DoEvents()

Loop

End Sub

'Fungsu Untuk Memberi Jeda Sebelum Logout anda bisa juga menggunakan Timer

Sub Tunggu()

Dim Hitung = 2000000

Do Until Hitung = 0

Hitung -= 1

Application.DoEvents()

Loop

End Sub

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

'Membuat Form Tak Terlihat

Me.Opacity = 0

'Memanggil Semua Prosedur

FadeIn()

Tunggu()

FadeOut()

End

End Sub

End Class

Untuk source code lengkapnya anda bisa mendownloadnya Disini


by Franky So

Read more »

Fungsi IIF

Tutorial kali ini membahas tentang fungsi IIF, IIF merupakan bentk dasar dari fungsi IF Then, dengan begitu bisa dikatakan fungsi IIF akan lebih simpel.. Pada umumnya fungsi ini digunakan untuk mempersingkat kode dari fungsi IF Then. Berikut adalah format Fungsi IIF :

IIF(Ekspresi,NilaiBenar,NilaiSalah)
NB. NilaiBenar atau NilaiSalah bisa berupa Integer dan String atau nilai lainnya.


sebagai contoh, saya akan membuat kode tentang cara menghitung jarak yang akan menampilkan kata “Jauh” apabila Jarak lebih dari 1000, dan “Dekat” apabila Jarak kurang dari 1000.

Contoh Pada Fungsi IF

Dim Hasil as String
If Jarak > 1000 Then
     Hasil = “Jauh”
else
    Hasil = “Dekat”
end if

Contoh Pada Fungsi IIF

Dim Hasil as String
Hasil=IIF(Jarak>1000,”Jauh”,”Dekat”)

bisa dilihat dari contoh diatas bahwa fungsi IIF lebih simpel daripada Fungsi IF tetapi kekurangan dari fungsi IIF adalah NilaiBenar dan NilaiSalahnya hanya bisa di isi dengan 1 baris Kode Perintah saja.


by Franky So

Read more »

Memecah String Ke Delimeter (Berdasarkan Spasi)

Tutorial kali ini akan membahas tentang cara memecah string menjadi delimeter atau memisahkan kata-kata berdasarkan spasi. Kali ini kita menggunakan Fungsi Split. Kalau anda pernah menggunakan bahasa PHP. Fungsi Split ini hampir sama dengan Fungsi Explode pada PHP. Nah kita mulai saja

Buatlah sebuah Form dengan properties sebagai berikut :

Object	Properties
Form1	Name	Form1
	FormBorderStyle	FixedSingle
Listbox1	Name	LsKata
Textbox1	Name	TxtKata

Setelah Itu Masukanlah Kode berikut pada

Form_Load

'Mengosongkan Semua Teks

        TxtKata.Text = ""

        LsKata.Items.Clear()

Txtkata_KeyDown

'rumus tombol Enter

        If e.KeyCode = Keys.Enter Then

            'Mengosongkan List

            LsKata.Items.Clear()

            'memiskahkan kata perspasi

            Dim Kata() = TxtKata.Text.Split(" ")

            'menampilkan kata didalam list

            For Each TmpKata In Kata

                LsKata.Items.Add(TmpKata)

            Next

        End If

Untuk source code lengkapnya anda bisa mendownloadnya Disini


By Franky So

Read more »

Perulangan For Each ... Next

Perulangan ini merupakan kembangan dari perulangan For Next. Perulangan ini pada umumnya digunakan untuk menampilkan seluruh isi item pada sebuah array atau database atau data yang sejenis. Sebagai contoh, kali ini saya menggunakan sebuah array dan menampilkan semua isinya pada Listbox.

Buatlah sebuah Form dengan properties sebagai berikut :

Object	Properties
Form1	Name	FrmForEach
	FormBorderStyle	FixedSingle
Listbox1	Name	LsBulan

 

Setelah Itu Masukanlah Kode berikut pada Form_Load

'Medeklarasikan Array dengan isi nama bulan dari Januari Sampai Desember

        Dim Bulan() As String = {"Januari", "Februari", "Maret", "April", "Mei", "Juni", "Juli", "Agustus", "September", "November", "Desember"}

        'Menampilkannya dalam listbox menggunakan fungsi For Each

        'Variabel TmpBulan dibuat untuk menyimpan semua data yang ada di varabel Bulan yang bertipe String.

        For Each TmpBulan As String In Bulan

            'Menambakan data kedalam Lsbulan

            LsBulan.Items.Add(TmpBulan)

        Next

Untuk source code lengkapnya anda bisa mendownloadnya Disini


By. Franky Soputra

Read more »

Kamus Bahasa Indonesia-Jawa

untuk pertamakalinya saya mengupload program jadi yang dilengkapi dengan source codenya. Silahkan di download sesuka-sukanya. Kemarin program ini saya buat untuk Tugas akhir milik teman saya, Yahh mumpung kemaren saya buatnya secara Cuma-Cuma kali ini saya akan memberikannya secara Cuma-Cuma pula. Heheheeeeee.....

Di program ini saya menggunakan database MS.Access 2010 bila ingin mendownload Source Code lengkapnya silahkan Klik Disini 

By. Franky Soputra

Read more »

Membuat MDI Form

     Sebelum kita memulai mari kita ketahui dulu apa itu yang di maksud dengan MDIForm.

MDIParent merupakan form penampung form-form yang lain. Yang terhubung dengan MDIParent sedangkan MDIChild merupakan form yang ada di dalam MDIParent.(Kurang Lebih Seperti Itu)

Ok! Kita mulai dengan membuat 2 buah Form

Pada Form1 masukan komponen : (1 MenuStrip) dengan Properties pada Form1

Object	Properties
Form1	Name	FrmMDIParent
	FormBorderStyle	FixedSingle
	IsMdiContainer	True
	WindowState	Maximized

Pada Form2 dibiarkan Kosong saja.

Lalu Ketikanlah Kode Berikut pada Form1

Public Class FrmMdiParent

Private Sub MdiParent_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MdiParent.Click

'Menentukan FrmMdiparent sebagai MDIParent dari Form2

Form2.MdiParent = Me

'Memunculkan Form2

Form2.Show()

End Sub

Private Sub ExitToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ExitToolStripMenuItem.Click

End

End Sub

End Class

Bila Ingin Mendownload Source Code Klik Disini


By. Franky Soputra

Read more »