كسي فرمولهاي زير رو مي دونه(براي استفاده در ويزوال بيسيك لازم دارم)

به نام خدا
آيا كسي فرمولهاي زير رو مي دونه (براي استفاده در ويزوال بيسيك لازم دارم)
من برنامه نويسم و دنبال فرمولهاي زير براي نوشتن برنامه هستم اينترنت رو هم زير و رو كردم اما پيدا نشد :sad: اگر كسي مي دونه ممنون مي شم بگه. :)
با تشكر
سعيد

فرمول1) فرمول بدست آوردن مساحت جانبي استوانه
فرمول2) فرمول بدست آوردن مساحت كل استوانه
فرمول3)فرمول تبديل ثانيه به ساعت و دقيقه و ثانيه
فرمول4)فرمول محيط مستطيل

سلام
من فرمول 1و2 رو نمي دونم ولي

فرمول 3 :
3600\saat=saniye
60\daghighe=saniye
saniye2=saniye-((saat*3600)+(daghighe*60))

البته منطقيش اينه ولي امتحانش نكردم
فرمول 4:

2*(طول+عرض)

سلام
فرمول 1:
متغير r : شعاع
متغير h: ارتفاع استوانه
r*2*3.14*h = مساحت جانبي


فرمول2:
مسا حت جانبي + 2*r^2)*3.14 ) = مساحت كل

[^: توان]

فرمول 3 و 4 هم كه دوستمون گفته اند

از دوستان عزيز(shamim64 و Maryam_Karimi) نهایت تشکر را دارم.
در ضمن فرمول تبدیل ثانیه به دقیقه کار نمی کند. اگر ممکن است کسی فرمول دقیق را بدهد من خیلی کار کردم ولی نتوانستم جواب دقیق را بگیرم.
از مدیریت این وب سایت و فرم هم تشکر می کنم.
سوالی هم در ویژوال داشتید در خدمتم.

سلام.
این برنامه های ساده که دیگه سرچ کردن نمیخواد. شما که میفرمایید برنامه نویسید دیگه تبدیل ثانیه به ساعت و دقیقه که خیلی سادست.

کد:

---

Private Sub Command1_Click()
Dim intHor As Integer, intMin As Integer, intSec As Integer
    intSec = Text1.Text
    If intSec >= 3600 Then
        intHor = intSec / 3600
        intSec = intSec Mod 3600
    End If
    If intSec >= 60 Then
        intMin = intSec / 60
        intSec = intSec Mod 60
    End If
    Label1.Caption = intHor & ":" & intMin & ":" & intSec
End Sub

---