با سلام و سپاس خدمت کاربران عزیز سایت یاهو ۹۸ YAHOO

 

امروز با قطعه کدی کاربردی دیگر در خدمتتون هستیم  امیدوارم مطلب فوق مورد قبول شما قرار گیرد .

ساخت شماره سریال در دسته ۴ تایی در B4A

 

Sub UUIDv4 As String
  Dim sb As StringBuilder
  sb.Initialize
  For Each stp As Int In Array(4, 4, 4, 4)
    If sb.Length > 0 Then sb.Append("-")
    For n = 1 To stp
      Dim c As Int = Rnd(0, 16)
      If c < 10 Then c = c + 48 Else c = c + 55
      If sb.Length = 19 Then c = Asc("8")
      If sb.Length = 14 Then c = Asc("4")
      sb.Append(Chr(c))
    Next
  Next
  Return sb.ToString.ToLowerCase
End Sub

 

نمونه بدست آماده :

 

۶۲۱C-F7D6-42F0-44A55