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 »