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

[Fabien Bodard]

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