07-08-18, 03:13 AM
السلام عليكم
كيفكم يا شباب
كود :
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
1111000-1111999
1111000-1111999
1111000-1111999
1111000-1111999
1111000-1111999
1111000-1111999
1111000-1111999
كيترر يا اخي ان شاء الله واصل افكرا اذا بدك ارفع مشروع برفع
ياريت بسرع واقات تساعدوني
تحياتي الكم