Mini Kabibi Habibi

Current Path : C:/Users/ITO/Desktop/VF9/program files/microsoft visual foxpro 9/samples/solution/europa/
Current File : C:/Users/ITO/Desktop/VF9/program files/microsoft visual foxpro 9/samples/solution/europa/binary.sct
9sVERSION =   3.00dataenvironmentdataenvironmentDataenvironmentaTop = 446
Left = 102
Width = 520
Height = 200
DataSource = .NULL.
Name = "Dataenvironment"
12frmsolution..\solution.vcxformFrmsolution1�Height = 500
Width = 756
DoCreate = .T.
ShowTips = .F.
BorderStyle = 2
Caption = "Binary Conversion"
MinWidth = 200
_memberdata = 
Name = "Frmsolution1"
C_solutions1.Top = 468
C_solutions1.Left = 50
C_solutions1.fixedformborder = .F.
C_solutions1.Name = "C_solutions1"
Behindscenes1.Top = 468
Behindscenes1.Left = 14
Behindscenes1.Anchor = 6
Behindscenes1.TabIndex = 24
Behindscenes1.ZOrderSet = 3
Behindscenes1.Name = "Behindscenes1"
Shape2.Top = 12
Shape2.Left = 12
Shape2.Height = 60
Shape2.Width = 732
Shape2.Anchor = 10
Shape2.ZOrderSet = 5
Shape2.Name = "Shape2"
label1.FontSize = 10
label1.Anchor = 10
label1.Caption = "You can use BINTOC() and CTOBIN() functions when converting between numeric and data values. BINTOC() is often used to create smaller index keys, however, these functions can be used when working with Win32 API Structs."
label1.Height = 40
label1.Left = 24
label1.Top = 23
label1.Width = 696
label1.TabIndex = 2
label1.ZOrderSet = 6
label1.Name = "label1"
Label4.TabIndex = 1
Label4.ZOrderSet = 7
Label4.Name = "Label4"
Cmdclose1.Top = 468
Cmdclose1.Left = 672
Cmdclose1.Height = 23
Cmdclose1.Width = 72
Cmdclose1.Anchor = 12
Cmdclose1.TabIndex = 25
Cmdclose1.ZOrderSet = 4
Cmdclose1.Name = "Cmdclose1"
�PROCEDURE recalc
TRY
	BinToCParm=thisform.list1.Value
	IF thisform.chkRev.Value=1
		BinToCParm=BinToCParm+"r"
	ENDIF 
	IF thisform.chksign.Value=1
		BinToCParm=BinToCParm+"s"
	ENDIF 
	num=VAL(thisform.txtnum.Value)
	ctmp=BINTOC(num,BinToCParm)
	cBin=""
	FOR i = 1 TO LEN(ctmp)
		FOR j=7 TO 0 STEP -1
			cBin=cBin+IIF(BITTEST(ASC(SUBSTR(ctmp,i,1)),j),"1","0")
			IF j=4
				cBin=cBin+":"
			ENDIF 
		ENDFOR 
		cBin=cBin+" "
	ENDFOR
	thisform.txtbinary.value=cBin
	DO case
	CASE thisform.list1.Value$"F"
*  S EEEEEEEE FFFFFFFFFFFFFFFFFFFFFFF
*  0 1      8 9                    31
		thisform.lblformat.Caption ="SEEE EEEE EFFF FFFF FFFF FFFF FFFF FFFF"
		thisform.lblformat2.Caption="S1        89                         31"
		thisform.lblexp.Visible=.t.
		thisform.lblexpval.Visible=.t.
		nExp=IIF(num=0,0,INT(LOG10(ABS(num))/LOG10(2))) && log base 2
		nExcess=127
		thisform.lblexpVal.Caption=TRANSFORM(IIF(num=0,"0",TRANSFORM(nExp+nExcess)+;
			" ("+TRANSFORM(nExp)+"):"+TRANSFORM(nExp+nExcess,"@0x")))+;
			" (excess 127)"
	CASE thisform.list1.Value$"8B"
