تقييم الموضوع :
  • 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] كيفية الاتصال بقاعدة البيانات علي شبكة دون طلب اسم الجهاز وكلمة المرور kamalgadir 0 37 05-12-18, 05:58 PM
آخر رد: kamalgadir
  ضبط شاشة العرض dr.mostashar 0 81 13-11-18, 12:32 AM
آخر رد: dr.mostashar
  طريقة البحث في أي جزء من الاسم فيصل علي 2 227 01-09-18, 04:21 AM
آخر رد: فيصل علي
Question [vb6.0] هل يمكن تغير اسم المستخدم وكلمة المرور إذا كنت موجودة ضمن الكود ؟؟ Microformt 2 252 12-03-18, 07:09 AM
آخر رد: Microformt
  عدم تكرار الاسم لنفس التاريخ amro_demon 3 295 04-03-18, 01:20 PM
آخر رد: amro_demon
  [vb6.0] تأخير نقل البيانات من الجهاز الخارجي الى شاشة البرنامج وادي العوضي 21 931 24-02-18, 12:37 PM
آخر رد: وادي العوضي
  [مثال] شاشة الموظفين vb6 VB_Local 13 1,909 20-01-18, 09:46 PM
آخر رد: yahyaalmalki
Question [vb6.0] كيف اجعل يظهر للمستخدم رسالة عند عدم وجود الاسم الذي يبحث عنه في برنامجي المرفق؟؟ Microformt 4 544 22-08-17, 07:00 PM
آخر رد: Microformt
  ظهور الخط العربي بخط غريب داخل شاشة الكود للفيجوال بيسك في الوندوز 10 allobaed 2 489 08-08-17, 03:09 AM
آخر رد: allobaed
  اظهار الرقم في textعند اختيار الاسم من combobox haniblack 2 680 02-11-16, 08:31 AM
آخر رد: haniblack

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


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