Selamat siang sahabat gudang coding, kemabali lagi di blog gudang coding aplikasi, tempat berbagi informasi tentang dunia pemrograman dan aplikasi. dan pada postingan kami kali ini gudang coding akan memeberikan informasi mengenai tutorial membuat aplikasi berbasis Dekstop yaitu Tutorial Cara Membuat Program Konversi Bilangan Dengan VB.NET
Bagi sahabat gudang coding yang tertarik dengan aplikasi ini bisa sahabat lihat pad script di bawah ini aplikasi ini juga dapat menjadi bahan untuk belajar bagi sahabat gudang coding yang ingin mendalami pemrograman berbasis dekstop khususnya pemroraman php. untuk tampilannya bisa sahabat lihat pada gambar dibawah ini:
langsung saja tanpa panjang kali lebar kali tinggi sahabat bisa mencoba membuat aplikasi tentang caara mengkonversi bilangan sesuai apa yg akan di lakukan, langsung 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 semoga bermanfaat bagi sahabat gudang coding. :)
