[prev in list] [next in list] [prev in thread] [next in thread] 

List:       gambas-user
Subject:    [Gambas-user] =?gb18030?b?u9i4tKO6IFI6IGhvdyB0byBnZW5lcmF0aW9u?= =?gb18030?q?_12_random_letters_=28A
From:       "=?gb18030?B?dHN1a3ViYSBHSU1QIHVzZXI=?=" <tsukubagraduates () foxmail ! com>
Date:       2015-05-30 12:22:06
Message-ID: tencent_7D49A9514619F58F378F11BD () qq ! com
[Download RAW message or body]

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 <tsukubagraduates@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

[prev in list] [next in list] [prev in thread] [next in thread]