WordPress Ana Tema Fonksiyonlarını Değiştirmek

Wordpress tema özelleştirmelerinizde daha çok şeye müdahale edebilmek istiyorsanız, aşağıdaki yazıya göz atmanızı öneriyoruz.
WordPress Çocuk Tema İçinde Ana Tema Fonksiyonlarını Değiştirmek

Web Sayfasını İstediğimiz Klasöre Kaydettirmek

Bir uygulamam için uzun çabalardan sonra geliştirdiğim yöntemi size anlatmak istiyorum.

XP, son kaydedilen web sayfasının, kayıt yeri bilgisini kayıt Defteri içerisinde

SOFTWARE\Microsoft\Internet Explorer\Main anahtarı altında, SaveDirectory Dize değeri içerisinde tutar. Kullanıcı, internetten yeni bir sayfa kaydetmek istediğinde, en son hangi klasöre sayfa kaydı yapmışsa, Farklı Kaydet iletişim kutusu o klasörü görüntüleyecek şekilde açılır.

            Bizler uygulamamızda bir webbrowser ile sayfa kaydetme işlemi yaptırmak amacındaysak ve sayfanın örneğin uygulamanın bulunduğu dizinde bir klasöre kaydedilmesini istiyorsak Kayıt defterindeki bu Dize Değerini değiştirmekle işe başlayabiliriz.

            Ben bu işlemi yaparken sayın Arif AKTAŞ’ın

http://www.vbturk.net/idsorgula.asp?id=119  adresindeki “VB ile Registry Kullanımı” adlı makalesindeki modül kodlarını mdlRegistry adlı module koyarak gerçekleştirdim. Kendisine teşekkür ediyorum.

VB Kullanıcı Yönlendirme ile Excel’den Uygulamanızın Veritabanına Kayıt Aktarma

Kullanıcıdan veritabanımıza girip Access Dosya Menüsü> Al yolu ile Excel dosyasını aktarmasını isteyemeyeceğimize göre Excel'den veri almamız gerekirse kullanıcıya bunu nasıl yaptıracağız? Yazımda bunu anlatmaya çalıştım.

Kullanıcı Yönlendirme ile Excel’den Uygulamanızın Veritabanına Kayıt Aktarma

            Normal durumda Access’e Excel’den veri aktarmak için Access Veritabanının Dosya Menüsünden Dış Veri Al>Al seçenekleri ile açılan pencereden, dosya tipini Excel’e çevirerek seçim yaparsınız ve Access sizi verilerin aktarılması konusunda yönlendir. Bir uygulama hazırladığınızda, veri giriş sayfanız varsa ve kullanıcı aynı anda bir sürü veri girişi yapacaksa, kullanıcıdan bunları tek tek uygulama pencerenizden girmesini, yada Access veritabanınızı açarak yukarıdaki gibi Excel’de kayıtlı verilerini aktarmasını bekleyemezsiniz. Aşağıda Access’in yönlendirmesine benzer bir yönlendirme ile kullanıcıya bu işin nasıl yaptırılabileceğinin küçük bir örneği var. Tasarım ve kodlama çok basit. Dolayısıyla geliştirilmeye açık.

Ön Bilgiler:

            Uygulamanın bu bölümünün amacı, Access veritabanı ile bağlantılı çalışan ana uygulamamıza kullanıcının bir Excel dosyasında listelediği öğrenci bilgilerini veritabanımıza aktarmak. Bu yüzden deneme yapmadan önce bir veritabanımızın olması gerektiği açık. Buradaki veritabanı uygulamanın bulunduğu klasörde açılmış Veri adlı klasör içerisinde saklanan vtÖSS adlı Access veritabanı. Veritabanının kullanılan tablosu tblÖgrenciBilgileri (Şekil1). Yeniden tasarlamak isterseniz, bu tablonun alanlarını ve alan özelliklerini Şekil2’de görebilirsiniz.

Delphi'ye Giriş-1

Visual dillerden biri olan Delphi Programlama dili ile istediğiniz programları yapmak artık zor değil. Programlarda kullanılabilecek standart işlemler birer kontrol olarak tasarlanmış olup programcının kullanımına sunulmuştur. Örneğin; Personel bilgileri girilen bir program yapılırsa, personelin adı, soyadı, doğum yeri ve tarihi gibi bilgilerin girileceği Edit kutusu, kullanıcının neyi girmesi gerektiğini belirten Label, değişik seçeneklerden birini seçme imkanı sağlayan aşağı doğru açılan ComboBox kutusu, komut butonları, personelin bir listesini

gösterecek bir Liste kutusu ( ListBox ). Bunları kolayca forma taşıyarak programınızın ekranını tasarlayabiliriz. Tek yapılması gereken Form üzerindeki kontrolleri oluşturmak için Ana formun üzerinde bulunan Componentlerden ilgili ikonları seçmek ve formumuza tıklamak.

Action Script Kaynakları

Adobe Flex ile ilgilenmeye başladığımda doğal olarak action script ile tanıştım. Fakat ne yazık ki bu tanışma Türkçe olmadı. Çünkü yardım için internette arama yaptığımda hemen hemen hiç Türkçe kaynağa rastlamadım actionscript ile ilgili. Varolan bağlantılarda çoğu kez o an çok da işime yaramayacak bilgilerle karşılaştım. Elbette burada sözünü ettiğim, paylaşımda bulunulan bilgilerin işe yaramazlığı değil, benim o an işime yaramaması.

