GAAnalytics4

2007-08-28

Son model kamyon yazıları


Horoz Lojistiğin 65. Yıl Kutlama etkinlikleri çercevesinde yaptığı yarışmada "Yeni Kamyon Arkası Yazıları" sonuçlanmış.Bakalım tutulacaklar mı?
  • “Kamyon Çeker 10-20 ton, Gönlüm Çeker Paris Hilton”
  • “Hayatımı Yazsam, Duble Yol Olur...”
  • “Araman İçin İlla Hata Mı Yapmam Gerekir?”
  • “Küresel Isınmaya Karşı Su Tankerlerine Geçiş Üstünlüğü Verilsin”
  • “İyi Mazot Selülit Yapmaz”
  • “Gazla Uçabilirsin,Ama Frenle Konamazsın...!”
  • “Bas Gaza, Frene, Debriyaja… Götür Ver Parayı Vergiye, Stopaja”
  • “Ne Müslüm’den Ne De Orhan’dan, Sevdiğim Tek Parça 'Yedek Parça' "
  • “Arabada Yalnız Var!”

2007-08-09

Kendi kitabını kendin bastır


Bugün değişik bir siteye rastladım(Belki çok önceden vardı ama ben yeni rastladım)

Site isteyen kişiye kendi kitabını bastırabilme olanığını veriyor.Üstelik adet sınırlamasıda yok.Hatta telif ücretini bile veriyorlar.Gerçekten hoş bir hizmet.

2007-08-07

Döngü İçindeki DoEvents()

Eğer bir döngü içindeyken ekranda bir kaç değişiklik(Update,Refresh) yapmak istiyorsak(Progress Bar,Status Bar) bu oldukça kaynak tüketen birşeydir...

Örneğin :

pb.Value = 0
    For Each temp As DataRow in tempTable.Rows    
        Dim tur as integer = Cint(temp.Item("TUR"))        
        Select Case Tur            
            'Case...            
            'Burda döngü içindeki işlerimiz        
        End Select  
    'şimdi progress Bar'ımızı Update edelim    
    pb.PerformStep()  
    pb.Refresh()  
    Applicaton.DoEvents()
   Next

Yukarda kod her döngüye girdiğinde "Application.DoEvents()" ile kuyrukda bekleyen bütün mesajlar çağırılacaktır.Bu durumda ise sisteme ekstra bir yük binecektir.

Oysa WinAPI kullanarak bu yükü biraz azaltabiliriz.User32.dll de bulunan "GetQueueStatus" fonksiyonu bize yardımcı olacaktır.

Public Const QS_MOUSEBUTTON = &H4
Public Const QS_MOUSEMOVE = &H2
Public Const QS_MOUSE As Long = (QS_MOUSEMOVE Or QS_MOUSEBUTTON)
<system.runtime.interopservices.dllimport(>"user32.dll")> _
  Public Shared Function GetQueueStatus(ByVal qsFlags As Integer) As Integer
  End Function
 
Public Sub YeniDoEvents()
    If GetQueueStatus(QS_MOUSE) <> 0 Then
        'Eğer Fare Sürüklenmiş veya Tıklanmışsa
        Application.DoEvents()
    End If 
End Sub
'....
'....
'....
 
pb.Value = 0    
    For Each temp As DataRow in tempTable.Rows            
        Dim tur as integer = Cint(temp.Item("TUR"))                
            Select Case Tur                        
            'Case...                        
                'Burda döngü içindeki işlerimiz                
            End Select      
        'şimdi progress Bar'ımızı Update edelim        
        pb.PerformStep()      
        pb.Refresh()      
        'Şimdi Kendi DoEvents()'imizi çağırıyoruz
        YeniDoEvents()
    Next

2007-08-04

Meyve

Meyve, botanik anlamda, olgun halde olan, taze veya kuru şekilde tüketilen ve içinde tohum veya tohumları barındıran bitkidir.
Meyveye örnek olarak şeftali,muz,fasulye,domates,salatalık,kabağı verebiliriz...