FiveTech Software tech support forums

la funzione Dec2Hex(nDec,lPad) e' ottima , quindi trasformo in esadecimale massimo 1.048.575 valori possibili. per curiosità stavo provando anche quest'altra soluzione : STATIC FUNCTION Renum()LOCAL aList := {'0', ...

Questa funzione ha qualcosa che non va?

Code: Select all  Expand view

cProgInvio := NTOC( nProgInvio , 36, 5, "0" )

EMG

Io uso questa funzione function Dec2Hex(nDec,lPad)local nDiglocal cHex := ""lPad := lPad=nil .or. lPadwhile .T.   nDig := nDec%16   cHex := if(nDig>9, Chr(Asc("A")+nDig-10), Str(nDig,1)) ...

... chr($ord), -1 - $x, 1);      }   }return $str . '0';}  ho convertito in questo modo : N.B. funzione per 4 cifre ma si puo' adattare a piu' cifre. STATIC FUNCTION Renum()LOCAL cCont := SPACE(4), cRet := ""LOCAL aS ...

... file . Se poi si usano anche le lettere minuscole nella combinazione ( a ....z ) la quantità di generazione aumenta. Qualcuno ha implementato una funzione che genera questo incremento ? ho provato alcune soluzioni ma in alcuni casi "toppano" :) Grazie.

Ciao
Esiste una funzione che mi dice i pollici del monitor sul quale sto lavorando ?

Grazie

lo sai ?
ho scoperto che io già usavo questa funzione per la visualizzazione di un testo (grosso) in modo giustificato

Con questa funzione che distanzia o avvicina i caratteri:

Code: Select all  Expand view

SETTEXTCHARACTEREXTRA( oPrn:hDCOut, nPunti )

EMG

SI ricerca programmatore per rifacimento funzione decompilata dal CA-Clipper d in un vecchio programma dos

grazie Stefano,
pensavo ci fosse una funzione preconfezionata in xBrowse.

Ho provato ad usare cBuffer ... ma ancora niente. Potrebbero essere i tipi di dati in TETHParameters ? Ho usato la funzione StrPtr() per passare il puntatore alla struttura: STRUCT TETHParameters MEMBER IPAddress As STRING LEN 16 MEMBER Port As STRING LEN 6 ENDSTRUCT ETHParameters:=ThisStruct(TETHParameters) ...

Mai possibile che non esiste una funzione che mi da la lista dei processi caricati su TASK-MANAGER ?
Magari anche con path ?

Non le applicazioni, ma i processi !

Tks

... CFILENOEXT( HB_ARGV( 0 ) ) ) ...... poichè più di un cliente mi ha riferito che non riusciva a a lanciare in programma, in quanto tale funzione risultava già in esecuzione !! Eppure io ho fatto dei test su Windows XP, Windows 7 e Windows 10 e funzionava bene, mentre dai clienti avevano ...

saluti mio esempio per la prima questione : vedi funzione Vedi_P(.....) e Prezzo(.....) #include "FiveTouch.ch"FUNCTION Main()local oDlg,;      oBtnPre,;      oBtnInv,;      oBtnEle,;      oBtnRac,;      oBtnNtx,;      oBtnImp,;  ...

saluti mio esempio per la prima questione : vedi funzione Vedi_P(.....) e Prezzo(.....) #include "FiveTouch.ch"FUNCTION Main()local oDlg,;      oBtnPre,;      oBtnInv,;      oBtnEle,;      oBtnRac,;      oBtnNtx,;      oBtnImp,;  ...