تقييم الموضوع :
  • 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
الرد }}}}
تم الشكر بواسطة:
#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


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  اظهار الرقم في textعند اختيار الاسم من combobox haniblack 2 105 02-11-16, 08:31 AM
آخر رد: haniblack
  [سؤال] هل يوجد كود لمعرفة اسم حقل في جدول ( الاسم الرئيسي) الموجود بقاعدة البيانات allobaed 3 89 30-10-16, 01:32 AM
آخر رد: أبو عمر
  تشغيل شاشة CMD في وضع Admin superwoofer 3 258 07-05-16, 12:56 PM
آخر رد: superwoofer
Question منع المستخدم للبرنامج من الوصول الى الاكواد والتغيير فيها او نسخها haiderkh 7 308 21-04-16, 10:18 PM
آخر رد: Ahmed_Mansoor
  [مثال] شاشة الموظفين vb6 VB_Local 12 601 08-02-16, 11:35 AM
آخر رد: VB_Local
  تقسيم الاسم الثلاثي على ثلاث صناديق نصوص الاصيله 6 311 07-01-16, 01:06 AM
آخر رد: كاظم هاشم البهادلي
  سؤال في شاشة الفاتورات وشكرا tighrmte 1 198 07-12-15, 12:42 AM
آخر رد: الاصيله
  [vb6.0] كود حمايه باسم مستخدم وكلمة مرور mohammed bin ali 5 322 14-11-15, 12:37 AM
آخر رد: الاصيله
  مساعدة فى تصميم شاشة أبو التيمان 4 618 25-07-15, 01:38 PM
آخر رد: أبو التيمان
  [كود] كود اسم المستخدم وكلمة المرور ruaa muslem 13 1,621 05-04-15, 09:56 PM
آخر رد: ahmedabdelaliem

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


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