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

nando nando_f at ...951...
Tue Jun 2 14:49:56 CEST 2015


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.lahtinen at ...626...>
To: mailing list for gambas users <gambas-user at 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 <vuott at ...325...> 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 <tsukubagraduates at ...3482...> ha scritto:
> >
> >  Oggetto: [Gambas-user] how to generation 12 random letters (A-Z and 0-9)
> >  A: "gambas-user" <gambas-user at 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 at lists.sourceforge.net
> >  https://lists.sourceforge.net/lists/listinfo/gambas-user
> >
> >
> >
> > ------------------------------------------------------------------------------
> > _______________________________________________
> > Gambas-user mailing list
> > Gambas-user at lists.sourceforge.net
> > https://lists.sourceforge.net/lists/listinfo/gambas-user
> >
> ------------------------------------------------------------------------------
> _______________________________________________
> Gambas-user mailing list
> Gambas-user at lists.sourceforge.net
> https://lists.sourceforge.net/lists/listinfo/gambas-user
------- End of Original Message -------





More information about the User mailing list