*  S EEEEEEEEEEE FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
*  0 1        11 12                                                63

		thisform.lblformat.caption= "SEEE EEEE EEEE FFFF FFFF FFFF FFFF FFFF FFFF FFFF FFFF FFFF FFFF FFFF FFFF FFFF"
		thisform.lblformat2.Caption="S1          11 12                                                            63"
		thisform.lblexp.Visible=.t.
		thisform.lblexpval.Visible=.t.
		nExp=IIF(num=0,0,INT(LOG10(ABS(num))/LOG10(2)))
		nExcess=1023
		thisform.lblexpVal.Caption=TRANSFORM(IIF(num=0,"0",TRANSFORM(nExp+nExcess)+;
			" ("+TRANSFORM(nExp)+"):"+TRANSFORM(nExp+nExcess,"@0x")))+;
			" (excess 1023)"
	OTHERWISE
		thisform.lblformat.caption=""
		thisform.lblformat2.caption=""
		thisform.lblexp.Visible=.f.
		thisform.lblexpval.Visible=.f.
	ENDCASE 
	cHex=TRANSFORM(CAST(ctmp as w))
	cHexFmt=""
	FOR i = 1 TO LEN(cHex) step 2	&& put in " " separators
		cHexFmt=cHexFmt+SUBSTR(cHex,i,2)+" "
	ENDFOR
	
	thisform.txtbintoccast.Value=cHexFmt
	thisform.lblBinToC.Caption="BinToC(Num,"+'"'+BinToCParm+'"'+")"+"    (hex)"
	CtoBinParm=thisform.list2.Value
	IF thisform.chkRev2.Value=1
		CtoBinParm=CtoBinParm+"r"
	ENDIF 
	IF thisform.chksign2.Value=1
		CtoBinParm=CtoBinParm+"s"
	ENDIF 
	tmp2=CTOBIN(ctmp,CtoBinParm)
	thisform.txTCTOBIN.Value=TRANSFORM( tmp2,"##############.#############")
	thisform.lblcToBin.Caption="CToBin("+"BinToC(Num,"+'"'+BinToCParm+'"'+")"+","+'"'+CtoBinParm+'"'+")"
CATCH TO oErr
	_cliptext=oErr.linecontents
	IF oErr.LineContents!="tmp2=CTOBIN(ctmp,CtoBinParm)"
		thisform.txtbintocCast.Value="Err:"+oErr.LineContents
	ENDIF 
	thisform.txtctoBin.Value="Err:"+oErr.LineContents
ENDTRY

ENDPROC
PROCEDURE Init
THISFORM.list1.Value="4"
THISFORM.list2.Value="4"
THISFORM.chksign.Value=1
THISFORM.chksign2.Value=1
THISFORM.txtnum.Value="0"
THISFORM.ReCalc()

ENDPROC

7�� 

T�%
	�	M+	�U���j�T�������%�������D�T����r���%�������q�T����s���T��C���g��T��C����
