السَّلاَمُ عَلَيْكُمْ وَرَحْمَةُ اللهِ وَبَرَكَاتُهُ
----TOOLBOX------NAME-------TEXT-----
BUTTON1------Btn_binear------BINEAR
BUTTON2------Btn_octal------OCTAL
BUTTON3------Btn_hexa------HEXA
BUTTON3------Btn_hapus------RESET
TEXTBOX1------input------INPUT
TEXTBOX2------output------OUTPUT
BUTTON1------Btn_binear------BINEAR
BUTTON2------Btn_octal------OCTAL
BUTTON3------Btn_hexa------HEXA
BUTTON3------Btn_hapus------RESET
TEXTBOX1------input------INPUT
TEXTBOX2------output------OUTPUT
Untuk Scrip
CodenyaBisaAndaCopy Dibawah :
Public Class Form1 |
Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
CenterToScreen() 'UNTUK FORM NYA BERADA DI TENGAH2'
End Sub
Private Sub Btn_hexa_Click_1(sender As Object, e As EventArgs) Handles Btn_hexa.Click
output.Text = Hex(Val(input.Text))
End Sub
Private Sub Btn_binear_Click_1(sender As Object, e As EventArgs) Handles Btn_binear.Click
Dim xHexa As String = Hex(Val(input.Text))
Dim xBin As String
Dim xbin2 As String
Dim kata As String
Dim i As Integer
xbin2 = ""
For i = 1 To Len(xHexa)
xBin = ""
kata = Mid(xHexa, i, 1)
Select Case UCase(kata)
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 Btn_octal_Click_1(sender As Object, e As EventArgs) Handles Btn_octal.Click
output.Text = Oct(Val(input.Text))
End Sub
Private Sub Btn_hapus_Click_1(sender As Object, e As EventArgs) Handles Btn_hapus.Click
input.Text = ""
output.Text = ""
End Sub
End Class
SEMOGA BERMANFAAT BAGI ANDA
TERIMA KASIH ATAS PERHATIAN NYA
السَّلاَمُ عَلَيْكُمْ وَرَحْمَةُ اللهِ وَبَرَكَاتُهُ