منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب
[VB.NET] تعديل علي الكود - نسخة قابلة للطباعة

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (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=26010)

الصفحات: 1 2


تعديل علي الكود - دموع الوطن - 07-08-18

السلام عليكم
كيفكم يا شباب
كود :
Public Class Form1
   Dim Numpers As New List(Of String)
   Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
       If TextBox1.Text.Trim <> Nothing AndAlso TextBox2.Text.Trim <> Nothing Then
           If CLng(TextBox1.Text) < CLng(TextBox2.Text) Then
               For I As Long = CLng(TextBox1.Text) To CLng(TextBox2.Text)
                   Numpers.Add(I.ToString)
               Next
           Else
               For I As Long = CLng(TextBox1.Text) To CLng(TextBox2.Text) Step -1
                   Numpers.Add(I.ToString)
               Next
           End If
           Me.Text = "Numpers Generated : " & Numpers.Count
       End If
   End Sub
   Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
       Numpers.Clear()
       Me.Text = "Numpers Generated : 0"
   End Sub
   Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
       If Numpers.Count = 0 Then MsgBox("لا توجد ارقام لحفظها", MsgBoxStyle.Exclamation, "خطا") : Exit Sub
       Dim SFD As New SaveFileDialog
       If SFD.ShowDialog = DialogResult.OK Then
           IO.File.WriteAllLines(SFD.FileName & ".txt", Numpers.ToArray)
           MsgBox("تم الحفظ بنجاح", MsgBoxStyle.Information, "تم")
       End If
   End Sub

   Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load

   End Sub
End Class


الكود بخد ا النصوص
بس هيك
1110000-1119999
انا عاوز الكود يكون
مثل هيك
1110000-1119999
2220000-2229999
3330000-3339999

شرح فيديو




انا عندي الارقام كتيررر يعني ممكن يكون مثل هيك
1111000-1111999
1111000-1111999
1111000-1111999
1111000-1111999
1111000-1111999
1111000-1111999
1111000-1111999
1111000-1111999
كيترر يا اخي ان شاء الله واصل افكرا اذا بدك ارفع مشروع برفع
ياريت بسرع واقات تساعدوني


تحياتي الكم



RE: تعديل علي الكود - mrnooo2000 - 07-08-18

لم أفهم المطلوب بشكل كامل 
يرجى ارفاق مثال واضح


RE: تعديل علي الكود - دموع الوطن - 07-08-18

(07-08-18, 09:01 AM)mrnooo2000 كتب : لم أفهم المطلوب بشكل كامل 
يرجى ارفاق مثال واضح

يعني كل سطر

بدي توليد

علي كل سطر

111000-111999
222000-222999


RE: تعديل علي الكود - دموع الوطن - 08-08-18

يسلموو يا اخي كتيرر علي المساعدة ربنا يوفقك يا رب يسعدك
ممكن تعمل تعديل عليه الله يسعدك لو واحد مثلو مو مشكلة تكون نوع لغيه
هي المشروع جهاز شغيل
اتقضل
https://up.top4top.net/downloadf-949ggho41-rar.html


RE: تعديل علي الكود - YousefOkasha - 08-08-18

هل تقصد ان مثلا يولد ارقام من 1 ل 10
و في جهة آخري من 11 ل 20 مثلا ؟


RE: تعديل علي الكود - دموع الوطن - 08-08-18

اخي توليد يكون مثل هو في شرح 
مثل مشروع بس انا اريد اعمل توليد كتيرر
من عدد مرا واحده يعني 
انا شغيل توليد مثل هيك
11110000-111199999
انا عاوز يكون كتير من مرا اضغط زر واحد يعمل توليد
11110000-11119999
22220000-22229999
عندي ارقام كتيرر بدي اعملهم توليد


RE: تعديل علي الكود - YousefOkasha - 08-08-18

جاري البحث عن فكره ..


RE: تعديل علي الكود - دموع الوطن - 08-08-18

(08-08-18, 03:54 AM)YousefOkasha كتب : جاري البحث عن فكره ..

يسلمووو يا اخي
ان شاء الله ربنا يوفقك تساعدني


RE: تعديل علي الكود - elgokr - 08-08-18

مرفق بالرد

السورس + برنامج للمعينة بعد اتمام اضافة الكود اللازم حتى يعمل
المشروع كما تم توضيحه بالفيديو

تحياتى لك
وتمنياتى لك التوفيق



RE: تعديل علي الكود - دموع الوطن - 08-08-18

(08-08-18, 06:22 AM)elgokr كتب :
مرفق بالرد

السورس + برنامج للمعينة بعد اتمام اضافة الكود اللازم حتى يعمل
المشروع كما تم توضيحه بالفيديو

تحياتى لك
وتمنياتى لك التوفيق

يسلمووو يا اخي
روووعه والله مبدع فنان
الله يخليك يارب يسعدك