Kod Defteri böyle doğdu. Artık Windows için pratik ipuçları, Visual Basic ve PHP kod parçaları, örnek Access uygulamaları tarzı şeyler için ayrı bir blog var. Bu tarz yazıların hepsini Kod Defteri’ne taşıyorum.

1. Hücreleri teker teker okumak yerine bütün bir range’i tek seferde bir dizi değişkenine atayın. Aynı şey verileri geri yazarken’de geçerli.

1
2
3
4
5

Dim A as Variant
'okuma
A = Range("SomeRange").Resize(10,20)
'geri yazma
Range("SomeRange").Resize(10,20) = A

2. Değişkenleri değişken tipleriyle beraber tanımlamak size hız kazandıracaktır.

3. Kullanıdığını worksheet fonksiyonlarının yerine VBA kodlarıyla kendi fonksiyonlarınızı yazabiliyorsanız bu daha hızlı çalışacaktır.

4. Daha hızlı çalışmak için makro başladıktan sonra ekran güncellemesini kaptın. İşiniz bittikten sonra tekrar açarsınız.

1

Application.ScreenUpdating = False

5. Aynı şekilde otomatik hesaplama özelliği de geçici olarak kapatılabilir.

1
2
3

Application.Calculation = xlManual
'Eski duruma dönmek için
Application.Calculation = xlAutomatic

6. Eğer makronuzun çalışması uzun sürecekse durum çubuğundan kullanıcıya işin ilerlemesi hakkında bilgi vermek faydalı olabilir. Fikir olması açısından text dosyasından okuma yapan bir makroya ait aşağıdaki örnek kodu inceleyebilirsiniz:

1
2
3
4
5
6
7
8
9
10
11
12
13
14

dBoy = FileLen(dosya) / 128  'dosyanın boyutunu al ve 128'e böl. 
Open dosya For Input As #1
Do While Not EOF(1) ' dosyanın sonuna gelinceye dek kadar devam et
Line Input #1,metin
N = N + 1 'satırları say
'Loc() her 128 bayt'lık bloklar halinde dosyanın içindeki pozisyonu verir
bunu kularak yüzde olarak dosyanın neresinde olduğumuzu anlayabiliriz.
Bu bilgiyi kullanarak durum çubuğunda ilerleme durumu gösterelim ve
her 100 kayıtta bir durum çubuğunu güncelleyelim
If N Mod 100 = 0 Then Application.StatusBar = "İlerleme " & Format(Loc(1)/dBoy,"0%")
Loop
Close
'durum çubuğunu tekrar Excel'e bırakalım.
Application.StatusBar = False

7.  Text dosyasından hızlı bir şekilde veri almak ve yazmak için aşağıdaki kodu deneyebilirsiniz. 

1
2
3
4
5
6
7
8
9
10

'yazmak için
Open "c:temptest.txt" For Binary As #1
Put #1,,A
Close
 
'okumak için
Dim A(30,10) As Single
Open "c:temptest.txt" For Binary As #1
Get #1,,A
Close

Umarım bu bilgiler işinize yarar.

Kaynak: http://www.avdf.com/apr98art_ot003.html

Sık sık tekrarladığınız ve her seferinde saatlerinizi alan rutin bir işi makro hazırlayarak otomatikleştirebilmeniz mümkün. Ama bir süre sonra bu makrolar kontrolden çıkabiliyor. Bazen basit bir makrodaki kod hataları ile uğraşmak işi manuel yapmaktan daha çok vaktimizi alabiliyor. Peki ya en çok ihtiyacınız olan basit makroları hazır olan sunan bir paket olsaydı? Önceden test edilmiş. Hatalarından arındırılmış. Üstelik her biri tek tek isimlerilmiş, kategorilendirilmiş ve kolay erişim için ayrı bir ribbon tabı üzerinde simgeleriyle beraber dizilmiş. Böyle bir paketin hemde ücretsiz olarak sunulduğunu biliyor muydunuz?

ASAP ribon sekmesi

Bahsettiğim pakedin ismi ASAP Utilities. İçersinde çok sayıda, farklı amaçlara hizmet eden makro var. Bu makrolarla yapabileceğiniz işlerden bazıları: koşula göre hücre veya satır/sütün seçmek, sayfaları birleştirmek, birbirinin aynı değere sahip hücreleri silmek, formulleri kaldırıp yerine değerlerini koymak, birden fazla satır/sütün arasına yeni satır/sütün eklemek, formul içersindeki “$” işaretlerini kaldırmak veya eklemek, açık olan dosyanın ismini veya yerini değiştirmek, gizli satır ve sütünları silmek vb..

www.asap-utilities.com adresinden indirip hemen kullanmaya başlayabileceğiniz ASAP Utilities pakedinin bundan sonraki excel kurulumlarınızın değişmez bir parçası olacağına garanti verebilirim. Eğer ticari olarak kullanmıyorsanız ücretsiz olarak sahip olabileceğiniz programın ticari lisansı ise 49.00$. Kendi makrolarınızı yazmaya başlamadan önce mutlaka bakmanız gerektiğini düşünüyorum. Çünkü çoğu zaman aradığınız özellik ASAP’ta oluyor.

