Re: [Gambas-user] R: how to generation 12 random letters (A-Z and 0-9)
...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 nand...@nothingsimple.com 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@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...@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
Re: [Gambas-user] R: how to generation 12 random letters (A-Z and 0-9)
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 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 vu...@yahoo.it: ...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 nand...@nothingsimple.com 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@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...@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 ---
Re: [Gambas-user] R: how to generation 12 random letters (A-Z and 0-9)
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, 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 vu...@yahoo.it: ...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 nand...@nothingsimple.com 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@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...@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
Re: [Gambas-user] R: how to generation 12 random letters (A-Z and 0-9)
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
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?]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
Re: [Gambas-user] R: how to generation 12 random letters (A-Z and 0-9)
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?]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
[Gambas-user] R: how to generation 12 random letters (A-Z and 0-9)
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 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
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 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
