دانلود پروژه ۳D Rotate با زبان برنامه نویسی ویژوال بیسیک

2 دیدگاه

دانلود پروژه برنامه ۳D Rotate از سایت بزرگ سورس باران.این برنامه با زبان ویژوال بیسیک می باشد،با اجرا کردن این برنامه شما میتوانید رسم یک شکل سه بعدی در زوایای مختلف داشته باشید این برنامه دارای محیطی آسان و همراه با قابلیت سورس باز می باشد

سورس ۳D Rotate با ویژوال بیسیک

پروژه ۳D Rotate با زبان برنامه نویسی ویژوال بیسیک در فایل زیپ جهت دانلود قرار داده شده. اما در زیر، از هوش مصنوعی هم خواستیم که سورس ۳D Rotate با ویژوال بیسیک بهمون بده که کد زیر رو به ما ارئه داد :

Option Explicit

Dim angleX As Single
Dim angleY As Single
Dim angleZ As Single

Private Sub Form_Load()
    Me.ScaleMode = 3 ' Set scale mode to pixels
    angleX = 0
    angleY = 0
    angleZ = 0
    Timer1.Interval = 50 ' Set the timer interval to 50ms
    Timer1.Enabled = True
End Sub

Private Sub Timer1_Timer()
    angleX = angleX + 0.05
    angleY = angleY + 0.03
    angleZ = angleZ + 0.02
    Me.Refresh
End Sub

Private Sub Form_Paint()
    Dim points(1 To 8, 1 To 3) As Single
    Dim transformedPoints(1 To 8, 1 To 2) As Single
    Dim i As Integer
    
    ' Define the vertices of a cube
    points(1, 1) = -100: points(1, 2) = -100: points(1, 3) = -100
    points(2, 1) = 100:  points(2, 2) = -100: points(2, 3) = -100
    points(3, 1) = 100:  points(3, 2) = 100:  points(3, 3) = -100
    points(4, 1) = -100: points(4, 2) = 100:  points(4, 3) = -100
    points(5, 1) = -100: points(5, 2) = -100: points(5, 3) = 100
    points(6, 1) = 100:  points(6, 2) = -100: points(6, 3) = 100
    points(7, 1) = 100:  points(7, 2) = 100:  points(7, 3) = 100
    points(8, 1) = -100: points(8, 2) = 100:  points(8, 3) = 100
    
    ' Rotate and transform the points
    For i = 1 To 8
        Call RotatePoint(points(i, 1), points(i, 2), points(i, 3))
        transformedPoints(i, 1) = points(i, 1) + Me.ScaleWidth / 2
        transformedPoints(i, 2) = points(i, 2) + Me.ScaleHeight / 2
    Next i
    
    ' Draw the edges of the cube
    DrawLine transformedPoints(1), transformedPoints(2)
    DrawLine transformedPoints(2), transformedPoints(3)
    DrawLine transformedPoints(3), transformedPoints(4)
    DrawLine transformedPoints(4), transformedPoints(1)
    
    DrawLine transformedPoints(5), transformedPoints(6)
    DrawLine transformedPoints(6), transformedPoints(7)
    DrawLine transformedPoints(7), transformedPoints(8)
    DrawLine transformedPoints(8), transformedPoints(5)
    
    DrawLine transformedPoints(1), transformedPoints(5)
    DrawLine transformedPoints(2), transformedPoints(6)
    DrawLine transformedPoints(3), transformedPoints(7)
    DrawLine transformedPoints(4), transformedPoints(8)
End Sub

Sub RotatePoint(ByRef x As Single, ByRef y As Single, ByRef z As Single)
    Dim tempX As Single, tempY As Single, tempZ As Single
    
    ' Rotate around X-axis
    tempY = y * Cos(angleX) - z * Sin(angleX)
    tempZ = y * Sin(angleX) + z * Cos(angleX)
    y = tempY
    z = tempZ
    
    ' Rotate around Y-axis
    tempX = x * Cos(angleY) + z * Sin(angleY)
    tempZ = -x * Sin(angleY) + z * Cos(angleY)
    x = tempX
    z = tempZ
    
    ' Rotate around Z-axis
    tempX = x * Cos(angleZ) - y * Sin(angleZ)
    tempY = x * Sin(angleZ) + y * Cos(angleZ)
    x = tempX
    y = tempY
