sorry my error Now only with local nValore:= 6 local nTipo := 3 run ok For n= 1 to 90 For k= 1 to 90 For j= 1 to 90 nTotale := Calcolo_3_numeri(n,k,j,ntipo) If nTotale=nvalore nAt := AScan( aTmp, { |a| a[1] = k .and. a[2] = n .or. a[3] = j } ) If nAt ...
change into For n= 1 to 90 For k= 1 to 90 For j= 1 to 90 nTotale := Calcolo_3_numeri(n,k,j,ntipo) If nTotale=nvalore nAt := AScan( aTmp, { |a| a[1] = j .and. a[2] = k .or. a[3] = n} ) If nAt == 0 aadd(aTmp,{n,k,j}) Endif Endif next next next the calc is fast but is also ...
... // {2,5,84},{1,2,88},{2,6,83},{2,7,82},{2,8,81},{2,9,80},{2,10,79}} local ntotale local nValore:= 1 local nTipo := 1 For n= 1 to 90 For k= 1 to 90 For j= 1 to 90 nTotale := Calcolo_3_numeri(n,k,j,ntipo) ...
... I not Know why ... to create jpg from Png I made hBmp := FW_ReadImage( nil, cFile )[ 1 ] hNew := FW_TransformBitmap( hBmp, NIL, 40) ext:= aExt[ntipo] cNewfile:= cFolderTemp+cNewName+ext FW_SaveImage( hBmp,cNewfile ,90) then to converte jpg to BMP I made cFileBmp:= savetobmp(cfileJpg) Function ...
... 105 OF oDDAbmLin REDEFINE GET oImport VAR nImport PICTURE "@E 999,999,999.99" ID 106 OF oDDAbmLin VALID Importe() REDEFINE GET oTipo VAR nTipo PICTURE "@E 99.99" ID 107 OF oDDAbmLin VALID (G_Linea(),.t.) REDEFINE GET oNumasi VAR cNumasi ID 101 OF oDDAbmLin ReadOnly REDEFINE ...
Solo un dato curioso en 64 bits. Si inicializo la variable nTipo a un valor negativo (manía que tengo para según que casos) como por ejemplo -1 el resultado de nTipo una vez ejecutada la función GetBinaryType es un número exageradamente grande de signo ...
... a la siguiente versión de FWH64 para tener los cambios "oficializados" :D Solo un dato curioso en 64 bits. Si inicializo la variable nTipo a un valor negativo (manía que tengo para según que casos) como por ejemplo -1 el resultado de nTipo una vez ejecutada la función GetBinaryType ...
... me genera GPF, pero no devuelve el valor correcto ( 6 ), devuelve 0 Cristóbal, Si inicializas la variable con un valor distinto de CERO (ejemplo nTipo:= - 1) podrás comprobar si al pasarla por referencia se cambia el valor, probablemente ni siquiera funcione la "llamada a la función". ...
... de la Tabla cTipo, ; // Tipo de campo -> Estilo DBF nLen, ; // Longitud nDec, ; // Decimales Upper(cTipoEx), ; // Tipo de Campo -> ADO nTipo } ) // Nº del Tipo de Campo -> ADO 2.- He creado la tabla a partir de una estructura de un .DBF Function StructConect( oConexion, oCat, ...
DISKSPACE() Obtiene la cantidad de espacio disponible en el disco Syntax DISKSPACE( [<nDisco>] [, <nTipo>] ) --> nDiskbytes Arguments <nDrive> es el número de disco del que esta solicitando información donde 1 = A, 2 = B, etc, Si se especifica cero ó ningún ...
... incremental and decremental I need it to calculate Tax on a price First I first I made a function to change the size of dialog called allarge(oDlg,ntipo) nTipo can be 1 to second dlg size and 2 to return to first size when I have the msgcalc I have : http://img560.imageshack.us/img560/8918/calcn.jpg ...
... METHOD PrintSetup() CLASS TDosPrn local oDlg, oRad, oChk, oSay := array(3) local nModo := 1 local nLinP := ::nLength, lPreview := .f. local nTipo, oP := self local oBtnOk, oBtnCn, oBtnSetup, oBtnAtrib, cModoImp ::lCancel := .t. // cerramos el puerto que se abrio al principio if (::hDC # ...