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

كيف يمكنني عمل شاشة دخول فيها اسم المستخدم وكلمة المرور وكيفية تعديل الرقم السري وعمل رقم سري جديد .

السوال الثاني:

كيف يمكن حساب مجموعة من القياسات مثل الكيلو والميل والمتر وغيرها

بحيث عندما ادخل اي رقم في تاكس بوكس تظهر المسافات في بقية التاكس بوكس ارجوء كتابة الاكواد الخاصة بكل عملية قدر المستطاع

الصورة مرفقة
اللهمّ بعلمك الغيب وقدرتك على الخلق، أحييني ما علمت الحياة خيراً لي، وتوفّني ما علمت الوفاة خيراً لي.


الرد }}}
تم الشكر بواسطة:
#2
ابحث في هذا القسم ستجد برنامج قد عملته في احدى مشاركاتي لكلمة السر
اما بالنسبه للشطر الاخر من السؤال اكتب قيم التحويل وارفقها وانا سأساعدك في برنامجك
اختكم الاصيله
الرد }}}
تم الشكر بواسطة: محمد مسافر
#3
(21-01-14, 12:13 AM)الاصيله كتب : ابحث في هذا القسم ستجد برنامج قد عملته في احدى مشاركاتي لكلمة السر
اما بالنسبه للشطر الاخر من السؤال اكتب قيم التحويل وارفقها وانا سأساعدك في برنامجك

الكود الاول الخاص بالطول كويس وهذاء هو الكود

Public Class Form

Private Sub TextBox_TextChanged(sender As Object, e As EventArgs) Handles TextKiloMeter.KeyUp, TextMeter.KeyUp, _
TextCentemeter.KeyUp, TextMilimeter.KeyUp, TextMile.KeyUp, TextYard.KeyUp, TextFoot.KeyUp, TextInch.KeyUp
If CType(sender, TextBox).Text.Length = 0 Or Not IsNumeric(CType(sender, TextBox).Text) Then
Exit Sub
End If
Dim Val As List(Of Double)
Val = Convert(CDbl(CType(sender, TextBox).Text), (CType(sender, TextBox).Name))
TextKiloMeter.Text = Val.Item(0).ToString
TextMeter.Text = Val.Item(1).ToString
TextCentemeter.Text = Val.Item(2).ToString
TextMilimeter.Text = Val.Item(3).ToString
TextMile.Text = Val.Item(4).ToString
TextYard.Text = Val.Item(5).ToString
TextFoot.Text = Val.Item(6).ToString
TextInch.Text = Val.Item(7).ToString
End Sub
Private Function Convert(ByVal val As Double, ByVal valType As String) As List(Of Double)
Dim CValue As New List(Of Double)
'The index 0 in the list for Kilometer value
'The index 1 in the list for meter value
'The index 2 in the list for Centemeter value
'The index 3 in the list for Milimeter value
'The index 4 in the list for Mile value
'The index 5 in the list for Yard value
'The index 6 in the list for Feet value
'The index 7 in the list for Inch value
Select Case valType
Case "TextKiloMeter"
CValue.Add(val)
CValue.Add(val * 1000)
CValue.Add(val * 100000)
CValue.Add(val * 1000000)
CValue.Add(val * 0.62137119224)
CValue.Add(val * 1093.6132983)
CValue.Add(val * 3280.839895)
CValue.Add(val * 39370.07874)
Exit Select
Case "TextMeter"
CValue.Add(val * 0.001)
CValue.Add(val)
CValue.Add(val * 100)
CValue.Add(val * 1000)
CValue.Add(val * 0.00062137119224)
CValue.Add(val * 1.0936132983)
CValue.Add(val * 3.280839895)
CValue.Add(val * 39.37007874)
Exit Select
Case "TextCentemeter"
CValue.Add(val * 0.00001)
CValue.Add(val * 0.01)
CValue.Add(val)
CValue.Add(val * 10)
CValue.Add(val * 0.0000062137119224)
CValue.Add(val * 0.010936132983)
CValue.Add(val * 0.03280839895)
CValue.Add(val * 0.3937007874)
Exit Select
Case "TextMilimeter"
CValue.Add(val * 0.000001)
CValue.Add(val * 0.001)
CValue.Add(val * 0.1)
CValue.Add(val)
CValue.Add(val * 0.00000062137119224)
CValue.Add(val * 0.0010936132983)
CValue.Add(val * 0.003280839895)
CValue.Add(val * 0.03937007874)
Exit Select
Case "TextMile"
CValue.Add(val * 1.609344)
CValue.Add(val * 1609.344)
CValue.Add(val * 160934.4)
CValue.Add(val * 1609344)
CValue.Add(val)
CValue.Add(val * 1760)
CValue.Add(val * 5280)
CValue.Add(val * 63360)
Exit Select
Case "TextYard"
CValue.Add(val * 0.0009144)
CValue.Add(val * 0.9144)
CValue.Add(val * 91.44)
CValue.Add(val * 914.4)
CValue.Add(val * 0.00056818181818)
CValue.Add(val)
CValue.Add(val * 3)
CValue.Add(val * 36)
Exit Select
'TODO: Complete Code for foot and inch
Case "TextFoot"
CValue.Add(val * 0)
CValue.Add(val * 0)
CValue.Add(val * 0)
CValue.Add(val * 0)
CValue.Add(val * 0)
CValue.Add(val * 0)
CValue.Add(val * 0)
CValue.Add(val * 0)
Exit Select
Case "TextInch"
CValue.Add(val * 0)
CValue.Add(val * 0)
CValue.Add(val * 0)
CValue.Add(val * 0)
CValue.Add(val * 0)
CValue.Add(val * 0)
CValue.Add(val * 0)
CValue.Add(val * 0)
Exit Select
End Select
Return CValue
End Function
End Class


