Forum Games Indonesia l Android
™️ Welcome Hacker Newbie Community ™️™️

[-]Yang Belum Punya User DI HnC Harap Register.
[-]Yang Sudah Ada Di HarapKan Log In Terlebih Dahulu.
[-]DaftarKan User Anda Di ™️Special_V.I.P™️(Terdapat Aplikasi Lebih Banyak).

~Thankz For ALL Hacker Newbie Community~
---------------------------------------------------------



 
Vip ForumIndeksPendaftaranLogin
UNTUK MEMBER HnC YANG JARANG ONLINE,KAMI MOHON MAAF APABILA USER ANDA KAMI " DELETE "KARENA KAMI INGIN MEMBERIKAN YANG TERBAIK KEPADA FORUM HnC, KAMI UCAPKAN TERIMA KASIH
Login
Username:
Password:
Login otomatis: 
:: Lupa password?
Latest topics
» Dispenser Cwd-1150 Cosmos
Yesterday at 1:33 pm by indah permata

» Marina Cooler 6 Liter Lion Star
Mon Dec 11, 2017 8:59 am by indah permata

» Coffee maker Plunger 350 Ml Akebonno
Fri Dec 08, 2017 10:21 am by indah permata

» Plunger 350 Ml Akebonno
Mon Dec 04, 2017 8:51 am by indah permata

» Cetakan Puding Ag-06 Eagle
Sat Dec 02, 2017 9:30 am by indah permata

» Botol Acrylic S 1802a Mb-14
Thu Nov 30, 2017 10:04 am by indah permata

» Blender Plastic Bl-101 Pl Miyako
Wed Nov 29, 2017 9:00 am by indah permata

» Aksesoris Pepper Mill 8" Mp-39
Tue Nov 28, 2017 9:52 am by indah permata

» Wiper Glass Br-10 Lion Star
Mon Nov 27, 2017 9:04 am by indah permata

Top posters
indah permata (392)
 
ADMIN (262)
 
nurfatimah (244)
 
juliono (171)
 
Cheater-sejati (147)
 
751_COMMUNITY (129)
 
TRICKâ„¢ (104)
 
AdeListiawan (103)
 
[HnC]Rio™ (99)
 
ID BANNED (87)
 

Share | 
 

 Membuat binary converter dengan VB 2010 (Visual basic 2010)

Topik sebelumnya Topik selanjutnya Go down 
PengirimMessage
Kurohige
™-MemBeR-™
™-MemBeR-™
avatar

Jumlah posting : 79
Cendol : 98
Reputation : 6
Join date : 22.07.11

PostSubyek: Membuat binary converter dengan VB 2010 (Visual basic 2010)   Sun Jul 31, 2011 8:19 pm

Komponen VB 2010 :

1) 2 textbox
2) 2 button
==========
1) Susunlah komponen tersebut seperti gambar berikut :
[You must be registered and logged in to see this image.]

2) Setelah itu klik 2 kali Button1 dan masukkan scripts berikut :
Code:
Dim Val As String = Nothing
        Dim Result As New System.Text.StringBuilder
        For Each Character As Byte In System.Text.ASCIIEncoding.ASCII.GetBytes(TextBox1.Text)
            Result.Append(Convert.ToString(Character, 2).PadLeft(8, "0"))
            Result.Append(" ")
        Next
        Val = Result.ToString.Substring(0, Result.ToString.Length - 1)
        TextBox2.Text = Val

3) klik 2 kali Button2 dan masukkan scripts berikut :
Code:
Dim Val As String = Nothing
        Dim Characters As String = System.Text.RegularExpressions.Regex.Replace(TextBox1.Text, "[^01]", "")
        Dim ByteArray((Characters.Length / 8) - 1) As Byte
        For Index As Integer = 0 To ByteArray.Length - 1
            ByteArray(Index) = Convert.ToByte(Characters.Substring(Index * 8, 8), 2)
            Val = System.Text.ASCIIEncoding.ASCII.GetString(ByteArray)
            TextBox2.Text = Val

        Next

:cheers: :cheers: :smilbeer:

habis itu tekan F5 (Debug)

setelah itu stop debugging dengan cara tekan CTRL+ALT+Break..abis itu save all (CTRL+S+SHIFT)

kasih nama terserah mu

kasih Cendol ya..dah capek nulis nih

Credit : Kurohige

Special Credit : Rieqyns13
Kembali Ke Atas Go down
 

Membuat binary converter dengan VB 2010 (Visual basic 2010)

Topik sebelumnya Topik selanjutnya Kembali Ke Atas 

 Similar topics

-
» [Blender] How to Cellshading
» Resistor untuk mengakali kelistrikan
» Modif suspensi v-ixion, bisa nggak?
» Perbedaan Spesifikasi Ninja 205R 2008,2009,2010
» Cara MenDesign Gear Dengan PhotoShop
Halaman 1 dari 1

Permissions in this forum:Anda tidak dapat menjawab topik
Forum Games Indonesia l Android :: Hacker Newbie | Internet and Software Stuff :: Program code basic :: Visual Basic-
Free forum | © phpBB | Free forum support | Kontak | Report an abuse | www.sosblogs.com