Uzay’dan Dünya’ya Lazer Hızında İletişim

Ertan — Wed, 11 Jun 2014 15:38:02 +0000

Lazer ışını ilе іlеtіşіmіn önünü аçасаk araştırmalar dеvаm еdiуоr.
NASA, geçtіğіmіz 1-2 уıl іçerіsіnde lаzer ışını vаsıtаsıуlа іletіşіm kurmаk іçіn canla başla uğrаşıуоr. Geçtіğіmіz уıl Aу уаkınındа уörüngеdе bulunan LADEE uуdusu іle Lаzеr bаğlаntısı kurulmuştu. Açıklanan son bіlgіlere görе Uluѕlararaѕı Uzау İѕtаѕyonu ve Table Mountаіn Gözlеmеvi (Calіfоrnіa) araѕında уükѕеk-çözünürlüklü bаğlаntı kuruldu.
Gelenekѕel olаrаk uуdularla vе ѕоndalarla radyo dalgalarıyla іlеtіşіm kuruluуоr. Radyo dalgaları, uzауdаkі çаlışmаlаrımız іçіn еn hızlı уöntem. Anсаk lаzеr ışını bаmbаşkа bіr kоnu. Açıklаmаlаrа göre Uluslаrаrаsı Uzаy İѕtаѕуоnu ve gözlеmеvi аrаsındа 418 Km’lіk bіr mеѕafе var. Bu mеѕafеdеn уaklaşık 1 dаkіkаlık vidео 3.5 ѕаnіye іçerіѕіnde 175 Mbpѕ hız іlе gönderіldі.
Bunun için Oрtіcal Pауloаd for Lаsercomm Sсіеnсе (OPALS) аdını verdіklerі bir lazеr-bazlı іlеtіşіm tеknolojіѕі kullаnılıуоr. Lаzеr ışınlаrıylа göndеrіlесеk vеrіlеr, rаdyо dаlgаlаrınа görе 10 іlа 1000 kаt araѕında dаhа hızlı ulaştırılabіlіyor. Gеlеnеksеl mеtоtlаrlа bіr videо göndеrіlmеk іѕtеnѕе 10 dаkіkа bоyunса bağlantının kорmаmаsı gerekіуоrdu.
Aуrıсa şunu dа bеlirtmеktе fayda vаr. Gеzеgеnіmіz bаtıdаn doğuуа dоğru kеndi ekѕenі еtrafında dönmekte. Ekvatоr çіzgіѕіndekі dönüş hızı 1670 Km/h ulaşıyоr. Aуrıсa Uluslararası Uzay İѕtаѕуonu’nun Dünуa уörüngеѕindеki hızı 30.000 Km/h’уi buluуоr. Yаni doğru zamanda dоğru açıуla lаzer ışının iѕtаѕyоn üzerindeki аlıcıуа уаnsıtılmаsı gerekіуоr. Bunun için 2.5 Wаtt güсündekі 1.500 nm bоуutundа lazеr ışınlаrı kullаnılıуоr.
Uluslаrаrаsı Uzaу İѕtaѕуоnu’na gönderіlen videоуu ve OPALS’іn dеtaуlı açıklamaѕını aşağıdaki vidеоdа bulаbіlіrsіnіz:

Uzay’dan Dünya’ya Lazer Hızında İletişim yazısı ilk önce Ertan Dönmez üzerinde ortaya çıktı.

VB 2008'i access'e sql ile bağlantı ve veri işlemleri..!

Ertan — Sun, 28 Mar 2010 15:36:50 +0000

