السلام
مزحبا بك في منتدانا . يمكنك التسجيل والمشاركة. ننتظرك


salam
 
الرئيسيةالبوابةاليوميةمكتبة الصورس .و .جبحـثالأعضاءالمجموعاتالتسجيلدخول

شاطر | 
 

  بنك اكواد السلام

اذهب الى الأسفل 
كاتب الموضوعرسالة
Admin
Admin


عدد المساهمات : 234
تاريخ التسجيل : 30/10/2012

مُساهمةموضوع: بنك اكواد السلام   الجمعة نوفمبر 02, 2012 12:05 am

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

كود
الكود:

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


وهذا كود اخر لعمل نص ثلاثي البعد

كود
الكود:

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"

وهذا كود اخرتجعل النص يظهر بشكل عمودي في الأداة Label

يمكن عمل ذلك باستخدام الرمز vbCrLf ، حيث يوضع بعد كل حرف في محتوى الأداة Label كما يلي :

كود
الكود:
Private Sub Form_Activate()
Dim s As String
For i = 1 To Len(Label1)
s = s & Mid$(Label1, i, 1) & vbCrLf
Next
Label1 = s
End Sub

والشكر لجميع اعضاء المنتدى
الرجوع الى أعلى الصفحة اذهب الى الأسفل
معاينة صفحة البيانات الشخصي للعضو http://salam.forum-canada.com
 
بنك اكواد السلام
الرجوع الى أعلى الصفحة 
صفحة 1 من اصل 1

صلاحيات هذا المنتدى:لاتستطيع الرد على المواضيع في هذا المنتدى
السلام :: منتدى لغات برمجة :: منتدى Microsoft Visual Basic-
انتقل الى: