تقييم الموضوع :
  • 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


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
Question [vb6.0] كيف اجعل يظهر للمستخدم رسالة عند عدم وجود الاسم الذي يبحث عنه في برنامجي المرفق؟؟ Microformt 4 140 22-08-17, 07:00 PM
آخر رد: Microformt
  ظهور الخط العربي بخط غريب داخل شاشة الكود للفيجوال بيسك في الوندوز 10 allobaed 2 101 08-08-17, 03:09 AM
آخر رد: allobaed
  اظهار الرقم في textعند اختيار الاسم من combobox haniblack 2 374 02-11-16, 08:31 AM
آخر رد: haniblack
  [سؤال] هل يوجد كود لمعرفة اسم حقل في جدول ( الاسم الرئيسي) الموجود بقاعدة البيانات allobaed 3 324 30-10-16, 01:32 AM
آخر رد: أبو عمر
  تشغيل شاشة CMD في وضع Admin superwoofer 3 516 07-05-16, 12:56 PM
آخر رد: superwoofer
Question منع المستخدم للبرنامج من الوصول الى الاكواد والتغيير فيها او نسخها haiderkh 7 524 21-04-16, 10:18 PM
آخر رد: Ahmed_Mansoor
  [مثال] شاشة الموظفين vb6 VB_Local 12 1,093 08-02-16, 11:35 AM
آخر رد: VB_Local
  تقسيم الاسم الثلاثي على ثلاث صناديق نصوص الاصيله 6 571 07-01-16, 01:06 AM
آخر رد: كاظم هاشم البهادلي
  سؤال في شاشة الفاتورات وشكرا tighrmte 1 315 07-12-15, 12:42 AM
آخر رد: الاصيله
  [vb6.0] كود حمايه باسم مستخدم وكلمة مرور mohammed bin ali 5 574 14-11-15, 12:37 AM
آخر رد: الاصيله

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


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