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
