...or similarly by using String[] array: Public Sub Main()
Dim b As Byte Dim ss As String[] = ["A", "B", "C", "D", "E", "F", "G", "H", "I", "J", "K", "L", "M", "N", "O", "P", "Q", "R", "S", "T", "U", "V", "W", "X", "Y", "Z", "1", "2", "3", "4", "5", "6", "7", "8", "9", "0", Null] For b = 1 To 12 ss[ss.Max] &= ss[Rnd(0, 36)] Next Print ss[ss.Max] End -------------------------------------------- Ven 5/6/15, nando <nand...@nothingsimple.com> ha scritto: Oggetto: Re: [Gambas-user] R: how to generation 12 random letters (A-Z and 0-9) A: "mailing list for gambas users" <gambas-user@lists.sourceforge.net> Data: Venerdì 5 giugno 2015, 02:55 Thanks folks, Not being pickey 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(Rnd((1, 37)), 1) Next Print s :) -Fernando ---------- Original Message ----------- From: Fabien Bodard <gambas...@gmail.com> To: mailing list for gambas users <gambas-user@lists.sourceforge.net> 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 <phorec...@gmail.com>: > > Just being a bit picky here, but shouldn't that be Rnd(1,36) ? 26 > > letters and 10 digits? > > > > On 15-06-02 08:49 AM, nando wrote: > >> Alternate: > >> > >> Dim j as Byte > >> Dim s as String > >> > >> For j = 1 To 12 > >> s &= Mid("ABCDEFGJIJKLMOPQRSTUVWXYZ0123456789", Int(1, 13), 1) > >> Next > >> > >> Print s > >> > >> > >> ---------- Original Message ----------- > >> From: Jussi Lahtinen <jussi.lahti...@gmail.com> > >> To: mailing list for gambas users <gambas-user@lists.sourceforge.net> > >> 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) > >> > >>> 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 <vu...@yahoo.it> wrote: > >>> > >>>> 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 GIMP user <tsukubagradua...@foxmail.com> ha scritto: > >>>> > >>>> Oggetto: [Gambas-user] how to generation 12 random letters (A-Z and 0-9) > >>>> A: "gambas-user" <gambas-user@lists.sourceforge.net> > >>>> Data: Sabato 30 maggio 2015, 11:16 > >>>> > >>>> i want when i click button (button_1) > >>>> LCDpanl(LCDLabel1) will be Generation 12 random letters > >>>> how to [UTF-8?][UTF-8?]do? > >>>> > >>>> >>>>------------------------------------------------------------------------------ > >>>> _______________________________________________ > >>>> Gambas-user mailing list > >>>> Gambas-user@lists.sourceforge.net > >>>> https://lists.sourceforge.net/lists/listinfo/gambas-user > >>>> > >>>> > >>>> > >>>> ------------------------------------------------------------------------------ > >>>> _______________________________________________ > >>>> Gambas-user mailing list > >>>> Gambas-user@lists.sourceforge.net > >>>> https://lists.sourceforge.net/lists/listinfo/gambas-user > >>>> > >>> ------------------------------------------------------------------------------ > >>> _______________________________________________ > >>> Gambas-user mailing list > >>> Gambas-user@lists.sourceforge.net > >>> https://lists.sourceforge.net/lists/listinfo/gambas-user > >> ------- End of Original Message ------- > >> > >> > >> ------------------------------------------------------------------------------ > >> _______________________________________________ > >> Gambas-user mailing list > >> Gambas-user@lists.sourceforge.net > >> https://lists.sourceforge.net/lists/listinfo/gambas-user > > > > -- > > Think Free ... > > Use Open Source Software > > > > > > ------------------------------------------------------------------------------ > > _______________________________________________ > > Gambas-user mailing list > > Gambas-user@lists.sourceforge.net > > https://lists.sourceforge.net/lists/listinfo/gambas-user > > -- > Fabien Bodard > > ------------------------------------------------------------------------------ > _______________________________________________ > Gambas-user mailing list > Gambas-user@lists.sourceforge.net > https://lists.sourceforge.net/lists/listinfo/gambas-user ------- End of Original Message ------- ------------------------------------------------------------------------------ _______________________________________________ Gambas-user mailing list Gambas-user@lists.sourceforge.net https://lists.sourceforge.net/lists/listinfo/gambas-user ------------------------------------------------------------------------------ _______________________________________________ Gambas-user mailing list Gambas-user@lists.sourceforge.net https://lists.sourceforge.net/lists/listinfo/gambas-user