Artık Border Defence War satışlarıyla Poyraz Bilişim ilgilenmektedir.
Satın almak için noc@poyrazbilisim.com ekleyebilirsiniz. Teşekkürler.

http://www.youtube.com/watch?v=q8KreQO4UmQ
Güzel olmuş çekenin ellerine sağlık

Bir yandan katılacağım yarışma için programı yetiştirmeye çalışıyorum, bir yandan müşterilerin programlarını yazmaya ve bir yandan da hatalarla uğraşıyorum.Özellikle geçen hafta sınavımdan dolayı pek ilgilenemedim ama bekleyen arkadaşların buhafta tamamen işlerini halletmeye çalışacağım..

iyi günler

Sunucularınızda artık küfüre, reklama son verebilirsiniz.
Bu program sayesinde yazdığınız kara listedeki kelimeleri yazanları isterseniz dc edersiniz isterseniz banlarsınız..
Basit bir arayüzü bulunmaktadır.Karakterlerden biri (GM hariç) yazdığınız kelimelerden birini yazar yazmaz işleme konulur.Böylece sürekli küfür ve reklam derdi ile uğraşmazsınız.
Bu programı şu anda TürkKO ve PvpGamer kullanmaktadır.

Proje ücreti : 20 TL
iletişim:osman.ozturk2@hotmail.com

Piyasadakilere göre tabii ki daha gelişmiş bir sistem.
Parti olarak npt yapanları gösteriyor. X kere birbirini kesenleri npt olarak göster diye ayarlayabiliyorsunuz.
Hoş sade bir görünüm verdim güzel oldu işlevsel oldu ve gayet hızlı oldu
Bulduğu nptleri analiz bittikten sonra bir txt içine kayıt ediyor şöyle ki;

İlk konumuza http://www.0sk1.net/?p=61 adresinden ulaşabilirsiniz.
Şimdi konumuza devam edelim.

Veri gönderme olayına bakalım.Sistem işleme şeklini tekrar hatırlatayım ne yazdım diyer konuda hatırlamıyorum..Browser sunucudan dosyayı ister, sunucu ne olursa olsun açar yollar isterseniz buralara sorgular koyarak geliştirebilirsiniz.

HTTP_DataArrival kısmı soket veri aldığında çalıştırılır.
İstenilen sayfayı zaten istenenSayfa değişkenine atamıştık.

If DosyaVarMi(istenenSayfa) = True Then 'dosya var.
'Gönderilecek Mesaj

Else 'dosya yok
'404 Mesaji
HTTP(Index).SendData "HTTP/1.0 404 Not Found"
End If

Bu kısımda  if sağlandığında dosyayı okuyup yollaması lazım.Bunun için bi fonksiyon tanımlayalım ama önce istenilen dosyanın uzantısını almamız gerekli.

Function uzanti(dosya As String) As String

For i = Len(dosya) To 2 Step -1
  c = Mid(dosya, i, 1)
  If c = "." Then
  pos = i + 1
  End If
Next

uzanti = Mid(dosya, pos, (Len(dosya) + 1 - pos))
End Function

Şimdi bu fonksiyon bize dosya uzantısını geri döndürür.Gelelim dosya gönderme fonksiyonuna dataarrival kısmında fazla kod yığılmaması için bi fonksiyon tanımlıyorum.
Fonksiyona açıklamaları da yerleştirdim kaynak kodu indirerek bakabilirsiniz.

Kaynak kod 81 portunu dinlemekte isterseniz 80 yapabilirsiniz.

http://localhost:81/ yazıp girdiğinizde çalıştığını göreceksiniz
Portu 80 yaparsanız http://localhost/ yazıp girmeniz yeterlidir.

Projenin tamamını indirmek için tıklayın.

bu da çalışır hali :
umarım yararlı olmuştur.

Yapay zeka yazılımında en temel karar alma mekanizması ve parametreleri belirlendikten sonra bunun üzerine spiral bir yapı kurulsa, matematikteki sonsuz seriler ya da +sonsuz sonucu veren fonksiyonlar gibi spiralin ucu sonsuza gitse, yapay zeka karşılaştığı olayları çözümleyip spiral yapıda gerekli yerlere yerleştire yerleştire çapını büyütse ve yeni çıkan problemi eskilerine gittikçe daha çok benzeterek çözüp sonuçları bir feedback döngüsüyle yapısına katarak gittikçe birikim kazansa…

yeteri kadar tecrübe kazanıp bunları da gerekli yerlere yerleştirerek bir bütünlük oluşturduğunda da yaratıcılığı harekete geçirilebilir.

hatta bu yolla elektronik tecrübe birimleri oluşturulup çeşitli senaryolarda optimum kararlar sorgulanabilir, sanal gerçeklik sağlanarak kullanıcı oluşturulan senaryonun içine katılır, olayı bire bir yaşaması sağlanır. hatta buna da akıllı simulatör diyelim.

ya da sallıyorum akşam akşam.

Hem yeni uygulamayı hayata geçirmek için hem de eski sunucumuzda yaşanan sorunları engellemek için yeni sunucumuza geçmiş bulunmaktayız.
Gayet hızlı bir internet hattına sahip sanırım artık lisans vs. sorunları kalmayacaktır.
Hız testi
Teşekkürler

Yeni sistemimizi yakında aktif hale getireceğim.
Sistemin çalışma prensibi şöyle;
belirlediğiniz veritabanını(MySQL veya MsSQL) yine sizin belirlediğiniz aralıklarla bizim sunucularımıza yollar.Güvenlik bakımından sizin belirleyeceğiniz bir şifre ile veritabanınızı zipler ve panelden veritabanı yedeklerinizi yönetebilirsiniz.
Aylık 10 TL gibi bir fiyatla 10 GB alan veriyoruz.Bu alana istediğiniz kadar veritabanı yedekleyebiliyorsunuz.Bütün sunucularınızın yedeklerini otomatik olarak yollayabilir istediğiniz zaman veritabanınızı alabilirsiniz.Tabii ki zipler şifreli olduğu için indirdiğinizde belirttiğiniz şifreleri girmek zorundasınız.Bu hem bizim hem sizin güvenliğiniz için.

Sistem hakkında görüşlerinizi bekliyorum.

Border defans war’da 1-2 sıkıntımız vardı.Onları tamamen çözdük ve v0.3′ü yayımladık.Yenilikler şöyle;
-Daha hızlı çalışması sağlandı.
-LOG karıştırma sorunu düzeltildi.
-Monumentler sabitlendi.
-İsterseniz npsi sıfır olan karakteri odadan atabiliyorsunuz.

Şimdilik bu kadar.Takipte kalın