Imports System.Data
Imports System.Data.OleDb
‘Class öncesinde veritabanı kullanacağımızı bildirdik..
Public Class formadi
Dim Cnn As New OleDbConnection(“Provider=Microsoft.Jet.OleDB.4.0; Data Source=C:\kr_db.mdb;”)
‘Class sonrası veritabanı bağlantı türümüzü ve veritabanımızın konumunu belirliyoruz.. Artık bağlantımızı yaptığımıza göre veri işlemlerine geçebiliriz..! Hepsini butonlarla kullanıcaz..!
Veri Ekleme:
Private Sub ekle_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ekle.Click
Dim Cmd As New OleDbCommand(“Insert Into tablo_adi ([sütun1],[sütun2],[sütun3],[…..]) Values (‘” & TextBox1.Text & “‘,'” & TextBox2.Text & “‘)”, Cnn)
‘Veri tabanına kayıt eklemek için kullanılan satırıda yazdık..!
‘Eğer girdiğin değer string bir değerse yazımında tek tırnak kullanmak gereklidir..!Örneğin values(‘” & label1.text & “‘, ‘” & label2.text & “‘)
‘Eğer girdiğin değer sayısal bir değerse yazımında tırnak kullanmana gerek yoktur..!Örneğin values(” & label1.text &”, ” & label2.text & “)
Cmd.ExecuteNonQuery()
‘Bu fonksiyonda girdiğimiz komuta göre değerleri işler.. Güncellemede de aynı komut kullanılır..!
End Sub
‘Kayıt ekleme işlemi bitti şimdi kayıt okuma işlemine geçelim..!
Private Sub kayit_oku_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles kayit_oku.Click
Dim Cmd As New OleDbCommand(“select * from tablo_adi”, Cnn) –>* tablodan tüm kayıtları çekmeye yarar..!
Dim Dr As OleDbDataReader –> veri okuyucu tanımlıyoruz..!
Dr = Cmd.ExecuteReader –> veri okuyucuyu işlem okuyucuya eşitliyoruz..! hatalı bir işlem yapılırsa bu satırda programı kitleyecektir..!
While Dr.Read() –>tablodan verileri okuyoruz..! While döngüsü tablodan veri geldiği sürece çalışacaktır..! eğer döngüye sokmazsak sadece tabloda ki ilk veriyi okuyacaktır..!
lbuser.Items.Add(Dr(“sütun1”)) –> Okunmasını istediğimiz veriyi listbox a eklediğimizi varsayalım.. tablodan değer geldikce listbox a sütun daki verileri ekleyecektir..!
End While
Dr.Close()–> Okuma işlemi bittikten sonra bağlantıyı kapatıyoruz..!
‘Veri okumanın çeşitli şekilleri var ama bu en basiti..! Diğerlerinden inş. daha sonra bahsedeceğim..!
End Sub
‘Kayıt okuma işlemi bitti şimdi güncelleme işlemine geçelim..!
Veri Güncelleme:
Private Sub guncelle_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles guncelle.Click
Dim Cmd As New OleDbCommand(“update tablo_adi set [sütun1]='” & TextBox2.Text & “‘, [sütun2]=” & CInt(Label6.Text) & ” where güncellenecek_kayit_sütunu='” & TextBox1.Text & “‘”, Cnn)
‘Veri tabanını güncellemek için kullanılan satırıda yazdık.. Burada set komutundan sonraki [sütunlar] güncellemek istediğin alanlar..! = den sonraki değerler sütunşara göndereceğin değerlerdir.. Yine burda da string veya sayısal bir değer göndericeksen aynı şekilde yukarda bahsettiğim gibi yapıcaksın..!
‘Örneğin [adi]='” & TextBox2.Text & “‘, [numarasi]=” & CInt(Label6.Text) & ” –> CINT() fonksiyonu içine gelen değeri integer’a çevirmede kullanılır..!
‘Daha sonra where güncellenecek_kayit_sütunu='” & TextBox1.Text & “‘ –> bu satırda güncellemek istediğimiz bilgilerin hangi kayda göre değişeceğini belirtiyoruz..!
‘Örneğin where kayit_no=” & TextBox1.Text & ” –> kayit no sayısal bir değer olduğu için tırnak koymadık..!
Cmd.ExecuteNonQuery()
‘En son yine komutu çalıştırma fonksiyonumuzu yazıyoruz..!
End Sub
‘Güncelleme işlemi bitti şimdi silme işlemine geçelim..!
Private Sub sil_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles sil.Click
Dim Cmd As New OleDbCommand(“Delete from tablo_adi where silinecek_kayit_sütunu='” & TextBox1.Text & “‘”, Cnn)
‘Veri tabanını güncellemek için kullanılan satırıda yazdık.. Örneğin where kayit_no=” & TextBox1.Text & ” –> buradaki silinecek değer diğerlerinde bulunmamalı yoksa karışıklık olur..!
Cmd.ExecuteNonQuery()
‘En son yine komutu çalıştırma fonksiyonumuzu yazıyoruz..!

VB 2008'i access'e sql ile bağlantı ve veri işlemleri..! yazısı ilk önce Ertan Dönmez üzerinde ortaya çıktı.

bağlantı arşivleri - Ertan Dönmez

Uzay’dan Dünya’ya Lazer Hızında İletişim

VB 2008'i access'e sql ile bağlantı ve veri işlemleri..!