Yazılım Geliştirme Uzmanı & İnşaat Mühendisi
Logo Go/Tiger, Iphone, Desktop, Web, VBA Uygulamaları
Tel : 0 534 797 31 21 , Mail : baranseren@gmail.com

Function CreateURL(Text) 4/3/2011 1:09:07 PM

Yazıda bulunan url leri link`e çevirmek için regular expressions ile hazırlanmış fonksiyon.


    Function CreateURL(Text)
        Set regEx = New RegExp
            With regEx
                .IgnoreCase = True
                .Global     = True
                .Pattern     = "\[url=((http|https|ftp)\://[a-zA-Z0-9\-\.]+\.[a-zA-Z]{2,3}?/?[a-zA-Z0-9\-\._\?\,\`/\\\+&%\$#\=~]*)\](\s*[a-zA-Z]+((.|\n)*?)\s*)\[\/url\]"
            End With
        Set objEx = regEx.Execute(Text)

            For Each x In objEx
                Text = Replace(Text,x,""& Trim(x.SubMatches(2)) &"", 1,-1,1)
            Next
        CreateURL = Text
    End Function



Tags :


Remove WGA 4/1/2011 1:29:43 PM

Windows Güvenlik Doğrulamasını geçebilmeniz için gerekli olan remove windows genue advantage programı




Tags :


jQuery Eğitim Seti Konu Başlıkları 4/1/2011 12:08:01 AM

jQuery Giriş
1- jQuery Nedir?
2- jQuery dosyası ve Kurulum
3- jQuery Özellikleri
4- İlk Örneğimiz

jQuery ve Seçiciler
5- Tag Seçiciler
6- Css Seçiciler
7- Form Seçiciler
8- Öznitelik Seçiciler
9- Özel Seçiciler

Css İşlemleri
10- Css Özellikleri
11- Css Sınıfları
12- Css Konumlandırmaları

Olaylar
13- Sayfa Yüklendiğinde Kod Çalıştırmak
14- Değer Alan Fonksiyonlar
15- Olay Yardımcıları
16- Olay İşleme
17- hover() ve toggle()

Dom İşlemleri
18- Değiştirme
19- Ekleme
20- Silme
21- Kopyalama

Efekt İşlemleri
22- Gösterme ve Gizleme
23- Slayt Efektleri
24- Şeffaflık Efektleri
25- Animate Fonksiyonu

Ajax İşlemleri
26- Ajax İstekleri
27- Ajax Olayları
28- Ajax Yardımcıları




Tags :


Benden bi atasözü :) yazın bunu güzel oldu 4/1/2011 11:34:25 AM



Algoritmik Hayat Tarzı , Kodlayarak yaşamak , Düşünerek Kazanmak , Kazanarak yaşamak pfffff
hayat karışık olmasa demek biz aç kalacakmışız...


Tags :


Yeni Bilgisayar Sistemim :) 3/31/2011 3:15:14 PM

Satılık Vektör Arşivi 350gb + 500 gb HQ Resimler 3/31/2011 1:27:28 PM

Vektörel Arşivim Satılıktır 350~400 gb arasında değişen boyutlu olarak satıyorum.

Arşiv kategorilere ayrılmış şekildedir vektörlerin isimlerinin tamamı türkçeleştirilmiştir.

Harddisk ile almak isteyenler için fiyat 450 TL fiyatı dır. 2 Günde kargoya verilir.
Hesap numaralarım iletişim bölümünde bulunuyor.

Resimler Temsilidir Sürekli Güncellenmekte ve Binlerce dosya eklenmektedir.

Bilgi almak için cep numaramdan da ulaşabilirsiniz








Tags : Vektör , Vector , Logo , Arşiv , Archive , Download , Satış , Satılık , HQ resim , Arşivi , Satın Alma , Gitti Gidiyor , Harddisk , Cd , DVD ,


Tags : Vektör , Vector , Logo , Arşiv , Archive , Download , Satış , Satılık , HQ resim , Arşivi , Satın Alma , Gitti Gidiyor , Harddisk , Cd , DVD


Baran SEREN Kartvizit 3/31/2011 1:14:21 PM

Yeni Satış Sistemi v.1.0 3/31/2011 10:28:20 AM



Üzerinde çalışmalarım devam ediyor 3 yıllık birikimin değerlendirilmesi akabinde yeni sistemin tasarımına başladım.


Tags :


Cari Takip Sisteminin Bayi Ağı Sistemine Entegrasyonu 3/31/2011 10:21:45 AM

Bayi ağında plasiyer menüleri ile entegrasyonu yapılmıştır.

Cari hesap kapama usulü ile sistemde plasiyere bağlı olan illerdeki müşterilerin ortalama vadeleri ve geçmiş borç bilgilerini görebilecekleri şekilde düzenlenmiştir.Proje tamamlandı.


Tags :


Hurriyet Haber Decoder 3/26/2011 12:27:51 AM

Hurriyet Haber Decoder

Hürriyet.Com.Tr sistesinden haberleri alamamanız için hazılmış olan spanlar ile yazıları karıştıran ve kopyala yapıştır yaptığınızda bin türlü saçmalık gelen sistemin algoritmasının deşifre edilmiş hali alttadır.

2 adet RichTextBox ekleyin ve bir adet Command button rich1 e kopyaladığınız veriyi girin alın size temiz hali. :)

Çözülmeyecek şifre kırılmayacak program girilmeyecek ev yoktur.



Private Sub Command1_Click()
On Error Resume Next
veri = RichTextBox1.Text
veri = Replace(veri, """", "`")

While Not InStr(veri, "     kucukyeri = InStr(veri, "     buyukyeri = InStr(veri, "/span>")
    silinecekveri = Mid(veri, kucukyeri, buyukyeri - kucukyeri + 6)
    veri = Replace(veri, silinecekveri, "")
Wend

RichTextBox2.Text = veri
End Sub




Tags :