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

Gianluigi bagonergi at ...626...
Fri Jun 5 19:40:11 CEST 2015


Thanks Jorge,
very kind :)

Ciao
Gianluigi

2015-06-05 18:53 GMT+02:00 Jorge Carrión <shordi at ...626...>:

> Gianluigi:
> You're no more an Spammer... :D:D
> I can see you in my inbox.
>
> Regards.
>
>
> 2015-06-05 15:08 GMT+02:00 Gianluigi <bagonergi at ...626...>:
>
> > Hello Fernando,
> > Since version 3.6 you can use Rand that returns an integer, contrary to
> > Rnd, the higher born of the interval can be returned.
> > Rand(1, 36), 1)
> >
> > Hello all,
> > kindly you can let me know if this email appears as a SPAM
> >
> > Regards
> > Gianluigi
> >
> > 2015-06-05 11:07 GMT+02:00 Ru Vuott <vuott at ...325...>:
> >
> > > ...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 <nando_f at ...951...> 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 at 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.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 -------
> > >
> > >
> > >
> > >
> >
> ------------------------------------------------------------------------------
> > >  _______________________________________________
> > >  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
> > >
> >
> >
> >
> > --
> > Regards
> > Gianluigi
> >
> >
> ------------------------------------------------------------------------------
> > _______________________________________________
> > 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
>



-- 
Regards
Gianluigi



More information about the User mailing list