End Sub

Sub DrawLine(point1() As Single, point2() As Single)
    Me.Line (point1(1), point1(2))-(point2(1), point2(2))
End Sub

Option Explicit

Dim angleX As Single

Dim angleY As Single

Dim angleZ As Single

Private Sub Form_Load()

Me.ScaleMode = 3 ' Set scale mode to pixels

angleX = 0

angleY = 0

angleZ = 0

Timer1.Interval = 50 ' Set the timer interval to 50ms

Timer1.Enabled = True

End Sub

Private Sub Timer1_Timer()

angleX = angleX + 0.05

angleY = angleY + 0.03

angleZ = angleZ + 0.02

Me.Refresh

End Sub

Private Sub Form_Paint()

Dim points(1 To 8, 1 To 3) As Single

Dim transformedPoints(1 To 8, 1 To 2) As Single

Dim i As Integer

' Define the vertices of a cube

points(1, 1) = -100: points(1, 2) = -100: points(1, 3) = -100

points(2, 1) = 100: points(2, 2) = -100: points(2, 3) = -100

points(3, 1) = 100: points(3, 2) = 100: points(3, 3) = -100

points(4, 1) = -100: points(4, 2) = 100: points(4, 3) = -100

points(5, 1) = -100: points(5, 2) = -100: points(5, 3) = 100

points(6, 1) = 100: points(6, 2) = -100: points(6, 3) = 100

points(7, 1) = 100: points(7, 2) = 100: points(7, 3) = 100

points(8, 1) = -100: points(8, 2) = 100: points(8, 3) = 100

' Rotate and transform the points

For i = 1 To 8

Call RotatePoint(points(i, 1), points(i, 2), points(i, 3))

transformedPoints(i, 1) = points(i, 1) + Me.ScaleWidth / 2

transformedPoints(i, 2) = points(i, 2) + Me.ScaleHeight / 2

Next i

' Draw the edges of the cube

DrawLine transformedPoints(1), transformedPoints(2)

DrawLine transformedPoints(2), transformedPoints(3)

DrawLine transformedPoints(3), transformedPoints(4)

DrawLine transformedPoints(4), transformedPoints(1)

DrawLine transformedPoints(5), transformedPoints(6)

DrawLine transformedPoints(6), transformedPoints(7)

DrawLine transformedPoints(7), transformedPoints(8)

DrawLine transformedPoints(8), transformedPoints(5)

DrawLine transformedPoints(1), transformedPoints(5)

DrawLine transformedPoints(2), transformedPoints(6)

DrawLine transformedPoints(3), transformedPoints(7)

DrawLine transformedPoints(4), transformedPoints(8)

End Sub

Sub RotatePoint(ByRef x As Single, ByRef y As Single, ByRef z As Single)

Dim tempX As Single, tempY As Single, tempZ As Single

' Rotate around X-axis

tempY = y * Cos(angleX) - z * Sin(angleX)

tempZ = y * Sin(angleX) + z * Cos(angleX)

y = tempY

z = tempZ

' Rotate around Y-axis

tempX = x * Cos(angleY) + z * Sin(angleY)

tempZ = -x * Sin(angleY) + z * Cos(angleY)

x = tempX

z = tempZ

' Rotate around Z-axis

tempX = x * Cos(angleZ) - y * Sin(angleZ)

tempY = x * Sin(angleZ) + y * Cos(angleZ)

x = tempX

y = tempY

End Sub

Sub DrawLine(point1() As Single, point2() As Single)

Me.Line (point1(1), point1(2))-(point2(1), point2(2))

End Sub

