oShell = CreateObject("WScript.Shell")

oShell.Run("RunDll32.exe
shell32.dll,Control_RunDLL appwiz.cpl,,0")

Clear

******************************

* ALLTRIM(TRANSFORM(nCounter))

******************************


Local nCounter, cResult

x = Seconds()


For nCounter = 1
To
1000000

   
cRet = Alltrim(Transform(nCounter))


EndFor


?Seconds()
- x && 3.415 Seg

******************************

* TRANSFORM(nCounter)

******************************


x = Seconds()


For nCounter = 1
To
1000000

   
cRet = Transform(nCounter)


EndFor


?Seconds()
- x && 3.225 Seg

 


******************************

* ALLTRIM(STR(nCounter))

******************************


x = Seconds()


For nCounter = 1
To
1000000

   
cRet = Alltrim(Str(nCounter))


EndFor


?Seconds()
- x  && 1.552 Seg



 

 


El resultado arrojado es que es más optimo
utilizar ALLTRIM+STR.

nS =
Seconds()

zz = "a"

For i = 1
To
1000000

   
cc = VarType(zz)


EndFor

?Seconds()
- nS

 

- Utilizando Type, el tiempo de procesamiento
de la prueba fue de 3.024 Seg (Depende del PC)




nS =
Seconds()

zz = "a"

For i = 1
To
1000000

   
cc = Type(zz)


EndFor

?Seconds()
- nS

Podemos concluir entonces que el VARTYPE es una
función más optimizada que el Type y esto se debe a la compilación que hace está
última a los parámetros pasados

cUnidad =
"C:"

=Messagebox(SerialDisco(cUnidad),0)

Function SerialDisco(cUnidad)

    Run
VOL &cUnidad > VOL.tmp

   
cUnidad=Filetostr("vol.tmp")

   
Return Substr(cUnidad,Rat("
",cUnidad))


EndFunc


 

 

cRutaClase = Home()+"FFC\_therm.vcx"


cTitulo = "Ejemplo
de barra de Progreso"

oBarra = Newobject("_thermometer",cRutaClase,
"",;

                     cTitulo, 100, 1)

With oBarra

   
.Visible
= .T.

   
.Update(10,
"Buscando...")

   
Inkey(.2)
&& Para producir
retardo en el ejemplo

   
.Update(20,
"Paso 1")

   
Inkey(.2)

   
.Update(40,
"Paso 2")

   
Inkey(.2)

   
.Update(70,
"Paso 3")

   
Inkey(.2)

   
.Update(90,
"Paso 4")

   
Inkey(.2)

   
.Update(100,
"Terminado!")

   
Inkey(.2)

   
.Release()


Endwith


 

#Define
RotateNoneFlipNone 0

#Define
Rotate90FlipNone 1

#Define
Rotate180FlipNone 2

#Define
Rotate270FlipNone 3

#Define
RotateNoneFlipX 4

#Define
Rotate90FlipX 5

#Define
Rotate180FlipX 6

#Define
Rotate270FlipX 7

Local cOrigen, cDestino

cOrigen = Getpict("jpg;gif;bmp")

cDestino = JustPath(cOrigen)+"\Rotada_"+JustFname(cOrigen)

oImg = Newobject("GpImage",
HOME()+"ffc\_gdiplus.vcx")

With oImg

   
.CreateFromFile(cOrigen)

   
.RotateFlip(Rotate180FlipNone)


   
.SaveToFile(cDestino,"image/jpeg")


EndWith

oExcel = Createobject("Excel.Application")

With oExcel

   
.Visible=.T.

   
.Workbooks.Add

   
.ActiveWorkbook.Sheets(1).Activate

   
.Cells(3,2) = 10

   
.Cells(4,2) = 26

   
.Cells(5,2) = 63

   
.Cells(6,2) = 42

   
.Cells(7,2) = 1

   
.Cells(9,1) = "Suma"

    .Cells(9,2).FormulaR1C1 =
"=SUM(R[-6]C:R[-1]C)"

   
.Cells(10,1) =
"Promedio"

   
.Cells(10,2).FormulaR1C1 =
"=AVERAGE(R[-7]C:R[-2]C)"

   
.Cells(11,1) =
"Máximo"

   
.Cells(11,2).FormulaR1C1 =
"=MAX(R[-8]C:R[-3]C)"

   
.Cells(12,1) =
"Mínimo"

   
.Cells(12,2).FormulaR1C1 =
"=MIN(R[-9]C:R[-4]C)"


EndWith


 

oGDI = Newobject("gpbitmap",
(Home()+"ffc\_gdiplus.vcx"))

oGDI.CreateFromFile(GetFile("jpg"),
.F.)

Public oHnd

oHnd = Newobject("ScreenMov")

Bindevent(_Screen,
"DblClick",
oHnd, "DblClick")

Define Class ScreenMov
As Session

   
Procedure DblClick

       
Wait Window "Doble
Click"

   
Endproc

EndDefine

oConn = CreateObject("ADODB.Connection")

cRutaDatos = "C:\Datos\TablasLibres"

oConn.Open("Provider=VFPOLEDB.1;"
+ ;

        "Data Source="
+ cRutaDatos + ;

       
";Collating Sequence=MACHINE")

oConn.Execute("Create
Table Prueba (CmpDateT T)")

oConn.Execute("Insert
Into Prueba Values (DATETIME())")

oConn.Execute("Insert
Into Prueba Values ({^2006-10-10 11:11:11 PM})")

 

oConn.Close()

Release oConn

Create Cursor Datos (Numero i, Veces i,
nTotal i)

Insert Into Datos
Values
(8,0,0)


Insert Into Datos
Values
(8,2,0)


Insert Into Datos
Values
(8,5,0)


Insert Into Datos
Values
(8,1,0)


Insert Into Datos
Values
(8,0,0)


Insert Into Datos
Values
(8,3,0)

Go Top In Datos

Public oForm

oForm = Newobject("form")

oForm.Width
= 400

oForm.Height
= 400

With oForm

   
.AddObject("MiGrid",
"Grid")

   
With
.MiGrid

       
.Visible
= .T.

       
.Top
= 5

       
.Left
= 5

       
.Width
= 390

       
.Height
= 390

       
.RecordSource
=
"Datos"

       
.Column3.ControlSource
=
"Numero + Veces"

   
Endwith

Endwith

oForm.Show

Local cOrigen, cDestino

cOrigen = GetPict()

cDestino = JustPath(cOrigen)
+ "\_"
+
JustStem(cOrigen)

oImg = NewObject("GpImage",
Home()
+ "ffc/_gdiplus.vcx")

With oImg

   
.CreateFromFile(cOrigen)

   
.SaveToFile(cDestino +
".jpg","image/jpeg")

   
.SaveToFile(cDestino +
".bmp","image/bmp")

   
.SaveToFile(cDestino +
".tif","image/tiff")

   
.SaveToFile(cDestino +
".gif","image/gif")

   
.SaveToFile(cDestino +
".png","image/png")


EndWith


 

oCDO = Createobject("CDO.Configuration")

For Each oField
In
oCDO.Fields

   
If !"sendpassword"
$ oField.Name


       
? oField.Name
+
" "+Transform(oField.Value)

   
Endif

Next

Release oCDO


 

Set Memowidth To 8000

cArchivo = GetFile()

If !Empty(cArchivo)

    Create Cursor
Datos (TxtLineas m)

   
cText = FileToStr(cArchivo)

   
nLineas = Memlines(cText)



   
For
i=1
To
nLineas

       
Insert Into
Datos
Values(Mline(cText,i))

   
Endfor

EndIf