عرض مشاركة واحدة
  #1  
قديم 03-28-2021, 06:41 PM
الصورة الرمزية admin
admin 
✯ ادارة المنتدى ✯
 
تاريخ التسجيل: Mar 2021
الدولة: مصر
المشاركات: 733
معدل تقييم المستوى: 10
admin is a splendid one to beholdadmin is a splendid one to beholdadmin is a splendid one to beholdadmin is a splendid one to beholdadmin is a splendid one to beholdadmin is a splendid one to behold


Exclamation اكواد للعمل بها ببرنامج فيجوال بيسك Microsoft Visual Basic

 

السلام عليكم ورحمة الله وبركاته
معكم اليوم مجموعة أواد للاستخدام المباشر بالبرمجة باستخدام برنامج Microsoft Visual Basic
=============================
كود تحميل درجة الحرارة
كود:
Do
FTemp = InputBox(Prompt, "الدرجة الفهرنهايتية إلى مئوية")
If FTemp <> "" Then
Celsius = Int((FTemp + 40) * 5 / 9 - 40)
MsgBox (Celsius), , "درجة حرارة في مئوية"
End If
Loop While FTemp <> ""
كود لرسم المعادلات



كود:
'مع العلم ان pic هي اداة Pictuer
Dim X As Integer
Dim Y As Single

' ----------------------------------------
' يمكن تغيير القيم التالية لتغيير ابعاد الرسم
Const Min = -30
Const Max = 30
' ----------------------------------------

Pic.Scale (Min, Min)-(Max, Max)
For X = Min To Max

'----------------------------
' هنا اكتب معادلتك التي تريدها
Y = X ^ 2
'----------------------------

If X = Min Then
Pic.Cls
Pic.Line (Min, 0)-(Max, 0), vbBlack
Pic.Line (0, Min)-(0, Max), vbBlack
Pic.CurrentX = -100
Pic.CurrentY = -Y
Else
Pic.Line -(X, -Y), vbRed
End If
Next

كود لعمل نص ثلاثي الابعاد
كود:
ForeColor = 0: x = CurrentX: y = CurrentY For i = 1 To 100 Print "GeNeRaL" x = x + 1: y = y + 1: CurrentX = x: CurrentY = y Next ForeColor = &HFFFF& Print "GeNeRaL"


الموضوع الأصلي : اكواد للعمل بها ببرنامج فيجوال بيسك Microsoft Visual Basic || الكاتب : admin || المصدر : منتدى مجمع التطوير

 


التوقيع

رد مع اقتباس