Little Endian tool

Aici puteti posta software nou dezvoltat de dumneavoastra.
Software news and new software launch.

Little Endian tool

Post Number:#1  Postby giv » 11 Dec 2014 16:27

Cateodata trebuie sa translatezi in formatul Little Endian bitii.
Daca sunt cativa e OK dar daca sunt mai multi te ia capul.
Am codat un mic utilitar care sa ne ajute.

Sursa:
Code: Select all
Public Class frmTool
    Public input As String = ""
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdConvert.Click
        Try

            Dim output As String = ""
            input = txtInput.Text.Trim
            input = input.Replace(" ", "")
            Dim index As Integer = input.Length
            For i = 0 To input.Length
                If index = 0 Then
                    GoTo afisare
                End If
                output = output + input.Substring(index - 2, 2)
                index = index - 2

            Next
afisare:
            txtOutput.Text = output.ToUpper
        Catch ex As Exception
            MessageBox.Show("The input is not correct", "Error", MessageBoxButtons.OK, MessageBoxIcon.Information)
        End Try
    End Sub

    Private Sub TextBox1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txtInput.TextChanged
        Input = txtInput.Text.Trim
        input = input.Replace(" ", "")
        txtInput.Text = input.ToUpper
    End Sub
End Class
Attachments
LET.jpg
LET.jpg (11.28 KiB) Viewed 701 times
Litle endian HEX.7z
(8.64 KiB) Downloaded 100 times
Best regards!
GIV
User avatar
giv
Admin
Admin
 
Status: Offline
Posts: 847
Age: 35
Joined: 02 Nov 2012 15:33
Location: Romania

Invitations sent: 3
Referrals: 27
National Flag:
Romania
Local time: 24 Nov 2017 14:02
Has thanked: 299 times
Been thanked: 326 times

Return to Lansari de software

Who is online

Users browsing this forum: No registered users and 1 guest

cron