T�	������
���(�C�>��O������(���������9�1T�	��	CCCC��
�\����1��06��%�����5�T�	��	�:�����T�	��	� ����T�����	��
H�s��������F����:T��
���'SEEE EEEE EFFF FFFF FFFF FFFF FFFF FFFF��:T�����'S1        89                         31��T����a��T����a��-T��C�����CCC��KC��K86��
T�����aT����CC����0�+C��_� (C�_�):C���@0x_6_�
 (excess 127)�������8B��X�bT��
���OSEEE EEEE EEEE FFFF FFFF FFFF FFFF FFFF FFFF FFFF FFFF FFFF FFFF FFFF FFFF FFFF��bT�����OS1          11 12                                                            63��T����a��T����a��-T��C�����CCC��KC��K86��T������bT����CC����0�+C��_� (C�_�):C���@0x_6_� (excess 1023)��2���T��
�����T�������T����-��T����-���T��CC��W�_��
T�������
���(�C�>�����
�T���C��
�\� ����T�������>T�����BinToC(Num,�"��"�)�	    (hex)��T�������%���������T����r���%���������T����s���T��C����4T����C��##############.#############_��TT�����CToBin(�BinToC(Num,�"��"�)�,�"��"�)���(� ���T��� �!��0%�� �!�tmp2=CTOBIN(ctmp,CtoBinParm)����T�����Err:� �!���T�����Err:� �!����U"
BINTOCPARMTHISFORMLIST1VALUECHKREVCHKSIGNNUMTXTNUMCTMPCBINIJ	TXTBINARY	LBLFORMATCAPTION
LBLFORMAT2LBLEXPVISIBLE	LBLEXPVALNEXPNEXCESSCHEXCHEXFMT
TXTBINTOCCAST	LBLBINTOC
CTOBINPARMLIST2CHKREV2CHKSIGN2TMP2	TXTCTOBIN	LBLCTOBINOERRLINECONTENTSrT�����4��T�����4��T�������T�������T�����0��
��C����UTHISFORMLIST1VALUELIST2CHKSIGNCHKSIGN2TXTNUMRECALCrecalc,��InitU��1�1q!Aq!AQ1���!AA!A1�������$!��#�11Aq���A2�1q!Aq!A1AA���A�A3AA11A�2�
F�R)
M_memberdata XML Metadata for customizable properties
nstartwidth
*recalc 
labellabellblNumFrmsolution1�AutoSize = .T.
FontName = "Tahoma"
FontSize = 10
Caption = "Enter Number (Num):"
Height = 18
Left = 15
Top = 228
Width = 126
TabIndex = 11
Name = "lblNum"
textboxtextboxtxtNumFrmsolution1�FontName = "Tahoma"
FontSize = 10
Alignment = 3
Value = 
Height = 36
Left = 12
TabIndex = 12
Top = 252
Width = 132
Name = "txtNum"
9PROCEDURE InteractiveChange
THISFORM.Recalc

ENDPROC
�� ��k�%Opj�U

����UTHISFORMRECALCInteractiveChange,��1�2.)�labellabelLabel2Frmsolution1�AutoSize = .T.
FontName = "Tahoma"
FontSize = 10
WordWrap = .T.
Caption = "BinToC Parameter:"
Height = 34
Left = 168
Top = 132
Width = 67
TabIndex = 3
Name = "Label2"
listboxlistboxList1Frmsolution1�FontName = "Tahoma"
FontSize = 10
RowSourceType = 1
RowSource = "1,2,4,8,B,F"
Height = 132
Left = 252
TabIndex = 4
Top = 84
Width = 48
AutoHideScrollbar = 1
Name = "List1"
9PROCEDURE InteractiveChange
THISFORM.Recalc

ENDPROC
�� ��k�%Opj�U

����UTHISFORMRECALCInteractiveChange,��1�2.)�checkboxcheckboxchkRevFrmsolution1�Top = 84
Left = 312
Height = 21
Width = 117
FontName = "Tahoma"
FontSize = 10
WordWrap = .T.
Alignment = 0
Caption = "Reverse bytes"
TabIndex = 5
Name = "chkRev"
9PROCEDURE InteractiveChange
THISFORM.Recalc

ENDPROC
�� ��k�%Opj�U

����UTHISFORMRECALCInteractiveChange,��1�2.)�checkboxcheckboxchkSignFrmsolution1�Top = 120
Left = 312
Height = 21
Width = 87
FontName = "Tahoma"
FontSize = 10
WordWrap = .T.
Alignment = 0
Caption = "Sign XOR"
TabIndex = 6
Name = "chkSign"
9PROCEDURE InteractiveChange
THISFORM.Recalc

ENDPROC
�� ��k�%Opj�U

����UTHISFORMRECALCInteractiveChange,��1�2.)�textboxtextbox
txtBintocCastFrmsolution1�FontName = "Tahoma"
FontSize = 10
Height = 36
Left = 168
ReadOnly = .T.
TabIndex = 14
Top = 252
Width = 252
Name = "txtBintocCast"
listboxlistboxList2Frmsolution1�FontName = "Tahoma"
FontSize = 10
RowSourceType = 1
RowSource = "1,2,4,8,B,N,Y"
Height = 132
Left = 540
TabIndex = 8
Top = 84
Width = 48
AutoHideScrollbar = 1
Name = "List2"
9PROCEDURE InteractiveChange
THISFORM.Recalc

