www.FiveTechSoft.com
https://forums.fivetechsupport.com/
Code: Select all | Expand
function Main()
local n, cPasswd := "", cChars := "abcdefghijklmnopqrsuwyzABCDEFGHIJKLMNOPQRSTUWXYZ?!"
for n = 1 to 10
cPasswd += cChars[ int( hb_random( 1, Len( cChars ) ) ) ]
next
? cPasswd
return nilsi hago esto no me tira error ? substr( cChars,2,1)Time from start: 0 hours 0 mins 0 secs
Error occurred at: 08/08/2023, 11:19:38
Error description: Error BASE/1068 Error de argumento: acceso al array
Args:
[ 1] = C abcdefghijklmnopqrsuwyzABCDEFGHIJKLMNOPQRSTUWXYZ!$#
[ 2] = N 2
Code: Select all | Expand
function Main()
local n, cPasswd := "", cChars := "abcdefghijklmnopqrsuwyzABCDEFGHIJKLMNOPQRSTUWXYZ?!"
for n = 1 to 10
cPasswd += SubStr( cChars, int( hb_random( 1, Len( cChars ) ) ), 1 )
next
? cPasswd
return nilHola, la primera version que puso es para harbour.Erick Almanza wrote:Buen dia Maestro
Que tan dificil seria un ejemplo en harbour?
Saludos desde Panama,
Erick Almanza
Code: Select all | Expand
#include "FiveWin.ch"
FUNCTION Main()
LOCAL n, cPassWord := ""
LOCAL cChars := "abcdefghijklmnopqrsuwyzABCDEFGHIJKLMNOPQRSTUWXYZ?!"
FOR n = 1 TO 10
#ifdef __XHARBOUR__ // xHarbour
cPassWord += cChars[ Int( hb_Random( 1, Len( cChars ) ) ) ]
#else // Harbour
cPassWord += SubStr( cChars, Int( hb_Random( 1, Len( cChars ) ) ), 1 )
#endif
NEXT
? cPassWord
RETURN NIL
// fin / end
Hola jose luis, saludos.joseluisysturiz wrote:Tengo una funcion que hice con letras y numeros estylo BINGO que emiten los bancos aqui en mi pais, ellos lo llaman coordenadas, no se si te servidira, igual, la buscco y publico, saludos...