تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
[سؤال] أريد تكرار نص بشرط تغيير قيمة معينة فيه بشكل عشوائي
#1
السلام عليكم ورحمة الله وبركاته  Rolleyes

لدي سؤال كيف يمكن انشاء كود لتكررا نص معين واضافة عليه 5 ارقام عشوائية وعدم تكرار الارقام في المرة الماضيه

صورة توضح الفكرة
[url=http://www.up-00.com/][/url]

عند الضغك على انشاء يتم تكرار النص الموجود في تكست 1
عدد 200 مرة وتغيير النجوم في 5 ارقام عشوائيه وكتابته في التكست 2


الملفات المرفقة صورة/صور
   
الرد }}}}
تم الشكر بواسطة:
#2
وعليكم السلام ورحمة الله وبركاتة

تفضل عملت لك كود آتمنى يكون ها هو المطلوب

PHP كود :
Dim CharArray() As Char "abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ0123456789".ToCharArray
        TextBox3
.Clear()
        
Dim Rnd As New Random
        
For 1 To CInt(TextBox1.Text)
            
Dim NewString1 As String Nothing
            Dim NewString2 
As String Nothing
            
For Rndom 0 To 4
                NewString1 
+= CharArray(Rnd.Next(0CharArray.Length))
            
Next
            
For Rndom2 0 To 4
                NewString2 
+= CharArray(Rnd.Next(0CharArray.Length))
            
Next
            TextBox3
.Text += String.Format("User : {0} | Pass : {1}"NewString1NewString2) & vbNewLine

        Next 

حيث TextBox3 هو النص الجديد الي تحت

و TextBox2 هي القيمة او عدد التكرار

وفقك الله ,
الرد }}}}
تم الشكر بواسطة: Mohammedk
#3
جرب التالي
كود :
For i = 1 To Val(Me.TextBox2.Text)
    Do
        Dim n As Integer = New Random().Next(10000, 99999)
        Dim t As String = Replace(TextBox1.Text, "*****", n)
        If Not TextBox3.Text.Contains(t) Then
            TextBox3.AppendText(t & vbNewLine)
            Exit Do
        End If
    Loop
Next
الرد }}}}
تم الشكر بواسطة: Mohammedk
#4
شكراً أخي undetected71 الله يعطيك الف عافيه

الله يسلم ايديك أخي ameerah هل يمكن الاضافة على الاكود PASS2 ولاكن يكون نفس PASS1 + انه يكون اليوزر نيم مختلف عن الباسورد ؟؟
مثلاً
USER : 222 PASS1: 333 PASS2:333
الرد }}}}
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  [VB.NET] مشكلة في تغيير لون خلفية الخلية في ال Datagridview Joe kad 10 234 09-01-17, 02:01 AM
آخر رد: مساعدة
  [سؤال] كيف جمع عمود به قيمة فارغة يوجد مثال aboslah4u22 8 1,336 04-01-17, 12:48 PM
آخر رد: مساعدة
  تغيير قاعدة البيانات الى .bak صبري زينوبي 5 135 01-01-17, 02:33 PM
آخر رد: صبري زينوبي
Photo مطلوب كود لإدراج جدول بمواصفات معينة SYman 1 89 20-12-16, 06:54 PM
آخر رد: zinom
  لأساتذتي من أهل الخبرة هل يمكن فتح ملف برقم صفحة معينة kofa 11 312 16-12-16, 05:47 AM
آخر رد: zinom
  لديّ 2 قاعدة بيانات وريبورت 1 اريد تغيير البيانات مرة من القاعدة 1 ومرة من القاعدة 2 محمد محمود الغرياني 3 110 12-12-16, 02:04 AM
آخر رد: khodor1985
  ازاى اما اكتب قيمة فى التكست بوكس يتاكد انها مش موجودة فى الداتا جريدفيو araxis 1 117 07-12-16, 11:22 AM
آخر رد: ممدوح الخطيب
  تغيير قاعدة البيانات الى .bak زيد زينوبي 3 129 03-12-16, 07:07 PM
آخر رد: ابراهيم النعيمي
  طلب مساعدة ناتج طرح عددين قيمة سالبه khalaroy 2 108 01-12-16, 03:09 AM
آخر رد: khalaroy
  تغيير قاعدة البيانات من اكسس الى sql hglogtd 2 153 26-11-16, 03:03 AM
آخر رد: hglogtd

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


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