+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : [VB.NET] توليد ارقام عشوائية غير موجودة في قاعدة البيانات و حفظها فيها (/showthread.php?tid=25854)
توليد ارقام عشوائية غير موجودة في قاعدة البيانات و حفظها فيها - larbihamri - 24-07-18
السلام عليكم
اخواني كيف يمكنني ان اقوم بتوليد ارقام عشوائية لكن يجب ان لا تتكر في قاعدة البيانات ، استخدمت هذا الكود لكن لم يجد نفعا
كود :
Dim rndN As Integer
rndN = Int(Rnd() * 10) + 1
Me.L_Nbon_credit.Text = rndN.ToString
For I As Integer = 0 To Me.DbDataSet.credit.Rows.Count - 1
If Me.DbDataSet.credit.Rows(I).Item("Nbon") = Me.L_Nbon_credit.Text Then
rndN = Int(Rnd() * 10) + 1
Me.L_Nbon_credit.Text = rndN.ToString
End If
NextRE: توليد ارقام عشوائية غير موجودة في قاعدة البيانات و حفظها فيها - سعود - 24-07-18
اخي الكريم الاهم الفكرة
لاني عملت مثال مع ملف نصي
وهذا كلاس الفورم
PHP كود :
Public Class Form1
Dim alln As List(Of String)
Dim old As Integer = 0
Private Function str() As String
begin:
Dim nid As Integer = Int(Rnd() * 1000)
If old = nid Then GoTo begin
If alln.Contains(nid) Then GoTo begin
Return nid
End Function
Private Sub loadn()
alln = New List(Of String)
alln.AddRange(My.Computer.FileSystem.ReadAllText("n.txt").Split(vbNewLine))
End Sub
Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
loadn()
Label1.Text = str()
My.Computer.FileSystem.WriteAllText("n.txt", Label1.Text & vbNewLine, True)
old = Label1.Text
End Sub
End Class
RE: توليد ارقام عشوائية غير موجودة في قاعدة البيانات و حفظها فيها - larbihamri - 24-07-18
اخي سعود بارك الله فيك
لكن كيف يمكنني فعل ذلك في قاعدة البيانات اكسس ؟
الكود الذي جربته يعمل لكن لا يكمل عملية التشييك في كل مرة يجد فيها الرقم في قاعدة البيانات
فهو يقوم بتغيير الرقم في المرة الاولى التي يجده فيها لكن لايقوم بتغييره كلما وجده
RE: توليد ارقام عشوائية غير موجودة في قاعدة البيانات و حفظها فيها - سعود - 24-07-18
اخي الكريم حاول ان تترجم المثال الذي كتبته لك لكي يعمل مع القاعدة كل اجراء بالمثال الق نظرة عليه هذا افضل لفهم الطريقة لان الكود الذي كتبته انت بالمشاركة يتوقف عند اول نتيجة بعد تنفيذ المطلوب.
اما طريقتي انسب ...
ان لم تجد كلامي مقنعا ارفع مثال بسيط جدا لاجراء التطبيق اللازم.
RE: توليد ارقام عشوائية غير موجودة في قاعدة البيانات و حفظها فيها - حريف برمجة - 24-07-18
الافضل ولتجنب فكرة التحقق هل الرقم موجود في الجدول او لا هو عمل التالي :
تاخذ الوقت والتاريخ بدون سلاشات مثلاً :
20180724101927
الوقت 10:19:27
التاريخ 2018/07/24
وممكن ايضاً تضيف عليه اجزاء الثانية .
RE: توليد ارقام عشوائية غير موجودة في قاعدة البيانات و حفظها فيها - larbihamri - 26-07-18
اخي سعود ، اخي حريف البرمجة كيف يمكنني شكركما ؟ سوى ان اقول لكما اللهم بارك لهما في علمهما و اهليهما و ارحمهما في الحياة و الممات و اجعلهما جوار سيدنا المصطفى عليه ازكى صلاة و ازكى سلام .
اخي حريف البرمجة هل هناك طريقة يمكنني ان الغي فيها سلاشات التاريخ و نقاط الوقت ؟؟
لقد و جدت الحل اذا لم تكن هناك إضافة اخي حريف البرمجة
كود :
Label1.Text = Date.Now.ToString("ddMMyyyy")RE: توليد ارقام عشوائية غير موجودة في قاعدة البيانات و حفظها فيها - سعود - 26-07-18
ممكن تستخدم طريقة تحويل التاريخ الى رقم طويل وتستطيع اعادته لاحقا ويمكنك الترتيب بواسطته في الجدول
(UnixDate To date And date To Unix Date)
الان انت تحتاج دالة ToTimeStamp
RE: توليد ارقام عشوائية غير موجودة في قاعدة البيانات و حفظها فيها - larbihamri - 26-07-18
اخي سعود بارك الله فيك
RE: توليد ارقام عشوائية غير موجودة في قاعدة البيانات و حفظها فيها - سعود - 26-07-18
(26-07-18, 10:41 PM)larbihamri كتب : اخي سعود بارك الله فيك
وفيك بارك الله