Ben ve yaşıtlarım bilgisayar programlamayı salondaki televizyona bağlayarak çalıştırdığımız 8 bit’lik bilgisayarlarımızda öğrenmiştik. O günlerde her şey çok daha yalındı. Nesne yöneli programlama, pointer kullanımı, fonksiyon kütüphaneleri, vb.. gibi akıl karıştıran detaylar yoktu. “For” döngüsünün nasıl çalıştığını kavrayan işi kotarıyordu. Şimdi ise işler çok daha farklı. Elimizdeki mevcut araçlarla bir ilk okul öğrencisine programlama öğretmek deveye hendek atlatmaktan zor(du).

Small Basic Editör

İşte SmallBasic’de bu soruna çare bulmak üzere geliştirilmiş bir dil. Çok etkili bir dil değil. Bir çok özelliği kısıtlı ama olabildiğince sade ve öğrenmesi kolay. Ve aynı zamanda bedava! Bu da ister istemez bir “Çocukluğumun BASIC’i geri döndü!” durumu yaratıyor.

SmallBasic’i bilgisayarımıza indirip kurduğumuzda* başlangıç menümüze sadece bir editör programı ve örnek kodları içeren bir pdf dosyası ekliyor. Editör programı aynı zamanda bir derleyici. Menüsündeki “Run” komutuna tıkladığımızda yazdığımız programı derleyip çalıştırıyor ve derlenmiş exe dosyasını, program dosyasının yanına bırakıyor.

Örnek kodları biraz geliştirerek hazırladığım masa üstü resmini flicker’den aldığı rastgele resimlerle değiştiren programın basitliğinin olayı açıklamak için yeterli olduğunu düşünüyorum. Kaynak kodunu buradan görebilirsiniz. Duvar Kağıdı Değiştiricisi’ni -tamam kabul ediyorum çok da yaratıcı bir işim değil(!)- kendi bilgisayarınızda çalıştırıp görmek isterseniz 132KB’lı zip pakedini burdan alabilirsiniz.

Kimileri QBASIC’in bıraktığı boşluğu dolduracağını kimileri Sinclair BASCI’e benzediğini söylüyor. Eğer programlama ile ucundan köşesinden de olsa ilgileniyorsanız, içinde LOGO programcılarının anımsayacağı bildiğim kadarıyla şimdiye kadar hiçbir BASIC lehçesinde kullanılmamış olan “turtle” komutunu da bulunduran bu dili mutlaka kurun. Hoşunuza gidecektir.

*4MB’lık SmallBasic kurulum dosyasını bu adresten çekebilrsiniz.

Sadece komut satırından çağrılabilecek bu araç tüm sistem dosyalarını tarayıp sonradan değişen dosya varsa orjinaliyle değiştiriyor. Bu işlem virüs saldırısı sonucu çalışmaz hale gelmiş sisteminizi kurtarabilir ve sizi her şeyi baştan kurmak belasından kurtarabilir. Windows Vista ve XP de çalışyor. Windows 2000′de de çalışması gerektiğini düşünüyorum. Bir kenara not etmekte sonsuz fayda var.  

Komutun kullanımına gelince:

“SFC /SCANNOW” taramayı başlatır.
“SFC /VERIFYONLY” taramayı başlatır ancak sadece kontrol yapar ve rapor verir dosyalarda değişiklik yapmaz.
“SFC/SCANFILE=[DOSYA ADI]” sadece tek bir dosyayı kontrol eder ve düzeltir
“SFC/VERIFYFILE=[DOSYA ADI]“ sadece tek bir dosyayı kontrol eder

Windows XP’de:

“SFC /SCANBOOT” windows’u yeniden başlattığınızda açılışta kontrol yapar.

 Not: SFC aracı çalışmak için windows kurulum cdsine ihtiyaç duyabilir.

Hakkında yazmayı planladığım inceleme yazısına bir türlü başlayamadığım yeni bilgisayarım’ın (kendisi bir Asus eeePC) gözüme o kadar da yeni görünmediğini farkedince, XP’nin vista gibi görünmesini sağlamanın bir yolunu aramaya başladım. Kısa bir araştırma yaptığımda XP’nin Vista gibi görünmesini sağlayacak pek çok araç olduğunu gördüm ama güvenilmez bulduğum bu programların hiç birini sistemime kurmak istemedim. Sistem kaynaklarını gereksiz yere harcayan bir program hem bilgisayarı yavaşlatacak hem de pil ömrünü düşürecekti. Böylece ek bir program kurmadan sadece görünüm stilini (thema) değiştirmek için kolları sıvadım ve bakın neler öğrendim. (Tamam bazı ip uçlarına önceden sahiptim.)

