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

Paul Horechuk phorechuk at ...626...
Tue Jun 2 15:28:55 CEST 2015


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





More information about the User mailing list