ENDPROC
�� ��k�%Opj�U

����UTHISFORMRECALCInteractiveChange,��1�2.)�checkboxcheckboxchkRev2Frmsolution1�Top = 84
Left = 600
Height = 21
Width = 117
FontName = "Tahoma"
FontSize = 10
WordWrap = .T.
Alignment = 0
Caption = "Reverse bytes"
TabIndex = 9
Name = "chkRev2"
9PROCEDURE InteractiveChange
THISFORM.Recalc

ENDPROC
�� ��k�%Opj�U

����UTHISFORMRECALCInteractiveChange,��1�2.)�checkboxcheckboxchkSign2Frmsolution1�Top = 120
Left = 600
Height = 21
Width = 87
FontName = "Tahoma"
FontSize = 10
WordWrap = .T.
Alignment = 0
Caption = "Sign XOR"
TabIndex = 10
Name = "chkSign2"
9PROCEDURE InteractiveChange
THISFORM.Recalc

ENDPROC
�� ��k�%Opj�U

����UTHISFORMRECALCInteractiveChange,��1�2.)�labellabelLabel3Frmsolution1�AutoSize = .T.
FontName = "Tahoma"
FontSize = 10
WordWrap = .T.
Caption = "CToBin Parameter:"
Height = 34
Left = 456
Top = 132
Width = 67
TabIndex = 7
Name = "Label3"
textboxtextbox	txtCtoBinFrmsolution1�FontName = "Tahoma"
FontSize = 10
Height = 36
Left = 456
ReadOnly = .T.
TabIndex = 16
Top = 252
Width = 288
Name = "txtCtoBin"
labellabel	lblBinToCFrmsolution1�FontBold = .T.
FontName = "Tahoma"
FontSize = 10
Caption = "BinToC(Hex)"
Height = 24
Left = 168
Top = 228
Width = 252
TabIndex = 13
ForeColor = 0,0,255
Name = "lblBinToC"
labellabel	lblCToBinFrmsolution1�FontBold = .T.
FontName = "Tahoma"
FontSize = 10
Caption = "CToBin()"
Height = 24
Left = 456
Top = 228
Width = 288
TabIndex = 15
ForeColor = 0,0,255
Name = "lblCToBin"
labellabelLabel5Frmsolution1�FontName = "Tahoma"
FontSize = 10
Caption = "Binary:"
Height = 24
Left = 15
Top = 316
Width = 51
TabIndex = 17
Name = "Label5"
textboxtextbox	txtBinaryFrmsolution1�FontName = "Tahoma"
FontSize = 10
Height = 36
Left = 72
ReadOnly = .T.
TabIndex = 18
Top = 312
Width = 672
Name = "txtBinary"
labellabelLabel6Frmsolution1�FontName = "Tahoma"
FontSize = 10
Caption = "Format:"
Height = 24
Left = 15
Top = 374
Width = 60
TabIndex = 19
Name = "Label6"
labellabel	lblFormatFrmsolution1�FontName = "Tahoma"
FontSize = 10
Caption = "Label5"
Height = 25
Left = 84
Top = 374
Width = 660
TabIndex = 20
Name = "lblFormat"
labellabel
lblFormat2Frmsolution1�FontName = "Tahoma"
FontSize = 10
Caption = "Label5"
Height = 25
Left = 84
Top = 396
Width = 660
TabIndex = 21
Name = "lblFormat2"
labellabellblExpFrmsolution1�FontName = "Tahoma"
FontSize = 10
Caption = "Exponent:"
Height = 25
Left = 15
Top = 420
Width = 84
TabIndex = 22
Name = "lblExp"
labellabel	lblExpValFrmsolution1�FontName = "Tahoma"
FontSize = 10
Caption = "Label6"
Height = 24
Left = 96
Top = 420
Width = 312
TabIndex = 23
Name = "lblExpVal"
mArial, 0, 9, 5, 15, 12, 32, 3, 0
MS Sans Serif, 0, 8, 5, 13, 11, 11, 2, 0
Tahoma, 0, 10, 6, 16, 13, 25, 3, 0