Vitajte na [www.pocitac.win] Pripojiť k domovskej stránke Obľúbené stránky
Otvorte Visual Basic Express a vytvoriť novú aplikáciu konzoly . Kliknite na " Súbor " a potom " Nový projekt " . Akonáhle sa zobrazí nové dialógové projekt , vyberte Windows z stromovom zobrazení kliknite na ikonu aplikácie konzoly a názov programu " Tangent . " Kliknite na tlačidlo " OK " pre vytvorenie projektu . Po krátkom čakaní , objaví sa okno s kódom
2
Pridať príkaz Imports zahrnúť System.Math odbor názvov do programu takto : .
Dovoz System.Math
Module Module1
Tento príkaz nám umožňuje používať všetky matematické funkcie nájdené v System.Math vnútri programu .
3
deklarovať premenné na diaľku a uhly takto :
Sub Main ( )
Dim vzdialenosť As Double = 20,0
Dim uhol ako Double = 60,0
typu double je dvojitá . presnosť číslo s plávajúcou čiarkou , ktorá môže mať veľmi veľké alebo malé číslo v desiatkovej sústave
4
previesť uhol v radiánoch pomocou nasledujúceho príkazu : Spojené
Dim radiány ako Double = uhol * PI /180,0
Aj my ľudia sa zvyčajne meria uhly v stupňoch , NET Framework . chce vidieť uhly merané ako radiánoch . Radián meria vzdialenosť okolo kruhu ako 2 pí . Ak chcete previesť zo stupňov na radiány , vynásobte uhol PI potom vydeľte 180
5
Vypočítajte výšku stromu takto : .
Dim výšku As Double = tan ( radiány ) * vzdialenosť
výška je vzdialenosť vynásobí tangens uhla v radiánoch
6
Zobrazenie výsledkov do konzoly takto : .
Console . Napíšte ( " strom " )
Console.Write ( height.ToString )
Console.WriteLine ( " stôp vysoký " )
7
End program s nasledujúcim kódom :
End Sub End Module
8
Kliknite na tlačidlo " F5 " pre spustenie programu . Okno konzoly sa objaví s uvedením výšky stromu .