در بالا مکعب سه‌ بعدی را بر اساس تغییر زوایای X، Y و Z بچرخاند. این کد نقاط مکعب را در فضای سه‌بعدی چرخانده و سپس آن‌ها را در صفحه دو‌بعدی فرم رسم می‌کند.

این کد با استفاده از تابع RotatePoint نقاط مکعب را حول هر سه محور می‌چرخاند و سپس با استفاده از DrawLine خطوط بین این نقاط را رسم می‌کند. در نهایت، تایمر با تغییر زوایای چرخش و رفرش کردن فرم، انیمیشن چرخش مکعب را ایجاد می‌کند.

سورس و پروژه ویژوال بیسیک

1500 سورس ویژوال بیسیک دات نت

سورس برنامه آدرس یاب

سورس نرم افزار تعیین کننده درست بودن کد ملی

سورس کاربردی و جدید نرم افزار تقویم نجومی

10 سورس تمرینی ویژوال بیسیک

1000 سورس ویژوال بیسک 6

سورس برنامه معاونت امور مطبوعات

سورس مدیریت کتابخانه

مجموعه عظیم 2500 سورس و پروژه ویژوال بیسیک

سورس پروژه شرکت هاستینگ پیشرفته

سورس پروژه فروشگاه باطری اتومبیل

کاملترین سورس آزمون مجازی

سورس جالب پروژه مدیریت فاکتو خیام

جدیدترین سورس مدیریت مهد کودک

سورس برنامه محافظ پوشه های شخصی

سورس نرم افزار تولید پسورد تصادفی + آموزش ساخت

آرشیو سورس و پروژه ویژوال بیسیک

همچنین در صورت علاقه مندی به یادگیری برنامه نویسی ویژوال بیسیک می توانید از آرشیو آموزش ویژوال بیسیک استفاده نمایید.

دانلود با لینک مستقیم

5/5 - (1 امتیاز)

راستی! برای دریافت مطالب جدید در کانال تلگرام یا پیج اینستاگرام سورس باران عضو شوید.

نظرات

صابر بوستانی

داستان من با دنیای برنامه‌ نویسی آغاز شد، و در ادامه به عنوان یک توسعه‌ دهنده نرم‌ افزار، طراح وب سایت و متخصص سئو، مهارت ‌های تکنیکی و تحلیلی خودم رو پرورش دادم. علاقه م به دنیای مالی منو به سمت یادگیری ترید و معامله‌گری سوق داد. و در حال حاضر در برنامه نویسی و معامله گری ارز دیجیتال انجام میدم. از سال 96 سعی کردم معامله گری در کریپتو رو یاد بگیرم. ترید و معامله گری برام پر از چالش و شکست‌ های متعدد بود. اما هر شکست، درسی ارزشمند برام داشت و من رو به یک تریدر و معامله گر قوی‌ تر و هوشمندتر تبدیل کرد. با پشتکار و یادگیری مداوم، تونستم به موفقیت‌های قابل توجهی دست یابم و به معامله گری موفق تبدیل بشم. در اینجا بزرگترین تجربیات و مهمترین دانش خودم رو در اختیار شما قرار میدم تا در مدت زمان کوتاه تر و شکست های کمتر در این مسیر به موفقیت برسید.

دوره آموزش پروژه محور طراحی وب سایت پزشک یاب با بوت استرپ

حجم فايل : 2 مگابایت
منبع : سورس باران
رمز فايل : www.sourcebaran.com
انتشار: ۱۳ شهریور ۱۳۹۰

دانلود با لینک مستقیم

دانلود پروژه ۳D Rotate با زبان برنامه نویسی ویژوال بیسیک

سورس ۳D Rotate با ویژوال بیسیک

سورس و پروژه ویژوال بیسیک

صابر بوستانی

دسته بندی موضوعات

آخرین محصولات فروشگاه

نظرات

بازخوردهای خود را برای ما ارسال کنید

لغو پاسخ

مطالب مرتبط