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.
LibreOffice Türkçe Dilinde Makro Yardımcı Kaynakları
-
- 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ı
En son İsmail Emre ARIKAN tarafından 31 Mar 2022, 22:10 tarihinde düzenlendi, toplamda 2 kere düzenlendi.
-
- 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ı
İ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.
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?
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
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%
-
- 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ı
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.