BrainModular

Posted: **09 Jul 2014, 01:10**

Hi all !
I know that one is a far cry, but would anyone had already made a script that translate decimal numbers into HEX?
I'm experimenting with RFID tags...

thanks

Olivar

Posted: **11 Jul 2014, 22:11**

How about this? Note that it will round your input down to an integer prior to the conversion to hex so you may lose some precision..

Code: Select all

//////////////////////////////////////////////////////
// Int to Hex 
//////////////////////////////////////////////////////

//////////////////////////////////////////////////////
// Paramters declaration
//////////////////////////////////////////////////////
var input &#58; Tparameter;
var output&#58; Tparameter;

//////////////////////////////////////////////////////
// initialisation procedure
//////////////////////////////////////////////////////
procedure init;
begin  
 input &#58;= CreateParam&#40;'input', ptDatafader&#41;;
 SetIsOutput&#40;input,false&#41;;
 SetMin&#40;input, 0&#41;; 
 SetMax&#40;input, 2048&#41;;                                
 SetSymbol&#40;input,''&#41;;
 SetDefaultValue&#40;input,10&#41;;
 SetValue&#40;input,10&#41;;

 output &#58;= CreateParam&#40;'output',ptTextField&#41;;
 SetIsInput&#40;output,false&#41;;
 SetMin&#40;output,0&#41;;      
 SetMax&#40;output,100&#41;;
 SetSymbol&#40;output,''&#41;;
 SetDefaultValue&#40;output,10&#41;;
                                                    
end;                      

// Global Variables
var inval &#58; single;

//////////////////////////////////////////////////////
// Main Loop procedure
//////////////////////////////////////////////////////
Procedure Callback&#40;N&#58;integer&#41;;
begin              
 inval &#58;= getValue&#40;input&#41;;
 setstringvalue&#40;output, IntToHex&#40;Trunc&#40;inval&#41;&#41;&#41;;
end;

Posted: **12 Jul 2014, 11:17**

Thanx 0xFFFF times !

Now I can display the RFID tag in HEX, just like on my phone !

Those RFID Tags will be used to change patches and preset in Hollyhock

Code: Select all

//////////////////////////
// Array values &#40;INTEGERS&#41; to HEX commaText
/////////////////////////          
CONST MAX_ITEMS = 8;
var ArrayIn, CommaOUT&#58; Tparameter;
var SL1&#58; TstringList;
/////////////////////////////
procedure init;
var i&#58; integer;                      
begin                        
  SetModuleColor&#40;$808080+302060&#41;;   
  ArrayIn&#58;= CreateParam&#40;'ArrayIn', PtArray&#41;;
  SetIsOutput&#40;ArrayIn,False&#41;; SetMin&#40;ArrayIn,0&#41;; setMax&#40;ArrayIn,MAXINT&#41;;

  CommaOUT&#58;= CreateParam&#40;'CommaOUT',PtTextField&#41;;
  setisINPUT&#40;commaOut,false&#41;;
   
  SL1.create;
                    
END;//INIT
///////////////////////////////////////////
Procedure Callback&#40;N&#58;integer&#41;;                      
var i, L&#58; integer; 
var s &#58; string; 
begin         
                  
      if &#40;n=ArrayIn&#41;        
      then begin                                   
         SL1.Clear;      
         L&#58;= getLength&#40;ArrayIn&#41;;     
         if L< MAX_ITEMS 
         then begin
            For i&#58;= 0 to L-1 
            do begin
               s &#58;= IntToHex&#40;trunc&#40;getDataArrayValue&#40;ArrayIn,i&#41;&#41;&#41;;
               SL1.add&#40;s&#41;;                     
            end;                                                        
         setStringValue&#40;CommaOut,SL1.GetCommatext&#41;;   
       end;                                   
      end;
END;//CB
////////////////////////////////////////
Procedure Destroy;
begin
SL1.free;
end;
///////////////////////////////

BrainModular

display in Hexadecimal !