Tutorial Cara Menciptakan Kegiatan Konversi Bilangan Dengan Vb.Net

Selamat siang sobat gudang coding, kemabali lagi di blog gudang coding aplikasi, daerah mengembangkan isu wacana dunia pemrograman dan aplikasi. dan pada postingan kami kali ini gudang coding akan memeberikan isu mengenai tutorial menciptakan aplikasi berbasis Dekstop ialah Tutorial Cara Membuat Program Konversi Bilangan Dengan VB.NET 

Bagi sobat gudang coding yang tertarik dengan aplikasi ini sanggup sobat lihat pad script di bawah ini  aplikasi ini juga sanggup menjadi materi untuk berguru bagi sobat gudang coding yang ingin mendalami pemrograman berbasis dekstop khususnya pemroraman php. untuk tampilannya sanggup sobat lihat pada gambar dibawah ini:

pribadi saja tanpa panjang kali lebar kali tinggi sobat sanggup mencoba menciptakan aplikasi wacana caara mengkonversi bilangan sesuai apa yg akan di lakukan, pribadi saja berikut ketikan perintah-perintah di bawah ini:

 Public Class Form1      Private Sub BtnHexa_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnHexa.Click         output.Text = Hex(Val(input.Text))      End Sub      Private Sub BtnOktal_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnOktal.Click         output.Text = Oct(Val(input.Text))      End Sub      Private Sub BtnBiner_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnBiner.Click         Dim xHexa As String = Hex(Val(input.Text))         Dim xBin As String         Dim xbin2 As String         Dim xKata As String         Dim i As Integer         xbin2 = ""         For i = 1 To Len(xHexa)             xBin = ""             xKata = Mid(xHexa, i, 1)             Select Case UCase(xKata)                 Case "0" : xBin = "0000"                 Case "1" : xBin = "0001"                 Case "2" : xBin = "0010"                 Case "3" : xBin = "0011"                 Case "4" : xBin = "0100"                 Case "5" : xBin = "0101"                 Case "6" : xBin = "0110"                 Case "7" : xBin = "0111"                 Case "8" : xBin = "1000"                 Case "9" : xBin = "1001"                 Case "A" : xBin = "1010"                 Case "B" : xBin = "1011"                 Case "C" : xBin = "1100"                 Case "D" : xBin = "1101"                 Case "E" : xBin = "1110"                 Case "F" : xBin = "1111"                 Case "h", "H" : xBin = ""                 Case Else : xBin = ""              End Select              xbin2 = xbin2 + xBin         Next i         output.Text = xbin2     End Sub      Private Sub BtnKeluar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnKeluar.Click         Me.Close()     End Sub      Private Sub BtnHapus_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnHapus.Click         input.Text = ""         output.Text = ""     End Sub End Class 

Sekian dari kami supaya bermanfaat bagi sobat gudang coding. :)