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
