c++,vb,Delphi,Ebook,java,c#,Download,Rapidshare,Programing,php,pdf,آموزش ,برنامه نويسي,وي بي,دلفي,كتاب الكترونيك,كتاب

پروژه فيزيك با اوپن جي ال

سلام دوستان ببخشید دیر آپ می کنم حسابی شرمنده ام از نظرات و لطف شما عزیزان

برا درس اوپن جي ال كه يه سري قولشو دادم امروز پروژه فيزيك پيش خودمو كه با ويژوال بيسيك و اوپن جي ال نوشتم آپ كردم البته هنوز كامل نيست ولي سورس خوبيه

تا بعد

http://ghayesh.persiangig.com/Fizik.zip

لينك مقاله |17:33 دوشنبه 29 بهمن1386 - توسط ناصر نيازي

Best colecsion

http://nasservb.blogfa.com/page/libx2.aspx

کتابهای خارجی زیادی اضافه شد

لينك مقاله |11:41 جمعه 19 بهمن1386 - توسط ناصر نيازي

New Post

سلام بر همه دوستان که سربه حوایی و بدقولی پیاپی من رو تحمل می کنن خجالت می کشم که اینقدر دیر آپ می کنم

از نظرات که مثل همیشه شرمندم کردن ممنونم

در مورد کار با سه بعدی و سوال امیر حسین عزیز من کتاب dev.irكه تو وبلاگ هست رو پيشنهاد مي كنم برا دايركت ايكس. اموزش ماهم با دايركت ايكس هست

يه ماژول ايجاد كنيد .روي پروژه راست كليك كنيد پروپرتيز برنيد و استارتاپ پروژه رو روي مين ساب

بزارين

حالا كد هاي زير رو براي اجاد صحنه داخل ماژول كپي كنيد

طريقه اجراشدنشم تو پست قبلي گفتم

Sub Main()
F = 0.1
   Dim Done As Boolean
   Dim frm As Form
   Done = False
   Set frm = New Form1
   If Not CreateGLWindow(frm, 1024, 768, 16) Then Done = True

   Do While Done = False
   If (DrawGLScene = False) Then
   Unload frm
   Else
   SwapBuffers (frm.hDC)

   DoEvents
   End If
   Done = frm.Visible = False
   Loop
   Set frm = Nothing
   End
End Sub
Public Function CreateGLWindow(frm As Form, Width As Integer, Height As Integer, Bits As Integer) As Boolean
   Dim PixelFormat As GLuint
   Dim PFD As PIXELFORMATDESCRIPTOR

   PFD.cColorBits = Bits
   PFD.cDepthBits = 16
   PFD.dwFlags = PFD_DRAW_TO_WINDOW Or PFD_SUPPORT_OPENGL Or PFD_DOUBLEBUFFER
   PFD.iLayerType = PFD_MAIN_PLANE
   PFD.iPixelType = PFD_TYPE_RGBA
   PFD.nSize = Len(PFD)                         'X
   PFD.nVersion = 1

       PixelFormat = ChoosePixelFormat(frm.hDC, PFD)                         'X
   If PixelFormat = 0 Then
   KillGLWindow
   MsgBox "Can't set the:", 16
   CreateGLWindow = False
   End If

   If SetPixelFormat(frm.hDC, PixelFormat, PFD) = 0 Then
   KillGLWindow
   MsgBox ""                     'X
   CreateGLWindow = False
   End If

Hrc = wglCreateContext(frm.hDC)

   If Hrc = 0 Then
   KillGLWindow
   MsgBox "Can't rendering Context:", vbExclamation, "ERROR"

CreateGLWindow = False
End If

   If wglMakeCurrent(frm.hDC, Hrc) = 0 Then
   KillGLWindow
   MsgBox "Can't Active rendering Context:", vbExclamation, "ERROR"
   CreateGLWindow = False
   End If
   frm.Show
      CreateGLWindow = True

End Function
Public Sub KillGLWindow() 'X

   If Hrc Then
   If wglMakeCurrent(0, 0) = 0 Then
   MsgBox "Rilase DC and RC Failed.", vbInformation, "ShutDownError"                     'X
   End If
   If wglDeleteContext(Hrc) = 0 Then
   MsgBox "Failed", vbInformation, "ERROR"                       'X
   End If
   Hrc = 0
   End If

End Sub

اين هم تابع اصلي ترسيم صحنه كه من براشروع يه مكعب رو توش گزاشتم

