",
> > > "U", "V", "W", "X", "Y", "Z",
> > > "1", "2", "3", "4", "5", "6", "7", "8", "9", "0",
> > &g
quot;, "Q", "R", "S", "T",
> > "U", "V", "W", "X", "Y", "Z",
> > "1", "2", "3", "4", "5", "6", &q
at all!!
> I
> made two mistakes..
> (That is why open source
> is better than closed source)
> Corrections
> made:
>
> Dim j as Byte
> Dim s as String
>
> For j = 1 To 12
> s &=
> Mid("ABCDEFGHIJKLMNOPQRSTUVWXYZ0123456789",
> Int
ot;, "M", "N", "O", "P", "Q", "R", "S", "T", "U",
"V", "W", "X", "Y", "Z",
"1", "2", "3", "4", &q
:)
-Fernando
-- Original Message ---
From: Fabien Bodard
To: mailing list for gambas users
Sent: Wed, 3 Jun 2015 15:14:45 +0200
Subject: Re: [Gambas-user] R: how to generation 12 random letters (A-Z and 0-9)
> Chr(Rand(48,90))
>
> 2015-06-02 15:28 GMT+02:00 Paul Horechuk :
> >
ring
>>
>> For j = 1 To 12
>>s &= Mid("ABCDEFGJIJKLMOPQRSTUVWXYZ0123456789", Int(1, 13), 1)
>> Next
>>
>> Print s
>>
>>
>> -- Original Message ---
>> From: Jussi Lahtinen
>> To: mailing list for gambas users
>&
ing
>>
>> For j = 1 To 12
>> s &= Mid("ABCDEFGJIJKLMOPQRSTUVWXYZ0123456789", Int(1, 13), 1)
>> Next
>>
>> Print s
>>
>>
>> -- Original Message ---
>> From: Jussi Lahtinen
>> To: mailing list for gambas users
>> Sent: Sa
quot;, Int(1, 13), 1)
> Next
>
> Print s
>
>
> -- Original Message ---
> From: Jussi Lahtinen
> To: mailing list for gambas users
> Sent: Sat, 30 May 2015 17:41:43 +0300
> Subject: Re: [Gambas-user] R: how to generation 12 random letters (A-Z and
> 0-9)
>
t: Re: [Gambas-user] R: how to generation 12 random letters (A-Z and 0-9)
> You can write that in nicer way with rand() function, than rnd() function.
> But that doesn't really matter, your code works anyway.
>
> Jussi
>
> On Sat, May 30, 2015 at 3:12 PM, Ru Vuott w
You can write that in nicer way with rand() function, than rnd() function.
But that doesn't really matter, your code works anyway.
Jussi
On Sat, May 30, 2015 at 3:12 PM, Ru Vuott wrote:
> Hello,
>
> I propose:
>
>
> Public Sub Button1_Click()
>
> Dim j As Byte
> Dim s As String
>
> For j
oh thanks you helping :-D
=
Hello,
I propose:
Public Sub Button1_Click()
Dim j As Byte
Dim s As String
For j = 1 To 12
If Fix(Rnd(0, 2)) Then
s &= Chr(Rnd(48, 58))
Else
s &= Chr(Rnd(65, 91))
Endif
Nex
Hello,
I propose:
Public Sub Button1_Click()
Dim j As Byte
Dim s As String
For j = 1 To 12
If Fix(Rnd(0, 2)) Then
s &= Chr(Rnd(48, 58))
Else
s &= Chr(Rnd(65, 91))
Endif
Next
Print s
End
Sab 30/5/15, tsukuba GI
12 matches
Mail list logo