Olay Oluşturmak - Örnek Algoritma

Visual Basic'te yeni bir Olay oluşturmak da eğlencelidir. Örneğin Form1'e yeni bir Olay ekleyelim.

    'Design'de Giriş adlı TextBox eklenecek.
    Public Event RakamGirildi(ByVal Rakam As Byte)
    'Artık Form1'in RakamGirildi adlı yeni bir Olay'ı var.

    Private Sub Giriş_TextChanged(sender As Object, e As EventArgs) Handles Giriş.TextChanged
        'Giriş metni sadece rakamsa RakamGirildi olayını oluşturuyoruz.
        If Giriş.Text Like "[0-9]" Then RaiseEvent RakamGirildi(Giriş.Text)
        'Elbette aynı şekilde başka TextBox'larda da bu olay oluşturulabilir.
    End Sub

    Private Sub Form1_RakamGirildi(Rakam As Byte) Handles Me.RakamGirildi
        'İşte Olayın  prosedürü
        'Olay oluştuğunda yapılacaklar....
        'Örneğin bir mesaj kutusu göstermek.
        MsgBox(CStr(Rakam) & " tercih edildi")
    End Sub

Visual Basic.Net 2013 ile uyumludur.

Elbette Olay özellikle yeni bir Araç'a eklenirken gerçekten kullanışlı oluyor. Biraz daha karmaşık bir Olay yaratma yöntemi SudokuÇözer'de var. Burada Bölüm adlı Araç'a yazılmıştır.

Bu Uygulama Sistemde Çalışıyor mu? - Örnek Algoritma

Bu uygulama sistemde şu anda çalışıyor mu? Nasıl bir kodla denetlenebilir. İnternet aramalarında çıkan ilk sonuçlar pek verimli değil. Çalışabilir tam hazır kod bulunamıyor. Bu yüzden kendi örneğimi yazdım.

    'Design'de Denetle adlı Timer eklenecek. Enabled özelliği True yapılacak.
    Private Function UygulamaÇalışıyor(UygAdı As String) As Boolean
        'Fonksiyon'da UygAdı değişkeni, denetlenecek uygulamadır. 
        'Çalışan her işlemin (uygulamanın) bilgileri tek tek İşlem değişkenine yükleniyor.
        For Each işlem As Process In Process.GetProcesses
            'Sıradaki İşlem Adı UygAdı ile karşılaştırılıyor.
            If işlem.ProcessName = UygAdı Then
                'UygAdı, bu İşlem Adı'yla aynıysa,
                'Uygulama İşlem listesinde bulunmuştur, çalışıyordur.
                'Fonksiyon'dan True döner.
                UygulamaÇalışıyor = True
                Exit Function
            End If
        Next
    End Function

    Private Sub Denetle_Tick(sender As Object, e As EventArgs) Handles Denetle.Tick
        'Örneğin WinRAR'ın sıkıştırmaya devam edip etmediği denetlenebilir.
        If UygulamaÇalışıyor("WinRAR") Then
            'Bu uygulama çalışıyorsa yapılacak komutlar,
        Else
            'çalışmıyorsa yapılacak komutlar.
        End If
    End Sub

Bu Kod Visual Basic.Net 2013'le yazılmıştır.

Bu Fonksiyon örneğin şu amaçlar için kullanılabilir: Projenizden ardarda birkaç program çalıştırmanız gerekebilir. Bir program başlatılır. O'nun görevi bittikten sonra başka bir program başlatılabilir. İşte bu fonksiyonla programın görevinin hâlâ sürdüğü denetlenebilir. Ve görevi bitince diğer program başlatılabilir. Diğer bir amaçsa projenin başına iliştirilebilir. Projenin bir kopyası sistemde zaten çalışıyorsa yeni bir kopyasının çalıştırılması önlenebilir.

Haber: Şeffaf Canlılar

Samsung filan şeffaf çamaşır makinesi tasarlamıştı. Kullanıcı makine çalışırken izleyebiliyor. Peki şeffaf canlıya ne dersiniz!

***

Kesme işleminin bazı dokulara zarar vermesi nedeniyle organizmayı açmadan inceleme yapabilmek için bilim adamları derisi alınan ölü farelerin damarlarına yağları çözen özel bir jel enjekte etti. Jel, bir pompa sayesinde farelerin tüm bedenine dağıtıldı.
      
