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 »

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 »

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 »