T i k s l a s : išmokti sudaryti VBA programas AutoCAD programos terpėje.
U ž d u o t i s : sudaryti kietakūnių kūgio ir kubo formavimo VBA programą.
S a v a r a n k i š k a u ž d u o t i s : sudaryti sferos ir pleišto braižymo programą.
išsaugomas kitu vardu.
atveriamas naujas modulis, paprastai apjungiantis kelias projekto procedūras ar funkcijas.
3. Insert→Procedure... formuojama bazinė procedūros struktūra. Atsivėrusiame Add Procedure lange Name lauke
įrašomas procedūros vardas (KUBAS_IR_KUGIS), procedūros tipas – Sub, o veikimo diapozonas – Public.
Paspaudus OK mygtuką, automatiškai suformuojama bazinė procedūros struktūra.
Public Sub Kubas_ir_Kugis()
**** programos tekstas
End Sub
4. Tarp šių eilučių įrašomas programos tekstas.
Public Sub Kubas_ir_Kugis()
' Kubo kintamųjų aprašymas
Dim dKubasPradziosTaskas(0 To 2) As Double 'Kubo pradžios taškas kaip realių skaičių masyvas
Dim dIlgis As Double 'Kubo ilgis
Dim dPlotis As Double 'Kubo plotis
Dim dAukstis As Double 'Kubo ir kūgio aukštis
Dim Kubas As Acad3DSolid 'suformuotas kubas bus kietakūnis objektas
' Kūgio kintamųjų aprašymas
Dim dKugisCentras(0 To 2) As Double 'Kūgio centro taškas
Dim dSpindulys As Double 'Kūgio spindulys
Dim Kugis As Acad3DSolid 'Kūgio objektas
'...
Šį darbą sudaro 435 žodžiai, tikrai rasi tai, ko ieškai!
★ Klientai rekomenduoja
Šį rašto darbą rekomenduoja mūsų klientai. Ką tai reiškia?
Mūsų svetainėje pateikiama dešimtys tūkstančių skirtingų rašto darbų, kuriuos įkėlė daugybė moksleivių ir studentų su skirtingais gabumais. Būtent šis rašto darbas yra patikrintas specialistų ir rekomenduojamas kitų klientų, kurie po atsisiuntimo įvertino šį mokslo darbą teigiamai. Todėl galite būti tikri, kad šis pasirinkimas geriausias!
Norint atsisiųsti šį darbą spausk ☞ Peržiūrėti darbą mygtuką!
Mūsų mokslo darbų bazėje yra daugybė įvairių mokslo darbų, todėl tikrai atrasi sau tinkamą!
Panašūs darbai
Atsisiuntei rašto darbą ir neradai jame reikalingos informacijos? Pakeisime jį kitu nemokamai.
Pirkdamas daugiau nei vieną darbą, nuo sekančių darbų gausi 25% nuolaidą.
Išsirink norimus rašto darbus ir gauk juos akimirksniu po sėkmingo apmokėjimo!