Aslında sorun biraz da benim Visual Basic deneyimlerim olmasından da kaynaklıydı. Çünkü actionscript ve özelde flex, alıştığım mantığa çok uymuyordu. Aynı şekilde internet kaynakları da visual basic kaynaklarındaki düzende değildi. Bu konuda hala böyle düşünüyorum. Artık actionscripte epeyce alıştığım halde, yine de kaynaklar açısından süregelen darlık ve varolan kaynakların sunumundaki özensizlik, beceriksizlik ve de yetersizlik hala rahatsız ediyor beni.

VB ile DLL Oluşturma ve Kullanma: Excel Dosyası ile İletişim

Exceldeki işlemlerden, Excel dosyasının VBA Kod sayfasında yapacağımız düzenlemelerle haberdar olabiliriz. Bunun için kendi hazırlayacağımız bir DLL’den yararlanmak mümkün. Örnek olarak vereceğim DLL belirttiğimiz sabit bir yolda bulunan veritabanımıza, Excel dosyamız her kaydedildiğinde Kayıt Tarihi ve saatini ekleyecek.

            Öncelikle bir Veritabanımızın olması şart. Veritabanımızın ismi vtExcel. İçerisinde tek tablo var. Alanları KayıtNo(OtomatikSayı), KayıtTarihi(Metin), KayıtSaati(Metin) olan tablomuzun ismi tblKayıt. Veritabanımız “C:\” dizininde.

Yeni bir Proje Başlatıyoruz. Proje türü olarak ActiveX DLL ‘yi seçiyoruz. Projemize bir Class1.cls modülü eklenmiş durumda. Şimdi projemizin adını “ExcelKaydet”, Modülümüzün adını da “Kayıt” olarak değiştiriyoruz.

Modulümüzün içerisine istediğimiz kayıt işlemini gerçekleştirecek aşağıdaki fonksiyonu yazacağız:

VB ResEditörden Image kontrolüne Gif Dosyası Yükleme

ResEditör ile çalıştıysanız , buradan image kontrolüne resim yüklemek istediğinizde yalnızca Bitmap klasörüne kaydettiğiniz Bitmap türü dosyaları yükleyebildiğinizi görürsünüz. Image kontrolüne örneğin bir Gif dosyasını buradan yükleyemezsiniz. Onu ancak CUSTOM klasörüne alabilir, ama bu defa da Image kontrolüne LoadPicture metdu ile bu gif dosyasını yükleyemediğinizi görürsünüz. Modüle eklenecek aşağıdaki fonksiyon ile ResEditörün CUSTOM klasörüne alınmış gif dosyalarını uygulamanızda rahatlıkla kullanabilirsiniz.  Ben Image üzerine bir label yerleştirerek Image kontrolünü ışıklı bir buton olarak kullandım. Forma dizi olarak ayarlanmış iki Image ve iki label yerleştirdim. Labeller Image kontrollerinin tam üzerinde. (Image üzerinde Sağ tuşla Send To Back yaparak Labeli Image kontrolünün önüne getirebilirsiniz.). Name özellikleri lblCinsiyet ve imgCinsiyet. Bunları bir seçenek butonu olarak kullanacağım ve hangisi seçilmişse o aydınlanacak, diğeri kararacak ve seçim bir değişkene atanacak. lblCinsiyet caption’ları “KIZ” ve “ERKEK”. ResEditörde CUSTOM klasörüne daha önce biri parlak, diğeri donuk/karanlık olan aynı gif dosyasını 101 ve 102 olarak aktardım. ResEditör kullanımı sitedeki makaleler içerisinde olduğundan yazmadım. Oradan yeterli bilginin alınabileceğini düşünüyorum. Hepinize kolay gelsin.

VB Help Dosyası Açma

Private Sub HelpMe_Click()

RetVal = Shell("winhelp.exe " & App.Path & "\HELPFILE.HLP", 3)

End Sub

VB Sistem Registryden Nasıl Okunur Yazılır?

Registry girişine almak ve kaydetmek

‘girişe yazınız.

‘ HKEY_CURRENT_USER\Software\VB and VBA Program Settings\MyApp\Settings\

SaveSetting "MyApp", "Settings", "Left", 10

‘Debug penceresinden giriş ve çıkışları oku.Debug.Print GetSetting("MyApp", "Settings", "Left", 4)

Registry’de Windows API kullanımı

Option Explicit

Private Declare Function RegOpenKey Lib "advapi32.dll" Alias _

"RegOpenKeyA" (ByVal hKey As Long, ByVal lpSubKey As String, _

phkResult As Long) As Long

VB INI Dosyasından Okuma Yapmak

***** 16-bit Örnek *****

Project’inize 1 adet commandbutton ekleyin ve aşağıdaki kodu yazınız:

Declare Function GetPrivateProfileString Lib "kernel" (ByVal lpApplicationName _

As String, ByVal lpKeyName As String, ByVal lpDefault As String, ByVal _

lpReturnedString As String, ByVal nSize As integer, ByVal lpFileName As String) _

As integer

Declare Function WritePrivateProfileString Lib "kernel" (ByVal _

lpApplicationName As String, ByVal lpKeyName As String, ByVal lpString As _

String, ByVal lpFileName As String) As integer

Sub Command1_Click()

Dim sData As String
Dim iDataLen As integer