الموضوع: كود اكواد الفيجوال بيزك
عرض مشاركة واحدة
  #1  
قديم 05-21-2021, 10:20 PM
الصورة الرمزية admin
admin 
✯ ادارة المنتدى ✯
 
تاريخ التسجيل: Mar 2021
الدولة: مصر
المشاركات: 729
معدل تقييم المستوى: 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


Ra اكواد الفيجوال بيزك

 

السلام عليكم ورحمة الله وبركاته
اكواد للاستخدام على الفيجوال بيزك


كود تحويل درجة الحرارة

 
 
prompt = "إدخل درجة حرارة فهرنهايتية."
do
ftemp = inputbox(prompt, "الدرجة الفهرنهايتية إلى مئوية")
if ftemp <> "" then
celsius = int((ftemp + 40) * 5 / 9 - 40)
msgbox (celsius), , "درجة حرارة في مئوية"
end if
loop while ftemp <> ""
end


كود لرسم المعادلات

 
  'مع العلم ان 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


الموضوع الأصلي : اكواد الفيجوال بيزك || الكاتب : admin || المصدر : منتدى مجمع التطوير

 


التوقيع

رد مع اقتباس