Public Function DrawGLScene() As Boolean
glPolygonMode faceFrontAndBack, pgmFILL
' Here's Where We Do All The Drawing
    glClear clrColorBufferBit Or clrDepthBufferBit            ' Clear Screen And Depth Buffer
    glLoadIdentity                            ' Reset The Current Matrix
    glTranslatef 0#, 0#, 0#                         ' Move Into The Screen 5 Units
    glRotatef Xrot, 1#, 0#, 0#                        ' Rotate On The X Axis
    glRotatef Yrot, 0#, 1#, 0#                        ' Rotate On The Y Axis
    glRotatef Zrot, 0#, 0#, 1#                        ' Rotate On The Z Axis

    glBegin GL_QUADS
        ' Front Face
        glNormal3f 0, 0, 0.5
        glTexCoord2f 0#, 0#: glVertex3f -0.5, -0.5, 0.5         ' Bottom Left Of The Texture and Quad
        glTexCoord2f 0.5, 0: glVertex3f 0.5, -0.5, 0.5         ' Bottom Right Of The Texture and Quad
        glTexCoord2f 0.5, 0.5: glVertex3f 0.5, 0.5, 0.5          ' Top Right Of The Texture and Quad
        glTexCoord2f 0, 0.5: glVertex3f -0.5, 0.5, 0.5           ' Top Left Of The Texture and Quad
        ' Back Face
        glNormal3f 0, 0, -0.5
        glTexCoord2f 0.5, 0#: glVertex3f -0.5, -0.5, -0.5          ' Bottom Right Of The Texture and Quad
        glTexCoord2f 0.5, 0.5: glVertex3f -0.5, 0.5, -0.5             ' Top Right Of The Texture and Quad
        glTexCoord2f 0#, 0.5: glVertex3f 0.5, 0.5, -0.5             ' Top Left Of The Texture and Quad
        glTexCoord2f 0#, 0#: glVertex3f 0.5, -0.5, -0.5           ' Bottom Left Of The Texture and Quad
        ' Top Face
        glNormal3f 0, 0.5, 0
        glTexCoord2f 0#, 0.5: glVertex3f -0.5, 0.5, -0.5             ' Top Left Of The Texture and Quad
        glTexCoord2f 0#, 0#: glVertex3f -0.5, 0.5, 0.5            ' Bottom Left Of The Texture and Quad
        glTexCoord2f 0.5, 0#: glVertex3f 0.5, 0.5, 0.5              ' Bottom Right Of The Texture and Quad
        glTexCoord2f 0.5, 0.5: glVertex3f 0.5, 0.5, -0.5              ' Top Right Of The Texture and Quad
        ' Bottom Face
        glNormal3f 0, -0.5, 0
        glTexCoord2f 0.5, 0.5: glVertex3f -0.5, -0.5, -0.5           ' Top Right Of The Texture and Quad
        glTexCoord2f 0#, 0.5: glVertex3f 0.5, -0.5, -0.5             ' Top Left Of The Texture and Quad
        glTexCoord2f 0#, 0#: glVertex3f 0.5, -0.5, 0.5            ' Bottom Left Of The Texture and Quad
        glTexCoord2f 0.5, 0#: glVertex3f -0.5, -0.5, 0.5            ' Bottom Right Of The Texture and Quad
        ' Right face
        glNormal3f 0.5, 0, 0
        glTexCoord2f 0.5, 0#: glVertex3f 0.5, -0.5, -0.5            ' Bottom Right Of The Texture and Quad
        glTexCoord2f 0.5, 0.5: glVertex3f 0.5, 0.5, -0.5              ' Top Right Of The Texture and Quad
        glTexCoord2f 0#, 0.5: glVertex3f 0.5, 0.5, 0.5              ' Top Left Of The Texture and Quad
        glTexCoord2f 0#, 0#: glVertex3f 0.5, -0.5, 0.5            ' Bottom Left Of The Texture and Quad
        ' Left Face
        glNormal3f -0.5, 0, 0
        glTexCoord2f 0#, 0#: glVertex3f -0.5, -0.5, -0.5          ' Bottom Left Of The Texture and Quad
        glTexCoord2f 0.5, 0#: glVertex3f -0.5, -0.5, 0.5            ' Bottom Right Of The Texture and Quad
        glTexCoord2f 0.5, 0.5: glVertex3f -0.5, 0.5, 0.5              ' Top Right Of The Texture and Quad
        glTexCoord2f 0#, 0.5: glVertex3f -0.5, 0.5, -0.5           ' Top Left Of The Texture and Quad
    glEnd

    Xrot = Xrot + 0.3                             ' X Axis Rotation
    Yrot = Yrot + 0.2                             ' Y Axis Rotation
    Zrot = Zrot + 0.4                             ' Z Axis Rotation
    DrawGLScene = True                                 ' Keep Going

End Function

كدها خانا و همگي با توضيح هستند فكر كنم براي شرو كافي باشه

امتحان رياضي رو خراب كردم دعا كنيد

براي ديدن سورس هاي سه بعدي براي امير حسين در دايكت ايكس وجي ال وارد اكانت ها پرشين گيگم بشين پست قبلي يه فايل هست كه نحوه استفادش رو گفتم اونو دانلود نكنيد برنامه بالا اجرا نمي شه

لينك مقاله |23:54 پنجشنبه 11 بهمن1386 - توسط ناصر نيازي

شروع سه بعدی سازی با وی بی به کمک جی ال و دایرکت ایکس

ببخشید دیر پست می کنم قراره اگه خدا بخاد یه سری آموزش برنامه نویسی سه بعدی با وی بی بزارم برای شروع این فایل را دانلود کنید

www.nasservb.persiangig.com/vbopengl.zip

از منوي پروژه ريفرنس بزنيد و فايل رو از طريق بروز كردن پيدا كنيد حالا مي تونيد به كتابخونه اوپن جي ال در وي بي دسترسي داشته باشيد

فعلآ باي

Suchbegriffe: "directX ebook"

لينك مقاله |0:39 چهارشنبه 3 بهمن1386 - توسط ناصر نيازي