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?]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
