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

[t. G. u. <tsu...@fo...>]

oh thanks you helping :-D

=========================================================



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 <tsu...@fo...> ha scritto:

 Oggetto: [Gambas-user] how to generation 12 random letters (A-Z and 0-9)
 A: "gambas-user" <gam...@li...>
 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
 Gam...@li...
 https://lists.sourceforge.net/lists/listinfo/gambas-user
 

------------------------------------------------------------------------------
_______________________________________________
Gambas-user mailing list
Gam...@li...
https://lists.sourceforge.net/lists/listinfo/gambas-user