Windows XP aslında zaten görünüm stilini değiştirebilme özelliği ile geliyor. Ancak bu özellikli bir sertifika kontrolüyle kilitlenmiş durumda. Farklı stilleri kurabilmek tek gereken bu korumayı kaldırmak. Bu korumayı nasıl kaldıracağız? Bunun için c:\WINDOWS\system32” dizinindeki “uxtheme.dll” dosyasını sertifika kontrolü iptal edilmiş (kırılmış) versiyonuyla değiştirmek gerekiyor. Windows XP SP3 sürümü olan için yamalı dosyayı  bu adreste bulabilirsiniz. (SP2 kullanıcıları bu adresteki, SP1 kullanıcıları ise bu adresteki dosyayı yüklemeliler.)

Var olan sistem dosyasını yamalı olanla kolay bir şekilde değiştirebilmek için replacer adında ufak bir programdan yardım almak gerekiyor. Komut satırında çalışan bu programın kullanımı çok basit. Değiştirmek istediğimiz sistem dosyasının orjinalini programın penceresine sürükleyip bırakıyoruz. Ardından [ENTER]’a basıp yamalı dosyayı aynı şekilde sürükleyip bırakıyoruz. Tekrar [ENTER]’a basıp gelen soruyu [Y] tuşuna basarak cevapladığımızda program sistem dosyamızı yamalı olanla değiştiriyor. Biligisayarımızı yeniden başlattıktan sonra her türlü windows stilini (theme) kullanabiliriz artık.

Peki zevkimize göre bir stil nerden bulabiriz? Amatör stilleri üzcretsiz olarak inderebileceğimiz Deviant Art, Wincustomize, themexp.org, WinMatrix gibi çeşitli siteler mevcut. Ben deviantart’da buluduğum “aquanox” stilini indirdim.  Zip pakedinin içinden çıkan dosyaları “C:\windows\resources\themes” dizinine kopyaladım. Masa üstünden “Görüntü Özellikleri\Görünüm” sekmesine geçip yeni kopyaladığım stili aktive ettiğikten sonra windows’un görünümü aşağıdaki şekle geldi.

aquanox derisi (skin) ekran görüntüsü

Bahsettiğim sitelerde çok daha farklı MaxOS, Linux, Vista ve hatta Windows 7 tarzında stil dosyaları bulmak mümkün. Bunlardan birini seçerek artık sizde bilgisayarınızı para harcamadan (ve performans kaybı olmaksızın) yeni bir görünüme kavuşturabilirsiniz.

Internet Explorer’ın gerisine düşmeye başladığında Netscape’in ilk hamlesi kendisi adını taşıyan ve varsayılan giriş sayfası olan netscape.com’u tam donanımlı bir portal sitesi haline getirmek olmuştu. Böylelikle İnternet Explorer kullanıcıları’nın da Netscape sitesini ziyaret etmek için bir sebepleri olacaktı. Ancak hesap tutmadı. Netscape sitesi
-belki faydalı bulanlar olacaktır ama- benim için hep kalabalık, karmaşık ve sıkıcı (eşittir, hemen çıkılması gereken) olarak kaldı.

İşte bu hafta sonu bu sitede Netscape’in son sürümünü aradım. Eski dost’un son sürümüyle beraber, hiç ummadığım kötü bir habere de ulaştım. AOL Netscape’e verdiği desteği çekiyordu. Şubat ayından itibaren Netscape’in geliştirlmesi tamamen durduruluyordu.

Aslında yıllardan beri beklenen bir haberdi bu. Pek çoğumuz Microsoft Internet Explorer 6′yı duyurduğunda Netscape için herşeyin bittiği düşünmüştük. Ancak AOL bünyesine geçen Netscape’in son bir hamlesi vardı. Mozilla Projesi. AOL’nin yarattığı kaynakla Netscape mühendisleri önce Mozilla adlı açık kaynak kodlu bir web tarayıcısı ve ardından bir Mozilla varyasyonu olan Netscape 6′yı geliştirdiler. Bu tarihten sonra Netscape Mozilla’nın bir varyasyonu olarak yoluna devam etti. Bu sistem sayesinde Netscape ömrüne 7 koca yıl eklemiş gibi görünüyor. Ancak sonunda bir Mozilla varyasyonu’na yenildi. Eğer tarayıcı pazarını IE ve alternatifleri diyerek ikiye ayırırsak, alternatif tarayıcılar arasında en büyük paya sahip olan Mozilla Firefox’un Netscape’i ezdiğini söyleyebiliriz.

Netscape en azından IE’ye yenilmedi ve onun karşısına kendisinden daha güçlü bir rakip yerleştirmeyi başardı. Son bir hamle olarak’da FireFox ile arasındaki yegane fark olan Netscape eklentilerini ve Netscape derisini FireFox’a uyarlamışlar. Yani bundan sonra eski dost Netscape bir FireFox derisi.

(Eskileri yad etmek isteyeler Netscape Browser Archive‘e buyursunlar. )

Sunucu kurulumlarıyla, config dosyalarıyla uğraşmak istemiyorsanız, easyphp sizin için biçilmiş kaftan. Tek bir kurulum pakediyle apache, PHP, mysql ve phpmyadmin yazılımlarını sisteminize kurduğu gibi, bunları tek noktadan yönetmenizi sağlayan bir system tray programcığı da ekliyor.

Bu çok pratik pakete http://easyphp.org adresinden ulaşabilirsiniz.