Re: [Gambas-user] R: how to generation 12 random letters (A-Z and 0-9)

2015-06-05 Thread Gianluigi
", > > > "U", "V", "W", "X", "Y", "Z", > > > "1", "2", "3", "4", "5", "6", "7", "8", "9", "0", > > &g

Re: [Gambas-user] R: how to generation 12 random letters (A-Z and 0-9)

2015-06-05 Thread Jorge CarriĆ³n
quot;, "Q", "R", "S", "T", > > "U", "V", "W", "X", "Y", "Z", > > "1", "2", "3", "4", "5", "6", &q

Re: [Gambas-user] R: how to generation 12 random letters (A-Z and 0-9)

2015-06-05 Thread Gianluigi
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

Re: [Gambas-user] R: how to generation 12 random letters (A-Z and 0-9)

2015-06-05 Thread Ru Vuott
ot;, "M", "N", "O", "P", "Q", "R", "S", "T", "U", "V", "W", "X", "Y", "Z", "1", "2", "3", "4", &q

Re: [Gambas-user] R: how to generation 12 random letters (A-Z and 0-9)

2015-06-04 Thread nando
:) -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 : > >

Re: [Gambas-user] R: how to generation 12 random letters (A-Z and 0-9)

2015-06-03 Thread Fabien Bodard
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 >&

Re: [Gambas-user] R: how to generation 12 random letters (A-Z and 0-9)

2015-06-02 Thread Gian
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

Re: [Gambas-user] R: how to generation 12 random letters (A-Z and 0-9)

2015-06-02 Thread Paul Horechuk
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) >

Re: [Gambas-user] R: how to generation 12 random letters (A-Z and 0-9)

2015-06-02 Thread nando
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

Re: [Gambas-user] R: how to generation 12 random letters (A-Z and 0-9)

2015-05-30 Thread Jussi Lahtinen
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

[Gambas-user] ?????? R: how to generation 12 random letters (A-Z and 0-9)

2015-05-30 Thread tsukuba GIMP user
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

[Gambas-user] R: how to generation 12 random letters (A-Z and 0-9)

2015-05-30 Thread Ru Vuott
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