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


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  اريد البحث فى حقل يحتوي على الاسم رباعي الحزين اوى 0 45 19-06-21, 12:15 AM
آخر رد: الحزين اوى
  كيف أصدر من تقرير من الكرستال دون عرض شاشة الخيارات ياسر عبد الكريم 0 62 27-05-21, 07:57 PM
آخر رد: ياسر عبد الكريم
Question [vb6.0] كيف يمكن إدرج الاسم هذا الموجود في الصورة Label على الفوم ؟؟ Microformt 2 141 13-05-21, 12:42 AM
آخر رد: Microformt
  طلب كود استدعاء الصنف في شاشة المبيعات ahmed201 0 209 15-01-21, 08:15 AM
آخر رد: ahmed201
  طلب تعديل كواد زر اختصار الصنف في شاشة المبيعات ahmed250 2 619 03-06-20, 03:14 PM
آخر رد: ahmed250
  Datacombo مع كلمة السر Abdellah 2 653 08-05-20, 12:27 AM
آخر رد: Abdellah
  تعديل كواد اختصار الصنف في شاشة المبيعات ahmed20 0 512 08-03-20, 02:56 PM
آخر رد: ahmed20
  سؤال في شاشة عرض البرنامج tighrmte 3 1,290 20-02-19, 07:13 PM
آخر رد: tighrmte
  ضبط شاشة العرض dr.mostashar 1 937 25-01-19, 05:33 AM
آخر رد: عبدالله الصافي
  [vb6.0] كيفية الاتصال بقاعدة البيانات علي شبكة دون طلب اسم الجهاز وكلمة المرور kamalgadir 0 913 05-12-18, 05:58 PM
آخر رد: kamalgadir

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


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