Gambas ONE

TextBoxIn As TextBox
GridViewDisplay As GridView

Public Sub TextBoxIn_Change()

  Dim iLoop As Integer
  Dim sBin As String

  GridViewDisplay.Clear

  If Len(Trim(TextBoxIn.Text)) > 3 Then TextBoxIn.Text = Left(TextBoxIn.Text, -1)

  Try sBin = Bin(TextBoxIn.Text, 7)
  If Error Then
    If Trim(TextBoxIn.Text) = "" Then Return

    TextBoxIn.Text = Left(TextBoxIn.Text, -1)
  Endif

  If Val(TextBoxIn.Text) > 127 Then
    TextBoxIn.Clear
    Return
  End If

  For iLoop = 0 To 6
    GridViewDisplay[0, iLoop].Text = sBin[iLoop]
  Next

End

Public Sub Form_Open()

  Dim iLoop As Integer
  Dim sHeader As String[] = ["AutoCad\n64", "Resolved\n32", "Table entry\n16", "8", "Locked\n4", "Frozen\n2", "Frozen\n1"]

  With Me
    .H = 150
    .W = 500
    .Padding = 5
    .Arrangement = Arrange.Vertical
  End With

  With TextBoxIn = New TextBox(Me) As "TextBoxIn"
    .H = 28
    .PlaceHolder = "Enter an integer upto 127"
  End With

  With GridViewDisplay = New GridView(Me) As "GridViewDisplay"
    .Columns.Count = 7
    .Rows.Count = 1
    .Expand = True
    .Header = GridView.Horizontal
  End With

  For iLoop = 0 To 6
    GridViewDisplay.Columns[iLoop].Title = sHeader[iLoop]
    GridViewDisplay.Columns[iLoop].Alignment = Align.Center
  Next

End

Public Function DWGFlag(iFlag As Integer, iPos As Integer) As Byte
  Dim t As String
  Dim b As Byte
  t = Bin(iFlag, 8)
  b = CByte(Mid(t, 9 - iPos, 1))
  Return b
End