حاولت اطبق الاكواد على الفورم الاخر وهو المساحة ولم ينفع وهذاء هو المشروع وايظاً قيم التحويل مرفقه
اللهمّ بعلمك الغيب وقدرتك على الخلق، أحييني ما علمت الحياة خيراً لي، وتوفّني ما علمت الوفاة خيراً لي.


الرد }}}
تم الشكر بواسطة:
#4
اولا السؤال الاول واضح عن طريق if
لكن السؤال الثاني مش فاهم هاذي الاكواد كلها ليش! انت بس اكتب مثلا تحول من كيلو للمتر لازم تضرب ب 1000 و بس
لو كان للضمير العربي (واتس اب)Huh
لكان اخر ظهور له منذ زماان بعيدConfused
الرد }}}
تم الشكر بواسطة:
#5
هل هناك برنامج مساحة ؟

مثلا ادخل القاعدة والضلع و يعكي الشكل و القياسات ؟
Heartاحبكم في اللهHeart
http://www.vb4arb.com/vb4arb2.gif
الرد }}}
تم الشكر بواسطة:
#6
الاكواد بلغة الدوت نت
اللهمّ بعلمك الغيب وقدرتك على الخلق، أحييني ما علمت الحياة خيراً لي، وتوفّني ما علمت الوفاة خيراً لي.


الرد }}}
تم الشكر بواسطة:
#7
(04-02-14, 10:47 PM)princeofislam كتب : هل هناك برنامج مساحة ؟

مثلا ادخل القاعدة والضلع و يعكي الشكل و القياسات ؟

و الله بدك استاذ رياضيات اذا عندك قوانين هاتها لنساعدك

اما بالنسبة للتحويل فابحث عن هذا البرنامج Sakhr Units Converter و اكتب 1 في كل تكست بوكس و انقل النتائج و استنتج العلاقات او استعمل غوغل لهذه المهمة

يعني مثلا 1متر = 1000 ميلي متر كوده مثلا اذا كان التكست الذي يحوي رقم الامتار هو text1 و الذي يحوي رقم الميلي هو text2
كود :
Private Sub Text1_Change()
a=text1.text*1000
text2.text=a
end sub

و لعكس العملية

Private Sub Text2_Change()
a=text2.text/1000
text1.text=a
end sub
الرد }}}
تم الشكر بواسطة: princeofislam


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  [vb6.0] عند فتح الكومبو بوكس تظهر فيها جميع اسماء الزبائن وادي العوضي 3 352 27-11-23, 01:05 AM
آخر رد: وادي العوضي
Question [vb6.0] كيف اشترط على المستخدم ان تتكون كلمة السر من احرف كبيره وارقام ورموز ؟ Microformt 1 313 07-07-23, 08:26 AM
آخر رد: Taha Okla
  [vb6.0] ادخال الاسم في الكومبو بوكس ويحفظ في الكومبو بوكس وادي العوضي 3 867 15-06-22, 01:56 AM
آخر رد: ahmedabdelaliem
  [vb6.0] عدم ثبوت رقم الوزن المنقول من شاشة جهاز قارء الوزن الى شاشة البرنامج وادي العوضي 3 883 04-06-22, 12:50 AM
آخر رد: وادي العوضي
  اريد البحث فى حقل يحتوي على الاسم رباعي الحزين اوى 0 874 19-06-21, 12:15 AM
آخر رد: الحزين اوى
  كيف أصدر من تقرير من الكرستال دون عرض شاشة الخيارات ياسر عبد الكريم 0 773 27-05-21, 07:57 PM
آخر رد: ياسر عبد الكريم
Question [vb6.0] كيف يمكن إدرج الاسم هذا الموجود في الصورة Label على الفوم ؟؟ Microformt 2 1,220 13-05-21, 12:42 AM
آخر رد: Microformt
  طلب كود استدعاء الصنف في شاشة المبيعات ahmed201 0 857 15-01-21, 08:15 AM
آخر رد: ahmed201
  طلب تعديل كواد زر اختصار الصنف في شاشة المبيعات ahmed250 2 1,433 03-06-20, 03:14 PM
آخر رد: ahmed250
  Datacombo مع كلمة السر Abdellah 2 1,357 08-05-20, 12:27 AM
آخر رد: Abdellah

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


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