LibreOffice Türkçe Dilinde Makro Yardımcı Kaynakları

Makrolar ve Basic programlama dili özel bölümü
Cevapla
İsmail Emre ARIKAN
Mesajlar: 9
Kayıt: 30 Mar 2022, 22:27
İşletim Sisteminiz: Pardus GNU/Linux
LibreOffice Sürümü: LibreOffice 7.0.4.2 00(Build:2

LibreOffice Türkçe Dilinde Makro Yardımcı Kaynakları

Mesaj gönderen İsmail Emre ARIKAN »

LibreOffice Türkçe Dilinde Makro Yardımcı Kaynakları

Eskiden yazılmış Türkçe makro bilgilerine erişemedim. İnsanların çoğu da makro belgeleri de yok diye şikayet ediyorlardı. Bu sebeple bugün hazırladığım bir çalışmamı paylaştım. https://forum.pardus.org.tr/t/makrolar- ... gesi/21006 adresinden bana destek olmak isterseniz çok memnun olurum.
İsmail Emre ARIKAN
(Hala iş arayan bir elektronik teknikeri)

Hazırladığım projenin görselleri Pardus Forum 'da var. Ancak hazırlanan çalışma silinmesin, uzun yıllar kullanılabilsin diye kaynak kodlarımı https://github.com/ismailea/LibreOffice ... BENiOKU.md sitesinde tutuyorum. Hepsine bir bakıp incelerseniz ve de yardımcı olacağım, benim de katkım olsun derseniz memnun olurum.
En son İsmail Emre ARIKAN tarafından 31 Mar 2022, 22:10 tarihinde düzenlendi, toplamda 2 kere düzenlendi.
İsmail Emre ARIKAN
Mesajlar: 9
Kayıt: 30 Mar 2022, 22:27
İşletim Sisteminiz: Pardus GNU/Linux
LibreOffice Sürümü: LibreOffice 7.0.4.2 00(Build:2

Re: LibreOffice Türkçe Dilinde Makro Yardımcı Kaynakları

Mesaj gönderen İsmail Emre ARIKAN »

İkinci makro çalışmamız hakkında LibreOffice Basic ile makro oluşturmayı bilen Mustafa Hamurcu hocamıza özel mesaj yoluyla soru sordum. O da böyle mesajların herkese açık yayınlanmasını istediği için aynı mesajı burada da paylaşacağım:

Hocamıza şurada olan bilgiyi nasıl çalıştırabileceğimizi sormuştum. Tabii ki o bağlantıdaki bilgi(önceden çalıştıramamıştım, kitabı daha dikkatli okuyup uygulayınca öğrendiklerimi uygulayınca şimdi çalışıyor) hocamıza sorduğum zaman konuyu iyi anlamadığım için hocamıza da yanlış bir soru sordum ancak hocamız sorumu önemsedi ve kullanıcıdan bilgi almak ve o bilgiyi kullanmak ile ilgili çıktısını da paylaştı.

Az sonra nasipse onları da paylaşacağım. Önce sorduğum soruyu görelim:

Değerli Hocam,

https://forum.pardus.org.tr/t/makrolar- ... gesi/21006 internet sitesinde olacak bir makro kaynağı oluşturmaya çalışıyorum.

Kod: Tümünü seç

REM  *****  BASIC  *****


sub adimi_Gir   'LibreOffice Basic makro dilinde tanımlamaları Türkçe alfabesinde yazarsanız
                'derleyici size hata mesajı gönderir. Bunun yerine Türkçe kelimeleri
                ' İngiliz alfabesinde yazmanız gerekiyor.
                 ' Bu uygulamayı tasarladıkları için ve şimdilik bunu nasıl değştireceğimizi
                 ' bilmediğimiz için kurallara sadık kalalım.
                 'Ancak kelimeler arasında boşluk bırakmak yerine alt çizgiyi "_" kullanmalısınız.

rem -------------------------------------------------------------
rem değişkenleri tanımla
dim belge as object
dim sevk_memuru as object
rem -------------------------------------------------------------

rem belgeye erişim elde et
belge = ThisComponent.CurrentController.Frame
sevkMemuru = createUnoService("com.sun.star.frame.DispatchHelper")
rem -------------------------------------------------------------

dim kalemler(0) as new com.sun.star.beans.PropertyValue
kalemler(0).Name = "Sizden bir kaç bilgi alacağız."
kalemler(0).Value = "Adınızı yazınız: "
sevkMemuru.executeDispatch(belge, ".uno:InsertText", "", 0, kalemler())

end sub
rem -------------------------------------------------------------
rem Hep hatırlayalım, kodlarımız her zaman main olarak yazılan yerin arasında çalışır
Sub Main
adimi_Gir      'adimiGir ile yazılan 
End Sub

Bu kodları da Libre Office Başlanıç Kılavuzu sayfa 452 'den yazdım. Ama makro çalıştırdan çalışmıyor. Nasıl çalışırlar?
   1%

Merhaba

Senden ricam bu tip konuları özel mesaj yerine forumda konu olarak açman.

Hem alınan cevapları da herkes görür ve belki katkıda bulunur.

Soruna gelince aşağıdaki şekilde yapabilirsiniz.

İyi çalışmalar.

Kod: Tümünü seç

Sub EnterString

dim args1(0) as new com.sun.star.beans.PropertyValue

args1(0).Name = "StringName" : args1(0).Value = "Mesajı buraya yazın"

CreateUnoService("com.sun.star.frame.DispatchHelper").executeDispatch(ThisComponent.CurrentController.Frame, ".uno:EnterString", "", 0, args1())

End Sub
   100%
İsmail Emre ARIKAN
Mesajlar: 9
Kayıt: 30 Mar 2022, 22:27
İşletim Sisteminiz: Pardus GNU/Linux
LibreOffice Sürümü: LibreOffice 7.0.4.2 00(Build:2

Re: LibreOffice Türkçe Dilinde Makro Yardımcı Kaynakları

Mesaj gönderen İsmail Emre ARIKAN »

https://www.debugpoint.com/libreoffice- ... ial-index/ adresinden Türkçe 'ye çevirdiğim kadarını https://forum.pardus.org.tr/t/libreoffi ... leri/21036 'da pdf uzantılı bir dosya olarak paylaştım. Dileyen olursa çeviride emeği olabilir. Bundan ben çok memnun olacağım.
Cevapla