aklına geleni söyleyen adam… :)
Yazılım
Microsoft Office 2010 Beta
3 Şub
Sıcak gelişme…
Microsoft Office 2010 Beta sürümünü release etti gençlik, dalın teknolojinin gelişiminden uzak kalmayın.. İndirin kurun, kurcalayın bozun yapın öğrenin…
http://us2.office2010beta.microsoft.com/default.aspx?culture=en-US
adresinden indirebilirsiniz.
Saygılar, mucks 
(No Ratings Yet)
Loading ...Basit kod hataları :S
29 Eki
Hoffff iki saattir yazdığım kodları inceliyorum. Bir yerde tıkanıp kaldım hata alıyordum…
Nedendir bilmem array olsun döngü olsun hep i ve j adı verilir 
Bende öyle yapmıştım.. Sonra datagriddeki verileri textbox’a atarken bir tane veri hep eksik kalıyor. Yaa bu ne böyle allahım kod doğru herşey doğru hepsi geliyor bu niye gelmiyor derken anladım ki i yerine 1 yazmışım.
Datagridview kontrolündeki verileri form üzerinde alanlara dağıtmak için aşağıdaki kodcaazımı kullanabilirsiniz. cellclik olayında kullanırsanız daha başarılı olur. keyup keydown filan ile klavye için kullanım sağlamış olursunuz.
[vb]
Private Sub DataGridView1_CellClick1(ByVal sender As Object, ByVal e As System.Windows.Forms.DataGridViewCellEventArgs) Handles DataGridView1.CellClick
Dim i As Integer
i = DataGridView1.CurrentRow.Index
txtID.Text = DataGridView1.Item(0, i).Value
cbSirket.Text = DataGridView1.Item(1, i).Value
cbKurum.Text = DataGridView1.Item(2, i).Value
cbHizmet.Text = DataGridView1.Item(3, i).Value
dtAcilis.Value = DataGridView1.Item(4, i).Value
txtkapanis.Text = DataGridView1.Item(5, i).Value
txtD1.Text = DataGridView1.Item(6, i).Value
txtD2.Text = DataGridView1.Item(7, i).Value
txtD3.Text = DataGridView1.Item(8, i).Value
txtD4.Text = DataGridView1.Item(9, i).Value
txtD5.Text = DataGridView1.Item(10, i).Value
txtD6.Text = DataGridView1.Item(11, i).Value
txtD7.Text = DataGridView1.Item(12, i).Value
txtKisiSayisi.Text = DataGridView1.Item(13, i).Value
txtKullaniciAdi.Text = DataGridView1.Item(14, i).Value
txtKullaniciNo.Text = DataGridView1.Item(15, i).Value
txtSistemSifre.Text = DataGridView1.Item(16, i).Value
txtIsyeriSifresi.Text = DataGridView1.Item(17, i).Value
txtAciklama.Text = DataGridView1.Item(18, i).Value
End Sub
[/vb]
(No Ratings Yet) Loading ...Delikanlı Programcı :)
15 Ağu
Gün bitti. Bugün aklıma tuvalette gelen şirket için program yazma fikrimi hayata geçirdim. Program için gerekli ihtiyaç analizlerini toparladım bir A4 kağıdına tek tek elle yazdım. Sonra bunları excel’e geçirdim. Sonra SQL’de tableları ve columnları oluşturdum. Toplam kolon sayısı 150 küsürdü. 150 kolon adı, 150 data tipi, 150 karakter uzunluğu vs. olaylar… Düşünün tüm bu alanlara veri girilecek. Veri girişi demek form tasarımı demek. Form tasarımı 150 adet Label 150 adet textbox, combobox, datetimepicker vs. demek. Bu kontroller ise tek tek adlandırılacak demek.
Adlandırılan kontroller tek tek database’deki kolonlarla eşleştirilecek demek. Data kayıt işlemleri çalıştıktan sonra veritabanından sorgu ile kayıtları çekmek demek. Çekilen kayıtlar ilgili kontrollerle tekrar ilişkilendirilecek demek. Yapılan proje test edilecek ve bug kontrolü yapılacak demek. Kontroller yapıldıktan sonra stabil çalışıyorsa paketlenecek ve diğer makinelerde de test edilecek demek.
Evet fazla uzattım farkındayım ama bunların hepsini bir günde ve hiç syntax, plan proje hatası yapmadan biryere takılmadan yaptığım için sevinçliyim. Bir gün içinde şirketteki işleri otomasyona bağladım. Program yıl sonuna kadar test ve geliştirilme aşamasında olacak. Yıl sonunda ise aktif olarak veri girişleri başlayacak.
Bir günde program yazılırmı demeyin, kasarsanız yazılıyormuş Tabi burada daha önceki kodlarımı kullanmamın büyük katkısı var. Ne demişler delikanlı programcı yazdığı kodu bir daha yazmaz :lol:
(No Ratings Yet) Loading ...Kayıt işlemi sonrası alanları sıfırlama
10 Ağu
Dataları kaydet işleminden sonra onlarca kontrolü sıfırlamak için tek tek textbox.text=”" yazmıyorsunuzdur umarım Projelerde kullandığım küçük kod parçacağını paylaşayım dedim.
Private Sub EmptyTextBoxValues(ByVal parent As Control)
For Each c As Control In parent.Controls
If (c.Controls.Count > 0) Then
EmptyTextBoxValues(c)
Else
If TypeOf c Is TextBox Then
CType(c, TextBox).Text = “”
ElseIf TypeOf c Is DateTimePicker Then
CType(c, DateTimePicker).Text = Date.Today
ElseIf TypeOf c Is ComboBox Then
CType(c, ComboBox).Text = “”
cbYil.Text = Date.Now.Year
End If
End If
Next
End Sub
Private Sub Bosalt(ByVal parent As Control)
For Each c As Control In parent.Controls
If (c.Controls.Count > 0) Then
Bosalt(c)
Else
If TypeOf c Is TextBox Then
CType(c, TextBox).Text = “”
ElseIf TypeOf c Is DateTimePicker Then
CType(c, DateTimePicker).Text = Date.Today
ElseIf TypeOf c Is ComboBox Then
CType(c, ComboBox).Text = “”
End If
End If
Next
End Sub
Kullandığınız kontrole göre ElseIf TypeOf c Is KontrolAdi Then şeklinde düzenleyebilirsiniz.
(No Ratings Yet) Loading ...Microsoft Tag ile yeni bir dönem başlayacak…
22 Şub
Blogu açarken bolca yazılımla ilgili makale yayınlarım diye düşünüyordum fakat yapamadım Vakit olmadı ki zaten eskisi gibi yeni çıkan teknolojileri pek takip edemiyorum :( Şimdilik elde kalanlarla idare ediyorum diyebilirim.
Makale yazamıyorum diye yeni çıkan şeylerden bahsetmeyecek değilim. İşte size yine sarsacak bir teknoloji.
Bu sefer geliştirici Google değil Microsoft. Yani benim yıllar sonra çalışacağım güzel şeker şirket. Bill baba olmasada Steve Ballmer da kankam sayılır
Arkadaşlar barkod nedir hepimiz biliyoruz herhalde. Şu beyaz zemin üzerine dikey siyah çizgilerle bazı bilgilerin saklanması diyebiliriz. Bu zımbırtı heryerde kullanılıyor. Marketlerde, mağazalarda, manavlarda, teknoloji merkezlerinde heryerde var. Bu barkod zımbırtısını dijital ortama yani bilgisayara aktarabilmek içinse barkod okuyuculara ihtiyacımız var. Bilirsiniz marketlerde kasiyerler okutmak için kullarını büklüm büklüm yapar okumazsa tek tek numaraları kasaya işlerler filan
Microsoft un geliştirdiği High Capacity Color Barcodes (HCCBs) sayesinde artık en dandik cep telefonu kamerası ile bile barkod okuması sağlanabilecek. Aklıma şu geliyor. Misal markete gittik ve alacağımız şeyin fiyatını ve özelliklerini tam olarak bilmiyoruz. Ne yapabiliriz ? Ya markette boşta duran bir görevli bulacağız yada taaaa kasaya kadar gidip ürün hakkında bilgi almaya çalışacağız.
Sanırım bu sistem ile artık yeni bir devir başlayacak ve insanlar ceptelefonu ile ürün üzerindeki barkodu okutarak ürün hakkında detaylı bilgileri alabilecek. Bence birçok yeniliğe açık bir sistem.
Not yukarıda resimde cep telefonu numaram gizlidir. Cep telefonunuza Tag Reader programını yükleyip monitörden okutursanız direkt olarak beni aramış olacaksınız. Ararsanız daha detaylı bilgi verebilirim deeermişim. Arayın yaa konuşur muhabbet eder vatan millet kurtarırız
Detaylı bilgi için :
http://www.microsoft.com/tag/content/what/
Tag Reader programını cep telefonunuza yüklemek için: http://gettag.mobi/ListOfManufacturers.aspx
Konu ile ilgili videoyu izlemek için : http://www.techflash.com/Demo_A_look_at_Microsoft_Tag37301434.html
adreselerini ziyaret edebilirsiniz.
(No Ratings Yet) Loading ...Windows Applications
19 Oca
Şirkette benden alel acele bir program yazmamı istediler. Hem şaşırdım hem sevindim hem irkildim
Şaşırdım çünkü benden ilk defa bir windows uygulaması istediler genelde web tabanlı şeyler oluyordu.
Sevindim çünkü işleri pratikleştirecek düşünceler gelişmeye başladı.
İrkildim çünkü uzun zamandır windows uygulaması yazmıyordum
Stored Procedure kullanarak bir update işlemini yapmak için taklalar attım neredeyse. Bu nedir benim zayıflığımdır. Unutmuşluğumdur. Utancımdır.
Neyse toparladım çok şükür programı yarında biraz modifiye ettikten sonra paketleyip dağıtıcam. Beta aşamasında görüşler epey güzeldi. Tabi yazdığın uygulamanın insanlar tarafından beğenilmesi ve daha da önemlisi işe yaraması çok şahane bir duygu
Kodlanmayı bekleyen 2 web sitesi daha kaldı bundan sonrası benim için paraya dönüşebilecek web siteleri olacak. Hala web 2.0 temelli güzel bir proje bulamadım. En iyisi bu haftasonu ben ingilizce mobil uygulama sitesi açayım belki o sektör biraz canlanır. Parayı ölü işlere yatırıp daha da batacağım yada çıkacağım Elimde epey uygulama kaynağı var onları crackli olarak mı yayınlasam yoksa shareware olarak mı dağıtsam karar veremedim :(
Neyse arkadaşlar zaten bu akşam işten gelirken otoyol üzerinden karşıdan karşıya geçmeye çalışan bir insan cesedi gördüm. Kötü oldum. Araba çarpmış fırlatmış adamı :( Allah ailesine sabır versin…
İyi güzel neşeli sevgili dolu günler diliyor, burada yazımı bitiriyorum.
(No Ratings Yet) Loading ...
