...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] =
Thanks Jorge,
very kind :)
Ciao
Gianluigi
2015-06-05 18:53 GMT+02:00 Jorge Carrión sho...@gmail.com:
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 bagone...@gmail.com:
Hello Fernando,
Since version 3.6 you can
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 bagone...@gmail.com:
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,
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
--
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 =
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:
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
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
