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

[nando]

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.fr at ...626...>
To: mailing list for gambas users <gambas-user at 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 <phorechuk at ...626...>:
> > 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.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?][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 -------
> >>
> >>
> >> ------------------------------------------------------------------------------
> >> _______________________________________________
> >> Gambas-user mailing list
> >> Gambas-user at lists.sourceforge.net
> >> https://lists.sourceforge.net/lists/listinfo/gambas-user
> >
> > --
> > Think Free ...
> >     Use Open Source Software
> >
> >
> > ------------------------------------------------------------------------------
> > _______________________________________________
> > Gambas-user mailing list
> > Gambas-user at lists.sourceforge.net
> > https://lists.sourceforge.net/lists/listinfo/gambas-user
> 
> -- 
> Fabien Bodard
> 
> ------------------------------------------------------------------------------
> _______________________________________________
> Gambas-user mailing list
> Gambas-user at lists.sourceforge.net
> https://lists.sourceforge.net/lists/listinfo/gambas-user
------- End of Original Message -------