تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
[كود] كود توليد الارقام عشوائي
#1
السلام عليكم ورحمت الله وبركته 
هيداء كود توليد ارقام عشواءيه
الادوات
2textbox

1bouton
الكود
PHP كود :
Public Class Form1
   Dim rand 
As New Random
   
Private Sub Button1_Click(ByVal sender As System.ObjectByVal e As System.EventArgsHandles Button1.Click
       TextBox1
.Text GetNum()
 
  End Sub
   
Function GetNum() As String
       Dim t 
As String ""
 
      Do Until t.Length 9
           t 
&= rand.Next(010)
 
      Loop
       
Return t
   End 
Function
End Class 

وهيدا كود صنع الipالعشؤيه
PHP كود :
Public Class Form1

    Private _random 
As Random = New Random()

 
   Public Function GetRandomIp() As String
        Return String
.Format("{0}.{1}.{2}.{3}"_random.Next(0255), _random.Next(0255), _random.Next(0255), _random.Next(0255))
 
   End Function

 
   Private Sub Button1_Click(ByVal sender As System.ObjectByVal e As System.EventArgsHandles Button1.Click

        Dim ips 
= New List(Of String)()

 
       For i As Integer 0 To 10 1
            ips
.Add(GetRandomIp())
 
       Next

        For Each ip In ips
            ListBox1
.Items.Add(ip ":" TextBox1.Text)
 
       Next

    End Sub
End 
Class 

يرت لو حد معاه كود ارقام وحروف عشؤايه يفدنه بيه وشكران لحضرتكو لقرات الموضوع
Heart قل لن يصيبنا الا ماكتب الله لنا Heart
الرد
تم الشكر بواسطة: سعود , عبد العزيز البسكري
#2
وعليكم السلام ورحمة الله وبركاته
PHP كود :
Public Class Form1
    Dim str 
As String "ءأاإآبتثجحخدذرزسشصضطظعغفقكلمنهويىؤئةـabcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ0123456789"
 
   Private Function Getstring(ByVal count As Integer) As String
        Dim i 
As Integer
        Dim a 
As String ""
 
       For i 0 To count
            a 
&= str(Int(Rnd() * Len(str)))
 
       Next
        Return a
    End 
Function
 
   Private Sub Button1_Click(sender As ObjectAs EventArgsHandles Button1.Click
        TextBox1
.Text Getstring(15)
 
   End Sub
End 
Class 
توليد نص خليط من حروف عربية وانجليزية وارقام.
أرجو  ان يكون هو المطلوب.
تحياتي.
الرد
تم الشكر بواسطة: عبد العزيز البسكري , محمد ايمن
#3
(31-03-20, 02:02 AM)سعود كتب : وعليكم السلام ورحمة الله وبركاته
PHP كود :
Public Class Form1
    Dim str 
As String "ءأاإآبتثجحخدذرزسشصضطظعغفقكلمنهويىؤئةـabcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ0123456789"
 
   Private Function Getstring(ByVal count As Integer) As String
        Dim i 
As Integer
        Dim a 
As String ""
 
       For i 0 To count
            a 
&= str(Int(Rnd() * Len(str)))
 
       Next
        Return a
    End 
Function
 
   Private Sub Button1_Click(sender As ObjectAs EventArgsHandles Button1.Click
        TextBox1
.Text Getstring(15)
 
   End Sub
End 
Class 
توليد نص خليط من حروف عربية وانجليزية وارقام.
أرجو  ان يكون هو المطلوب.
تحياتي.

اقسم بلله اخي سعود انك تستهل 100مليون شكر
Heart قل لن يصيبنا الا ماكتب الله لنا Heart
الرد
تم الشكر بواسطة: سعود


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  كود الحصول على رقم عشوائي ahmad abdullah 0 1,134 04-10-16, 11:53 AM
آخر رد: ahmad abdullah
  [كود] توليد سيريال (ارقام) سعود 4 1,950 01-02-16, 09:20 AM
آخر رد: rinawi

التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم