Decode Bit-coded

Post

Posted
Rating:
#1 (In Topic #496)
tincho
Avatar
Regular
tincho is in the usergroup ‘Regular’
 Hello everyone.
I have a collection of numbers that according to the manual of the file I am trying to decode are bit-coded they should be 1, 2, 4, 16, 32, 64 but I get from the file:
1008, 992, 1017.
How do I decode the numbers in the second group to make them look like something in the first?
See index 70 for the list.

Image

(Click to enlarge)

Online now: No Back to the top

Post

Posted
Rating:
#2
vuott
Regular
vuott is in the usergroup ‘Regular’
You have to use these resources:

* /lang/logicop - Gambas Documentation
* /cat/bit - Gambas Documentation
Europaeus sum !

<COLOR color="#FF8000">Amare memorentes atque deflentes ad mortem silenter labimur.</COLOR>
Online now: No Back to the top

Post

Posted
Rating:
#3
cogier
Avatar
Guru
cogier is in the usergroup ‘Guru’
cogier is in the usergroup ‘GambOS Contributor’
Is this what you are looking for?

Code (gambas)

  1. TextBoxIn As TextBox
  2. GridViewDisplay As GridView
  3.  
  4. Public Sub TextBoxIn_Change()
  5.  
  6.   Dim iLoop As Integer
  7.   Dim sBin As String
  8.  
  9.   GridViewDisplay.Clear
  10.  
  11.   If Len(Trim(TextBoxIn.Text)) > 3 Then TextBoxIn.Text = Left(TextBoxIn.Text, -1)
  12.  
  13.   Try sBin = Bin(TextBoxIn.Text, 7)
  15.     If Trim(TextBoxIn.Text) = "" Then Return
  16.  
  17.     TextBoxIn.Text = Left(TextBoxIn.Text, -1)
  19.  
  20.   If Val(TextBoxIn.Text) > 127 Then
  21.     TextBoxIn.Clear
  22.     Return
  23.   End If
  24.  
  25.   For iLoop = 0 To 6
  26.     GridViewDisplay[0, iLoop].Text = sBin[iLoop]
  27.   Next
  28.  
  30.  
  31. Public Sub Form_Open()
  32.  
  33.   Dim iLoop As Integer
  34.   Dim sHeader As String[] = ["AutoCad\n64", "Resolved\n32", "Table entry\n16", "8", "Locked\n4", "Frozen\n2", "Frozen\n1"]
  35.  
  36.   With Me
  37.     .H = 150
  38.     .W = 500
  39.     .Padding = 5
  40.     .Arrangement = Arrange.Vertical
  42.  
  43.   With TextBoxIn = New TextBox(Me) As "TextBoxIn"
  44.     .H = 28
  45.     .PlaceHolder = "Enter an integer upto 127"
  47.  
  48.   With GridViewDisplay = New GridView(Me) As "GridViewDisplay"
  49.     .Columns.Count = 7
  50.     .Rows.Count = 1
  51.     .Expand = True
  52.     .Header = GridView.Horizontal
  54.  
  55.   For iLoop = 0 To 6
  56.     GridViewDisplay.Columns[iLoop].Title = sHeader[iLoop]
  57.     GridViewDisplay.Columns[iLoop].Alignment = Align.Center
  58.   Next
  59.  
Online now: No Back to the top

Post

Posted
Rating:
#4
tincho
Avatar
Regular
tincho is in the usergroup ‘Regular’
Yes !!! exactly.
Before see your code i made this with the help of tercoide.

Code (gambas)

  1. Public Function DWGFlag(iFlag As Integer, iPos As Integer) As Byte
  3.   Dim b As Byte
  4.   t = Bin(iFlag, 8)
  5.   b = CByte(Mid(t, 9 - iPos, 1))
  6.   Return b
  8.  
Regards.
Martin.
Online now: No Back to the top
1 guest and 0 members have just viewed this.