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