11-05-19, 05:30 PM
اسف بسبب تغيبى الفترة الاخيرة لانشغالي
بخصوص كيفية جعلا لكود يبداء عند قيمة محددة
فقط عليك عمل التالىكود :
Dim aa As String = "abcdefghijklmnopqrstuvwxyz"
''---------- لاحظ السطر التالى --------------''
Dim start As New Boolean
start = False
''------------------------''
For i As Integer = 0 To aa.Length - 1
For ii As Integer = 0 To aa.Length - 1
For iii As Integer = 0 To aa.Length - 1
''---------- لاحظ السطر التالى --------------''
If (aa(i) + aa(ii) + aa(iii)).ToString = "aat" Then start = True
''------------------------''
If start = True Then
ListBox1.Items.Add(aa(i) + aa(ii) + aa(iii))
If (aa(i) + aa(ii) + aa(iii)).ToString = "aaz" Then Exit Sub
End If
Next
Next
Nextلاحظ الاسطر المشار اليها بـ
كود :
'' -------------فى الكود ستجد اننى قمت بعمل البدء من aat
وانهيت الكود عند aaz
تحياتى لك
وتمنياتى لك التوفيق
{ وَقُل رَّبِّ زِدْنِي عِلْمًا }
[ كن على يقين من اعمالنا نخطئ ومن اخطائنا نتعلم ولذلك لا شي مستحيل ]
ساهم دائماً فى
لكل من يقوم بالمساهمة
فى حل المشكلة او الاستفسار لديك فالجميع هنا يعمل
على مساعدة الاخرين لوجه الله وان تحتسب له اجر عند الله
▼ شرح كيفية عمل قاعدة بيانات تعمل على اكثر من جهاز على الشبكة الداخلية
[ كن على يقين من اعمالنا نخطئ ومن اخطائنا نتعلم ولذلك لا شي مستحيل ]
ساهم دائماً فى
لكل من يقوم بالمساهمةفى حل المشكلة او الاستفسار لديك فالجميع هنا يعمل
على مساعدة الاخرين لوجه الله وان تحتسب له اجر عند الله
▼ شرح كيفية عمل قاعدة بيانات تعمل على اكثر من جهاز على الشبكة الداخلية

