WikiDer > OpenOffice Basic
![]() | Ushbu maqolada a foydalanilgan adabiyotlar ro'yxati, tegishli o'qish yoki tashqi havolalar, ammo uning manbalari noma'lum bo'lib qolmoqda, chunki u etishmayapti satrda keltirilgan. (2013 yil dekabr) (Ushbu shablon xabarini qanday va qachon olib tashlashni bilib oling) |
OpenOffice Basic (ilgari StarOffice Basic yoki nomi bilan tanilgan StarBasic yoki OOoBasic) ning shevasi dasturlash tili ASOSIY bilan paydo bo'lgan StarOffice ofis to'plami orqali tarqaldi OpenOffice.org kabi hosilalar LibreOffice (qaerda u sifatida tanilgan LibreOffice Basic). Til a domenga xos dasturlash tili bu OpenOffice dastur paketiga maxsus xizmat qiladi.
Misol
OpenOffice Basic boshqa BASIC dialektlariga o'xshash bo'lsa-da, masalan Microsoft"s Ilovalar uchun Visual Basic (VBA), dastur dasturlash interfeysi (API) juda farq qiladi, chunki quyida keltirilgan misol so'l tasvirlaydi. "Paragraflarni hisoblash" hujjat xususiyatini olishning ancha oson usuli mavjud bo'lsa-da, misol matnli hujjatdagi har bir xatboshiga ketma-ket kirish uchun asosiy usullarni ko'rsatadi.
Sub ParaCount''Matn hujjatidagi paragraflar sonini hisoblash' Xira Hujjat Sifatida Ob'ekt, Enum Sifatida Ob'ekt, TextEl Sifatida Ob'ekt, Graf Sifatida Uzoq Hujjat = Ushbu komponent'Bu matnli hujjatmi? Agar Yo'q Hujjat.Xizmatni qo'llab-quvvatlaydi("com.sun.star.text.TextDocument") Keyin MsgBox "Ushbu so'l matnli hujjatdan ishga tushirilishi kerak", 64, "Xato" Chiqish Sub Oxiri Agar Graf = 0'Har bir komponentni ko'rib chiqing - xatboshi yoki jadvalmi? Enum = Hujjat.Matn.CreateEnumeration Esa Enum.HasMoreElements TextEl = Enum.NextElementKomponent xatboshimi? Agar TextEl.Xizmatni qo'llab-quvvatlaydi("com.sun.star.text.Paragraph") Keyin Graf = Graf + 1 Oxiri Agar Vend"Displey natijasi MsgBox Graf, 0, "Paragraflar soni"Oxiri Sub
Shuningdek qarang
Qo'shimcha o'qish
- Shtaynberg, Jeyms. Open Office Basic: Kirish. CreateSpace mustaqil nashr platformasi. ISBN 978-1481270939.