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

[admin]

السلام عليكم ورحمة الله وبركاته
معكم اليوم مجموعة أواد للاستخدام المباشر بالبرمجة باستخدام برنامج 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

كود لعمل نص ثلاثي الابعاد​

[LEFT]

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"[/LEFT]