Yazılım
Microsoft Office 2010 Beta
3 Şub
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
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.
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ı :)
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:
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 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.



Allah razı olsun :P