Yazılım

Microsoft Office 2010 Beta

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 :)

Basit kod hataları :S

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 :D 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.


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

Delikanlı Programcı :)

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:

Kayıt işlemi sonrası alanları sıfırlama

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.