Farelerin böbrekleri, kalbi, ciğerleri ve bağırsakları 2-3 gün içinde saydam hale geldi. Hayvanların beyni ve diğer organları da 2 hafta içinde saydamlaştı.
      
"Cell" dergisinde yayımlanan araştırmanın sonuçları hastalıkların, sinir sisteminin ve hücreler arasındaki etkileşimin daha iyi anlaşılmasına ışık tutuyor.
      
Daha önce yapılan benzer bir araştırmada farelerin beyni kısmen saydam hale getirilmişti. Tüm bedenin saydam hale gelmesini sağlayan bu yeni yöntemde ayrıca enjeksiyonun yol açtığı doku şişmeleri sorunu da giderildi.

Haber: ntvmsnbc

Belgeselden: Sınırsız Enerji

Belgeselden: Sınırsız Enerji paylaşan: okanozcelik
Stephen Hawking:
- Sırada yeni bir enerji kaynağı yaratmaya ne kadar yakın olabileceğimizin hikayesi var!
Hem de yıldızların gücünden...

Jim Al-Khalili:
- Modern dünyamızın enerjiye karşı bir tutkusu var.
Her sene çok daha fazla enerji tüketiyoruz ve tükettiğimiz bu enerji 2050'de 2 katına çıkacak!
Fosil yakıtları tüketiyoruz.
Yenilenebilir enerji boşluğu dolduracak gibi görünmüyor!
Ve nükleer enerji Japonya'da olan son olaylar sonrasında tekrar ön plana çıktı...
Bu olanlar biraz umutsuz görünse de bir fizikçi olarak bir alternatifin olduğunu biliyorum.
Ve neredeyse sınırsız bir enerji kaynağı neredeyse hiçbir kirlenmeye sebep olmuyor!
Gerçek olamayacak kadar iyi.
Ben bunun o kadar da uzak olmadığına inanıyorum...

Ed Moses:
- Yakıtınız nedir.
Yakıtınız okyanustaki su.
Ne kadar gerek.
1 milyon insana birkaç yüz varil 1 sene yeter!
Ve kullandığınız yakıtta karbon yok.
Yani çevreyi kirletmiyor fisyon aktivitesi yok.
Yani uzun vadeli kirlilik de yok!
...
Milyarlarca insana güç sağlayabilir!

Burada anlatılan füzyon tepkimesini ateşlemek için bir trilyon Watt'dan fazla elektrik gücüne gerek var. Ateşlendikten sonra sürekliliği sağlanmaya çalışılıyor. Başarılabilirse belki, enerjiyi nasıl elde edeceğimizi bir daha düşünmeye gerek kalmayabilir.
Enerjisinin %80'ini nükleer santrallerden üreten Fransa deney için gerekli gücü üretebileceğinden, bu reaktörün denendiği ITER'in Fransa'da kurulması tesadüf sayılmaz. Tabii bunda, klasik nükleer santralden bu kadar faydalanmış olan Fransa'nın füzyon çekirdek tepkimesinin daha da yararlı olacağını zaten anlamış olduğunun da etkisi vardır.
Neredeyse hiçbir kirlenmeye sebep olmayan neredeyse sınırsız enerji kaynağına ulaşmanın yolu yine klasik nükleer santrallerle mümkün olacağı enteresan bir ayrıntıdır.

Haber: İnsan Beyni Gibi Çalışan İşlemci

Bir bilgisayar çipi insan beyni gibi çalışabilir mi? IBM’e göre bu mümkün. Şirketin araştırmacıları, insan beyninin çalışma prensiplerini baz aldıkları bir bilgisayar çipi geliştirdiklerini açıkladı.

ABD merkezli IBM şirketi, geliştirdikleri TrueNorth adını taşıyan bilgisayar çipinin insan beyni gibi çalıştığını duyurdu. Yapılan açıklamaya göre 5.4 milyar adet transitöre sahip olan çip, sadece 70 mw enerji harcıyor.

İşitme cihazlarından bile daha az enerji harcayan çip, zaman içinde günümüz süper bilgisayarlarını bile geride bırakabilir.

Bilgisayar sektörüne yeni bir soluk getirebileceği öne sürülen çipin sahip olduğu elektronik nöronlar, kullanıcının kendisine verdiği komutu insan beyninin yaptığı gibi saptıyor ve tanımlıyor.

IBM’in geliştirdiği çipin, fazla yer kaplamamasından dolayı makinelere entegre olabileceği düşünülüyor.

Haber: ntvmsnbc