Tags-Etiketler

Bu kısımda sitemizde etiketlenmiş makaleleri toplu olarak bulabilirsiniz...

[ k ] / Makaleler-Article(s)

k ile ilgili toplam 333 makale bulundu !
(A total of 333 article(s) about k was(were) found in all of articles!)

Article
Label ve TextBox Nesnelerinde TrackBar Kullanımı Merhaba arkadaşlar bu makalemizde label ve textbox gibi nesnelerin trackbar kullanarak nasıl font boyutunu değiştireceğimizi göreceğiz. Formumuza 1 adet Label...
C++ maskedTextBox İle Formatlı Yazmak Merhaba arkadaşlar bu makalemizde C++ da maskedTextBox a girilen sayıları formatlı gösterimini sağlayacağız.
Excel de Kayıt Aramak Merhaba arkadaşlar bu makalemizde TextBox a girilen stringi Excel sayfasında ki kayıtlar arasında arayacağız. Bulunan sonucu çalışma anında oluşturduğumuz tabloda göstereceğiz.
DataGridView da CheckBox Sütunda Seçili Olan Satırları Başka Bir DataGridView da Gösterimini Sağlamak Merhaba arkadaşlar bu makalemizde ilk önce DataGridView nesnesine CheckBox sütun ekliyoruz. Sonra MySql veritabanımızdaki tablomuzdaki verileri DataGridView da gösteriyoruz. Son olarak...
ListBox ta Arama Yapmak ve Seçili Itemin Yazı ve Arka Plan Rengini Değiştirmek Merhaba arkadaşlar, bu makalemizde Listboxta arama yapacağız. Bulunan kayıtların yazı ve arka plan rengini değiştireceğiz.ListBox ın SelectionMode özelliğini MultiSimple yapın. ListBox ın yazı ve arka plan rengini...
Asp.Net te Javascript Kullanarak GridView daki Satır Rengini Değiştirmek Merhaba arkadaşlar bu makalemizde asp.net te javascript kullanarak gridview daki satır rengini değiştireceğiz. Çalışma anında mouse ın üzerine geldiği satırın rengi değişecektir.
CheckBoxList de Secili Item Bilgisini GridView da Gostermek Merhaba arkadaşlar bu makalemizde MySql veritabaninda, CheckBoxList de secili item bilgisini GridView nesnesinde gosterecegiz.
Python da Ekran Görüntüsü Almak Merhaba arkadaşlar bu makalemizde formdaki butona tıklayarak ekran görüntüsü alınır. Aşağıdaki kütüphane sınıflarını form içine ekleyin.
C++ My Sql Veritabanina Baglanmak ve dataGridView Nesnesinde Seçili Satir Bilgilerini MessageBoxta Gösterimini Saglamak Merhaba arkadaslar bu makalemizde C++ da dataGridView nesnesinde My Sql veritabanindaki verilerin gösterimini saglayacagiz. dataGridView nesnesine checkbox ekliyoruz. Seçili checkboxtaki satir bilgilerini messagebox ta gösteriyoruz. C++ da Windows Form nasil ekleriz? Konusunu daha önceki makalede anlatmistim.
dataGridView da CheckBox İle Satır Seçmek, Seçili Satırın Yazı ve Arka Plan Rengini Değiştirmek Merhaba arkadaşlar bu makalemizde Mysql veritabanına bağlanacağız. Mysql veritabanındaki verileri dataGridView da göstereceğiz. dataGridView nesnesine CheckBox sütunu ekleyeceğiz. Daha sonra seçili checkbox satırlarının yazı ve arka plan rengini değiştireceğiz.
Tkinter CheckBox Merhaba arkadaşlar bu makalemizde python da seçili checkbox aracının metnini labele yazacağız. Örneğe başlamadan önce checkbuttonlarla ilgili ufak bir bilgilendirme yapalım...
C++ da dataGridView Nesnesine TextBox, Button, CheckBox, ComboBox ve Image Alanları Eklemek Merhaba arkadaşlar bu makalemizde C++ da dataGridView nesnesine TextBox, Button, Combobox ve Image sutunları ekliyeceğiz. Sonrasında Checkbox ta seçtiğimiz satır bilgilerini mesaj olarak ekranda göstereceğiz.
Cookie Oluşturmak ve Cookie Değerlerini Almak Merhaba arkadaşlar bu makalemizde cookie nasıl oluşturulur? ve oluşturduğumuz cookie değerlerini nasıl görebiliriz? Sorularına yanıt bulacağız.
dataGridView da Boş Satır Olup Olmadığının Kontrolünü Yapmak Merhaba arkadaşlar bu makalemizde dataGridView nesnesinde boş satır var mı kontrolünü yapacağız. Bulunan boş satırları mesaj olarak ekranda gösterimini sağlayacağız.
GridView da Seçili CheckBox taki Satırların Arka Plan Rengini Değiştirmek Merhaba arkadaşlar bu makalemizde GridView daki seçili checkbox’lardaki satırların arka plan rengini değiştireceğiz. İlk önce GridView nesnesinin AutoGenerateColumns="False" özelliğini False yapın. Item templateye ekleyeceğimiz...
GridView da CheckBox Kullanarak Satır Seçmek (GridView HighLight) Merhaba arkadaşlar bu makalemizde GridView nesnesinde checkbox kullanarak tüm veya istediğimiz satırları seçeceğiz. Seçili satırın arka plan rengini değiştireceğiz. Ayrıca satırın fontunu değiştireceğiz. Seçili satırın yazı karakterini italik yapacağız.
OuickReport Kurulumu Resimli Anlatımı Merhaba arkadaşlar bu makalemizde Delphi’ye QuickReport bileşeninin nasıl kurulacağını resimli anlatımını yapacağım. İlk önce kullandığınız delphi sürümüne ait quickreport bileşenini buradan indirebilirsiniz.QuickReport bileşenini indirdikten sonra, Delphi’yi açalım. Tools kısmından Options’a tıklayalım.
Delphide DBGrid Nesnesini Access Veritabanına Bağlamak Merhaba arkadaşlar bu makalemizde access veritabanına bağlanacağız.Formumuza Data Controls kısmından 1 adet DBGrid, DBNavigator ekleyin.Formumuza Data Access kısmından 1 adet DataSource ve dbGo kısmından AdoTable ekleyin.DataSource1 i seçin ve Object Inspector de DataSet kısmında AdoTable1 i seçin.
GridView da Sorgulamaya Göre Satir Arka Plan ve Yazi Rengini Degistirmek Merhaba arkadaslar bu makalemizde GridView nesnesinin OnRowDataBound özelligine yazilan kodla; Fiyat sütunumuzunda ki fiyat deger araligina göre sorgulama yapacagiz. Sonrasinda sorgulama kriterine göre Yazar sütunundaki satirlarin arka plan rengini ve yazi rengini degistirecegiz.
GridView Nesnesinde Satırdaki Verileri HyperLinke Tıklayarak DetailsView Nesnesinde Göstermek Merhaba arkadaşlar bu makalemizde Sql veritabanımıza verileri GridView da göstereceğiz. GridView nesnesinin AutoGenerateColumns="False" yapıyoruz ve < Columns >< / Column > kısmına Hyperlink ekliyoruz. İlgili satırdaki bilgilerin detaylarını görmek istediğimizde o satırdaki Hyperlinke tıklayarak Detais.aspx sayfasındaki DetailsView da gösteriyoruz.
PlaceHolder Kullanımı Merhaba arkadaşlar bu makalemizde PlaceHolder kontrolüne resim ekleyeceğiz ve eklediğimiz resimin gösterimini sağlayacağız.
Repeater da HyperLink Kullanımı Merhaba arkadaşlar bu makalemizde Repeater da hyperlink nasıl kullanılacağını göstereceğiz. Hyperlinke tıkladığımızda DetailsView.aspx sayfasında seçili satırın detay bilgilerini göstereceğiz.
Asp.Net te MultiView Kullanımı Merhaba arkadaşlar bu makalemizde Asp.Net’te MultiView nesnesinin nasıl kullanılacağına bakacağız. Bu örnekte MultiView e eklediğimiz View’larda image, textbox, hyperlink gibi nesnelerini göstereceğiz. Bunun için ilk önce MultiView in ekranda görünecek aktif indeksini 0 belirliyoruz. Böylece View1 deki image i göstermiş oluyoruz. İleri butonuna basarak aktif indeksi 1’er artırarak, sonraki View daki nesneyi ekranda göstereceğiz.
GridView da Compute Islemleri Merhaba arkadaslar bu makalemizde seçtigimiz iki Id no arasindaki satirlarin degerini hesaplayacagiz. Ayrica bu araliktaki satirlarin arka plan rengini degistirecegiz. Bu islemin yapilmasini GridView in OnRowDataBound = "OnRowDataBound" kismina yazilacak bir kod ile saglayacagiz. Ayrica GridView nesnesinin AutoGenerateColumns="False" yapiniz.
QueryString Metodu Ile DetailsView da Gösterim Merhaba arkadaslar bu makalemizde QueryString metodunu kullanarak DetailsView nesnesinde id no ya göre verilerimiz gösterecegiz. Default.aspx sayfamizda ki hyperlink nesnesinin NavigateUrl sini asagidaki gibi yapiyoruz.HyperLink1.NavigateUrl = "~/Details.aspx?Id=2"; Bu sekilde hyperlink e tiklanildiginda Details.aspx sayfasina gidiyoruz ve Id degerini 2 olarak tasiyoruz.
ListBox Çalışmaları Merhaba arkadaşlar bu makalemizde sql veritabanimizdaki kitap sütunundaki verileri ListBox ta göstereceğiz. ListBox1 de seçeceğimiz itemsleri ListBox2 ye ekleyeceğiz. ListBox2 de ekli itemlerden aynı itemler varsa ListBox1 den ListBox2 ye ekleme yapılmayacak. Aynı işlemleri ListBox2 den ListBox1 e yapabileceğiz.
GridView da DropDownList Kullanımı Merhaba arkadaşlar bu makalemizde GridView nesnesinin içerisinde DropDownList nesnesinin kullanımını göstereceğim. GridView nesnesinin AutoGenerateColumns özelliğini False yapın. Sonra GridView in EditItemTemplate kısmında DropDownList nesnesini göstereceğiz.
Programlama E-Kitap-3 Merhaba arkadaşlar.Blog ve Web Sitemde yayınladığım C#,VisualBasic.NET,Asp.NET,Ado.NET,Sql,Ajax makalelerin daha önce 1. ve 2. kısımlarını e-kitap halinde yayınlamıştım. Şimdi de sitede yayınlanan e makalelerin derlemesi 3. kısım olarak e-kitap olarak yayınlıyorum.
Sql Veritabanına Binary Image Eklemek ve Eklenen Image’i GridView’da Göstermek Merhaba arkadaşlar bu makalemizde Sql veritabanımıza binary olarak image ekleyeceğiz ve veritabanımıza eklediğimiz binary image ları GridView’da göstereceğiz. Sayfamıza FileUpload, GridView ve buton ekliyoruz. FileUpload da seçilen image ları veritabanına kaydediyoruz.
ListBox’ta Seçili Verileri Veritabanına Kaydetmek Merhaba arkadaşlar bu makalemizde ListBox’ta seçeceğimiz itemleri Sql veritabanımıza kaydedeceğiz. Listbox’ta çoklu seçim yapabilmemiz için Listbox’ın Selection Mode özelliğini MultiSimple olarak ayarlayın. Formumuza 1 adet ListBox ve Button ekliyoruz.
GridView da Otomatik Numara Vermek Merhaba arkadaşlar bu makalemizde GridView da veri göstereceğimiz satırlara otomatik olarak sıra numarası vereceğiz. Önce GridView ın AutoGenerateColumns="false" yapınız. GridView ın ItemTemplate içersine ;
GridView da Seçili CheckBox taki Satırlardaki Veriyi MesajBox ta Göstermek Merhaba arkadaşlar bu makalemizde GridView daki seçili checkbox’lardaki verileri mesajBox ta göstereceğiz.
CSV Dosyasından Okuma Yapmak Merhaba arkadaşlar bu makalemizde CSV formatındaki dosyamızdan kriterimize göre aradığımız verileri ListBox ta listelenmesini sağlayacağız. Bu örneğimizde yazarların kitaplarının fiyatına göre arama yapacağız.
DataGridView Kullanımı Merhaba arkadaşlar bu makalemizde DataGridView kullanımı ile ilgili bir örnek uygulama yapacağız ve ve nesnenin özelliklerine bakacağız.
ListView Kullanımı ve CheckBox İle Seçili Satır Bilgisini MesajBox ta Göstermek Merhaba arkadaşlar bu örnekte ListView nesnesinde gösterdiğimiz CheckBox sütunundaki checkbox seçildiğinde seçili satırın bilgilerini Mesajbox ta gösterimini sağlayacağız.
Çalışma Anında GridView da Sütun Gizlemek Merhaba arkadaşlar bu makalemizde çalışma anında GridView nesnesindeki kitap sütununu gizleyeceğiz. Sayfamıza 1 adet Checkbox ve Gridview ekliyoruz. CheckBox ın AutoPostBack="true" özelliğini true ve GridView ın AutoGenerateColumns="false" özelliğini false yapın.
DataGridView da Seçili Satırların Silinmesi Merhaba arkadaşlar bu makalemizde dataGridView nesnesinde seçeceğimiz çoklu satırların silme işlemini gerçekleştireceğiz. Çoklu seçim yapabilmeniz için Ctrl + sol tuşa tıklayın.
GridView’daki Verileri Word’e Aktarmak Merhaba arkadaşlar bu makalemizde GridView’daki verileri Word belgesine aktaracağız. Sayfanıza GridView ve button ekleyin. Button’un içerisine Word’e aktarımı sağlayacak olan aşağıdaki kodları yazın.
Chart Kullanımı Merhaba arkadaşlar bu makalemizde DataGridView satırlarındaki bilgileri Chart kullanarak grafiksel olarak göstereceğiz. Formunuza datagridview ve chart nesnesi ekleyin. Chart Series teki ismi personel olarak değiştirin.
Asp.net te Profil Kullanımı Merhaba arkadaşlar bu makalemizde asp.net te profil kullanımı örneği yapacağız. web.config dosyasına...
DataGridView a Satır Ekleme ve Seçili Satırı Silme Merhaba arkadaşlar bu makalemizde textbox a girilen verileri dataGridView nesnesine satır olarak ekleyeceğiz. Ayrıca dataGridView nesnesinde seçili olan satırı silme işlemini gerçekleştireceğiz.
GridView da Seçili Satır Bilgisini DetailsView da Göstermek Merhaba arkadaşlar bu makalemizde GridView seçili satırdaki bilgileri DetailsView da göstereceğiz. İlk önce projemize GridView ve DetailsView ekleyin ve AutoGenerateRows="False" özelliklerini false yapın.
Repeater Kullanımı ve Sütundaki Satırların Fontunun ve Renginin Değiştirilmesi Merhaba arkadaşlar bu makalemizde Repeater kullanımına örnek vereceğiz. Repeater nesnesindeki her bir sütundaki satırların fontunu ve rengini değiştireceğiz.
GridView da ImageField Kullanımı Merhaba arkadaşlar bu makalemizde ImageField kullanarak GridView nesnesinde resim göstereceğiz. GridView nesnesinin AutoGenerateColumns özelliğini AutoGenerateColumns="False" yapın.
GridView da Seçili CheckBox Sütun Değerlerini Toplamak Merhaba arkadaşlar bu makalemizde GridView nesnesine CheckBox ekleyeceğiz. Bu örnekte seçili CheckBox ın bulunduğu Fiyat sütunundaki değerleri toplayacağız. Projenize GridView, Label ve Button ekleyin.
Cümle İçerisindeki Kelimeleri Saymak Merhaba arkadaşlar bu makalemizde InputBox a girilmiş olan cümlenin içerisinde kaç adet kelime olduğunu öğreneceğiz.
GridView da Karakter Sınırlama Merhaba arkadaşlar bu makalemizde GridView sütunlarındaki karakterleri sınırlayacağız. Bu örnekte 10 karakterden sonrası karakterler “…” şeklinde gösterilecek. Bunu GridView nesnesinin RowDataBound olayına yazılacak kod ile sağlayacağız.
Ajax Control Toolkit Kurulumu Merhaba arkadaşlar bu makalemizde Ajax Control Toolkit araçlarını Toolbox a ekleyeceğiz.İlk önce aşağıdaki linkten Ajax Control Toolkit .NET 4.5 i indirin.
CheckBoxList Örneği Merhaba arkadaşlar bu makalemizde CheckBoxList ile ilgili bir örnek yapacağız. Sql veritabanını kullanarak veritabanındaki dataları CheckBoxList e bağlayacağız.
DataGridView da Kayıt Arama ve TextBox a Aktarma Merhaba arkadaşlar bu makalemizde dataGridView nesnesinde Id numarasına göre arama yapacağız. Bir önceki, bir sonraki, ilk kayıt veya son kayıta gitmek için formumuza buttonlar ekleyeceğiz. Ayrıca kayıtlar arasında gezerken dataGridView da seçili satırdaki dataları textbox ta göstereceğiz.
GridView Nesnesindeki Verileri ve Resimleri Excele Aktarmak Merhaba arkadaşlar bu makalemizde GridView nesnesindeki verileri resimler ile birlikte excel dosyaya aktaracağız.
ListBox a Kayıt Ekleme ve Aynı Kayıt Girişini Engelleme Merhaba arkadaşlar bu makalemizde ListBox nesnesine yeni kayıt ekleyeceğiz. Ayrıca ListBox ta bulunan kayıtları kontrol ederek aynı kayıt girişinin olmasını engelleyeceğiz.
ProgressBar İle Birlikte Dosya Kopyalama Örneği Merhaba arkadaşlar bu makalemizde progressbar ile birlikte dosya kopyalama ile ilgili bir örnek yapacağız. OpenFileDialog ile seçtiğimiz dosyayı kopyalarken kopyalama yüzdesi ve kopyalama boyutunu da ekran da göstereceğiz.
GridView Nesnesinde Kayıt Arama Merhaba arkadaşlar bu makalemizde Gridview nesnesinde arama işlemi gerçekleştireceğiz. Textbox a yazılan değeri Gridview da aratacağız.
TextBox ta Otomatik Tamamlama İşlemi Merhaba arkadaşlar bu makalemizde javascript kodlarını kullanarak TextBox’ta otomatik tamamlama işlemini gerçekleştireceğiz. Genelde arama motorlarında da benzeri şekilde sıkça kullanılan ve kullanışlı bir kod parçacığıdır.
CheckBoxList Kullanımı Merhaba arkadaşlar bu makalemizde Asp.net te CheckBoxList kullanımı ile ilgili basit bir örnek yapacağız.
DetailsView Nesnesinde Yeni Kayıt Girişi, Güncelleme ve Silme İşlemleri Merhaba arkadaşlar bu makalemizde DetailsView da kayıt işlemi, kayıt güncelleme ve silme işlemlerinin nasıl yapıldığını göreceğiz. DetailsView nesnesinde sayfalama için AllowPaging özelliğini AllowPaging="true" ve yine DetailsView nesnesinin AutoGenerateRows özelliğini de AutoGenerateRows="false" yapın.
GridView Nesnesinde Aranan String in Satır Rengini Değiştirmek Merhaba arkadaşlar bu makalemizde TextBox a girilen string in bulunduğu GridView satırlarının rengini değiştireceğiz. Ayrıca Department sütunundaki R ile başlayan verilerin satır rengini de farklı renk yapacağız.
GridView da JavaScript Kullanarak Checkbox Onaylama Merhaba arkadaşlar, bu Javascript kullanarak Checkbox seçili olup olmadığı durumunu kontrol edeceğiz.
GridView Nesnesinde Sütundaki Verileri Toplama Merhaba arkadaşlar bu makalemizde GridView nesnesinde Quantity sütunundaki değerleri toplamını alt kısma yazdıracağız. Gridview nesnesinin AutoGenerateColumns özelliğini false yapın.
GridView Nesnesinde Kayıt Arama Merhaba arkadaşlar bu makalemizde textBox a gireceğimiz Adı GridView nesnesinde aratacağız. Bu örnekte Ad sütununa göre aramayı yapacağız.
GridView Nesnesinde Seçili CheckBox Satırların Silinmesi Merhaba arkadaşlar bu makalemizde Gridview nesnesine checkbox ekleyerek, seçili checkbox satırlarının isteğe bağlı olarak silinmesini sağlayacağız.
GridView Nesnesine Boş Satır Ekleme Merhaba arkadaşlar bu makalemizde GridView nesnesinde veritabanında ki verileri göstereceğiz. ProducId ye göre kategorilendirme yapacağız ve kategorilendirirken aralara boş satır ekleyeceğiz.
GridView Nesnesine Otomatik Satır Numarası Ekleme Merhaba arkadaşlar bu makalemizde GridView nesnesine PNo sütunu ekleyerek otomatik satır numarasının yazılmasını sağlayacağız.
GridView Nesnesinde Seçili CheckBox Satırlarının Gösterimi Merhaba arkadaşlar bu makalemizde GridView nesnesinde seçili CheckBox taki satırları alarak dinamik olarak oluşturacağımız diğer bir GridView nesnesinde gösterimini sağlayacağız.
GridView Nesnesinde Dinamik Olarak Resim Gösterimi Merhaba arkadaşlar bu makalemizde GridView nesnesine dinamik olarak resim ve string girişi yapacağız. Şimdi projemize 3 adet TextBox, 1 adet FileuPload ve GridView ekleyelim.
GridView Nesnesinde Sütunlarda Arama Yapmak Merhaba arkadaşlar bu makalemizde GridView nesnesinde sütunların altındaki textboxlara gireceğimiz stringleri o sütunda arayacağız. Bunun için java kodlarından yararlanacağız.
Image Üzerinde ElevateZoom u Kullanarak Zoomlama İşlemi Gerçekleştirme Merhaba arkadaşlar bu makalemizde Resim üzerine elevateZoom kullanarak zoomlamayı göstereceğiz.
DataGridView Kontrolünde Kayıt Arama Merhaba arkadaşlar bu makalemizde DataGridView kontrolünde ki sutunlarda kayıt arayacağız. Bulunan kayıtın satır arka plan rengini değiştireceğiz.
GridView Nesnesi ve DropDownList Nesnesini Birlikte Kullanmak Merhaba arkadaşlar bu makalemizde DropDownList nesnesinde gösterilen kategorideki verileri GridView nesnesinde gösterimini sağlayacağız.
Excel de Arama Yapmak Merhaba arkadaşlar bu makalemizde Excel sayfamızdaki Ad sütununa göre arama işlemi yapacağız. Excel sayfanızı Şekil 1 de olduğu gibi oluşturun.
DataGridView Satırlarını Koşullu Olarak Renklendirme Merhaba arkadaşlar bu makalemizde tablomuzdaki puan sütunundaki değerlere göre koşullu sorgulama yaparak, DataGridView kontrolümüzde ki satırların arka plan ve yazı renklerini değiştireceğiz.
GridView Nesnesinde Seçili CheckBox Satırlarının Silinmesi Merhaba arkadaşlar bu makalemizde GridView nesnesinde seçili CheckBox taki satırları sileceğiz. Sayfamıza ilk önce GridView ve SqlDataSource ekleyin. Şekil 1 deki Advenced butonuna tıklayarak, Generate INSERT, UPDATE, and DELETE statements i seçiniz.
DataGridView da Link Sütunu Kullanmak Merhaba arkadaşlar. Bu makalemizde DataGridView nesnesinde sütunda link kullanımını anlatacağız.
GridView’daki Verileri Text Dosya’ya Aktarmak Merhaba arkadaşlar. Bu makalemizde GridView sütunlardaki verileri text dosya ya aktaracağız. GridView nesnemizin AutoGenerateColumns özelliğini AutoGenerateColumns="False" yapın.
GridView da HyperLink Kullanımı-2 Merhaba arkadaşlar. Bu makalemizde GridView nesnesi içerisindeki Hyperlink e tıkladığımızda ilgili satırdaki personele ait detayları Detais.aspx sayfasında gösterimini sağlayacağız.
DataList de Kategorileme Merhaba arkadaşlar. Bu makalemizde DataList ile ilgili örnek yapacağız. ItemTemplate, AlternatingItemTemplate kısımlarına tablodaki sütunları yan yana ekleyerek gösterimini sağlayacağız.
CheckBoxList Listesindeki Seçili Olanları Ekrana Yazdırmak Merhaba arkadaşlar. Bu makalemizde CheckBoxList listesindeki bilgilerin dropdown şeklinde göstermini sağlayacağız. Aşağı doğru açılır popup pencerede seçili checkbox taki personel isimlerini yazdıracağız.
GridView Alternatif Sütun Renkleri Merhaba arkadaşlar. Bu makalemizde Gridview nesnesinde sütunlarımızı alternatif renklerle renklendireceğiz.
DataGridView da CellClick Olayı Merhaba arkadaşlar. Bu makalemizde Datagridview CellClick olayına örnek vereceğiz. Bu örnekte Datagridview da tıklanılan satırın tümünün seçilmesini, satır renginin değiştirilmesini ve seçili satırın bilgilerinin Messagebox ta gösterimini sağlayacağız.
BindingNavigator Kullanımı Merhaba arkadaşlar. Bu makalemizde BindingNavigator kullanarak veritabanında ki kayıtlar arasında gezinti yapacağız. Formumuza 1 tane BindingNavigator, BindingSource ve 5 tane TextBox, Label ekleyin.
GridView da Button Kullanarak Satır Ekleme Merhaba arkadaşlar. Bu makalemizde GridView nesnesine eklediğimiz Button a tıkladığımızda GridView a satır ekleyeceğiz. GridView nesnesinin AutoGenerateColumns="False" yapın.
Cümle İçerisindeki Boşluk Sayısını Almak Merhaba arkadaşlar. Bu makalemizde cümle içerisinde geçen boşluk sayısını öğreneceğiz. Aynı şekilde, Split(str, "bu kısıma sayılacak kelimeyi yazınız.") kod kısmına sayılacak kelime yazılarak, cümle içerisinde kaç kere yazıldığı öğrenilebilinir.
GridView da Seçili Olan Satırları Aktarmak Merhaba arkadaşlar bu makalemizde Gridview nesnesinde seçili Checkbox taki satırları İkinci Gridview nesnesine aktaracağız.
GridView da Seçili Sütunları Excel e Aktarmak Merhaba arkadaşlar bu makalemizde Gridview nesnesinde seçili sütunları excel e aktaracağız. Gridview nesnesinde otomatik sütun eklemeyi AutoGenerateColumns = "False" yapın.
Asp.Net te Geri Sayım Uygulaması Merhaba arkadaşlar. Bu makalemizde timer kullanarak geri sayım işlemini gerçekleştireceğiz. Projenize ScriptManager,Timer ve Label ekleyin.
Karakter Sayımı Merhaba arkadaşlar. Bu makalemizde Textbox alanındaki a harfinin kaç kez geçtiğini sayarak mesaj olarak yazdıracağız.
DataGridView Seçili Hücrenin Sütun Başlığını Almak Merhaba arkadaşlar. Bu makalemizde datagridview nesnesinde seçili hücrenin sütun başlığını alacağız.
GridView da TextBox Kullanımı Merhaba arkadaşlar. Bu makalemizde GridView nesnesinde TextBox alanın nasıl kullanıldığını göreceğiz.
DataGridView Nesnesinde Kayıt Arama Merhaba arkadaşlar. Bu makalede DataGridView nesnesinde ilk ada göre arama yapılıp, kişinin işini mesaj olarak ekrana yazılmasını sağlayacağız.
GridView daki Sütuna Otomatik Olarak Numara Verilmesini Sağlamak Merhaba arkadaşlar. Bu makalede GridView nesnesindeki ID sütununa otomatik olarak numara verilmesini sağlayacağız. Gridview nesnesinin Columns alanına aşağıdaki kodda belirtilen ItemTemplateyi ekleyeceğiz.
GridView daki Null Kısımları Doldurmak Selam arkadaşlar. Bu makalede GridView nesnesinde Null olan alanları ItemTemplate metodunu kullanarak bu boş alanlara “Kayıt Yok!” yazısını yazacağız.
ProgressBar Kullanımı Merhaba arkadaşlar. ProgressBar ile ilgili örnek yapacağız. Formumuza 1 adet Timer ekleyin.
Stringdeki Boşlukları Kaldırmak Merhaba arkadaşlar.Bu örnekte string içerisindeki boşlukları kaldıracağız. Bunun için Replace () metodunu kullanacağız.
TextBoxta Arama Yapmak Merhaba arkadaşlar. Bu makalemizde TextBox nesnesinde arama yapacağız. Formumuza 2 tane Textbox ve 1 tane buton ekliyoruz.
ListBoxta Birden Fazla Seçili Olan Verileri Almak Merhaba arkadaşlar. Bu makalemizde ListBox listesinde çoklu seçili olan itemleri Label nesnesine yazdıracağız. İlk önce projenize ListBox, Button ve Label ekleyin.
Gridview daki Bilgileri Excel e Aktarma Merhaba arkadaşlar. Bu makalemizde GridView nesnesindeki verileri Excel dosyasına aktaracağız.
GridView Nesnesinde Dinamik Sütun Ekleme Merhaba arkadaşlar, bu makalemizde Gridview nesnesine dinamik olarak sütun ekleyeceğiz. İlk önce Gridview nesnesinin AutoGenerateColumns değerini False yapın.
Programlama E-Kitap-2 Merhaba arkadaşlar, geçenlerde “500”. makalemizi yayınlamıştık. İlk dalyayı çektik. Bunun şerefine programlama ile ilgili 2. e kitabımı yayınlıyorum. Nice 500 makalelerde buluşmak üzere.
Otomatik Kelime Tamamlama Merhaba arkadaşlar. Bu makalemizde Google arama motorundaki gibi Textbox a girilen kelimeyi otomatik olarak tamamlatacağız.
Kelime Ayırma Merhaba arkadaşlar. Aşağıdaki küçük kod parçasıyla cümlenin içerisindeki kelimeleri ayırıp alabilirsiniz.
CheckBox Kullanarak GridView Nesnesinde Tüm Satırları Seçmek Merhaba arkadaşlar. Bu makalemizde GridView nesnesinin HeaderTemplate kısmına koyacağımız CheckBox ı kullanarak çoklu seçim yapacağız.
Start ve Kill İşlemleri Merhaba arkadaşlar. Bu makalemizde Start ve Kill işlemlerini anlatacağız. Start metodunu kullanarak notepad, word, web sayfası gibi uygulamaları açabileceğiz.
Konsolda Renkli Yazdırma Merhaba arkadaşlar. Bu makalemizde konsoldaki yazıları farklı renklerde yazdıracağız. Projectinize using System.Runtime.InteropServices; class ını ekleyin.
GridView ve FormView Nesnelerini Birlikte Kullanmak Herkese selamlar. Bu makalemizde GridView FormView nesnesini birlikte kullanacağız. Sayfamıza GridView, FormView ve 2 adet SqlDataSource ekleyeceğiz.
GridView ve DetailsView Nesnelerini Birlikte Kullanmak Herkese selamlar. Bu makalemizde GridView ve DetailsView nesnesini birlikte kullanacağız. Sayfamıza GridView, DetailsView ve 2 adet SqlDataSource ekleyeceğiz.
DetailsView DropDownList Kullanımı Herkese Selam. Bu makalemizde DropDownList deki Üretimlere ait detayları DetailsView da göstereceğiz.
Excel Sayfasındaki Sütundaki Verileri ListBoxta Göstermek Herkese selamlar. Bu örneğimizde Excel sayfasındaki verileri listboxta gösterimini sağlayacağız. İlk önce Formunuza Button ve OpenFileDialog ekleyin.
GridView da HyperLink Kullanımı Herkese selamlar. Bu makalemizde GridView nesnesinde Hyperlink kullanımına örnek vereceğiz. Veritabanınızdaki tablonuzu Şekil 1 deki gibi oluşturun. Hyperlinkimizi, TemplateField daki ItemTemplate kısmına ekliyoruz.
dataGridView Nesnesinde Sütun Başlıklarını Dikey Yazdırma Merhaba. DataGridView nesnemizdeki sütun başlıklarını dikey konumda yazılmasını sağlayacağız. Bunun için dataGridView1_CellPainting kısmına aşağıdaki kodları yazın.
ListBox ta Tekrarlanan Satırların Silinmesi Merhaba arkadaşlar, bu makalemizde ListBox nesnesinde tekrarlanan satırların görünmemesini sağlayacağız.
Veritabanındaki Tabloları Birleştirip DataGridView da Göstermek Bu makalemizde veritabanımızda bulunan iki farklı tablodaki bilgileri birleştirip, dataGridView da göstereceğiz.
DetailsView ile Birlikte DropDownList Nesnesi Kullanımı Merhaba arkadaşlar, bu makalemizde dropdownlist de seçili items e ait detay bilgilerini, DetailsView nesnemizde göstereceğiz.
GridView de HyperLink Kullanımı Merhaba arkadaşlar, ilk önce Gridview nesnemize HyperLinkField alanı ekleyeceğiz.
DataGridView Nesnesine Satır Ekleme Merhaba arkadaşlar, bu makalemizde DataGridView nesnemize satır eklemeyi anlatacağız. Detaylı açıklamalar kod kısmında verilmiştir.
Adrotator ile Web Reklam Uygulaması Merhaba arkadaşlar, bu makalede AdRotator ile Web reklam uygulamasını göreceğiz. İlk önce adrotator.xml dosyasını aşağıdaki gibi oluşturun.
Dosya Kopyalama,Taşıma ve Silme İşlemleri Merhaba arkadaşlar, bu makalede Directory, dosya kopyalama, taşıma ve silme işlemlerini göreceğiz. İlk önce class kısmına using System.IO; ekleyin.
ComboBox Nesnesinde Otomatik Tamamlama İlk önce Şekil 1 deki gibi comboBox1.AutoCompleteMode = AutoCompleteMode.SuggestAppend; olarak seçin. Daha sonra ComboBox nesnesinin AutoCompleteSource i AutoCompleteSource.CustomSource; seçiyoruz.
Word Belgesinde Arama Yapmak Bu makalemizde Word belgesinde arama yapacağız. Bu işlemi Selection nesnesinin Find metodu ile gerçekleştireceğiz.
Word Belgesine Bilgi Girme Bu makalemizde Word belgesi oluşturmayı göreceğiz. Oluşturduğumuz Word belgesine veri girişi yapacağız. İlk önce Microsoft Word 12.0 Object Library referansını projemize eklememiz gerekiyor.
Programlama E-Kitap Merhaba arkadaşlar. Blog ve Web Sitemde yayınladığım C#,VisualBasic.NET, Asp.NET,Ado.NET,Sql,Ajax makalelerin bir kısmını e-kitap haline getirdim. Bu kitap, son 1 yılda yayınlamış olduğum makaleleri içermektedir.
GridView HyperLink Kullanımı Merhaba arkadaşlar. Bir Asp.Net makalesinde daha birlikteyiz. Bu makalemizde GridView nesnesinde HyperLink kullanımını göreceğiz.
DataTable da Veri Düzenlemek Merhaba arkadaşlar. Bu makalede projemizde tanımlayacağımız DataTable de, satır silme ve satır düzenleme işlemlerini göreceğiz. Satır düzenlerken BeginEdit(), EndEdit() özelliklerini kullanacağız.
CheckedListBox ile Veritabanı Bağlantısı Merhaba arkadaşlar. Yeni bir makalede yine birlikteyiz. Veritabanımızdaki verileri CheckedListBox nesnesinde göstereceğiz. Daha sonra CheckedListBox ta seçtiğimiz satırları ListBox a aktaracağız.
Xml Bilgilerini TreeView Nesnesinde Göstermek Merhaba arkadaşlar. Yeni bir makalede yine sizlerle birlikteyiz. Bu makalemizde Xml dosyamızdaki bilgileri TreeView nesnesinde göstereceğiz. Bunun için ilk yapmamız gereken TreeView nesnemizi Xml dosyasına bağlamak. Bunuda XmlDataSource ile yapacağız.
Dosya Bilgilerinin Alınması Merhaba arkadaşlar. Bu makalemizde WalPaper adlı dosyadaki jpeg resimlere ait bilgileri alacağız. Oluşturacağınız ConsoleApplication dosyasına aşağıdaki kodları yazın.
Access Veritabanına Kayıt ve Kayıt Girişi Kontrolü Merhaba arkadaşlar. Bu makalemizde Access veritabanına kayıt girişi yaparken girilen verilerin veritabanımızda kayıtlı olup olmadığını kontrolünü yapacağız.
Session Okuma ve Yazma İşlemleri Merhaba arkadaşlar. Yeni bir makalede yine birlikteyiz. Bu makalemizde Session konusunu inceleyeceğiz. Session a ilk önce yazıp, yine daha sonra session nesnesinden okuyacağız.
Sql Veritabanında Kayıt Ekleme, Silme,Güncelleme İşlemleri Bu makalemizde Sql veritabanımızda kayıt ekleme, kayıt silme ve girilen kayıtların güncelleştirilmesi konusunu göreceğiz.
Çalışma Anında Form, Button, Label Oluşturmak İlk önce Form1 inize Button nesnesi ekleyin. Button1_Click() olayına aşağıdaki kodları yazacağız.Bir makalenin daha sonuna geldik. Bir sonraki makalede görüşmek dileğiyle. Hoşçakalın. Bahadır ŞAHİN
Sql Kayıt İşlemleri Merhaba arkadaşlar. Bu makalemizde Sql veritabanına kayıt işlemini gerçekleştireceğiz. İlk önce giris.mdf sql veritabanını oluşturun. Daha sonra Şekil 2 deki gibi kayitlar tablosunun parametrelerini oluşturun.
Cookie Oluşturma-2 Oluşturduğumuz Ad isimli Cookie ye isim değeri atıyoruz. Cookie nin bitiş zamanını 20 dakika sonraya ayarlıyoruz.Bir makalenin daha sonuna geldik. Bir sonraki makalede görüşmek dileğiyle. Hoşçakalın. Bahadır ŞAHİN
Günün Saatine Göre Mesaj Vermek Oluşturduğumuz Console da günün değişik saatlerine göre mesaj verdireceğiz. Imports System i konsol a eklemeyi unutmayın. Bir makalenin daha sonuna geldik. Bir sonraki makalede görüşmek dileğiyle. Hoşçakalın. Bahadır ŞAHİN
Word Belgesi Oluşturmak Bu makalemizde Word belgesi oluşturmayı göreceğiz. İlk önce Microsoft Word 12.0 Object Library referansını projemize eklememiz gerekiyor. Bunun için; Solution Explorer penceresi üzerinde
Ziyaretçi İstatistiklerini Almak Web sayfamızı ziyaret eden ziyaretçilerin hangi sayfalara girdikleri, ip numaralarını, giriş tarihlerini, hangi tarayıcı kullandıklarını kaydedeceğiz. Bunun için Global.asax ta Application_BeginRequest(object sender, EventArgs e) e aşağıdaki kodları yazacağız.
Form daki CheckBox ların Seçimini Topluca Kaldırma Merhaba arkadaşlar, formumuzda bulunan 100 lerce seçili CheckBox ın seçili durumunu tek tek kaldırmanın ne kadar zor olduğunu hepimiz biliyoruz.100 lerce veya 1000 lerce içi dolu TextBoxlar ın içeriğini değiştirmek veya temizlemek çok zor bir iştir. Bu zorluklardan küçük bir kod parçasıyla kurtulacağız.
Access Veritabanından Excel Dosyaya Aktarım Merhaba arkadaşlar, önceki makalelerde Excel sayfasının Access veritabanına aktarımını görmüştük. Bu makalemizde ise Access veritabanımızdaki dataları, Excel sayfasına nasıl ekleyebileceğimiz konusunu göreceğiz.
Formu Kapatma (Form Keydown Olayı) Merhaba arkadaşlar, Formumuzun Keydown yordamına yazacağımız kodla F10 tuşuna basarak formumuzu kapatacağız...
Excel Sayfasını Access Veritabanına Aktarmak Merhaba arkadaşlar, bugün Excel sayfasındaki verileri, Access veritabanımıza nasıl ekleyebileceğimiz konusunu göreceğiz. İlk önce Solution Explorer a sağ tıkla. Add Reference tıkla. Daha sonra COM kısmından Microsoft Excel 12.0 Object Library dosyasını seçip, OK e tıkla. Böylece Excel Library dosyasını projemize eklemiş olduk.
ListView daki Verileri Excel e Aktarmak Arkadaşlar bu makalemizde ListView nesnesindeki verileri Excel dosyasına kaydedeceğiz. İlk önce Solution Explorer a sağ tıkla. Add Reference tıkla.
Formunuzu Çift Renkli Yapın Formumuza Şekil 1 deki gibi renk verebiliriz. Bunun için LinearGradientBrush metodu ile iki rengi fırça darbeleriyle karıştıracağız. Formun Paint yordamına aşağıdaki kodları yazın.
Kayıt Girişi ve Kullanıcı Kontrol Bu makalemizde, Sql komutu olan Insert Into metodu ile veritabanına kayıt gireceğiz. Ayrıca veritabanındaki kayıtları Ad ve Soyad a göre kontrol edip mükerrer kayıt işlemi olmasını engelleyeceğiz. Veritabanındaki PersonelListesi tablomuz Şekil 1 deki gibidir.
Repeater Kullanımı Repeater, Database deki verilerin gösteriminde kullanılan en yaygın nesnelerden biridir. Bu nesnede uygulamamızda da görebileceğiniz gibi; < HeaderTemplate > < / HeaderTemplate > kısmına Repeater in sütun başlıklarını oluştururuz.
Text Dosyaya Kayıt ve Text Dosyadan Okuma Formumuzdaki TextBoxlara girilen bilgileri test2.txt text dosyasına kaydeceğiz. Daha sonra test2 text teki kayıtları ListBox nesnesinde gösterimini sağlıyacağız.
ListBoxtaki Itemleri Renklendirme Merhaba Arkadaşlar bu makalemizde Listbox taki itemleri değişik renklerde olmasını sağlayacağız. Bunun için Listbox DrawItem e aşağıdaki kodları yazmamız gerekiyor.
Birden Fazla TextBox a Aynı Anda Çoklu Yazdırmak Merhaba Arkadaşlar bu makalemizde dinamik olarak oluşturduğumuz 10 adet TextBox a aynı anda yazdıracağız.
Process Kill Metodu Merhaba Arkadaşlar, bu makalemizde Kill metodu ile Explorer , NotePad uygulamalarının nasıl sonlandırıldığını göreceğiz.
ListView da Arama Yapmak Merhaba Arkadaşlar, bu makalemizde TextBox a girmiş olduğumuz stringi ListView nesnesinde aratacağız. Bu örnekte Ürün Adına göre arama yapacağız. Formunuzu Şekil 1 deki gibi oluşturun.
Rezervasyon Kayıt, Referans ID Uygulaması Merhaba Arkadaşlar, önceki makalelerde 8 karakterli Referans ID nin nasıl atandığını, küçük bir uygulama ile göstermiştim. Şimdi de rezervasyon kayıt sisteminde kullanım şeklini göstereceğim. 2 sayfamız var bunlardan birincisi bilgi girişi yaptığımız formun bulunduğu sayfa, 2. Sayfa da kayıt sayfası.
Kayıt Arama Merhaba Arkadaşlar 1 haftalık tatilden sonra tekrar sizlerle birlikteyiz. Bu makalemizde veritabanımızda kayıtlar arasında id nosu na veya Ad a göre arama yapacağız. Formumuza 7 adet TextBox,2 adet RadioButton , GroupBox ve 1 adet Button ekleyin.
Html Kodu Almak Bu örneğimizle istediğimiz sitenin html kodunu öğreneceğiz. Şekil 1 deki gibi formunuzu oluşturun. Formunuza 1 adet WebBrowser, Combobox, 2 adet Button ekleyin. Form1.cs using System; using System.Collections.Generic; using System.ComponentModel; using System.Data; using System.Drawing; using System.Linq; using System.Text; using System.Windows.Forms;
VisualStudio.NET Form Özellikleri Windows tabanlı uygulamaların DOS tabanlı uygulamalardan en büyük farkı formlardır. karşınızda duran siyah renkli bir ekranda beyaz yazılar üzerinde göz bozarak saatlerce çalışmak yerine Windows tabanlı programlamanın keyfine vardığımızı yaşatan en büyük nesnemiz Formlardır. Forma ait özellikler ve bu özelliklerin açıklamaları aşağıdaki gibidir ; Name : Bu özellik formumuzun adını belirtir. programın içindeki her nesnenin birbirinden
Ekran Çözünürlüğünü Bulmak Bu makalede ekran çözünürlüğünü ve işlemci bit sayısını bulacağız. Aşağıdaki kodları Formunuza yazın. Form1.cs using System; using System.Collections.Generic; using System.ComponentModel; using System.Data; using System.Drawing; using System.Linq; using System.Text; using System.Windows.Forms; namespace WindowsFormsApplication1 {
TextBox ta Satır Numarasını Bulmak Bu makalemizde Textbox nesnesinde imlecin bulunduğu satırın indeksini alacağız. Bununiçin MouseClick yordamına aşağıdaki kodları yazacağız. Şekil 1 i inceleyin. Not: Satır numarası 0 dan başlayarak gidiyor...
Formun Kapat Tuşunu Etkisiz Hale Getirmek Forma ait üst menüdeki kapat tuşunu etkisiz hale getireceğiz. Bunun için GetSystemMenu, EnableMenuItem library dosyalarından yararlanacağız. Aşağıdaki Şekil 1 i inceleyin. Public Class Form1 Public Class CloseButton Private Declare Function GetSystemMenu Lib "user32" (ByVal hwnd As Integer, ByVal revert As Integer) As Integer Private Declare Function EnableMenuItem Lib "user32" (ByVal menu As Integer, ByVal ideEnableItem As Integer, ByVal enable As Integer) As Integer Private Const SC_CLOSE As Integer = &HF060 Private Const MF_BYCOMMAND As Integer = &H0 Private Const MF_GRAYED As Integer = &H1 Private Const MF_ENABLED As Integer = &H0 Public Shared Sub Disable(ByVal form As System.Windows.Forms.Form)
Forma Grafik Metodu ile Yazı Yazmak Bu örnekte formumuzun üzerine yazı yazacağız. Bunun için DrawString metodundan faydalanacağız. using System; using System.Collections.Generic; using System.ComponentModel; using System.Data; using System.Drawing; using System.Linq; using System.Text; using System.Windows.Forms; namespace WindowsFormsApplication1 { public partial class Form1 : Form { public Form1() { InitializeComponent(); Form form2 = new Form(); form2.Text = "String Yazım"; form2.BackColor = Color.White; form2.Paint += new PaintEventHandler(PaintHandler); Application.Run(form2); } static void PaintHandler(object objSender, PaintEventArgs pea) { Form form2 = (Form)objSender; Graphics graphics = pea.Graphics; graphics.DrawString("Merhaba Dünya!", form2.Font, Brushes.Black, 0, 0); } } } Bir makalenin daha sonuna geldik. Bir sonraki makalede görüşmek dileğiyle. Bahadır ŞAHİN
TextBox a Sadece Rakam Girmek Çalışma anında oluşturmuş olduğumuz textbox a sadece sayı girişi yapacağız. Bunun için onkeypress özelliğine aşağıdaki kodları yazıyoruz. Şekil 1 i inceleyin. using System; using System.Collections.Generic; using System.ComponentModel; using System.Data; using System.Drawing; using System.Linq; using System.Text; using System.Windows.Forms; namespace WindowsFormsApplication1 { public partial class Form1 : Form { private sayisaltxt textBox1; public Form1() { InitializeComponent(); this.textBox1 = new sayisaltxt(); this.SuspendLayout(); this.textBox1.Location = new System.Drawing.Point(20, 20); this.Controls.Add(this.textBox1); } public class sayisaltxt : TextBox { protected override void OnKeyPress(KeyPressEventArgs e) { if (!char.IsControl(e.KeyChar) && !char.IsDigit(e.KeyChar)) { e.Handled = true; MessageBox.Show("Sadece rakam girebilirsiniz...", "Uyarı"); } base.OnKeyPress(e); } } } } Bir sonraki makalede görüşmek üzere. Bahadır ŞAHİN
Linq OrderBy Kullanımı Bu örnekte linq metodu ile orderby kullanımını göreceğiz. Sıralı olmayan bir şekilde girilen harf dizisini,listbox ta sıralıyacağız. Aşağıdaki şekli inceleyin. using System; using System.Collections.Generic; using System.ComponentModel; using System.Data; using System.Drawing; using System.Linq; using System.Text; using System.Windows.Forms; namespace WindowsFormsApplication1 { public partial class Form1 : Form { public Form1() { InitializeComponent(); } private void Form1_Load(object sender, EventArgs e) { string[] liste = { "h", "d", "r", "b" }; var harf = from i in liste orderby i select i; foreach (var i in harf) { listBox1.Items.Add(i); } } } } //Bir sonraki makalede görüşmek üzere. Bahadır ŞAHİN
Cookie Oluşturma default.aspx ve login.aspx şeklinde iki sayfamız olsun. login.aspx sayfasından giriş yapan kullanıcının bilgisayarına cookie (çerez) oluşturacağız.
Linq Kullanımı Bu makalemizde Linq kullanımını anlatacağım. İlk önce Şekil 1 deki Sql veritabanımızı oluşturalım. 2. olarak Web Site > Add New Item kısmından LinQ to SQL Classes i projemize ekleyelim.
Mail Adresinize Otomatik Olarak Şifrenizin Gönderilmesi Bu makalemizde web sitesine kullanıcı adı ve şifre ile üye olduğunuzu düşünelim. Çoğu zaman kayıtlı olduğumuz siteye giriş yaparken şifremizi unutabiliriz.
Kullanıcı Login İşlemi Bu makalemizde sql veritabanında kayıtlı kullanıcıların sisteme nasıl giriş yapacağı konusunu işleyeceğiz. Oluşturduğunuz sql veritabanına giris.mdf ismini verin.
Sql Like Komutu Uygulaması Yazdığımız sql kod parçasındaki like komutuyla, Formumuzdaki TextBox a girilen harf karakterine göre DataGridView nesnemizde verileri göstereceğiz.
ListView Nesnesinde Çoklu Seçili CheckBox ların Veritabanından Silinmesi Formumuza 1 adet ListView nesnesi 1 adet Button ekleyin. İlk önce Access veritabanına bağlanıp, verilerimizi listview nesnesine gösterimini sağlıyoruz.
Şifreli Text Dosyasını Çözmek Bir önceki makalede Textbox a girilen stringi şifreledik ve sifreli.txt dosyası olarak kaydetmiştik. (Şekil1) Şimdi ise şifrelidiğimiz dosyadaki bilgileri tekrardan çözeceğiz. using System; using System.Collections.Generic; using System.ComponentModel; using System.Data; using System.Drawing; using System.Linq; using System.Text; using System.Windows.Forms; using System.IO; using System.Security.Cryptography; namespace WindowsFormsApplication1 { public partial class Form1 : Form { public Form1() { InitializeComponent(); } private void button1_Click(object sender, EventArgs e) { TripleDESCryptoServiceProvider tdes = new TripleDESCryptoServiceProvider(); FileStream fs = File.OpenRead(@"c:\sifreli.key"); BinaryReader br = new BinaryReader(fs); tdes.Key = br.ReadBytes(24); tdes.IV = br.ReadBytes(8); FileStream fstream = File.OpenRead(@"c:\sifreli.txt"); CryptoStream cs = new CryptoStream(fstream, tdes.CreateDecryptor(), CryptoStreamMode.Read); StreamReader sr = new StreamReader(cs); textBox1.Text = sr.ReadToEnd(); sr.Close(); } } } //Bir sonraki makalede görüşmek üzere. Bahadır ŞAHİN
Mouse Hareketleri Bu örneğimizde mouse un sol,orta, sağ tuşa tıklanıldığında veya klavyenin herhangi bir tuşuna tıklanıldığında, o tuşun ismini mesajla bildiren küçük bir program yapacağız. Aşağıdaki şekilleri inceleyin. using System; using System.Collections.Generic; using System.ComponentModel; using System.Data; using System.Drawing; using System.Text; using System.Windows.Forms; namespace WindowsFormsApplication1 { public partial class Form1 : Form { public Form1() { InitializeComponent(); this.MouseUp += new MouseEventHandler(OnMouseUp); this.MouseMove += new MouseEventHandler(OnMouseMove); this.KeyUp += new KeyEventHandler(OnKeyUp); CenterToScreen(); } private void Form1_Load(object sender, EventArgs e) { } protected void OnMouseUp(object sender, MouseEventArgs e) { if (e.Button == MouseButtons.Left) MessageBox.Show("Sol tuş tıklandı!"); else if (e.Button == MouseButtons.Right) MessageBox.Show("Sağ tuş tıklandı!"); else if (e.Button == MouseButtons.Middle) MessageBox.Show("Orta tuş tıklandı!"); } protected void OnMouseMove(object sender, MouseEventArgs e) { this.Text = "Mouse Şimdiki Pozisyon: (" + e.X + ", " + e.Y + ")"; } public void OnKeyUp(object sender, KeyEventArgs e) { MessageBox.Show(e.KeyCode.ToString(), "Klavyedeki tuşa tıklanıldı!"); } } } //Bir sonraki makalede görüşmek üzere. Bahadır ŞAHİN
Caps Lock Kontrolü Bu örnekte caps lock un açık olup olmadığını kontrol edeceğiz. Formunuzun keydown yordamına aşağıdaki kodları kopyalayınız. using System; using System.Collections.Generic; using System.ComponentModel; using System.Data; using System.Drawing; using System.Linq; using System.Text; using System.Windows.Forms; using Microsoft.VisualBasic.Devices; namespace WindowsFormsApplication1 { public partial class Form1 : Form { public Form1() { InitializeComponent(); this.KeyDown += Form1_KeyDown; } private void Form1_KeyDown(object sender, KeyEventArgs e) { Computer comp = new Computer(); Keyboard keyboard = comp.Keyboard; if (keyboard.CapsLock) { MessageBox.Show("CAPS LOCK AÇIK"); } else { MessageBox.Show("CAPS LOCK KAPALI"); } } } } //Bir sonraki makalede görüşmek üzere. Bahadır ŞAHİN
Alfabetik Sıralama Inputbox tan girilen isimleri, listbox ta alfabetik olarak sıralayacağız.Aşağıdaki şekilleri inceleyin Hatırlatma: Inputbox nesnesini kullanabilmek için; İlk önce Project kısmından Add Reference tıklayın. Daha sonra .Net kısmından Microsoft.VisualBasic i seçip OK e tıklayın. using System; using System.Collections.Generic; using System.ComponentModel; using System.Data; using System.Drawing; using System.Text; using System.Windows.Forms; namespace WindowsFormsApplication1 { public partial class Form1 : Form { public Form1() { InitializeComponent(); } private void button1_Click(object sender, EventArgs e) { string[] isim = new string[5]; string str; for (int i = 0; i < isim.Length; i++) { isim[i]= Microsoft.VisualBasic.Interaction.InputBox("Lütfen " + (i + 1) + " isim giriniz...", "Alfabetik sıralama ", "İsim giriniz...",20,20); } for (int i = 0; i < isim.Length; i++) { for (int j = i + 1; j < isim.Length; j++) { if (String.Compare(isim[i], isim[j]) > 0) { str = isim[i]; isim[i] = isim[j]; isim[j] = str; } } } for (int i = 0; i < isim.Length; i++) { listBox1.Items.Add(isim[i]); } } } } //Bir sonraki makalede görüşmek üzere. Bahadır ŞAHİN
Faktoriyel Hesaplama Bu örnekte textbox a girilen sayının faktoriyelini hesaplayacağız. using System; using System.Collections.Generic; using System.ComponentModel; using System.Data; using System.Drawing; using System.Text; using System.Windows.Forms; namespace WindowsApplication1 { public partial class Form1 : Form { public Form1() { InitializeComponent(); } private static long faktoriyel(int sayi) { if (sayi <= 1) return 1; else return sayi * faktoriyel(sayi - 1); } private void button1_Click(object sender, EventArgs e) { string sonuc = ""; int sayi = Convert.ToInt32(textBox1.Text); for (int i = 1; i <= sayi; i++) sonuc += i + "!= \t" + faktoriyel(i).ToString() + "\n"; MessageBox.Show(sonuc.ToString(), "Faktoriyel Hesabı"); } } } //Bir sonraki makalede görüşmek üzere. Bahadır ŞAHİN
Labele Resim Ekleme Bu makalemizde label nesnesinde resim göstereceğiz. Aşağıdaki şekli inceleyin. using System; using System.Collections.Generic; using System.ComponentModel; using System.Data; using System.Drawing; using System.Text; using System.Windows.Forms; namespace WindowsApplication1 { public partial class Form1 : Form { public Form1() { InitializeComponent(); Label label1 = new System.Windows.Forms.Label(); this.SuspendLayout(); label1.Image = new Bitmap("C:\\image.jpg"); label1.ImageAlign = System.Drawing.ContentAlignment.TopRight; label1.Location = new System.Drawing.Point(20, 9); label1.Name = "label1"; label1.Size = new System.Drawing.Size(100, 128); label1.TabIndex = 0; label1.Text = "Labele resim ekleme..Bahadır ŞAHİN"; label1.ForeColor = Color.White; this.Controls.Add(label1); this.Font = new System.Drawing.Font("Tahoma", 8.25F, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, ((byte)(0))); this.Text = "Labele Resim Ekleme"; this.ResumeLayout(false); } } } //Bir sonraki makalede görüşmek üzere. Bahadır ŞAHİN
Form Keydown Özelliği ile Form Kapatma Formunuzun keydown kısmına aşağıdaki kodları yazıp, X tuşuna basıldığı zaman formunuzu kapatabilirsiniz. using System; using System.Collections.Generic; using System.ComponentModel; using System.Data; using System.Drawing; using System.Text; using System.Windows.Forms; namespace WindowsApplication1 { public partial class Form1 : Form { public Form1() { InitializeComponent(); Text = "Çıkış için X e basın"; } protected override void OnKeyDown(KeyEventArgs keys) { if (keys.KeyCode == Keys.X) Close(); } } } //Bir sonraki makalede görüşmek üzere. Bahadır ŞAHİN
Windows Soundlarını Oynatmak Bu örnekte SystemSounds classındaki play metodu ile windowsun 5 sabit soundunu çaldıracağız. using System; using System.Collections.Generic; using System.ComponentModel; using System.Data; using System.Drawing; using System.Text; using System.Windows.Forms; namespace WindowsFormsApplication1 { public partial class Form1 : Form { public Form1() { InitializeComponent(); } private void button1_Click(object sender, EventArgs e) { System.Media.SystemSounds.Beep.Play(); /* veya System.Media.SystemSounds.Hand.Play(); veya System.Media.SystemSounds.Asterisk.Play(); veya System.Media.SystemSounds.Exclamation.Play(); veya System.Media.SystemSounds.Question.Play();*/ } } } //Bir sonraki makalede görüşmek üzere. Bahadır ŞAHİN
TrackBar ile Renk Kontrolü Formunuza 3 adet TrackBar,4 adet Label ve 1 adet Panel ekleyin. Aşağıdaki şekli inceleyin. using System; using System.Collections.Generic; using System.ComponentModel; using System.Data; using System.Drawing; using System.Text; using System.Windows.Forms; namespace WindowsApplication1 { public partial class Form1 : Form { public Form1() { InitializeComponent(); KirmiziTrackBar.BeginInit(); YesilTrackBar.BeginInit(); MaviTrackBar.BeginInit(); KirmiziTrackBar.Value = 0; YesilTrackBar.Value = 0; MaviTrackBar.Value = 0; KirmiziTrackBar.TickFrequency = 5; KirmiziTrackBar.TabIndex = 2; KirmiziTrackBar.Maximum = 255; KirmiziTrackBar.Scroll += new System.EventHandler(this.KirmiziTrackBar_Scroll); YesilTrackBar.TickFrequency = 5; YesilTrackBar.TabIndex = 2; YesilTrackBar.Maximum = 255; YesilTrackBar.Scroll += new System.EventHandler(this.KirmiziTrackBar_Scroll); MaviTrackBar.TickFrequency = 5; MaviTrackBar.TabIndex = 2; MaviTrackBar.Maximum = 255; MaviTrackBar.Scroll += new System.EventHandler(this.KirmiziTrackBar_Scroll); KirmiziTrackBar.EndInit(); YesilTrackBar.EndInit(); MaviTrackBar.EndInit(); renk_deger(); } private void KirmiziTrackBar_Scroll(object sender, EventArgs e) { renk_deger(); } private void YesilTrackBar_Scroll(object sender, EventArgs e) { renk_deger(); } private void MaviTrackBar_Scroll(object sender, EventArgs e) { renk_deger(); } private void renk_deger() { Color renk = Color.FromArgb(KirmiziTrackBar.Value, YesilTrackBar.Value, MaviTrackBar.Value); panel1.BackColor = renk; label4.Text = "Renk Değer: " + "(" + KirmiziTrackBar.Value + ", " + YesilTrackBar.Value + " ," + MaviTrackBar.Value + ")"; } } } //Bir sonraki makalede görüşmek üzere. Bahadır ŞAHİN
Win Api Kullanımı CLR tarafından yönetilmeyen kodlara erişebilmek için C# ta System.Runtime.InteropServices isim alanında bulunan ve DllImprtAttribute sınıfını temsil eden DllImport niteliği kullanılmaktadır. DllImport niteliği ile harici bir kaynakta bulunan metoda referans vermek için external anahtar sözcüğü kullanılır. Bir sınıf bildiriminin en başında external anahtar sözcüğü ve DllImport niteliği kullanılarak CLR tarafından yönetilmeyen bir metot bildirimi yapılır. Tabi metodun gövdesi harici bir kaynakta zaten var olduğu için bizim metodun gövdesini yazmamızın bir anlamı yoktur. Ardından bu metot sınıfın istenildiği yerinde kullanılabilir. Aşağıdaki Şekil 1 i inceleyin. using System; using System.Collections.Generic; using System.ComponentModel; using System.Data; using System.Drawing; using System.Text; using System.Windows.Forms; using System.Runtime.InteropServices; namespace WindowsApplication1 { public partial class Form1 : Form { [DllImport("user32.dll")] public static extern int MessageBox(int tip, string mesaj, string baslik, int secenek); public Form1() { InitializeComponent(); } private void Form1_Load(object sender, EventArgs e) { MessageBox(0, "Win api kullanımı...", "Win API Mesaj", 2); } } } //Bir sonraki makalede görüşmek üzere. Bahadır ŞAHİN
CheckedListBox ile Nesne Seçimi Bu örnekte çalışma anında CheckedListBox oluşturarak; oluşturulan CheckedListBox da checked=true olan itemi messagebox ta göstereceğiz. Aşağıdaki şekli inceleyin. using System; using System.Collections.Generic; using System.ComponentModel; using System.Data; using System.Drawing; using System.Text; using System.Windows.Forms; namespace WindowsApplication1 { public partial class Form1 : Form { internal System.Windows.Forms.CheckedListBox clistBox; public Form1() { InitializeComponent(); this.clistBox = new System.Windows.Forms.CheckedListBox(); this.SuspendLayout(); this.clistBox.Location = new System.Drawing.Point(8, 8); this.clistBox.Name = "clistBox"; this.clistBox.Size = new System.Drawing.Size(264, 196); this.clistBox.TabIndex = 2; this.AutoScaleBaseSize = new System.Drawing.Size(5, 14); this.ClientSize = new System.Drawing.Size(280, 218); this.Controls.AddRange(new System.Windows.Forms.Control[] { this.clistBox }); this.Font = new System.Drawing.Font("Tahoma", 8.25F, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, ((System.Byte)(0))); this.Name = "ListBoxObjects"; this.Text = "ListBox Nesne"; this.Load += new System.EventHandler(this.Form1_Load); this.clistBox.DoubleClick += new System.EventHandler(this.lstCustomers_DoubleClick); this.ResumeLayout(false); } private void Form1_Load(object sender, EventArgs e) { clistBox.Items.Clear(); clistBox.Items.Add(new Customer("Bahadır", "Şahin", DateTime.Now)); clistBox.Items.Add(new Customer("Haluk", "Akman", DateTime.Now)); clistBox.Items.Add(new Customer("Fatih", "Koç", DateTime.Now)); } public class Customer { public string Ad; public string Soyad; public DateTime Tarih; public Customer() { } public Customer(string ad, string soyad, DateTime tarih) { this.Ad = ad; this.Soyad = soyad; this.Tarih = tarih; } public override string ToString() { return Ad + " " + Soyad + " " + Tarih; } } private void lstCustomers_DoubleClick(object sender, EventArgs e) { { MessageBox.Show(Convert.ToString(clistBox.SelectedItem)); } } } } // Bir sonraki makalede görüşmek üzere. Bahadır ŞAHİN
Kare Şekli Oluşturmak Bu örnekte mouse un sol tuşuna tıklayarak form da istenildiği kadar kare şekli oluşturup, oluşturduğumuz kare sayısını label de göstereceğiz. Aşağıdaki şekli inceleyin. using System; using System.Collections.Generic; using System.ComponentModel; using System.Data; using System.Drawing; using System.Text; using System.Windows.Forms; namespace WindowsApplication1 { public partial class Form1 : Form { List< Rectangle > squares = new List< Rectangle >(); public Form1() { InitializeComponent(); this.AutoScaleDimensions = new System.Drawing.SizeF(6F, 13F); this.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font; this.ClientSize = new System.Drawing.Size(299, 272); this.Controls.Add(this.label1); this.Font = new System.Drawing.Font("Tahoma", 8.25F, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, ((byte)(0))); this.Name = "kare"; this.Text = "kare"; this.Paint += new System.Windows.Forms.PaintEventHandler(this.kare_Paint); this.MouseDown += new System.Windows.Forms.MouseEventHandler(this.kare_MouseDown); this.ResumeLayout(false); } private void kare_Paint(object sender, PaintEventArgs e) { Pen pen = new Pen(Color.Red, 10); foreach (Rectangle kare in squares) { e.Graphics.DrawRectangle(pen, kare); } pen.Dispose(); label1.Text = " " + squares.Count.ToString() + " kare"; } private void kare_MouseDown(object sender, MouseEventArgs e) { if (e.Button == MouseButtons.Left) { Rectangle square = new Rectangle(e.X, e.Y, 20, 20); squares.Add(square); square.Inflate(1, 1); Invalidate(square); } } } } //Bir sonraki makalede buluşmak üzere. Bahadır ŞAHİN
KeyPress Olayı Bu örnekte keypress olayını göreceğiz. Örneğimizde klavyemizdeki herhangi bir tuşa basıldığı zaman uyarı mesajı gelecek bir program yapacağız. using System; using System.Collections.Generic; using System.ComponentModel; using System.Data; using System.Drawing; using System.Text; using System.Windows.Forms; namespace WindowsApplication1 { public partial class Form1 : Form { public Form1() { InitializeComponent(); this.KeyPress += new System.Windows.Forms.KeyPressEventHandler(this.Form1_KeyPress); } private void Form1_KeyPress(object sender, System.Windows.Forms.KeyPressEventArgs e) { MessageBox.Show("Bir tuşa basıldı","Mesaj"); } } } //Bir sonraki makalede buluşmak üzere. Bahadır ŞAHİN
CheckBox Select-Unselect Olayları Bu örnekte checkbox ın seçili, seçili olmama durumlarındaki olayları inceleyeceğiz. Formunuza 3 adet checkbox, 1 adet label ekleyin. Aşağıdaki şekil1 i inceleyin. namespace WindowsApplication1 { public partial class Form1 : Form { public Form1() { InitializeComponent(); this.boldCheckBox.CheckedChanged += new System.EventHandler(this.boldCheckBox_CheckedChanged); this.italicCheckBox.CheckedChanged += new System.EventHandler(this.italicCheckBox_CheckedChanged); this.underlineCheckBox.CheckedChanged += new System.EventHandler(this.underlineCheckBox_CheckedChanged); this.label1.Text = "www.bahadirsam.somee.com"; } private void boldCheckBox_CheckedChanged(object sender, System.EventArgs e) { label1.Font = new Font(label1.Font.Name, label1.Font.Size,label1.Font.Style ^ FontStyle.Bold); } private void italicCheckBox_CheckedChanged(object sender, System.EventArgs e) { label1.Font = new Font(label1.Font.Name,label1.Font.Size, label1.Font.Style ^ FontStyle.Italic); } private void underlineCheckBox_CheckedChanged(object sender, System.EventArgs e) { label1.Font = new Font(label1.Font.Name, label1.Font.Size, label1.Font.Style ^ FontStyle.Underline); } } } //Bir sonraki makalede buluşmak üzere. Bahadır ŞAHİN
Fahrenheit Sıcaklık Arasındaki Çevrimler Bu örnek te Sıcaklık değerini fahrenheit e ya da fahrenheit değerini sıcaklık değerine çevireceğiz. Formunuza 2 adet button ve 1 adet TextBox ekleyin. Aşağıdaki şekilleri inceleyin. using System; using System.Collections.Generic; using System.ComponentModel; using System.Data; using System.Drawing; using System.Text; using System.Windows.Forms; namespace WindowsFormsApplication1 { public partial class Form1 : Form { public Form1() { InitializeComponent(); } public static double FahrenheitaCevir(string sicaklikdeger) { double santigrat = System.Double.Parse(sicaklikdeger); MessageBox.Show("Fahrenheit Değeri: " + Convert.ToString((santigrat * 9 / 5) + 32)); return (santigrat * 9 / 5) + 32; } public static double SicakligaCevir(string fahrenheitdeger) { double fahrenheit = System.Double.Parse(fahrenheitdeger); MessageBox.Show("Sıcaklık Değeri: " + Convert.ToString((fahrenheit - 32) * 5 / 9)); return (fahrenheit - 32) * 5 / 9; } private void button1_Click(object sender, EventArgs e) { FahrenheitaCevir(textBox1.Text); } private void button2_Click(object sender, EventArgs e) { SicakligaCevir(textBox1.Text); } } } //Bir sonraki makalede buluşmak üzere. Bahadır ŞAHİN
SendKey Metodunda TAB Kullanımı Bu örnekte Sendkey de tab nasıl kullanıldığını göreceğiz. Formunuza Aşağıdaki Şekil1 de gösterildiği gibi 2 adet TextBox ekleyin. Örnekte textBox1 e 6. karakter girildiğinde, otomatik olarak textBox2 ye yazılacak. private void textBox1_TextChanged(object sender, EventArgs e) { if (textBox1.Text.Length == 5) SendKeys.Send("{TAB}"); } //Bir sonraki makalede buluşmak üzere. Bahadır ŞAHİN
Çöp Kutusundaki Nesneleri Silmek Bu örnekte Çöp kutusundaki nesneleri silme işlemini gerçekleştireceğiz. Şekil 1 i inceleyin. Formumuza ilk önce; using System.Runtime.InteropServices; ekleyeceğiz. Daha sonra Shell32.dll Library dosyasını çağıracağız. using System; using System.Collections.Generic; using System.ComponentModel; using System.Data; using System.Drawing; using System.Text; using System.Windows.Forms; using System.Runtime.InteropServices; namespace WindowsFormsApplication1 { public partial class Form1 : Form { public Form1() { InitializeComponent(); } enum RecycleFlags : uint { SHERB_NOCONFIRMATION = 0x00000001, SHERB_NOPROGRESSUI = 0x00000002, SHERB_NOSOUND = 0x00000004 } [DllImport("Shell32.dll", CharSet = CharSet.Unicode)] static extern uint SHEmptyRecycleBin (IntPtr hwnd, string pszRootPath, RecycleFlags dwFlags); private void button1_Click(object sender, EventArgs e) { uint sonuc = SHEmptyRecycleBin(IntPtr.Zero, null, 0); MessageBox.Show("Sonuç: " + sonuc); } } } //Bir sonraki makalede buluşmak üzere. Bahadır ŞAHİN
DNS Adını Öğrenme Bu örnekte DNS adını öğreneceğiz. İlk önce; using System.Net; i formunuza ekleyin. Daha sonra aşağıdaki kodları ConsoleApplication a yazın. Aşağıdaki şekli inceleyin. using System; using System.Collections.Generic; using System.Text; using System.Net; namespace DNSAdi { public class DNSAd { public static void Main() { string hostAd = Dns.GetHostName(); Console.WriteLine("Local hostAd: {0}", hostAd); IPHostEntry myself = Dns.GetHostByName(hostAd); foreach (IPAddress adres in myself.AddressList) { Console.WriteLine("IP Adres: {0}", adres.ToString()); Console.Read(); } } } } //Bir sonraki makalede buluşmak üzere. Bahadır ŞAHİN
Ekran Çözünürlüğünü Öğrenmek Bu örnekte bilgisayarımızın ekran boyutunu öğreneceğiz. Aşağıdaki şekili inceleyin. using System; using System.Collections.Generic; using System.ComponentModel; using System.Data; using System.Drawing; using System.Text; using System.Windows.Forms; namespace WindowsFormsApplication1 { public partial class Form1 : Form { public Form1() { InitializeComponent(); } private void button1_Click(object sender, EventArgs e) { MessageBox.Show("Monitor Boyutu:" + SystemInformation.PrimaryMonitorSize); //veya aşağıdaki şekilde //MessageBox.Show("Asıl Boyut: " + SystemInformation.VirtualScreen); } } } //Bir sonraki makalede buluşmak üzere. Bahadır ŞAHİN
Klasör Oluşturulma Tarihini Öğrenmek Bu örnekte, herhangi bir klasörün, oluşturulma tarihini öğreneceğiz. İlk önce; using System.IO; i ekleyin. Daha sonra Button un Click yordamına aşağıdaki kodları ekleyin. Aşağıdaki Şekil 1 i inceleyin. C:\ deki test klasörünün oluşturulma tarihine bakacağız. using System; using System.Collections.Generic; using System.ComponentModel; using System.Data; using System.Drawing; using System.Text; using System.Windows.Forms; using System.IO; namespace WindowsFormsApplication1 { public partial class Form1 : Form { public Form1() { InitializeComponent(); } private void button1_Click(object sender, EventArgs e) { string directoryString =Directory.GetCurrentDirectory() + @"\test"; Directory.CreateDirectory(directoryString); DateTime dateTime = Directory.GetCreationTime(directoryString); MessageBox.Show("Klasör Oluşturulma Tarihi: " + dateTime); Directory.Delete(directoryString); } } } //Bir sonraki makalede buluşmak üzere. Bahadır ŞAHİN
Klasör Oluşturma ve Silme İşlemleri Bu örnekte klasör oluşturmayı ve klasör silme işlemini göreceğiz. İlk önce, using System.IO; ekleyin. Formunuza 1 adet textbox(oluşturacağımız klasörün ismini giriyoruz), Listbox (Durumu gösteriyor), 2 adet button ve Label ekleyin. Aşağıdaki şekli inceleyin. using System; using System.Collections.Generic; using System.ComponentModel; using System.Data; using System.Drawing; using System.Text; using System.Windows.Forms; using System.IO; namespace WindowsFormsApplication1 { public partial class Form1 : Form { public Form1() { InitializeComponent(); } private void button1_Click(object sender, EventArgs e) { string directoryString = "C:\\" + @"\" + textBox1.Text; Directory.CreateDirectory(directoryString); if (Directory.Exists(directoryString)) listBox1.Items.Add(directoryString + " klasörü oluşturuldu. " + DateTime.Now); else listBox1.Items.Add(directoryString + " klasörü oluşturulamadı. " + DateTime.Now); } private void button2_Click(object sender, EventArgs e) { string directoryString = "C:\\" + @"\" + textBox1.Text; if (Directory.Exists(directoryString)) Directory.Delete(directoryString); listBox1.Items.Add(directoryString + " klasörü silindi. " + DateTime.Now); } } } //Bir sonraki makalede buluşmak üzere. Bahadır ŞAHİN
Text Dosyadan İstenilen Bilgiyi Almak Text dosya içerisindeki satırlarda istenilen bilgileri yazdıracağız. Örneğin Birden fazla satır var bu satırlardan Frekans -- diye başlayanlarda yazılı olan verileri tek tek çekip ekrana yazdıracağız. İlk önce C:\ veri.txt dosyasını oluşturun. Şekil 1 deki gibi veri.txt in içindeki satırları oluşturun. Aşağıdaki kodları yazın. Şekil 2 deki gibi ekran elde edilir. using System; using System.Collections.Generic; using System.Text; using System.IO; namespace ConsoleApplication1 { class Program { static void Main(string[] args) { StreamReader dosyaoku = File.OpenText("C:\\veri.txt"); string ara = "Frekans -- "; string str = dosyaoku.ReadLine(); while (str != null) { if (str.StartsWith(ara)) { string gecici = str.Replace(ara, ""); string[] parcalar = gecici.Split(new char[] { ’ ’ }, StringSplitOptions.RemoveEmptyEntries); Console.WriteLine(string.Format("Deger1 = {0}, Deger2 = {1}, Deger3 = {2}{3}", parcalar[0], parcalar[1], parcalar[2], Environment.NewLine)); } str = dosyaoku.ReadLine(); } dosyaoku.Close(); Console.Read(); } } } //Bir sonraki makalede buluşmak üzere. Bahadır ŞAHİN
Ctrl+Enter Tuşunu Combobox ta Kullanmak Combobox.Text teki stringi Ctrl+Enter tuşuna basıp alacağız.Daha sonra aldığımız stringi WebBrowser da kullanacağız. Örnek: Combobox Text e google yazacağız.(Şekil 1) Daha sonra Ctrl+Enter tuş kombinasyonuna basacağız. Böylece WebBrowser da (http://www.google.com) sayfası açılacak ve Combobox.Text te http://www.google.com yazacak. Not: InitializeComponent(); den sonra this.comboBox1.KeyUp += new KeyEventHandler(comboBox1_KeyUp); eklemeyi unutmayın. namespace WindowsApplication1 { public partial class Form1 : Form { public Form1() { InitializeComponent(); this.comboBox1.KeyUp += new KeyEventHandler(comboBox1_KeyUp); } private void comboBox1_KeyUp(object sender, KeyEventArgs e) { string str; str = comboBox1.Text; if ((e.KeyValue == 13) && (e.Control)) comboBox1.Text = "http://www." + str + ".com"; webBrowser1.Navigate(comboBox1.Text); } } } //Bir sonraki makalede buluşmak üzere. Bahadır ŞAHİN
Sayıları Yazıya Çevirmek Bu makalede TextBox a girilen sayıları yazı ya çevireceğiz. Formunuza 1 adet TextBox ve Button ekleyin. Aşağıdaki şekli inceleyin. using System; using System.Collections.Generic; using System.ComponentModel; using System.Data; using System.Drawing; using System.Text; using System.Windows.Forms; namespace WindowsFormsApplication1 { public partial class Form1 : Form { public Form1() { InitializeComponent(); } private void button1_Click(object sender, EventArgs e) { string[,] ifade = new string[2,9]; ifade[0, 0] = "bir"; ifade[0, 1] = "iki"; ifade[0, 2] = "üç"; ifade[0, 3] = "dört"; ifade[0, 4] = "beş"; ifade[0, 5] = "altı"; ifade[0, 6] = "yedi"; ifade[0, 7] = "sekiz"; ifade[0, 8] = "dokuz"; ifade[1, 0] = "on"; ifade[1, 1] = "yirmi"; ifade[1, 2] = "otuz"; ifade[1, 3] = "kırk"; ifade[1, 4] = "elli"; ifade[1, 5] = "altmış"; ifade[1, 6] = "yetmiş"; ifade[1, 7] = "seksen"; ifade[1, 8] = "doksan"; string s = textBox1.Text; string yazıyla=""; for (int i = 0; i < s.Length; i++) { if (i==s.Length-2 \|\| i==s.Length-5 \|\| i==s.Length-8 ) { int deger =Convert.ToInt32(s[i].ToString()); yazıyla+=ifade[1,deger-1]; continue; } if (((i==s.Length-3) &&(s[i]==’1’)) \|\|((i==s.Length-6) &&(s[i]==’1’)) \|\|((i==s.Length-9) &&(s[i]==’1’))) { yazıyla+="yüz"; continue; } if ((i == s.Length - 4) && (s[i] == ’1’)) { yazıyla+="bin"; continue; } if ((i==s.Length-1)&& (s[i]==’0’)) { if (s.Length == 1) { yazıyla = "sıfır"; } else continue; } byte d = Convert.ToByte(s[i].ToString()); yazıyla += ifade[0, d - 1]; if (i == s.Length - 3 \|\| i == s.Length - 6 \|\|i ==s.Length - 9) { yazıyla += "yüz"; } if (i == s.Length - 4) {yazıyla += "bin";} if (i == s.Length - 7) {yazıyla += "milyon";} } MessageBox.Show(yazıyla); } } } //Bir sonraki makalede görüşmek üzere. Bahadır ŞAHİN
Formunuz Efektli Açılsın Formunuza 1 adet Timer ekleyin. Aşağıdaki kodları yazın. private void Form1_Load(object sender, EventArgs e) { timer1.Start(); } private void timer1_Tick(object sender, EventArgs e) { int x, y, k; x = 300; y = 0; for (k = 0; k <= 100; k++) { y++; this.Size = new System.Drawing.Size(x, y); } timer1.Stop(); } //Bir sonraki makalede buluşmak üzere. Bahadır ŞAHİN
Regex.Replace() Kullanımı Regular expression bir metni düzenlemek yada metin içerisinden belli kurallara uyan alt metinler elde etmek için kullandığımız bir dildir. Bir regular expression, string tipindeki karakter topluluğuna uygulanır. Sonuç olarak substringler oluşur yada orjinal metnin bir kısmını içeren değiştirilmiş yeni metinler elde edilir. Regular Expression‘larda Kullanılan Özel Karakterler ve Etkileri Regular expression desenleri tanımlamada kullanılan özel karakterleri örnekleri ile anlatırsak sanırım regular expressionlar daha tanıdı ve kolay gelebilir. 1. ‘.‘ Karakteri Tek bir karakteri temsil eder(yeni satır karakteri hariç). \"CSharp.edir\" şeklindeki bir desen CSharpnedir, CSharpNedir, CSharpSedir, CSharp3edir gibi stringleri döndürebilir. 2. ‘[]‘ Karakterleri Bir arrayi yada aralığı temsil eder. \"CSharp[SNY]edir\" deseni, CSharpSedir, CSharpNedir ve CSharpYedir stringlerini döndürür. \"CSharp[a-z]edir\" şeklindeki kullanım aralık belirtmeye yarar. \"CSharp[0-9]edir\" şeklindeki kılanlım ise sayısal aralık belirtmeye yarar. 3. ‘?‘ Karakteri Kendinden önceki karakterin stringte olması yada olmamasını sağlar. \"CSharpn?edir\" deseni CSharpedir yada CSharpnedir döndürür. 4. ‘\‘ Karakteri Kendinden sonraki özel karakterin stringe dahil edilmesini sağlar. ‘CSharpnedir\?‘ deseni CSharpnedir? Stringini döndürür. (Eğer ‘\‘ karakterini kullanmamış olsaydık CSharpnedi yada CSharpnedir dönerdi.) 5. ‘‘ Karakteri Kendinden önceki karakterin yada stringin hiç olmaması yada istediği sayıda olmasını sağlar. \"CSharpnedir\" deseni, CSharpnedi, CSharpnedir, CSharpnedirr, CSharpnedirrr, ... döndürür. \"CSharp(nedir)*\" deseni ise CSharp, CSharpnedir, CSharpnedirnedir, ... döndürür. 6. ‘{}‘ Karakterleri Kendinden önce gelen karakterin belirtilen sayıda tekrar etmesini sağlar. \"C{4}Sharpnedir\" deseni, CCCCSharpnedir stringini döndürür. 7. ‘^‘ Karakteri Satır başını ifade eder. \"^CSharpnedir\" deseni, satır başında \"CSharpnedir\" stringi varsa bunu döndürür. 8. ‘$‘ Karakteri Satır sonunu ifade eder. \"CSharpnedir$\" deseni, satır sonunda \"CSharpnedir\" stringi varsa bunu döndürür. Şimdi örneğimize geçelim; Regular expression kullanabilmeniz içi öncelikle "System.Text.RegularExpressions;" ad uzayını kod tarafında "using" direktifi ile eklemeniz gerekir. yani; using System.Text.RegularExpressions; ekleyin. private void Form1_Load(object sender, EventArgs e) { bool isMatch = Regex.IsMatch("abc123de", @"\d{3}"); // 123 match eder. // Replace Örneği : Regex regex = new Regex(@"\d{3}"); string sonuc = regex.Replace("abc123de", "BAHADIRŞAHİN"); MessageBox.Show(sonuc); // sonuc -> "abcBAHADIRŞAHİNde" olur } //Bir sonraki makalede buluşmak üzere. Bahadır ŞAHİN
Label de Kayan Yazı Bu örneğimizde Label de kayan yazıya bakacağız. Formunuza 1 adet Label ve Timer nesnesi ekleyin. using System; using System.Collections.Generic; using System.ComponentModel; using System.Data; using System.Drawing; using System.Linq; using System.Text; using System.Windows.Forms; namespace WindowsFormsApplication1 { public partial class Form1 : Form { public Form1() { InitializeComponent(); } private void Form1_Load(object sender, EventArgs e) { timer1.Start(); label1.Text = "Bahadır ŞAHİN "; } private void timer1_Tick(object sender, EventArgs e) { label1.Text = label1.Text.Substring(1) + label1.Text[0].ToString(); } } } //Bir sonraki makalede buluşmak üzere. Bahadır ŞAHİN
Label de Yazı Kaydırma Labelin içerisinde yazdığımız stringi kaydıracağız. Formunuza 1 adet Label ve Timer ekleyin. Aşağıdaki kodları yazın. using System; using System.Collections.Generic; using System.ComponentModel; using System.Data; using System.Drawing; using System.Linq; using System.Text; using System.Windows.Forms; namespace WindowsFormsApplication1 { public partial class Form1 : Form { public Form1() { InitializeComponent(); } private void Form1_Load(object sender, EventArgs e) { timer1.Start(); label1.Text = "Bahadır ŞAHİN"; } private void timer1_Tick(object sender, EventArgs e) { label1.Text = label1.Text.Substring(1) + label1.Text[0].ToString(); } } } //Bir sonraki makalede buluşmak üzere. Bahadır ŞAHİN
Kronometre Kronometre ile ilgili örnek. Aşağıdaki şekildeki gibi formunuzu oluşturun. namespace WindowsApplication1 { public partial class Form1 : Form { public Form1() { InitializeComponent(); } private string Convert(int p) { throw new Exception("The method or operation is not implemented."); } public int KalanSure; private void Form1_Load(object sender, EventArgs e) { comboBox1.Text = "Hızı Seçiniz"; } private void btnBasla_Click(object sender, EventArgs e) { // Başlangıç zamanı "KalanSure" değişkenine atanır. KalanSure = System.Convert.ToInt32(txtSure.Text); //Kalan süre kullanıcıya gösterilir. lblSure.Text = System.Convert.ToString(KalanSure); // ListBox kontrolüne kayıt girilir. lbKayit.Items.Add("Kronometre Başlangıç Tarih Saat:: " + DateTime.Now.TimeOfDay.ToString()); // ComboBox kontrolünden seçilen değer, // Timer kontrolünün çalışma hızını belirler. tmrKronometre.Interval = System.Convert.ToInt32(comboBox1.Text); tmrKronometre.Start(); // Timer kontrolünü çalıştırır. } private void btnDur_Click(object sender, EventArgs e) { // Timer kontrolünü durdurur. tmrKronometre.Stop(); // ListBox kontrolüne kayıt girilir. lbKayit.Items.Add("Kronometre Durdurulma Tarih Saat: " + DateTime.Now.TimeOfDay.ToString()); } private void tmrKronometre_Tick(object sender, EventArgs e) { // Her saniye geçtiğinde sure değeri 1 azalacaktır. KalanSure = KalanSure - 1; lblSure.Text = System.Convert.ToString(KalanSure); // KalanSure değeri kullancıya gösterilir // KalanSure değeri sıfıra ulaşmışsa kronometre durdurulur. if (KalanSure == 0) { tmrKronometre.Stop(); lbKayit.Items.Add("Süre Doldu Tarih Saat: " + DateTime.Now.TimeOfDay.ToString()); MessageBox.Show("Süre doldu"); } } } } //Bir sonraki makalede görüşmek üzere. Bahadır ŞAHİN
İki Matris Çarpımı private void button1_Click(object sender, EventArgs e) { int[,] matris1 = new int[2, 2]; int[,] matris2 = new int[2, 2]; int j, l, k,i, sonuc = 0, boyut1, boyut2, ilkboyut1, ilkboyut2; matris1[0, 0] = Convert.ToInt32(textBox1.Text); matris1[0, 1] = Convert.ToInt32(textBox2.Text); matris1[1, 0] = Convert.ToInt32(textBox3.Text); matris1[1, 1] = Convert.ToInt32(textBox4.Text); matris2[0, 0] = Convert.ToInt32(textBox5.Text); matris2[0, 1] = Convert.ToInt32(textBox6.Text); matris2[1, 0] = Convert.ToInt32(textBox7.Text); matris2[1, 1] = Convert.ToInt32(textBox8.Text); ilkboyut1 = matris1.Rank;// ilk matrsin sutun sayisi ilkboyut2 = matris1.GetLength(0);// satir sayisi boyut1 = matris2.Rank;// ikinci matrsin sutun sayisi boyut2 = matris2.GetLength(0);// satir sayisi for (i = 0; i <= ilkboyut2 - 1; i++) { for (j = 0; j <= ilkboyut1 - 1; j++) { for (k = 0; j <= boyut1 - 1; k++) { sonuc = sonuc + matris1[i,j] * matris2[j,i]; } } } textBox9.Text = sonuc.ToString(); } Bir sonraki makalede buluşmak üzere. Bahadır ŞAHİN
ListBox a Sınırlı Item Ekleme Bu örnekte listBox a sınırlı sayıda Item eklemesini göreceğiz. 5 Item den sonrasını listbox a ekleyemiyeceğiz. Formunuza 1 adet ListBox, TextBox ve Button ekleyin. Aşağıdaki şekilleri inceleyin. private void button1_Click(object sender, EventArgs e) { if (listBox1.Items.Count < 5) { listBox1.Items.Add(textBox1.Text); } else { MessageBox.Show("En Fazla 5 Kayıt yapabilirsiniz.","Uyarı"); return; } } //Bir sonraki makalede buluşmak üzere. Bahadır ŞAHİN
TrackBar ile Formunuzun Arka Plan Rengini Değiştirin TrackBar kullanarak formumuzun arka plan rengini değiştireceğiz. Formunuza 3 adet TrackBar ekleyin. Aşağıdaki şekli inceleyin. public Form1() { InitializeComponent(); } private void Form1_Load(object sender, EventArgs e) { this.BackColor = Color.FromArgb(trackBar1.Value, trackBar2.Value, trackBar3.Value); trackBar1.Maximum = 255; trackBar2.Maximum = 255; trackBar3.Maximum = 255; } private void trackBar1_Scroll(object sender, EventArgs e) { this.BackColor = Color.FromArgb(trackBar1.Value, trackBar2.Value, trackBar3.Value); } private void trackBar2_Scroll(object sender, EventArgs e) { trackBar1_Scroll(sender, e); } private void trackBar3_Scroll(object sender, EventArgs e) { trackBar1_Scroll(sender, e); } Bir sonraki makalede buluşmak üzere. Bahadır ŞAHİN
İnternet Ip ve Local Ip i Öğrenmek Bu makalede İnternet Ip mizi ve bilgisayarımızın local ip numarasını öğreneceğiz. using System.IO; using System.Net; ı formunuza ekleyin. Aşağıdaki şekli inceleyin. namespace WindowsApplication1 { public partial class Form1 : Form { public Form1() { InitializeComponent(); } private string GetHttpTxt(string URL) { Stream stm = HttpWebRequest.Create(URL).GetResponse().GetResponseStream(); return new StreamReader(stm, false).ReadToEnd(); } private void button1_Click(object sender, EventArgs e) { string a; a = (GetHttpTxt("http://whatismyip.com/automation/n09230945.asp")); textBox1.Text = a; } private void button2_Click(object sender, EventArgs e) { IPHostEntry ihe = Dns.GetHostByName(Dns.GetHostName()); IPAddress myself = ihe.AddressList[0]; textBox2.Text = Convert.ToString(myself); } } } //Bir sonraki makalede buluşmak üzere. Bahadır
Taskmanager Bilgilerinin Gösterilmesi Formunuza File > New Project > ConsoleApplication ı ekleyin. Ayrıca formunuza using System.Diagnostics; i ekleyin. Aşağıdaki şekli inceleyin. namespace ConsoleApplication1 { class Program { static void Main(string[] args) { Process[] processes = Process.GetProcesses(); for (int i = 0; i < processes.Length; i++) { Console.WriteLine("Id: " + processes[i].Id.ToString()); Console.WriteLine("ProcessName: " + processes[i].ProcessName); Console.WriteLine("MainWindowTitle: " + processes[i].MainWindowTitle); Console.WriteLine("StartTime: " + processes[i].StartTime.ToString()); Console.WriteLine("UserProcessorTime: " + processes[i].UserProcessorTime.ToString()); Console.WriteLine("Responding: " + processes[i].Responding.ToString()); Console.WriteLine(""); } Console.ReadLine(); } } } //Bir sonraki makalede görüşmek üzere. Bahadır
Faktoriyel Hesaplama Bu örnekte faktoriyel hesaplamaya bakacağız. InputBox tan girilen sayı aralığında faktoriyel hesabı yapacağız. InputBox için; İlk önce Solution Explorer a sağ tıklayıp Add Reference kısmından Microsoft.VisualBasic i ekleyin. Aşağıdaki şekilleri inceleyin. private void Form1_Load(object sender, EventArgs e) { label1.Text = "Faktoriyel Hesaplama"; } private void button1_Click(object sender, EventArgs e) { int i, j, faktoriyel; Int32 XPos = ((SystemInformation.WorkingArea.Width / 2) - 200); Int32 YPos = ((SystemInformation.WorkingArea.Height / 2) - 100); string sayi1 = Microsoft.VisualBasic.Interaction.InputBox("1.Sayıyı Giriniz...", "Faktoriyel Hesaplama ", "0", XPos, YPos); string sayi2 = Microsoft.VisualBasic.Interaction.InputBox("2.Sayıyı Giriniz...", "Faktoriyel Hesaplama ", "", XPos, YPos); for (i = Convert.ToInt32(sayi1); i <= Convert.ToInt32(sayi2); i++) { faktoriyel = 1; for (j = 1; j <= i; j++) { faktoriyel = faktoriyel * j; this.Text = Convert.ToString(faktoriyel); label1.Text = sayi1 + "-" + sayi2 + "Sayı Aralığında: " + "Hesaplanan Değer: " + faktoriyel; } } } //Bir sonraki makalede buluşmak üzere. Bahadır
TextBox taki Türkçe Karakterleri Değiştirmek Bu örneğimizde TextBoxtaki Türkçe karakterleri İngilizce karakterler ile değiştireceğiz. Ör: Ş-S, Ğ-G, ı-i vb. Formunuza 1 adet TextBox, 12 adet CheckBox ekleyin. Aşağıdaki şekilleri inceleyin. using System; using System.Collections.Generic; using System.ComponentModel; using System.Data; using System.Drawing; using System.Linq; using System.Text; using System.Windows.Forms; namespace WindowsFormsApplication1 { public partial class Form1 : Form { public Form1() { InitializeComponent(); } private void Form1_Load(object sender, EventArgs e) { } private void karakter() { if (checkBox1.Checked == true) textBox1.Text = textBox1.Text.Replace(‘Ş‘, ‘S‘); if (checkBox2.Checked == true) textBox1.Text = textBox1.Text.Replace(‘ş‘, ‘s‘); if (checkBox3.Checked == true) textBox1.Text = textBox1.Text.Replace(‘İ‘, ‘I‘); if (checkBox4.Checked == true) textBox1.Text = textBox1.Text.Replace(‘ı‘, ‘i‘); if (checkBox5.Checked == true) textBox1.Text = textBox1.Text.Replace(‘Ğ‘, ‘G‘); if (checkBox6.Checked == true) textBox1.Text = textBox1.Text.Replace(‘ğ‘, ‘g‘); if (checkBox7.Checked == true) textBox1.Text = textBox1.Text.Replace(‘Ç‘, ‘C‘); if (checkBox8.Checked == true) textBox1.Text = textBox1.Text.Replace(‘ç‘, ‘c‘); if (checkBox9.Checked == true) textBox1.Text = textBox1.Text.Replace(‘Ü‘, ‘U‘); if (checkBox10.Checked == true) textBox1.Text = textBox1.Text.Replace(‘ü‘, ‘u‘); if (checkBox11.Checked == true) textBox1.Text = textBox1.Text.Replace(‘Ö‘, ‘O‘); if (checkBox12.Checked == true) textBox1.Text = textBox1.Text.Replace(‘ö‘, ‘o‘); } private void checkBox1_CheckedChanged(object sender, EventArgs e) { karakter(); } private void checkBox2_CheckedChanged(object sender, EventArgs e) { karakter(); } private void checkBox3_CheckedChanged(object sender, EventArgs e) { karakter(); } private void checkBox4_CheckedChanged(object sender, EventArgs e) { karakter(); } private void checkBox5_CheckedChanged(object sender, EventArgs e) { karakter(); } private void checkBox6_CheckedChanged(object sender, EventArgs e) { karakter(); } private void checkBox7_CheckedChanged(object sender, EventArgs e) { karakter(); } private void checkBox8_CheckedChanged(object sender, EventArgs e) { karakter(); } private void checkBox9_CheckedChanged(object sender, EventArgs e) { karakter(); } private void checkBox10_CheckedChanged(object sender, EventArgs e) { karakter(); } private void checkBox11_CheckedChanged(object sender, EventArgs e) { karakter(); } private void checkBox12_CheckedChanged(object sender, EventArgs e) { karakter(); } } } //Bir sonraki makalede görüşmek üzere. Bahadır
Otomatik Key Kodu Üretmek 25 karakterlik otomatik key kodları üreteceğiz. İsteğe bağlı olarak bu sayıyı azaltabilir veya artırabilirsiniz. Formunuza 1 adet textbox ve button ekleyin. Aşağıdaki şekilleri inceleyin. using System; using System.Collections.Generic; using System.ComponentModel; using System.Data; using System.Drawing; using System.Linq; using System.Text; using System.Windows.Forms; namespace WindowsFormsApplication1 { public partial class Form1 : Form { public Form1() { InitializeComponent(); } private void button1_Click(object sender, EventArgs e) { //25 karakterlik key kodu üreteceğiz. KeyKodu(25); } private string KeyKodu(int codeLength) { System.Text.StringBuilder sb = new System.Text.StringBuilder(); System.Random nesneRandom = new System.Random(); string[] strKarakter = {"A", "B", "C", "D", "E", "F", "G", "H", "I", "J", "K", "L", "M", "N", "O", "P", "Q", "R", "S", "T", "U", "V", "W", "X", "Y", "Z", "1", "2", "3", "4", "5", "6", "7", "8", "9", "0", "a", "b", "c", "d", "e", "f", "g", "h", "i", "j", "k", "l", "m", "n", "o", "p", "q", "r", "s", "t", "u", "v", "w ", "x", "y", "z"}; int maxRand = strKarakter.GetUpperBound(0); for (int i = 0; i <= codeLength - 1; i++) { int rndNumara = nesneRandom.Next(maxRand); sb.Append(strKarakter[rndNumara]); } textBox1.Text = Convert.ToString(sb); //textbox1 deki stringin arasına "-" koyuyoruz. string veri = textBox1.Text; string str = veri.Insert(5, "-"); string str2 = str.Insert(11,"-"); string str3 = str2.Insert(17, "-"); string str4 = str3.Insert(23, "-"); textBox1.Text = str4; return Convert.ToString(sb); } private void Form1_Load(object sender, EventArgs e) { textBox1.ReadOnly = true; textBox1.Font = new Font("Arial",12,FontStyle.Bold); button1.Text = "Key Numarası Üret"; button1.Font = new Font("Arial", 12, FontStyle.Bold); } } } //Bir sonraki makalede görüşmek üzere. Bahadır
Formun Arka Planına Bitmap Resim Ekleme Bu örnekte formun arka planına bitmap resim ekleyeceğiz. Formunuzun FormBorderStyle özelliğini None seçin. using System; using System.Collections.Generic; using System.ComponentModel; using System.Data; using System.Drawing; using System.Text; using System.Windows.Forms; using System.Drawing.Drawing2D; namespace WindowsApplication1 { public partial class Form1 : Form { Bitmap resim = new Bitmap("resim.jpg"); public Form1() { InitializeComponent(); this.Paint += new System.Windows.Forms.PaintEventHandler(Form1_Paint); } private void Form1_Paint(object sender, PaintEventArgs e) { Graphics g = e.Graphics; Rectangle mainRect = new Rectangle(0, 0, 695, 278); Region mainRegion = new Region(mainRect); e.Graphics.SetClip(mainRegion, CombineMode.Replace); GraphicsPath myPath = new GraphicsPath(); Region ExcludeRegion3 = new Region(myPath); e.Graphics.ExcludeClip(ExcludeRegion3); e.Graphics.DrawImage(resim, 0, 0, 495,278); e.Graphics.ResetClip(); } private void Form1_Load(object sender, EventArgs e) { this.Size = new System.Drawing.Size(500,280); } } } //Bir sonraki makalede görüşmek üzere. Bahadır
Eliptik Form Formumuzun Elips şeklinde olmasını sağlayacağız. Ayrıca formun arka planına Bitmap resim ekleyeceğiz. Aşağıdaki şekli inceleyin. using System; using System.Collections.Generic; using System.ComponentModel; using System.Data; using System.Drawing; using System.Text; using System.Windows.Forms; namespace WindowsApplication1 { public partial class Form1 : Form { private Image resim; public Form1() { InitializeComponent(); this.Paint += new System.Windows.Forms.PaintEventHandler(Form1_Paint); } private void Form1_Load(object sender, EventArgs e) { resim= Image.FromFile("C:\\resim.bmp"); } private void Form1_Paint(object sender, PaintEventArgs e) { //Formun arka planına Bitmap resim eklemek için e.Graphics.DrawImage(resim, 0, 0, resim.Width, resim.Height); // Formu eliptik şekilde yapmak için System.Drawing.Drawing2D.GraphicsPath shape = new System.Drawing.Drawing2D.GraphicsPath(); shape.AddEllipse(0, 0, this.Width, this.Height); this.Region = new System.Drawing.Region(shape); } private void Form1_Resize(object sender, EventArgs e) { this.CreateGraphics().DrawImage(resim, 0, 0, resim.Width+100, resim.Height+100); } } } //Bir sonraki makalede buluşmak üzere. Bahadır
Dosya ve Klasör Kontrolü Bu makalemizde C:\ sürücüsünde adı geçen dosya ve klasör mevcut mu? Eğer yok ise otomatik olarak oluşturacağız. İlk önce; using System.IO; i ekleyin. using System; using System.Collections.Generic; using System.ComponentModel; using System.Data; using System.Drawing; using System.Text; using System.Windows.Forms; using System.IO; namespace WindowsApplication1 { public partial class Form1 : Form { public Form1() { InitializeComponent(); } private void Form1_Load(object sender, EventArgs e) { } private void button1_Click(object sender, EventArgs e) { //dosya kontrol string str; str = "C:\\deneme.text"; if (File.Exists(str) == false) { File.Create(str); MessageBox.Show(str + " oluşturuldu", "Uyarı"); } else if(File.Exists(str) == true) { MessageBox.Show(str + " dosyası zaten var.", "Uyarı"); } } private void button2_Click(object sender, EventArgs e) { //klasor kontrol string str; str = "C:\\dosyalar"; if (Directory.Exists(str) == false) { Directory.CreateDirectory(str); MessageBox.Show(str + " oluşturuldu", "Uyarı"); } else if(Directory.Exists(str) == true) { MessageBox.Show(str + " dosyası zaten var.", "Uyarı"); } } } } //Bir sonraki makalede görüşmek üzere. Bahadır.
Grafik Uygulaması Örnek Bu örnekte Windows System Iconlarını graphics metodu ile C:\ dizinine icon.bmp olarak kaydedeceğiz. Formunuza 1 adet button ve pictureBox ekleyin. using System; using System.Collections.Generic; using System.ComponentModel; using System.Data; using System.Drawing; using System.Text; using System.Windows.Forms; namespace WindowsApplication1 { public partial class Form1 : Form { public Form1() { InitializeComponent(); } private void button1_Click(object sender, EventArgs e) { Graphics grafik; Bitmap bit = new Bitmap(50, 50); grafik = Graphics.FromImage(bit); grafik.DrawIconUnstretched(SystemIcons.Error, new Rectangle(10, 10, SystemIcons.WinLogo.Width, SystemIcons.WinLogo.Height)); pictureBox1.Image = bit; bit.Save("C:\\icon.bmp"); } } } //Bir sonraki makalede görüşmek üzere. Bahadır
Sayının Üssünü Almak Bu örnekte textbox a girilen sayının üssünü alacağız. using System; using System.Collections.Generic; using System.ComponentModel; using System.Data; using System.Drawing; using System.Text; using System.Windows.Forms; namespace WindowsApplication1 { public partial class Form1 : Form { public Form1() { InitializeComponent(); } private void button1_Click(object sender, EventArgs e) { int i; int j; int k; double sonuc; j=Convert.ToInt32(textBox1.Text); k=Convert.ToInt32(textBox2.Text); sonuc = 1; if (k > 0) { for (i = 1; i <= k; i++) { sonuc = sonuc * j; } if (k == 0) { sonuc = 1; } if (k < 0) { k = -k; for (i = 1; i <= k; i++) { sonuc = sonuc * j; } sonuc = 1 / sonuc; } MessageBox.Show("Sonuç=" + Convert.ToString(sonuc)); } } } } //Bir sonraki makalede görüşmek üzere. Bahadır
TextBox ta Telefon Formatında Yazmak TextBox a girilen rakamları telefon formatında göstereceğiz. using System; using System.Collections.Generic; using System.ComponentModel; using System.Data; using System.Drawing; using System.Text; using System.Windows.Forms; namespace WindowsApplication1 { public partial class Form1 : Form { public Form1() { InitializeComponent(); } private void Form1_Load(object sender, EventArgs e) { string telefonno = "02121234567"; string str = telefonno.Insert(1, "-"); string str2 = str.Insert(5, "-"); textBox1.Text = str2; //Programı çalıştırdığımızda //textBox a girilen no 0-212-1234567 //şeklinde görülür. } } } //Bir sonraki makalede görüşmek üzere. Bahadır
ListBox ta Seçili İndekse Gitme Bu örnekte TextBox a girilen integer değerin karşılığındaki ListBox taki indeks değerine giderek. Seçilmesini sağlayacağız. using System; using System.Collections.Generic; using System.ComponentModel; using System.Data; using System.Drawing; using System.Text; using System.Windows.Forms; namespace WindowsApplication1 { public partial class Form1 : Form { public Form1() { InitializeComponent(); } private void Form1_Load(object sender, EventArgs e) { listBox1.Items.Add("Ali"); listBox1.Items.Add("Veli"); listBox1.Items.Add("Kırkdokuz"); listBox1.Items.Add("Elli"); } private void textBox1_TextChanged(object sender, EventArgs e) { if (Convert.ToInt32(textBox1.Text) > listBox1.Items.Count - 1) { MessageBox.Show("Büyük Değer Girişi Yaptınız.Kontrol Edin","Uyarı"); return; } listBox1.SelectedIndex = Convert.ToInt32(textBox1.Text); } private void listBox1_SelectedIndexChanged(object sender, EventArgs e) { textBox1.Text = Convert.ToString(listBox1.SelectedIndex); } } } //Bir sonraki makalede görüşmek üzere. Bahadır
Seçili Dosyanın Genel Özelliklerinin Alınması Bu makalede openFileDialog ile seçilen dosyanın uzantısını, dosya yolunu, boyutunu, oluşturulma tarihi gibi genel özelliklerini alacağız. Formunuza 5 adet label, textBox, 1 adet button ve openFileDialog ekleyin. Şekil1 i inceleyin. using System; using System.Collections.Generic; using System.ComponentModel; using System.Data; using System.Drawing; using System.Linq; using System.Text; using System.Windows.Forms; using System.IO; namespace WindowsFormsApplication1 { public partial class Form1 : Form { public Form1() { InitializeComponent(); } private void textBox4_TextChanged(object sender, EventArgs e) { } private void Form1_Load(object sender, EventArgs e) { this.Text = "Dosya Özellikleri...Bahadirsa"; this.MaximizeBox = false; this.Location = new Point(250, 200); this.Size = new System.Drawing.Size(274, 235); } private void btnTikla_Click(object sender, EventArgs e) { openFileDialog1.Title = "Dosya Aç-Bahadır ŞAHİN"; openFileDialog1.InitialDirectory = "C:\\"; openFileDialog1.Filter = "Tüm Dosyalar(.)\|."; if (openFileDialog1.ShowDialog() == System.Windows.Forms.DialogResult.OK) { string path = openFileDialog1.FileName; FileInfo dosya = new System.IO.FileInfo(path); float str; str = ((dosya.Length) / 1000); txtName.Text =dosya.Name.ToUpper(); txtUzanti.Text =dosya.Extension.ToUpper(); txtLength.Text =str.ToString() + " KB."; txtDate.Text = dosya.CreationTime.ToString(); txtAdres.Text =dosya.DirectoryName; } } } } //Bir sonraki makalede görüşmek üzere. Bahadır
Ekran Çözünürlüğünü Almak Bu örnekte Ekran Çözünürlüğünü alıp, MSN deki gibi formu timer nesnesinden faydalanarak, sağ alt köşede aşağı doğru kaymasını sağlayacağız. Formunuza 1 adet timer nesnesi ekleyin ve intervalini 10 yapın. using System; using System.Collections.Generic; using System.ComponentModel; using System.Data; using System.Drawing; using System.Text; using System.Windows.Forms; namespace WindowsApplication1 { public partial class Form1 : Form { int k; public Form1() { InitializeComponent(); } private void Form1_Load(object sender, EventArgs e) { this.Size = new System.Drawing.Size(175, 150); int i, j; //Ekran Çözünürlük Boyutunu alıyoruz i=System.Windows.Forms.Screen.PrimaryScreen.Bounds.Width; j=System.Windows.Forms.Screen.PrimaryScreen.Bounds.Height; this.Text = i + "," + j; this.Location = new Point(System.Windows.Forms.Screen.PrimaryScreen.Bounds.Width - this.Width, System.Windows.Forms.Screen.PrimaryScreen.Bounds.Height - this.Height); timer1.Enabled = true; timer1.Interval = 10; } private void timer1_Tick(object sender, EventArgs e) { k = k + 1; this.Location = new Point(System.Windows.Forms.Screen.PrimaryScreen.Bounds.Width - this.Width, System.Windows.Forms.Screen.PrimaryScreen.Bounds.Height - this.Height+k); } } } //Bir sonraki makalede görüşmek üzere. Bahadır
statusStrip te ProgressBar Kullanımı İlk önce formunuza 1 adet statusStrip ve button ekleyin. Daha sonra statusStrip te tıklayın ve 1 adet toolStripProgressBar1 ekleyin. Aşağıdaki şekilleri inceleyin. using System; using System.Collections.Generic; using System.ComponentModel; using System.Data; using System.Drawing; using System.Linq; using System.Text; using System.Windows.Forms; namespace WindowsFormsApplication1 { public partial class Form1 : Form { public Form1() { InitializeComponent(); } private void Form1_Load(object sender, EventArgs e) { toolStripProgressBar1.Size = new System.Drawing.Size(200, 20); } private void button1_Click(object sender, EventArgs e) { int i; toolStripProgressBar1.Minimum = 0; toolStripProgressBar1.Maximum = 100; for (i = toolStripProgressBar1.Minimum; i < toolStripProgressBar1.Maximum;i++ ) { toolStripProgressBar1.Value = i; System.Threading.Thread.Sleep(30); } } } } //Bir sonraki makalede görüşmek üzere. Bahadır
Form Başlığında Kayan Başlık Bu örnekte Form başlığında kayan yazı örneğini gerçekleştireceğiz. Formunuza 1 adet Timer ekleyin. using System; using System.Collections.Generic; using System.ComponentModel; using System.Data; using System.Drawing; using System.Linq; using System.Text; using System.Windows.Forms; namespace WindowsFormsApplication1 { public partial class Form1 : Form { public Form1() { InitializeComponent(); } private void Form1_Load(object sender, EventArgs e) { this.Text = "Kayan Yazı Örnek...Bahadır "; timer1.Interval = 100; timer1.Enabled = true; } private void timer1_Tick(object sender, EventArgs e) { int i; string str; str = ""; for ( i =1 ; i < this.Text.Length; i+=1 ) { str = str + this.Text[i]; } this.Text = str + this.Text[0]; } } }
Dosya Yolunu Açmak Bu örneğimizde dosyalarımızın bulunduğu klasörü açacağız. Bunun için process metodundan faydalanacağız. Bu örnekte Windows klasörünü açacağız. using System; using System.Collections.Generic; using System.ComponentModel; using System.Data; using System.Drawing; using System.Linq; using System.Text; using System.Windows.Forms; namespace WindowsFormsApplication1 { public partial class Form1 : Form { public Form1() { InitializeComponent(); } private void button1_Click(object sender, EventArgs e) { System.Diagnostics.Process yeniProcess; yeniProcess = System.Diagnostics.Process.Start("Explorer.exe ", "C:\\Windows"); yeniProcess.CloseMainWindow(); yeniProcess.Close(); } } } //Bir sonraki makalede buluşmak üzere. Bahadır
Döküman Yazdırma Bu örneğimizde richTextBox ımızdaki stringi yazdıracağız. Formunuza 1 adet printDocument,r,chTextBox ve Button ekleyin. Aşağıdaki şekilleri inceleyin. using System; using System.Collections.Generic; using System.ComponentModel; using System.Data; using System.Drawing; using System.Linq; using System.Text; using System.Windows.Forms; namespace WindowsFormsApplication1 { public partial class Form1 : Form { public Form1() { InitializeComponent(); } private void printDocument1_PrintPage(object sender, System.Drawing.Printing.PrintPageEventArgs e) { e.Graphics.DrawString(richTextBox1.Text, new Font("Times New Roman", 12, FontStyle.Regular), Brushes.Black, 100, 100); } private void Form1_Load(object sender, EventArgs e) { this.Text = "Döküman Yazdırma"; this.MaximizeBox = false; } private void button1_Click(object sender, EventArgs e) { printDocument1.Print(); } } } //Bir sonraki makalede görüşmek üzere. Bahadır
TreeView Node daki Bilgileri TextBox a Aktarma Bu makale treeView nesnesine node lar oluşturulacak ve bu nodlardaki veriler textboxlara aktarılacak. Formumuzda; public class DataTreeNode : TreeNode ve public class Site class ları oluşturacağız. Forma 1 adet treeView, 4 adet textBox eklenecek. Aşağıdaki şekildeki gibi formunuzu oluşturun. using System; using System.Collections.Generic; using System.ComponentModel; using System.Data; using System.Drawing; using System.Linq; using System.Text; using System.Windows.Forms; namespace WindowsFormsApplication1 { public partial class Form1 : Form { public Form1() { InitializeComponent(); } public class DataTreeNode : TreeNode { private object data; public DataTreeNode(object data) : base(data.ToString()) { this.data = data; } public object Data { get { return data; } } } public class Site { private string kategori; private string adres; private string kurucuad; private string aciklama; public Site(string kategori, string adres, string kurucuad, string aciklama) { this.kategori = kategori; this.adres = adres; this.kurucuad = kurucuad; this.aciklama = aciklama; } public string Kategori { get { return kategori; } set { kategori = value; } } public string Adres { get { return adres; } set { adres = value; } } public string Kurucuad { get { return kurucuad; } set { kurucuad = value; } } public string Aciklama { get { return aciklama; } set { aciklama = value; } } public override string ToString() // <------ DataTreeNode sınıfında temel constructora gönderilecek ToString() işte burası. { return kategori + " " + adres; } } private void Form1_Load(object sender, EventArgs e) { Site sitebilgi = new Site("Site", " ", " ", ""); DataTreeNode node1 = new DataTreeNode(sitebilgi); treeView1.Nodes.Add(node1); sitebilgi = new Site("Programlama", "http://bahadirsam.somee.com", "Bahadır ŞAHİN", "vc#.net,visualbasic.net,asp.net,ado.net "); DataTreeNode node2 = new DataTreeNode(sitebilgi); node1.Nodes.Add(node2); sitebilgi = new Site("Diğer", "http://ysa.somee.com", "Bahadır ŞAHİN", "Yapay Zeka, Ysa, Backpropagation"); DataTreeNode node3 = new DataTreeNode(sitebilgi); node1.Nodes.Add(node3); } private void treeView1_AfterSelect(object sender, TreeViewEventArgs e) { DataTreeNode node = (DataTreeNode)e.Node; // <--- Node DataTreeNode tipinde textBox1.DataBindings.Clear(); textBox2.DataBindings.Clear(); textBox3.DataBindings.Clear(); textBox4.DataBindings.Clear(); textBox1.DataBindings.Add("Text", node.Data, "Kategori"); textBox2.DataBindings.Add("Text", node.Data, "Adres"); textBox3.DataBindings.Add("Text", node.Data, "Kurucuad"); textBox4.DataBindings.Add("Text", node.Data, "Aciklama"); } } } //Bir sonraki makalede görüşmek üzere. Bahadır
Tablodan Veri OKumak Bu örneğimizde oluşturacağımız tablodan veri okuyacağız. using System; using System.Collections.Generic; using System.ComponentModel; using System.Data; using System.Drawing; using System.Linq; using System.Text; using System.Windows.Forms; namespace WindowsFormsApplication1 { public partial class Form1 : Form { public Form1() { InitializeComponent(); } private void button1_Click(object sender, EventArgs e) { this.dataGridView1.RowTemplate.DefaultCellStyle.BackColor = Color.LightYellow; this.dataGridView1.RowTemplate.DefaultCellStyle.ForeColor = Color.Navy; this.dataGridView1.RowTemplate.DefaultCellStyle.Font = new Font("Verdana", 10, FontStyle.Regular); DataGridViewCellStyle columnHeaderStyle = new DataGridViewCellStyle() ; columnHeaderStyle.BackColor = Color.Aqua; columnHeaderStyle.ForeColor = Color.AliceBlue; columnHeaderStyle.Font = new Font("Verdana", 10, FontStyle.Bold); dataGridView1.ColumnHeadersDefaultCellStyle = columnHeaderStyle; dataGridView1.GridColor = Color.Black; DataTable tablo1=new DataTable("Customers"); string [] str1 = {"Bahadirsa", "xxxxx", "Muhendis", "Master", "Istanbul"}; string [] str2= {"Fatih", "Koç", "Muhendis", "Üniversite", "Istanbul"}; string [] str3= {"Haluk", "Akman", "Muhendis", "Üniversite", "Istanbul"}; string [] str4 = {"Ahmet", "Aydın", "Muhendis", "Üniversite", "Istanbul"}; string[] str5 = { "Kürşat", "Şahin", "Muhendis", "Üniversite", "Istanbul" }; try { DataColumn ad = new DataColumn("Ad"); ad.DataType = System.Type.GetType("System.String"); tablo1.Columns.Add(ad); DataColumn soyad = new DataColumn("Soyad"); soyad.DataType = System.Type.GetType("System.String"); tablo1.Columns.Add(soyad); DataColumn meslek = new DataColumn("Meslek"); meslek.DataType = System.Type.GetType("System.String"); tablo1.Columns.Add(meslek); DataColumn ogrenim = new DataColumn("Öğrenim"); ogrenim.DataType = System.Type.GetType("System.String"); tablo1.Columns.Add(ogrenim); DataColumn il = new DataColumn("İl"); il.DataType = System.Type.GetType("System.String"); tablo1.Columns.Add(il); tablo1.Rows.Add(str1); tablo1.Rows.Add(str2); tablo1.Rows.Add(str3); tablo1.Rows.Add(str4); tablo1.Rows.Add(str5); } catch { MessageBox.Show("Hata Oluştu...", "Hata"); } System.Data.DataSet ds = new System.Data.DataSet(); ds = new System.Data.DataSet(); ds.Tables.Add(tablo1); dataGridView1.DataSource = ds.Tables[0]; } } } //Bir sonraki makalede buluşmak üzere.Bahadır
vScrollBar ile Renk Yönetimi VScrollBar nesnesini kullanarak formumuzun arkaplan rengini değiştireceğiz. İlk önce formunuza 3 adet vScrollBar nesnesi ekleyin. Aşağıdaki şekilleri inceleyin. Önemli Not:formunuzun InitializeComponent(); kısmına this.vScrollBar1.ValueChanged += new System.EventHandler(this.vScrollBar1_ValueChanged); this.vScrollBar2.ValueChanged += new System.EventHandler(this.vScrollBar2_ValueChanged); this.vScrollBar3.ValueChanged += new System.EventHandler(this.vScrollBar3_ValueChanged); kodlarını eklemeyi unutmayın...Bahadır using System; using System.Collections.Generic; using System.ComponentModel; using System.Data; using System.Drawing; using System.Linq; using System.Text; using System.Windows.Forms; namespace WindowsFormsApplication1 { public partial class Form1 : Form { public Form1() { InitializeComponent(); this.vScrollBar1.ValueChanged += new System.EventHandler(this.vScrollBar1_ValueChanged); this.vScrollBar2.ValueChanged += new System.EventHandler(this.vScrollBar2_ValueChanged); this.vScrollBar3.ValueChanged += new System.EventHandler(this.vScrollBar3_ValueChanged); } private void Form1_Load(object sender, EventArgs e) { label1.Text = "Değer1: 0"; label2.Text = "Değer2: 0"; label3.Text = "Değer3: 0"; this.Text = "vScrollBar Renk Yönetimi"; this.MaximizeBox = false; } private static int kırmızı = 0; private static int mavi = 0; private static int yeşil = 0; private void vScrollBar1_ValueChanged(object sender, System.EventArgs e) { this.label1.Text = String.Format("Değer1: {0}", vScrollBar1.Value); kırmızı = this.vScrollBar1.Value; this.BackColor = Color.FromArgb(kırmızı,yeşil,mavi); //veya //this.BackColor = Color.FromArgb(vScrollBar1.Value, vScrollBar2.Value, vScrollBar3.Value); //seklinde gösterebilirsiniz. } private void vScrollBar2_ValueChanged(object sender, System.EventArgs e) { this.label2.Text = String.Format("Değer2: {0}", vScrollBar2.Value); yeşil = this.vScrollBar2.Value; this.BackColor = Color.FromArgb(kırmızı, yeşil, mavi); //veya //this.BackColor = Color.FromArgb(vScrollBar1.Value, vScrollBar2.Value, vScrollBar3.Value); //seklinde gösterebilirsiniz. } private void vScrollBar3_ValueChanged(object sender, System.EventArgs e) { this.label3.Text = String.Format("Değer3: {0}", vScrollBar3.Value); mavi = this.vScrollBar3.Value; this.BackColor = Color.FromArgb(kırmızı, yeşil, mavi); //veya //this.BackColor = Color.FromArgb(vScrollBar1.Value, vScrollBar2.Value, vScrollBar3.Value); //seklinde gösterebilirsiniz. } } } //Bir sonraki makalede görüşmek üzere. Bahadır
SendKeys Kullanımı SendKeys metodunu kullanarak, textBox a yazdığımız stringi NotePad yazılmasını sağlayacağız. Ayrıca SendKeys.SendWait() metodu ilede mesajınızı direkt NotPad e yazdırabilirsiniz. Aşağıdaki şekli inceleyin. using System; using System.Collections.Generic; using System.ComponentModel; using System.Data; using System.Drawing; using System.Linq; using System.Text; using System.Windows.Forms; namespace WindowsFormsApplication1 { public partial class Form1 : Form { public Form1() { InitializeComponent(); } private void button1_Click(object sender, EventArgs e) { Microsoft.VisualBasic.AppWinStyle stil = Microsoft.VisualBasic.AppWinStyle.NormalFocus; int i; Microsoft.VisualBasic.Interaction.Shell(@"NotePad.exe", stil, false,-1); for (i = 0; i <= textBox1.Text.Length - 1; i += 1) { SendKeys.SendWait(textBox1.Text.Substring(i, 1)); if (i > textBox1.Text.Length) { break; } } // Bu kısımdada textboxta yazılan yazının altına //aşağıdaki mesajı ekliyoruz. Notepade ekliyecek... SendKeys.SendWait("{ENTER}"); SendKeys.SendWait("Şimdilik bu kadar...Bahadır ŞAHİN"); } private void Form1_Load(object sender, EventArgs e) { this.Text = "SendKeys..."; this.MaximizeBox = false; } } } //Bir sonraki makalede görüşmek üzere. Bahadır
CD-ROM ınızı Açıp Kapatma BU örnekte cd-rom u açıp kapatmayı göreceğiz. İlk önce formunuza Class ekleyin. Class a aşağıdaki kodları yazın. Class kısmına using System.Runtime.InteropServices; eklemeyi unutmayın. Class a yazılacak kodlar using System; using System.Collections.Generic; using System.Linq; using System.Text; using System.Runtime.InteropServices; namespace WindowsFormsApplication1 { class Class1 { [DllImport("winmm.dll", EntryPoint = "mciSendStringA")] public static extern int mciSendString(string lpstrCommand, string lpstrReturnString, int uReturnLength, int hwndCallback); [DllImport("kernel32.dll", EntryPoint = "GetVolumeInformationA")] public static extern int GetVolumeInformation(string lpRootPathName, StringBuilder lpVolumeNameBuffer, int nVolumeNameSize, int lpVolumeSerialNumber, int lpMaximumComponentLength, int lpFileSystemFlags, string lpFileSystemNameBuffer, int nFileSystemNameSize); [DllImport("kernel32.dll", EntryPoint = "GetDriveTypeA")] public static extern int GetDriveType(string nDrive); } } Forma yazacağınız kodlar using System; using System.Collections.Generic; using System.ComponentModel; using System.Data; using System.Drawing; using System.Linq; using System.Text; using System.Windows.Forms; namespace WindowsFormsApplication1 { public partial class Form1 : Form { int i; public Form1() { InitializeComponent(); } private void button1_Click(object sender, EventArgs e) { if (i == Class1.mciSendString("set CDAudio door closed", null, 127, 0)) { Class1.mciSendString("set CDAudio door open", null, 127, 0); //MessageBox.Show("CD-ROM şu an açık"); button1.Text = "CD-ROM şu an açık "; } else if (i == Class1.mciSendString("set CDAudio door open", null, 127, 0)) { Class1.mciSendString("set CDAudio door closed", null, 127, 0); //MessageBox.Show("CD-ROM şu an açık"); button1.Text = "CD-ROM şu an kapalı "; } } private void Form1_Load(object sender, EventArgs e) { button1.Text = "CD-ROM Aç/Kapa"; } } } //Bir sonraki makalede görüşmek üzere...Bahadır
Sistem Bilgilerini Almak Bu örnekte bilgisayarın adını, versiyonunu, çözünürlüğünü, ne kadar süre işletim sisteminin açık olduğu gibi bilgileri alacağız. Formunuza 12 adet label, 1 button ekleyin. Aşağıdaki şekilleri inceleyin. using System; using System.Collections.Generic; using System.ComponentModel; using System.Data; using System.Drawing; using System.Linq; using System.Text; using System.Windows.Forms; namespace WindowsFormsApplication1 { public partial class Form1 : Form { public Form1() { InitializeComponent(); } private void Form1_Load(object sender, EventArgs e) { label1.Text = "Bilgisayar Adı:"; label2.Text = "Sistem Dizini:"; label3.Text = "Ekran Çözünürlüğü:"; label4.Text = "Süre:"; label5.Text = "Directory Dizini:"; label6.Text = "Versiyon No:"; label7.Text=""; label8.Text=""; label9.Text=""; label10.Text=""; label11.Text = ""; label12.Text = ""; btn1.Text = "Sistem Bilgilerini Al"; this.Text = "Sistem Bilgileri"; this.MaximizeBox=false; } private void btn1_Click(object sender, EventArgs e) { label7.Text = System.Environment.MachineName; label8.Text = System.Environment.SystemDirectory; label9.Text = Convert.ToString(SystemInformation.PrimaryMonitorSize); int r, f; r = System.Environment.TickCount; f = ((r / 1000) / 60); label10.Text = Convert.ToString(f) + " dakikadır bilgisayarınız açık."; label11.Text = Convert.ToString(System.Environment.OSVersion); label12.Text = Convert.ToString(System.Environment.Version); } } } //Bir sonraki makalede görüşmek üzere...Bahadır
colorDialog Kullanımı Bu örneğimizde colorDialog nesnesini kullanarak formumuzun rengini değiştireceğiz. İlk önce formunuza 1 adet button ve colorDialog ekleyin. Aşağıdaki şekilleri inceleyin. using System; using System.Collections.Generic; using System.ComponentModel; using System.Data; using System.Drawing; using System.Text; using System.Windows.Forms; namespace WindowsApplication1 { public partial class Form1 : Form { public Form1() { InitializeComponent(); } private void btnRenk_Click(object sender, EventArgs e) { if (colorDialog1.ShowDialog() == System.Windows.Forms.DialogResult.OK); { this.BackColor = colorDialog1.Color; } } private void Form1_Load(object sender, EventArgs e) { this.Text = "colorDialog Bahadirsa"; this.Size = new System.Drawing.Size(250, 200); this.Location = new Point(100, 100); this.MaximizeBox = false; } } } //Bir sonraki makalede görüşmek üzere...Bahadır
Ağ Kontrolu Bu uygulamamızda bilgisayarımızın ağa bağlı olup olmadığını ve hangi ad ile bağlı olduğunu göreceğiz. Aşağıdaki şekili inceleyiniz. Formunuza 1 adet button ve textBox ekleyin. textBox ın MultiLine özelliğini true yapın...Bahadirsa using System; using System.Collections.Generic; using System.ComponentModel; using System.Data; using System.Drawing; using System.Text; using System.Windows.Forms; namespace WindowsApplica,tion1 { public partial class Form1 : Form { public Form1() { InitializeComponent(); } private void Form1_Load(object sender, EventArgs e) { textBox1.Multiline = true; this.Text = "Ağ Bağlantısı Kontrol...Bahadirsa"; this.MaximizeBox = false; this.Location = new Point(250, 250); } private void btnBaglan_Click(object sender, EventArgs e) { System.Net.IPHostEntry host; try { textBox1.Text = Environment.GetEnvironmentVariable("LOGONSERVER"); host = System.Net.Dns.GetHostByName(textBox1.Text.Substring(2)); textBox1.Text = textBox1.Text + Environment.NewLine + " Adıyla ağa bağlısınız. "; return; } catch { textBox1.Text = "Ağ Bağlantınız Bulunmamaktadır."; } } } } //Bir sonraki makalede görüşmek üzere...Bahadirsa
TextBox a Pi Sayısı Ekleme Bu örneğimizde textbox ımıza pi sayısı ekliyeceğiz. Bunun için Math metodundan yararlanacağız. Aşağıdaki şekli inceleyiniz...Bahadirsa using System; using System.Collections.Generic; using System.ComponentModel; using System.Data; using System.Drawing; using System.Text; namespace WindowsApplication1 { public partial class Form1 : Form { public Form1() { InitializeComponent(); } private void Form1_Load(object sender, EventArgs e) { this.Text = "Pi sayısı ekleme"; this.MaximizeBox = false; button1.Text = "Ekle"; } private void button1_Click(object sender, EventArgs e) { double pi; pi = 4 * Math.Atan(1); textBox1.Text = Convert.ToString(pi); } } } //Bir sonraki makalede görüşmek üzere...Bahadirsa
Exe Uygulamalarının Dosya Özelliklerinin Alınması Bu uygulamamızda .Exe uygulamalarının özelliklerinin alınması konusunu inceleyeceğiz. Uygulamamızda Windows Media Player e ait özelliklerin gösterilmesini inceledik. Formunuza 1 adet openFileDialog, 1 adet button, 7 adet label ve textbox ekleyin. Aşağıdaki şekil 1 deki gibi formunuzu tasarlayın...Bahadirsa using System; using System.Collections.Generic; using System.ComponentModel; using System.Data; using System.Drawing; using System.Text; using System.Windows.Forms; using System.Diagnostics; namespace WindowsApplication1 { public partial class Form1 : Form { public Form1() { InitializeComponent(); } private void Form1_Load(object sender, EventArgs e) { this.Text = "Exe Uygulamalarına Ait Özelliklerin Gösterilmesi...Bahadirsa"; this.MaximizeBox = false; this.Location = new Point(250, 200); this.Size = new System.Drawing.Size(360, 300); } private void button1_Click(object sender, EventArgs e) { openFileDialog1.Title = "Dosya Aç Bahadirsa"; openFileDialog1.InitialDirectory = "C:\\"; openFileDialog1.Filter = "Exe Uygulaması Dosyası (.exe)\|*.exe"; if (openFileDialog1.ShowDialog() == System.Windows.Forms.DialogResult.OK) { FileVersionInfo FileProperties = FileVersionInfo.GetVersionInfo(openFileDialog1.FileName); //Dosya tanımlamasını al textBox1.Text = FileProperties.FileDescription; //Dosya versiyonunu al textBox2.Text = FileProperties.FileVersion; //Dahili ismini al textBox3.Text = FileProperties.InternalName; //Orjinal ismini al textBox4.Text = FileProperties.OriginalFilename; //Uretim ismini al textBox5.Text = FileProperties.ProductName; //Uretim versiyonunu al textBox6.Text = FileProperties.ProductVersion; //Dosya dilini al textBox7.Text = FileProperties.Language; } } } } // Bir sonraki makalede görüşmek dileğiyle...Bahadirsa
fontDialog Kullanımı Formunuza 1 adet label, button ve fontDialog ekleyin. Bu örnekte labelimizin font değerlerini değiştireceğiz. Aşağıdaki şekilleri inceleyin...Bahadirsa using System; using System.Collections.Generic; using System.ComponentModel; using System.Data; using System.Drawing; using System.Text; using System.Windows.Forms; namespace WindowsApplication1 { public partial class Form1 : Form { public Form1() { InitializeComponent(); } private void button1_Click(object sender, EventArgs e) { if (fontDialog1.ShowDialog() == System.Windows.Forms.DialogResult.OK) { label1.Font = fontDialog1.Font; } } } } Bir sonraki makalede görüşmek üzere...Bahadirsa
Kısmi String Alma Bu örneğimizde bir string de yazılan metinin bir kısmını alıp, MessageBox ta göstereceğiz. Formunuza 1 adet button ekleyin ve aşağıdaki kodları yazın... Bahadirsa using System; using System.Collections.Generic; using System.ComponentModel; using System.Data; using System.Drawing; using System.Text; using System.Windows.Forms; namespace WindowsApplication1 { public partial class Form1 : Form { public Form1() { InitializeComponent(); } private void button1_Click(object sender, EventArgs e) { string str = "Merhaba Bahadirsa"; str = str.Substring(8, 9); MessageBox.Show(str); } } }
VC #.Net te SoundPlayer Kullanımı Bu örnekte SoundPlayer kullanımını inceleyeceğiz. İlk önce using System.Media; ekleyin. Formunuza 1 adet openFileDialog, 4 Button ve 1 label ekleyin. Bu örnektw .wav uzantılı ses dosyalarını çalacağız. Aşağıdaki Şekili inceleyin...Bahadirsa using System; using System.Collections.Generic; using System.ComponentModel; using System.Data; using System.Drawing; using System.Text; using System.Windows.Forms; using System.Media; namespace WindowsApplication1 { public partial class Form1 : Form { public Form1() { InitializeComponent(); } private void btnAc_Click(object sender, EventArgs e) { label1.Text = ""; openFileDialog1.Filter = ".wav dosyaları\|.wav\|Tüm Dosyalar\|."; openFileDialog1.ShowDialog(); label1.Text = openFileDialog1.FileName; } private void btnCal_Click(object sender, EventArgs e) { if (label1.Text != "" && label1.Text.ToLower().IndexOf(".wav") > 0) { SoundPlayer sp = new SoundPlayer(); sp.SoundLocation = label1.Text; sp.Play(); } } private void btnDurdur_Click(object sender, EventArgs e) { SoundPlayer sp = new SoundPlayer(); sp.Stop(); } private void btnLoop_Click(object sender, EventArgs e) { if (label1.Text != "" && label1.Text.ToLower().IndexOf(".wav") > 0) { SoundPlayer sp = new SoundPlayer(); sp.SoundLocation = label1.Text; sp.PlayLooping(); } } private void Form1_Load(object sender, EventArgs e) { } } } Bir sonraki makalede buluşmak üzere...Bahadirsa
VC#.Net te InputBox Kullanımı Bu makalemizde C#.Net te InputBox nasıl kullanılır konusunu işleyeceğiz. İlk önce Project kısmından Add Reference tıklayın. Daha sonra .Net kısmından Microsoft.VisualBasic i seçip OK e tıklayın. Microsoft.VisualBasic.Interaction.InputBox(); şeklinde InputBox ı kullanacağız. Aşağıdaki kodları ve şekilleri inceleyin...Bahadirsa using System; using System.Collections.Generic; using System.ComponentModel; using System.Data; using System.Drawing; using System.Text; using System.Windows.Forms; namespace WindowsApplication1 { public partial class Form1 : Form { public Form1() { InitializeComponent(); } private void button1_Click(object sender, EventArgs e) { Int32 XPos = ((SystemInformation.WorkingArea.Width/2)-200); Int32 YPos = ((SystemInformation.WorkingArea.Height/2)-100); String ad = Microsoft.VisualBasic.Interaction.InputBox("Lütfen İsim Giriniz...", "VC# InputBox Örnek... ", "Bahadır", XPos, YPos); if(ad != "") { MessageBox.Show("Merhaba " + ad); } else { MessageBox.Show("Merhaba her kimsen..."); } } } } Bir sonraki makalede görüşmek üzere...Bahadirsa
WebBrowser da Kayan Yazı Bu örnekte webbrowser nesnesinde Navigate girilen yazıyı kaydıracağız. Aşağıdaki şekilleri inceleyin. Public Class Form1 Private Sub btnBaslat_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnBaslat.Click baslat() End Sub Sub baslat() WebBrowser1.Navigate("about:< body scroll=’no’ >< body bgcolor=white >< marquee scrolldelay=’120’ direction=’Left’style=’font-size: 20pt; font-family: Verdana; color:orangered; font-weight: bold() ’> Merhaba Dünya. Bahadır ŞAHİN< / marquee >") End Sub Private Sub btnDurdur_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnDurdur.Click WebBrowser1.Navigate("about:") End Sub End Class Bir sonraki makalede görüşmek üzere. Bahadır ŞAHİN
Ekran Görüntüsünü Almak Bu makalemizde ekran görüntüsünün nasıl alındığını göreceğiz. Aşağıdaki kodları formunuzun button click ine yazın. Public Class Form1 Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Me.Hide() ’ formumuzun ekran görüntüsünde çıkmaması için gizliyoruz. Threading.Thread.Sleep(1000) ’Girilen süre zarfınca bekletiyoruz. ’Ekran boyutunu ve görüntüsünü alıyoruz. Dim ekranboyut As Size = New Size(My.Computer.Screen.Bounds.Width, My.Computer.Screen.Bounds.Height) Dim ekrangoruntu As New Bitmap(My.Computer.Screen.Bounds.Width, My.Computer.Screen.Bounds.Height) Dim grafik As System.Drawing.Graphics = System.Drawing.Graphics.FromImage(ekrangoruntu) grafik.CopyFromScreen(New Point(0, 0), New Point(0, 0), ekranboyut) ekrangoruntu.Save("C:\screen.jpg", System.Drawing.Imaging.ImageFormat.Jpeg) Me.Show() ’görüntü alma işlemi bittikten sonra formumuzu gösteriyoruz. ’Daha sonra ekran görüntüsüne ait image ı process yardımıyla açıyoruz Dim pr As System.Diagnostics.Process = New System.Diagnostics.Process() pr.StartInfo.FileName = "C:\screen.jpg" pr.Start() End Sub End Class
Form Başlığında Kayan Yazı Formunuza 1 adet Timer ekleyin. Sonra Imports vb = Microsoft.VisualBasic i ekleyin. Aşağıdaki kodları formunuza ekleyin. Imports vb = Microsoft.VisualBasic Public Class Form1 Dim i As Integer Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load Timer1.Interval = 50 Timer1.Start() End Sub Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick i = i + 1 Me.Text = vb.Left("Merhaba Dünya...Bahadır ŞAHİN", i) If i > 100 Then i = 0 End If End Sub End Class
Çalışma Anında Buttonu Hareket Ettirmek Bu örnekte button un keydown yordamına yazılan küçük bir kod parçasıyla butonu sağa,sola, yukarı, aşağı hareket ettirebiliriz. Public Class Form1 Dim a As Integer = 10 Dim b As Integer = 10 Private Sub Button1_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles Button1.KeyDown If e.KeyValue = Keys.W Then a = a - 4 Button1.Top = a ElseIf e.KeyValue = Keys.A Then b = b - 4 Button1.Left = b ElseIf e.KeyValue = Keys.S Then a = a + 4 Button1.Top = a ElseIf e.KeyValue = Keys.D Then b = b + 4 Button1.Left = b End If End Sub End Class Bir sonraki makalede görüşmek üzere. Bahadır ŞAHİN
Çalışma Anında Label Oluşturmak Aşağıdaki şekillerde gösterildiği gibi çalışma anında label oluşturacağız. Public Class Form1 Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Dim labels As New Label labels.Name = "labeller" labels.Text = "Çalışma Anında Label Oluşturmak- Örnek" labels.Size = New System.Drawing.Size(500, 100) labels.Font = New System.Drawing.Font("Tahoma", 10, FontStyle.Bold) labels.Location = New Point(1, 40) labels.Visible = True Me.Controls.Add(labels) End Sub End Class Bir sonraki makalede görüşmek üzere. Bahadır ŞAHİN
Process Nesnesi Kullanılarak Video Dosyası Açmak Bu örnekte process nesnesi ile video dosyası açacağız. Public Class Form1 Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Dim prc As New Process prc.StartInfo.FileName = "C:\test.avi" prc.StartInfo.Arguments.Insert(0, "-Fullscreen") prc.Start() End Sub End Class Bir sonraki makalede görüşmek üzere. Bahadır ŞAHİN
VisualBasic.Net C# Arasındaki Belli Başlı Farklılıklar Bilindiği gibi Microsoft .NET teknolojisinde şu an için yoğun olarak C# ve VB.NET dilleri kullanılmaktadır.Bu iki dilin .NET için bu kadar önemli olmasının Java ve Visual Basic üzerinde yazılım geliştirenlerin bildiklerini unutmak zorunda kalmadan .NET ‘e geçişinin kolaylaştırılmasının amaçlanmış olduğunu sanıyoruz. .NET ile sadece VB dili gibi uygulama geliştirmenin son derece zahmetsiz ve kolay biçimde gerçekleştirilmesini sağlayan bir dile tam destek verilmemiş aynı zamanda bu dilde bir takım değişiklikler yapılarak tam anlamıyla nesne temelli bir yapıya dönüştürülmüştür. Bu yazıda C# ile VB.NET dilleri arasındaki bir takım farklılıkları ve benzerlikleri anlatmaya çalıştık.Belki her şeyden önce ilk söylenmesi gereken C# ‘ın bütün C türevi dillerde olduğu gibi büyük-küçük harf duyarlı (case-sensitive) olduğuna dikkat çekmektir.Yani C# için String ile string kesinlikle farklı şeylerdir.Bu hassasiyet tahmin edileceği gibi VB.NET dilinde mevcut değildir. Program açıklamaları : VB.NET ‘de açıklamalar yine önceki sürümde olduğu gibi bir kesme ( ‘ ) imi ile yapılıyor.Derleme işlemi esnasında açıklama bölümü dikkate alınmadığı için açıklamalarınızı Türkçe karakter kullanarak yapabilirsiniz. ‘ VB açıklaması C#’da ise Java ‘da olduğu gibi tek satırlık bir açıklama için çift slash (//) ve çok satırlı bir açıklama için bir slash ve yıldız (/) ile başlayıp diğer satırın sonunda bir yıldız ve bir slash ile biten (/) açıklama biçimi kullanılıyor. // Tek satırlık C# açıklaması /* Çok satırlı bir C# açıklaması */ Satır sonlandırması : VB.NET ‘te önceki VB sürümünde olduğu satır bitirmeye yarayan bir im yoktur bunun yerine alt satıra geçerken boşluk alt çizgi ( _) imi kullanılır. degisken = degisken1 + degisken2 +_degisken3 Java,JavaScript,PHP gibi C türevi bütün dillerde olduğu gibi C# ‘da da satırlar noktalı virgül ( ; ) ile biter.Bunun dışında noktalı virgül konulmadığı sürece alt satırlara geçilebilir. degisken = degisken1 + degisken2 +degisken3; Koşullu Yapılar : If –elseif-else VB.NET If sayi =1 ThenYapılacak işlemElseif degisken=”Merhaba”Yapılacak başka bir işlemElseYapılacak başka bir işlemEnd If C# if (sayi=1){Yapılacak işlem;}elseif (degisken==”Merhaba”){Yapılacak başka bir işlem}else{Yapılacak başka bir işlem} Select Case VB.NET Select Case DegiskenCase 1Yapılacak işlemCase 2Yapılacak işlemCase ElseYapılacak işlemEnd Select C# switch (degisken){case 1:Yapılacak işlembreak;case 2:Yapılacak işlembreak;default:Yapılacak işlembreak;} Döngüler For-Next For-Next döngüsü bütün programlama dillerinde kullanılan bir döngüdür.VB.NET dilinde Step kelimesi ile döngüyü istenen adımda yapmak imkanı da vardır.Aşağıdaki örnekte değişken değeri Step 1 ile 1 arttırılmaktadır.C# dilinde ise bu durum ufak tefek farklılıklar ile aynıdır. VB.NET Dim i As IntegerFor i=1 To 10 Step 110 kez sürecek bir iş yapNext C# for (int 1=0 ;i<10;i++){10 kez sürecek bir iş yap} Do Loop VB.NET dili Do While döngüsünü hem While için olanını hem de Until için olanını destekler.While koşulunda “karşılaştırma doğru olduğu sürece” Until ise “karşılaştırma doğru olmadığı sürece” anlamındadır.C#’ta ise sadece While anahtar sözcüğü kullanılmaktadır. Do While döngüsü iki şekilde olmaktadır. VB.NET Dim i As Integer = 1Doi+=110 kez sürecek bir iş yapLoop While i < 10 Veya Dim i As IntegerDo While i<10i+=110 kez sürecek bir iş yapLoop C# int i=1;while (i<10){i+=1;10 kez sürecek bir iş yap} Veya aşağıdaki şekilde koşulun koddan sonra çıkılmasına olanak veren biçimde: int i=1;{i+=1;10 kez sürecek bir iş yap}while (i<10); NOT: Bu yazı alıntıdır. Bir sonraki makalede görüşmek üzere. Bahadır ŞAHİN
Dosya Yolunu ve Özelliklerini Öğrenmek Bu örnekte dosyanın yolunu, uzantısını, adını, directory i öğreneceğiz. İlk önce ConsoleAplication sayfası açın. Aşağıdaki şekli inceleyin. Imports System.IO Module Module1 Sub Main() Dim P As String = "C:\Test.txt" Try Console.WriteLine("Başlama Adresi: {0}", P) Console.WriteLine("Directory Adı: {0}", Path.GetDirectoryName(P)) Console.WriteLine("Uzantı: {0}", Path.GetExtension(P)) Console.WriteLine("Dosya Adı: {0}", Path.GetFileName(P)) Console.WriteLine("Uzantı İle Birlikte Dosya Adı: {0}", Path.GetFileNameWithoutExtension(P)) Console.WriteLine("Tam Adres: {0}", Path.GetFullPath(P)) Console.WriteLine("Root: {0}", Path.GetPathRoot(P)) Catch E As Exception Console.WriteLine("Hata: {0}", E.Message) End Try Console.WriteLine() Threading.Thread.Sleep(10000) End Sub End Module Bir sonraki makalede görüşmek üzere. Bahadır ŞAHİN
TL yi YTL ye Dönüştürmek Bu örnekte TL olan tutarı YTL ve YKrş a çevireceğiz. Formunuza 1 button ekleyin. Aşağıdaki şekli inceleyin. Public Class Form1 Dim tl, ytl, ykr As Decimal Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click If TextBox1.Text <> "" Then tl = Val(TextBox1.Text) ytl = Int(tl / 1000000) ykr = Int((tl Mod 1000000) / 10000) MessageBox.Show(ytl & "," & ykr & vbCrLf & ytl & " YTL " & ykr & " Yeni Kuruş") If TextBox1.Text Mod 10000 >= 5000 Then ykr = ykr + 1 Else ykr = ykr End If End Sub End Class Bir sonraki makalede görüşmek üzere. Bahadır ŞAHİN
Memory Stream ile Yazma ve Okuma Bu örnekte memory stream metodu ile yazmayı ve yazdığımızı okutmayı göreceğiz. İlk önce File New Projec Console Application açın. Aşağıdaki şekli inceleyin. Imports System Imports System.IO Imports System.Text Module Module1 Sub Main() Dim mstream As New MemoryStream() Dim binaryyaz As New BinaryWriter(mstream) binaryyaz.Write("www.bahadirsam.somee.com") Dim binaryoku As New BinaryReader(mstream) mstream.Seek(0, SeekOrigin.Begin) Console.WriteLine(binaryoku.ReadString()) binaryoku.Close() End Sub End Module Bir sonraki makalede buluşmak üzere. Bahadır ŞAHİN
Bilgisayar Host ve Kullanıcı Adını Öğrenmek Bu örnekte bilgisayarın host ve kullanıcı adını öğreneceğiz. Formunuza 1 adet Button ekleyin. Aşağıdaki şekli inceleyin. Public Class Form1 Sub Get_Bilgi() Dim HostAd As String Dim KullaniciAd As String ’ Host Adı / Bilgisayar Adı HostAd = Environ$("computername") ’ Kullanıcı Adı KullaniciAd = Environ$("username") MsgBox("Kullanıcı Adı: " & KullaniciAd & vbCrLf & "Host Adı: " & HostAd) End Sub Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Get_Bilgi() End Sub End Class Bir sonraki makalede buluşmak üzere. Bahadır ŞAHİN
Bilgisayar Host Adını Değiştirmek Bu örnekte bilgisayarın Host adını değiştireceğiz. Formunuza 1 adet Button ve TextBox ekleyin. Public Class Form1 Declare Function SetBilgisayarAd Lib "kernel32" _ Alias "SetComputerNameA" (ByVal lpBilgisayarAd As String) As _ Long Public Function BilgisayarAdiniDegistir(ByVal YeniBilgisayarAd As String) _ As Boolean On Error Resume Next Dim nReturn As Long nReturn = SetBilgisayarAd(YeniBilgisayarAd) If Err.Number = 0 Then BilgisayarAdiniDegistir = nReturn <> 0 End If End Function Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click BilgisayarAdiniDegistir(TextBox1.Text) End Sub End Class
Dosya İsmi Değiştirme İstediğiniz dosyanın ismini küçük bir kod parçasıyla değiştirebilirsiniz. İlk önce; Imports System.IO i formunuza eklemeyi unutmayın. Imports System.IO Public Class Form1 Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Dim dosyabilgi As New FileInfo("C:\image.jpg") 'image.jpg ismini resim.jpg olarak değiştireceğiz. dosyabilgi.MoveTo("C:\resim.jpg") 'veya klasör ismi değiştirmek istersek; 'Dim dosyabilgi As New FileInfo("C:\test") 'dosyabilgi.MoveTo("C:\test2") End Sub End Class Bir sonraki makalede buluşmak üzere. Bahadır ŞAHİN
Girilen Tarihi Kontrol Etmek Aşağıdaki küçük kod parçasında girmiş olduğumuz tarihin uygun olup olmadığı kontrol edilmektedir. Public Class Form1 Public Function TarihKontrol(ByVal Tarih As String) As Boolean Dim Sonuc As Boolean = False Err.Clear() On Error GoTo Hata Dim Trh As DateTime = Tarih Hata: If Err.Number <> 0 Then Sonuc = False Else Sonuc = True Return Sonuc End Function Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click ‘Aşağıdaki tarih kısmını Ay.Gün.Yıl sırasında yazınız.) MessageBox.Show(IIf(TarihKontrol("08.17.08"), "Girilen Tarih Uygun", "Girilen Tarih Uygun Değil"), "Tarih Kontrolü", MessageBoxButtons.OK) End Sub End Class Bir sonraki makalede buluşmak üzere. Bahadır ŞAHİN
RichTextBox a Resim Ekleme Bu örnekte RichTextBox ın içine resim ekleyeceğiz.Clipboard metodundan yararlanacağız. Aşağıdaki şekilleri inceleyin. Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Dim img As Image = Image.FromFile("C:\resim.jpg") Clipboard.SetImage(img) Me.RichTextBox1.Paste() End Sub Bir sonraki makalede buluşmak üzere. Bahadır ŞAHİN
Ağ Bağlantılarım Klasörünün Açılması Ağ Bağlantılarım Klasörünü Process.Start("ncpa.Cpl") metodunu kullanarak açabilirsiniz. Public Class Form1 Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Process.Start("ncpa.Cpl") End Sub End Class Bir sonraki makalede buluşmak üzere. Bahadır ŞAHİN
Faktoriyel Bulmak TextBox a girmiş olduğunuz sayının faktoriyelini bulur. Aşağıdaki şekili inceleyin. Public Class Form1 Private Function faktoriyel() Dim i As Integer faktoriyel = 1 For i = 1 To TextBox1.Text faktoriyel = faktoriyel * i Next End Function Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click MessageBox.Show(Val(TextBox1.Text) & "!=" & faktoriyel(), "Faktoriyel", MessageBoxButtons.OKCancel) End Sub End Class Bir sonraki makalede buluşmak üzere. Bahadır ŞAHİN
TextBox ta Arama Yaptırmak Formunuza 2 adet TextBox ve 1 adet Button ekleyin. Textbox2 ye yazdığımız kelimeyi TextBox1 de aratacağız. Aşağıdaki şekilleri inceleyin. Public Class Form1 Dim ArananKelime As String Dim KelimeninYeri, AramayaBasla As Integer Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click On Error GoTo hata ArananKelime = TextBox2.Text ‘textbox2 içindeki kelimeyi arayacağız AramayaBasla = TextBox1.SelectionStart + TextBox1.SelectionLength If AramayaBasla = 0 Or AramayaBasla = Len(TextBox1.Text) Then AramayaBasla = 1 ‘aranan kelime bulunmazsa başa döneceğiz KelimeninYeri = InStr(AramayaBasla, TextBox1.Text, ArananKelime, vbTextCompare) TextBox1.Focus() ‘kelime bulunduğunda işaretliyoruz TextBox1.SelectionStart = KelimeninYeri - 1 TextBox1.SelectionLength = Len(ArananKelime) Exit Sub End If hata: TextBox1.SelectionStart = 1 End Sub End Class Bir sonraki makalede buluşmak üzere. Bahadır ŞAHİN
Bilgisayar İsmini ve Kullanıcı Adını Öğrenmek Bilgisayarınızın adını ve kullanıcı adını öğrenmek için aşağıdaki kod parçasını Button un Click yordamına yazın. Şekli inceleyin. Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click TextBox1.Text = SystemInformation.ComputerName & "/" & SystemInformation.UserName End Sub Bir sonraki makalede buluşmak üzere. Bahadır ŞAHİN
PictureBox ı Mouse İle Hareket Ettirin Formunuzun MouseMove özelliğine aşağıdaki kodları yazın. Picturebox ı çalışma anında hareket ettirin. Aşağıdaki şekilleri inceleyin. Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load PictureBox1.Image = Image.FromFile("C:\pic1.jpg") PictureBox1.SizeMode = PictureBoxSizeMode.StretchImage End Sub Private Sub Form1_MouseMove(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Me.MouseMove With PictureBox1 .Top = e.Y .Left = e.X End With End Sub Bir sonraki makalede buluşmak üzere. Bahadır ŞAHİN
Çözünürlük Bulmak Bilgisayarınızın ekranın çözünürlüğünü ve İşletim sisteminizin kaç bit olduğunu bulan program. Public Class Form1 Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load Dim en, boy, bit en = Screen.PrimaryScreen.Bounds.Width boy = Screen.PrimaryScreen.Bounds.Height bit = Screen.PrimaryScreen.BitsPerPixel MsgBox("Ekran Çözünürlüğü: " & en & "x" & boy & vbCrLf & "Bit:" & bit) End Sub End Class Bir sonraki makalede buluşmak üzere. Bahadır ŞAHİN
Resim Boyunu Öğrenmek Resimlerimizin boyutunu; yazacağımız küçük bir kod parçasıyla öğrenebiliriz. Formunuza 1 adet buton ekleyin. Aşağıdaki şekli inceleyin. Imports System.IO Public Class Form1 Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Dim buffer As Byte() Dim fs As FileStream = New FileStream("C:\ornek.jpg", FileMode.Open, FileAccess.Read) ReDim buffer(fs.Length) fs.Read(buffer, 0, fs.Length) fs.Close() MessageBox.Show("Resim Boyut(Byte cinsinden): " & buffer.Length) End Sub End Class Bir sonraki makalede buluşmak üzere. Bahadır ŞAHİN
Ascii Kodlarını Yazdırmak Ascii kodlarını textbox a yazdıracağız. Formunuza 1 adet textbox ekleyin. Aşağıdaki şekli inceleyin. Public Class Form1 Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load Dim x, y As String Dim i As Integer TextBox1.Clear() TextBox1.Font = New System.Drawing.Font("Courier New", 12, FontStyle.Regular) For i = 32 To 255 x = i.ToString y = Chr(i) TextBox1.Text = TextBox1.Text & "chr(" & x & ")=" & y & Space(5) If (i - 31) Mod 7 = 0 Then i = i + 1 End If Next i End Sub End Class Bir sonraki makalede buluşmak üzere. Bahadır ŞAHİN
Trafik Işıkları Trafik ışıkları örneğini vb.nette göreceğiz. Formunuza 1 adet timer ekleyin. Intervali 1000 olsun. kare.FillRectangle() ile kare dörtgen şekli, kirmizi.FillEllipse() ile eliptik şekli oluşturacağız. Aşağıdaki şekilleri inceleyin. Public Class Form1 Dim i As Integer = 0 Dim kirmizi As Graphics = Me.CreateGraphics Dim sari As Graphics = Me.CreateGraphics Dim yesil As Graphics = Me.CreateGraphics Dim kare As Graphics = Me.CreateGraphics Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load Timer1.Interval = 1000 Timer1.Enabled = True End Sub Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick Dim X As Integer X += 5 i = i + 1 If i > 0 And i <= 2 Then ‘kare şeklini oluşturuyoruz. ‘Aşağıda Brushes.Black ile şeklin arka plan rengi, X artış, 20 formda ‘ki üst kısımdaki boşluğu(top), 41 genişlik, 130 yüksekliği belirtir. kare.FillRectangle(Brushes.Black, X, 20, 41, 130) ‘yuvarlak kırmızı ışık şeklini oluşturuyorz. kirmizi.FillEllipse(Brushes.Red, X, 25, 40, 40) sari.FillEllipse(Brushes.Yellow, X, 65, 40, 40) yesil.FillEllipse(Brushes.Green, X, 105, 40, 40) ElseIf i > 2 And i <= 6 Then kare.FillRectangle(Brushes.Black, X, 20, 41, 130) kirmizi.FillEllipse(Brushes.Red, X, 25, 40, 40) sari.FillEllipse(Brushes.White, X, 65, 40, 40) yesil.FillEllipse(Brushes.White, X, 105, 40, 40) ElseIf i > 6 And i <= 7 Then kare.FillRectangle(Brushes.Black, X, 20, 41, 130) kirmizi.FillEllipse(Brushes.White, X, 25, 40, 40) sari.FillEllipse(Brushes.Yellow, X, 65, 40, 40) yesil.FillEllipse(Brushes.White, X, 105, 40, 40) ElseIf i > 7 And i <= 12 Then kare.FillRectangle(Brushes.Black, X, 20, 41, 130) kirmizi.FillEllipse(Brushes.White, X, 25, 40, 40) sari.FillEllipse(Brushes.White, X, 65, 40, 40) yesil.FillEllipse(Brushes.Green, X, 105, 40, 40) ElseIf i > 12 Then i = 3 End If End Sub End Class Bir sonraki makalede buluşmak üzere. Bahadır ŞAHİN
Label de Kayan Yazı Imports vb = Microsoft.VisualBasic i formunuza ekleyin. Bu örnekte Labeldeki yazıyı kaydıracağız. Formunuza Timer nesnesi ekleyin. Imports vb = Microsoft.VisualBasic Public Class Form1 Dim ilkharf, yazi Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load Timer1.Enabled = True Timer1.Interval = 250 Label1.Text = " Bahadır ŞAHİN " End Sub Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick ilkharf = vb.Left(Label1.Text, 1) yazi = vb.Right(Label1.Text, Len(Label1.Text) - 1) Label1.Text = yazi + ilkharf End Sub End Class ‘Bir sonraki makalede görüşmek üzere. Bahadır ŞAHİN
Haftanın Gününe Göre Dosya Kopyalama Haftanın gününe göre seçilen dosyanın yedeğini alınmasını sağlıyacağız. Aşağıdaki şekilleri inceleyin. Public Class Form1 Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load Dim tarih As Date = Now Dim gun Dim gunadi gun = Weekday(tarih, FirstDayOfWeek.Monday) gunadi = WeekdayName(gun, False, FirstDayOfWeek.Monday) Dim gunsayi gunsayi = Weekday(tarih, FirstDayOfWeek.Monday) ‘kopyalacak text dosyası oluşturuluyor. ‘sizler istediğiniz dosyanın günlük olarak yedeğini ‘alabilirsiniz. Dim dosya As New System.IO.StreamWriter("C:\test" & gunsayi.ToString & ".txt") dosya.WriteLine("Bugün :" & tarih & " Günlerden : " & gunadi) dosya.Close() Dim i As Integer For i = 1 To 7 Step 1 ‘Ör:gün sayısı 3 ise Gün: Çarşamba ‘test3.txt dosyasını yedek3.txt olarak Çarşamba günü ‘kopyalayacaktır. If gunsayi = i Then FileCopy("C:\test" & gunsayi.ToString & ".txt", "C:\yedek" & gunsayi.ToString & ".txt") MessageBox.Show("C:\test" & gunsayi.ToString & " dosyası " & " C:\yedek" & gunsayi.ToString & ".txt" & " olarak kopyalandı") End If Next Me.Close() End Sub End Class ‘Bir sonraki makalede görüşmek üzere. Bahadır
Cümledeki Karakter, Boşluk ve Kelime Sayısını Bulmak Bu örneğimizde TextBox taki cümledeki Karakter, Boşluk ve Kelime sayısını bulacağız. Formunuza 1 adet TextBox, Button ve 3 adet Label ekleyin. Aşağıdaki şekli inceleyin. Public Class Form1 Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load Label1.Text = "Cümledeki boşluk sayısı " Label2.Text = "Cümledeki harf sayısı " Label3.Text = "Cümledekı kelime sayısı " End Sub Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Dim a, f As String Dim c, I, d, w, x As Integer a = TextBox1.Text c = Len(a) LTrim(a) For I = 1 To c f = Mid(a, I, 2) If f = Strings.Space(2) Then d = d + 1 End If Next For I = 1 To c f = Mid(a, I, 1) If f = Strings.Space(1) Then w = w + 1 Else x = x + 1 End If Next Label1.Text = "Cümledeki boşluk sayısı: " & CStr(w) Label2.Text = "Cümledeki harf sayısı: " & CStr(x) Label3.Text = "Cümledekı kelime sayısı: " & CStr(w - d + 1) d = 0 w = 0 x = 0 End Sub End Class Bir sonraki makalede görüşmek üzere. Bahadır
Kapatma Tuşunu Etkisiz Hale Getirme Formun; üst menüsündeki kapatma tuşunu etkisiz hale getireceğiz. Aşağıdaki şekli inceleyin. Public Class Form1 Public Class CloseButton Private Declare Function GetSystemMenu Lib "user32" (ByVal hwnd As Integer, ByVal revert As Integer) As Integer Private Declare Function EnableMenuItem Lib "user32" (ByVal menu As Integer, ByVal ideEnableItem As Integer, ByVal enable As Integer) As Integer Private Const SC_CLOSE As Integer = &HF060 Private Const MF_BYCOMMAND As Integer = &H0 Private Const MF_GRAYED As Integer = &H1 Private Const MF_ENABLED As Integer = &H0 Public Shared Sub Disable(ByVal form As System.Windows.Forms.Form) Select Case EnableMenuItem(GetSystemMenu(form.Handle.ToInt32, 0), SC_CLOSE, MF_BYCOMMAND Or MF_GRAYED) Case MF_ENABLED Case MF_GRAYED Case &HFFFFFFFF Throw New Exception("Kapatma menüsü bulunamıyor") Case Else End Select End Sub End Class Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load CloseButton.Disable(Me) End Sub Private Sub Form1_SizeChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.SizeChanged CloseButton.Disable(Me) End Sub End Class Bir sonraki makalede görüşmek üzere. Bahadır
Harddiskinizin Boş Alanını Öğrenmek Bu makalede harddiskin kapasitesini, doluluk oranını, boş alanı getInfo methodundan yararlanarak öğreneceğiz. Formunuza 7 adet Label, 4 adet TextBox, 3 adet ProgressBar ekleyin. Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load Dim getInfo As System.IO.DriveInfo getInfo = My.Computer.FileSystem.GetDriveInfo("C:\") ‘Toplam kapasite TextBox1.Text = Format((getInfo.TotalSize / 1000000000), "#.##") & " GB." ‘Kullanılan Kapasite TextBox2.Text = Format(((getInfo.TotalSize - getInfo.TotalFreeSpace) / 1000000000), "#.##") & " GB." ‘Kalan Boş Alan TextBox3.Text = Format((getInfo.TotalFreeSpace / 1000000000), "#.##") & " GB." ‘Format TextBox4.Text = getInfo.DriveFormat ProgressBar1.Value = 100 ProgressBar2.Value = 100 * (Val(TextBox2.Text) / Val(TextBox1.Text)) ProgressBar3.Value = 100 * (Val(TextBox3.Text) / Val(TextBox1.Text)) Label5.Text = "% 100" Label6.Text = "% " & Format(100 * (Val(TextBox2.Text) / Val(TextBox1.Text)), "#.##") Label7.Text = "% " & Format(100 * (Val(TextBox3.Text) / Val(TextBox1.Text)), "#.##") End Sub
İl Adını Girip İl Trafik Kodu ve Telefon Kodunu Almak Bu örnekte İl adını yazdığımızda, o ile ait telefon kodunu alacağız. Formunuza 1 adet TextBox,ListBox ve Button ekleyin. Aşağıdaki şekilleri inceleyin. Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click, Button2.Click Dim itemIndex As Integer itemIndex = ListBox1.FindString(TextBox1.Text) ListBox1.SelectedIndex = itemIndex Dim telefon() As String = {322, 416, 272, 472, 382, 358, 312, 242, 478, 466, 256, 266, 378, 488, 458, 228, 426, 434, 374, 248, 224, 286, 376, 364, 258, 412, 380, 284, 424, 446, 442, 222, 342, 454, 456, 438, 326, 476, 246, 212, 232, 344, 370, 338, 474, 366, 352, 318, 288, 386, 348, 262, 332, 274, 422, 236, 482, 324, 252, 436, 384, 388, 452, 328, 464, 264, 362, 484, 368, 346, 414, 486, 282, 356, 462, 428, 276, 432, 226, 354, 372} Dim ilkodu() As String = {1, 2, 3, 4, 68, 5, 6, 7, 75, 8, 9, 10, 74, 72, 69, 11, 12, 13, 14, 15, 16, 17, 18, 19, 20, 21, 81, 22, 23, 24, 25, 26, 27, 28, 29, 30, 31, 76, 32, 34, 35, 46, 78, 70, 36, 37, 38, 71, 39, 40, 79, 41, 42, 43, 44, 45, 47, 33, 48, 49, 50, 51, 52, 80, 53, 54, 55, 56, 57, 58, 63, 73, 59, 60, 61, 62, 64, 65, 77, 66, 67} MessageBox.Show("İl Adı:" & ListBox1.SelectedItem & vbCrLf & "Telefon Kodu:" & telefon(ListBox1.SelectedIndex) & vbCrLf & "İl Trafik Kodu:" & ilkodu(ListBox1.SelectedIndex), "İl Bilgi", MessageBoxButtons.OK) End Sub Bir sonraki makalede görüşmek üzere. Bahadır
Esc, CapsLock Tuşuna Basıldığında Uyarı Mesajının Gelmesi Bu örnekte Esc veya CapsLock gibi tuşlara basıldığı zaman uyarı mesajı alacağız. Bunu formun keydown olayına yazacağımız küçük kod parçacığı ile gerçekleştireceğiz. Private Sub Form1_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles Me.KeyDown If (e.KeyCode = Keys.Escape) Then MessageBox.Show("ESC tuşuna bastınız") ElseIf (e.KeyCode = Keys.CapsLock) Then MessageBox.Show("CapsLock tuşuna bastınız") End If End Sub Bir sonraki makalede görüşmek üzere. Bahadır
CapsLock, NumLock Açık Kapalı Kontrol Arkadaşlar bu örneğimizde CapsLock, NumLock, ScrollLock açık mı kapalı mı olduğunu kontrol edeceğiz. Formunuzu 1 adet Timer, 3 adet Label ve TextBox ekleyin. Aşağıdaki şekilleri inceleyin. Şekil 2 de de çalışma anında yapılan değişikliği görebilirsiniz. Bir sonraki makalede CapsLock, Numlock tuşuna basıldığı zaman uyarı mesajı verecek olan küçük örneğimizi göreceğiz. Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load Timer1.Enabled = True Timer1.Interval = 1000 End Sub Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick If (My.Computer.Keyboard.NumLock) Then TextBox1.Text = "AÇIK" Else TextBox1.Text = "KAPALI" End If If (My.Computer.Keyboard.CapsLock) Then TextBox2.Text = "AÇIK" Else TextBox2.Text = "KAPALI" End If If (My.Computer.Keyboard.ScrollLock) Then TextBox3.Text = "AÇIK" Else TextBox3.Text = "KAPALI" End If End Sub Bir sonraki makalede görüşmek üzere. Bahadır
RichTextBox ta Kelime Arama RichTextBox içinde kelimeyi aratacağız. Aradığımız kelime birden fazla RichTextBox ta tekranlansa bile hepsini aynı anda kırmızı renkte göstereceğiz. Aşağıdaki şekli inceleyin. Public Class Form1 Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load End Sub Private Sub setTextColor(ByVal pStr As String, ByVal pColor As Drawing.Color) End Sub Private Sub btnAra_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnAra.Click renk() End Sub Sub renk() Dim pStr As String Dim pColor As Drawing.Color pColor = Color.Red pStr = txtAra.Text Dim i As Integer Dim posAnt As Integer posAnt = -1 RichTextBox1.SelectionStart = 0 RichTextBox1.SelectionLength = 0 For i = 0 To 1000 If i = 0 Then RichTextBox1.Find(pStr, 0, RichTextBoxFinds.WholeWord) Else RichTextBox1.Find(pStr, RichTextBox1.SelectionStart + 1, RichTextBoxFinds.WholeWord) End If If posAnt = RichTextBox1.SelectionStart Then Exit For End If RichTextBox1.SelectionFont = New Font("Courier New", 9, FontStyle.Regular) RichTextBox1.SelectionColor = pColor posAnt = RichTextBox1.SelectionStart Next End Sub End Class Bir sonraki makalede görüşmek üzere. Bahadır
Tarih ve Saat Fonksiyonları Visual Basic.NET de , tarihi saati , hangi gün veya hangi ayda olduğumuzu öğrenmek için bu fonksiyonları kullanırız. 1. Now() Bu fonksiyon , şu anki tarih saat bilgisini verir. Tabiki tüm tarih saat fonksiyonları sistem saatini kullandığı için , bilgisayarınızda o an hangi tarih saat geçerli ise , o değeri döndürecektir. Örnekler : Msgbox(Now()) Label1.Text = Now() 2. Day(deger) Bu fonksiyon deger olarak belirtilen tarihin gününü döndürür. Deger olarak belirtilen değişken geçerli bir tarih olmalıdır. Örnekler : Day(12.10.2006) = dönen değer 12 olacaktır. Day(Now()) = bugünün gün değeri dönecektir. 3. Weekday(date[, firstdayofweek]) Bu fonksiyon date değişkeni ile belirtilen tarihin ,haftanın kaçıncı günü olduğu değerini döndürür. İkince değişken ise isteğe bağlı olup haftanın ilk gününü ayarlamak için kullanılır. İngilizce işletim sistemine sahip bir bilgisayarda haftanın ilk günü Pazar olacaktır ama Türkçe işletim sistemine ait bir bilgisayarda haftanın ilk günü pazartesi olacaktır. Bu fonksiyon haftanın günlerini 1 den 7 ye kadar numaralandırarak seçili olan günü geri döndürür. Pazartesi 1 , Salı 2 , Çarşamba 3 ….. şeklinde devam etmektedir. Örnekler : MsgBox(Weekday(Now, FirstDayOfWeek.System)) = burada bugün Cuma olduğu için 5 değeri dönecektir. Haftanın ilk günü ayarını ise işletim sistemine bıraktım. 4. WeekdayName(weekday[, abbreviate[, firstdayofweek]]) Bu fonksiyon , weekday değişkeni ile belirtilen günün ismini döndürür. Abbreviate değişkeni ilede , gün isminin kısamı uzunmu gösterileceği ayarlanır. ( Paz, Pzt , Salı , Cuma gibi ) . Üçüncü değişken diğer fonksiyonda olduğu gibi haftanın ilk gününü ayarlamak için kullanılmaktadır. Örnekler : MsgBox(WeekdayName(5, False, FirstDayOfWeek.System)) = Dönen değer -> Cuma MsgBox(WeekdayName(5, True, FirstDayOfWeek.System)) = Dönen değer -> Cum 5. Month(date) Bu fonksiyon date değişkeni ile belirtilen tarihin ,yılın kaçıncı ayı olduğu değerini döndürür. Ocak = 1 , Şubat = 2 , Mart = 3 şeklinde , 1 den 12 ‘ye kadar integer değer döndürür. Örnekler : Month(Now()) = Dönen değer = 7 olacaktır. Temmuz yılın 7 nci ayıdır. 6. MonthName(month[, abbreviate]) Bu fonksiyon ile month ile belirtilen ( 1 den 12 ye kadar ay numaraları ) ayın ismini döndürür. İkinci değişken isteğe bağlı olup , dönen ay adının uzunmu yoksa kısamı olacağını ayarlamaya yarar. Örnekler : Msgbox(MonthName(7)) = Dönen değer Temmuz olacaktır. 7. Year(date) Bu fonksiyon , date değişkeni ile belirtilen tarihin yıl değerini döndürür. Örnekler : Msgbox(Year(Now()) = dönen değer 2006 olacaktır. 8. Hour(time) Bu fonksiyon ile , time değişkeni ile belirtilen zamanın saat değer 0 dan 24 ‘e kadar olan integer türünden bir değer döndürür. Örnekler : Now() = fonksiyonu 14.07.2006 11:28:30 değerinin döndürürken Hour(Now()) fonksiyonu = 11 değerini döndürür 9. Minute(time) Bu fonksiyon ile , time değişkeni ile belirtilen zamanın dakika değeri , 0 dan 60 a kadar olan integer türünden bir değer döndürür. Örnekler : Now() = fonksiyonu 14.07.2006 11:28:30 değerinin döndürürken Minute(Now()) fonksiyonu = 28 değerini döndürür 10. Second(time) Bu fonksiyon ile , time değişkeni ile belirtilen zamanın saniye değeri , 0 dan 60 a kadar olan integer türünden bir değer döndürür. Örnekler : Now() = fonksiyonu 14.07.2006 11:28:30 değerinin döndürürken second(Now()) fonksiyonu = 30 değerini döndürür 11. DateSerial(year, month, day) Bu fonksiyon dışarında 3 değişken ile integer türünden bir veri almakta ve girilen sayıları tarih olarak geri döndürmektedir. MsgBox(DateSerial(2005, 7, 1)) şeklinde bir fonksiyon 01.07.2005 olarak geri dönecektir. Bu fonksiyonun kullanım yeri sadece bunula sınırlı değildir. Herhangi bir yılın 90 ncı günü, hangi tarihe geliyor diye merak ediyorsanız yapmanız gereken tek şey aşağıdaki gibi bir fonksiyon kurmak ; DateSerial(1996, 1, 90) 1996 yılının 90 ncı günü nedir gibi bir fonksiyonun dönen değeri = 30.03.1996 olacaktır. Bir başka kullanım şeklide; mesela bugünden sonra 1000 nci gün hangi tarihe gelir gibi bir soruya cevabı aşağıdaki fonksiyon verecektir; MsgBox(DateSerial(Year(Now. Date), Month(Now. Date),Weekday(Now. Date) + 1000)) Eğer bugünü 14.07.2006 olarak kabul edersek dönen değer = 01.04.2009 olacaktır. Aynı şekilde yıl, ay içinde toplama ve çıkartma işlemlerini kullanarak, istediğimiz bir tarihi bulabiliriz. 12. DateValue(date) Bu fonksiyon string olarak girilen tarih değerini normal tarihe çevirir. Örnekler; DateValue(“12 Kasım 2007” ) fonksiyonu 12.10.2007 olarak geri dönecektir. Bu fonksiyonun güzel bir özelliğide, iki tarih arasında kaç gün olduğunu öğrenmek içinde kullanılabilir. Finansal programlar için DateSerial kadar iyi bir fonksiyondur. MsgBox(DateDiff(DateInterval. Day, DateValue(“25.12.1993”), DateValue(“25.12.1996”))) Bu şekilde kullanılan bir fonksiyon ile 25.12.1993 ve 25.12.1996 tarihleri arasında kaç gün olduğunu öğrenebiliriz. Dönen değer 1096 gün olacaktır. 13. TimeSerial(hours, minutes, seconds) Bu fonksiyon DateSerial fonksiyonu gibi çalışmakta ,yalnız tek farkı tarih üzerinde değil , zaman üzerinde çalışmasıdır. Dışarıdan girilen 3 değişkeni zaman olarak geri döndürür. TimeSerial(4, 10, 55) = dönen değer = 04:10:55 oalcaktır. Yine Dateserial fonksiyonunda olduğu gibi , saat dakika ve saniyede çıkartma toplama gibi işlemler yaparak ,istediğimiz bir saati bulmamız mümkündür TimeSerial(16 - 2, 13 - 15, 40 - 32) = dönen değer 13:58:08 olacaktır. 14. TimeValue(time) Bu fonksiyonda DateValue() fonksiyonu ile aynı özelliklere sahiptir. 15. DateAdd(interval, number, date) Bu fonksiyon, interval değişkeni ile belirtilen tarihe,number değişkeni ile belirtilen değeri ekler. İnterval değişkenin alabileceği değerler şunlardır; Year Quarter Month DayOfYear Day WeekDay WeekOfYear Hour Minute Second DateAdd(DateInterval.Month, 1, Now)= bu fonksiyon ile ,bir sonraki ay değeri dönecektir. 14.08.2006 11:20:00 şeklinde değer dönecektir. 16. DateDiff(interval, date1, date2[, firstdayofweek[,firstweekofyear]]) Bu fonksiyon ile , iki tarih arasındaki farkı almamız münkün. İnterval özelliği ile ( bir önceki listede var),iki tarih arasındaki hangi farkı almak istiyorsak onu ayarlarız. Date1 ve date2 değişkenleri ile tarih farkı alınacak olan değerler belirtilir. Diğer iki değişen isteğe bağlı olup system olarak seçilebilir. Örnekler ; Mesela ben doğalı kaç gün olmuş gibi bir hesap için ; Dim dogumtarihi As Date = "16.09.1979" MsgBox(DateDiff(DateInterval.Day, dogumtarihi, Now())) 17. DatePart(interval,date[,firstdayofweek[, firstweekofyear]]) Bu fonskiyon ile , date değişkeni ile belirtilen bir tarihin , istediğimi bilgisine ulaşabiliriz. İnterval değişkeni ise , aşağıdaki tabloda belirtilen şekilde kullanılmalıdır. Karakter Açıklaması : Saat , dakika , saniyeyi ayrımak için kullanılır / Gün , ay , yılı ayırmak için kullanılır. D Belirtilen günün numarasını verir. (1–31). dd Belirtilen günün numarasını verir , tek numaraların başına 0 ekler. (01–31). ddd Gün isimlerinin kısaltmalarını verir. (Paz , Sal gibi). dddd Gün isimlerinin tam adını görüntüler (Pazar , Salı gibi). w Günün haftanın kaçıncı günü olduğunu gösterir. (1- 7 arası). Ww Yılın kaçıncı haftası olduğunu gösterir. (1–54). M Belirtilen tarihin ay numarasını verir. ( 0 – 12 arası ) MM Belirtilen tarihin ay numarasını verir. Tek rakamların önüne 0 koyar( 01 – 12 arası ) MMM Kısa ay adlarını gösterir (Oca. , Şub gibi). MMMM Ayların tam adını görüntüler (Ocak , Şubat gibi). q Yılın kaçıncı çeyreğinde olduğunu gösterir. (1–4). y Yılın kaçıncı günü olduğunu gösterir. (1–366). yy Yıl numaralrının iki rakamlı gösterir. (00–99). yyyy Yıl numaralarını 4 rakamlı gösterir. (0100–9999). h Saati gösterir (0–12). Hh Saati iki rakamlı gösterir. (00–12). H 24 saat formatına göre saati gösterir. (0–24) HH 24 saat formatına göre saati 2 rakamlı gösterir. (00–24) m Dakikayı gösterir. (0–59). mm Dakikayı iki rakamlı gösterir. (00–59). s Saniyeyi gösterir. (0–59). ss Saniyeyi iki rakamlı gösterir. (00–59). Örnekler ; Dim tarih as DateTime = Now() -- > değerin 14.07.2006 12:25:50 olduğunu varsayalım DatePart(“yyyy”, tarih)) = dönen değer 2006 olacaktır DatePart(“q”, day1)) = dönen değer 3 olacaktır. Temmuz ayı yılın 3 ncü çeyreği içindedir.( Ocak-Şubat-Mart = 1 / -Nisan-Mayıs-Haziran = 2 / Temmuz-Ağustos-Eylül = 3 ……….gibi) DatePart(“m”, day1)) = dönen değer 7 olacaktır.
Doğum Gününü Bulma Hangi gün doğduğunuzu bulan program. Weekday yordamını kullanarak doğum gününüzün hangi gün olduğunu öğreniyorsunuz. Public Class Form1 Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Dim d_tarih, gun Show() Do d_tarih = InputBox("Doğum Tarihinizi Giriniz : ") Loop While Not IsDate(d_tarih) Select Case Weekday(d_tarih) Case 1 : gun = "Pazar" Case 2 : gun = "Pazartesi" Case 3 : gun = "Salı" Case 4 : gun = "Çarşamba" Case 5 : gun = "Perşembe" Case 6 : gun = "Cuma" Case 7 : gun = "Cumartesi" End Select MsgBox(gun & " Günü Doğmuşsunuz") End Sub End Class
Matematiksel İşlemlerde Sayının Ondalık Kısmının Alınması Bu örnekte yapılan bölme işleminde elde edilen sayının ondalık kısmınında gösterimini sağlayacağız. Formunuza 3 adet TextBox, 2 adet label ve Button ekleyin. Aşağıdaki şekili inceleyin. Public Class Form1 Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Dim sayi As Single TextBox3.Text = Val(TextBox1.Text) / Val(TextBox2.Text) sayi = Val(TextBox3.Text) sayi = Format(sayi, "#,##0.00") TextBox3.Text = sayi End Sub End Class Bir sonraki makalede görüşmek üzere. Bahadır
İl İl Namaz Vakitlerini Öğrenme Bu makalemizde http://www.webservisler.com sitesinin xml dosyasından illerin namaz vakitlerini gün gün çekeceğiz. Aşağıdaki şekli inceleyin. Formunuza 7 adet TextBox, 1 adet Combobox ve button ekleyin. Public Class Form1 Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load With Me .Text = "İl İl Günlük Namaz Vakitleri" .MaximizeBox = False .Size = New System.Drawing.Size(249, 289) .Location = New Point(300, 200) End With End Sub Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnAl.Click If ComboBox1.Text = "" Then MsgBox("İl Seçiniz", MsgBoxStyle.OkOnly, "Namaz Vakitleri") End If Dim ds As DataSet = New DataSet ‘ds.ReadXml("http://www.webservisler.com/xml/NamazVakitleri.php?sehir=istanbul ") ‘ veya aşağıdaki gibi ds.ReadXml("http://www.webservisler.com/xml/NamazVakitleri.php?sehir=" & ComboBox1.Text) Dim namaz_vakitleri As DataRow = ds.Tables(0).Rows(0) With Me .txtTarih.Text = namaz_vakitleri(1) .txtImsak.Text = namaz_vakitleri(2) .txtGunes.Text = namaz_vakitleri(3) .txtOgle.Text = namaz_vakitleri(4) .txtIkindi.Text = namaz_vakitleri(5) .txtAksam.Text = namaz_vakitleri(6) .txtYatsi.Text = namaz_vakitleri(7) End With End Sub End Class Bir sonraki makalede görüşmek üzere. Bahadır
Dosya Kopyalama Bu örnekte FileCopy metodu ile txt, doc, xls, jpg vb. uzantıdaki dosyaları mevcut konumlarından istediğiniz konuma kopyalamayı göreceğiz. Public Class Form1 Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load Me.FormBorderStyle = Windows.Forms.FormBorderStyle.SizableToolWindow Me.Text = "Dosya Kopyalama" Me.Left = 300 Me.Top = 180 Me.Width = 205 Me.Height = 108 Button1.Size = New System.Drawing.Size(150, 30) Button1.Text = "Yeni Dizine Kopyala" End Sub Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click FileCopy("C:\dosya\deneme.txt", "C:\deneme.txt") FileCopy("C:\dosya\deneme.doc", "C:\deneme.doc") FileCopy("C:\dosya\deneme.xls", "C:\deneme.xls") FileCopy("C:\dosya\deneme.jpg", "C:\deneme.jpg") MessageBox.Show("Dosyalar yeni dizine kopyalandı") End Sub End Class Bir sonraki makalede görüşmek üzere. Bahadır
İki Sayı Arasındaki Tek Sayı, Çift Sayı İşlemleri Bu örneğimizde InputBoxtan girilen sayı aralığındaki tek sayı, çift sayıların toplamını alacağız. Formunuza 3 adet RadioButton 1 adet Button ekleyin. Aşağıdaki resimleri inceleyin. Public Class Form1 Function sayi_kontrol(ByVal n As Integer) As Boolean sayi_kontrol = True If n And 1 Then sayi_kontrol = False End Function Private Sub btnGiris_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnGiris.Click If rb1.Checked = False And rb2.Checked = False And rb3.Checked = False Then MsgBox("Seçiminizi yapınız", MsgBoxStyle.OkOnly, "Bahadirsa Seç") Exit Sub End If Dim i, bas, son, l, m As Integer For i = 1 To 2 Step 1 If i = 1 Then bas = InputBox(i & ". sayı girişi", "Sayı Girişi", 0) End If If i = 2 Then son = InputBox(i & ". sayı girişi", "Sayı Girişi", 0) End If Next If rb1.Checked Then For l = bas To son m = (son) * (son + 1) / 2 - ((bas) * (bas + 1) / 2) Next MsgBox(bas & "-" & son & " aralığındaki sayıların toplamı: " & m, MsgBoxStyle.OkOnly, "Sayı Toplamı...Bahadirsa") End If If rb2.Checked Then If sayi_kontrol(bas) Then bas = bas + 1 Else bas = bas End If If sayi_kontrol(son) Then son = son - 1 Else son = son End If For l = bas To son Step 2 m = ((son + 1) / 2) ^ 2 - ((bas + 1) / 2) ^ 2 Next MsgBox(bas & "-" & son & " aralığındaki tek sayıların toplamı: " & m, MsgBoxStyle.OkOnly, "Sayı Toplamı...Bahadirsa") End If If rb3.Checked Then If sayi_kontrol(bas) Then bas = bas Else bas = bas + 1 End If If sayi_kontrol(son) Then son = son Else son = son - 1 End If For l = bas To son Step 2 m = ((son) / 2) * (((son) / 2) + 1) - ((bas) / 2) * (((bas) / 2) + 1) Next MsgBox(bas & "-" & son & " aralığındaki çift sayıların toplamı: " & m, MsgBoxStyle.OkOnly, "Sayı Toplamı...Bahadirsa") End If End Sub Private Sub rb1_MouseMove(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles rb1.MouseMove rb1.Cursor = Cursors.Hand End Sub Private Sub rb2_MouseMove(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles rb2.MouseMove rb2.Cursor = Cursors.Hand End Sub Private Sub rb3_MouseMove(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles rb3.MouseMove rb3.Cursor = Cursors.Hand End Sub Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load With Me .Text = "Tek ve Çift Sayı Toplama...Bahadirsa" .MaximizeBox = False .Size = New System.Drawing.Size(328, 147) .Location = New Point(250, 250) End With End Sub End Class Bir sonraki makalede buluşmak üzere...Bahadır
İnternet Bağlantısını Kontrol Etmek Formunuza 1 adet Button ekleyin ve aşağıdaki kodu yazın. Public Class Form1 Private Sub btnKontrol_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnKontrol.Click If My.Computer.Network.IsAvailable = True Then MsgBox("Bilgisayarınız İnternete Bağlı.") Else MsgBox("Bilgisayarınız İnternete Bağlı Değil.") End If End Sub End Class Bir sonraki makalede buluşmak üzere.Bahadır
Linklabel Kullanımı Bu örnekte linklabel kullanımını göreceğiz. Forma 1 adet Linklabel ekleyin. Linklabel ile formunuzdan istediğiniz web sitesine veya mail adresine link verebilirsiniz...Bahadirsa ublic Class Form1 Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load With Me .Size = New System.Drawing.Size(380, 114) .Location = New Point(200, 150) .Text = "LinkLabel...Bahadirsa" .MaximizeBox = False End With LinkLabel1.Text = "http://bahadirsam.somee.com" LinkLabel1.Font = New Font("Verdana", 12, FontStyle.Regular) LinkLabel1.Links.Add(0, LinkLabel1.Text.Length, "http://bahadirsam.somee.com") End Sub Private Sub LinkLabel1_LinkClicked(ByVal sender As System.Object, ByVal e As System.Windows.Forms.LinkLabelLinkClickedEventArgs) Handles LinkLabel1.LinkClicked System.Diagnostics.Process.Start(e.Link.LinkData) End Sub End Class Bir sonraki makalede buluşmak üzere... Bahadirsa
Sıfır Ekleme TextBox a girmiş olduğunuz sayının önüne(soluna) istediğiniz kadar sıfır ekleyebilirsiniz. Aşağıdaki şekilleri inceleyin...Bahadirsa Public Class Form1 Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load With txtSayi .MaxLength = 10 .Font = New Font("Arial", 14, FontStyle.Bold) .Size = New System.Drawing.Size(120, 30) End With Button1.Text = "Sıfır Ekle" Button1.Size = New System.Drawing.Size(120, 30) Me.Size = New System.Drawing.Size(150, 120) Me.Text = "Sıfır Ekleme...Bahadirsa" Me.MaximizeBox = False Me.Location = New Point(300, 180) End Sub Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Dim sayi As String = String.Format("{0:0000000000}", Val(txtSayi.Text)) txtSayi.Text = sayi End Sub End Class Bir sonraki makalede görüşmek dileğiyle...Bahadirsa
Sayı İçinde Harf Olduğunu Anlama Bu makalemizde TextBox içinde harf olup olmadığını, girilen harfleri ve Textbox ta kaçıncı sırada olduğunu tespit edeceğiz. Aşağıdaki şekili inceleyin. Public Class Form1 Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load Label1.Text = "" Label2.Text = "" Label3.Text = "" End Sub Private Sub btnTikla_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnTikla.Click Label2.Text = "" Label3.Text = "" Dim a, i As Integer, b As Integer, c As String a = Len(txtGiris.Text) i = 0 For b = 1 To a c = Mid(txtGiris.Text, b, 1) Select Case c Case "a" To "z" i = i + 1 Label1.Text = "Girdiğiniz sayı içinde " & i & " harf var" If i = 1 Then Label2.Text = Label2.Text & txtGiris.Text.Substring(b - 1, 1) Label3.Text = Label3.Text & b Else Label2.Text = Label2.Text & "," & txtGiris.Text.Substring(b - 1, 1) Label3.Text = Label3.Text & "," & b End If End Select Next Label2.Text = "Harfler: " & Label2.Text Label3.Text = "Harflerin Sırası: " & Label3.Text End Sub End Class Bir sonraki makalede buluşmak üzere...Bahadirsa
Bilgisayarın Mac Adresini Öğrenmek Bir önceki makalede Mac adresleri ile ilgili bilgi verilmişti. Bu makalemizde kod yazarak mac adresini öğrenmeye çalışacağız. Bilgisayarın mac adresini alabilmek için ilk önce yapmamız gereken; Project kısmından Add Reference den System.Management i formumuza eklemek. Daha sonra aşağıdaki kodları formunuza yazmak. Aşağıdaki şekil i inceleyin. Imports System Imports System.Management Public Class Form1 Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click GetMACAddress() End Sub Public Function GetMACAddress() As String Dim mc As New ManagementClass("Win32_NetworkAdapterConfiguration") Dim moc As ManagementObjectCollection = mc.GetInstances() Dim MACAddress As String = [String].Empty For Each mo As ManagementObject In moc If MACAddress = [String].Empty Then If CBool(mo("IPEnabled")) = True Then MACAddress = mo("MacAddress").ToString() TextBox5.Text = MACAddress End If End If mo.Dispose() Next MACAddress = MACAddress.Replace(":", "") Return MACAddress End Function End Class Bir sonraki makalemizde görüşmek üzere...Bahadirsa
Harddiskin Seri Numarasını ve Modelini Öğrenmek Bu makalemizde harddiskin seri no su ve modelini öğrenilmesini anlatacağız. Sizler bu uygulamamızı; yapacağınız programlarda programınızın tanımlı harddisk seri no larına göre çalışması, tanımsız hdd seri no larında çalışmaması gibi uygulamalar geliştirebilirsiniz.(Aşağıdaki şekli inceleyin.) Önemli Not: İlk önce Project kısmından Add Reference den System.Management ı projenize ekleyin. Imports System Imports System.Management Public Class Form1 Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click ‘Harddiskin seri numarasının alınması Dim disk As New ManagementClass("Win32_PhysicalMedia") For Each Hdisk As ManagementObject In disk.GetInstances() If Hdisk("SerialNumber") <> Nothing Then TextBox3.Text = CStr(Hdisk("SerialNumber")) End If Next Hdisk End Sub Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click ‘Harddisk modelini bulmak Dim searcher As New Management.ManagementObjectSearcher("select * from Win32_PhysicalMedia") Dim wmi_HD As Management.ManagementObject searcher = New System.Management.ManagementObjectSearcher("select * from Win32_DiskDrive") For Each wmi_HD In searcher.Get() TextBox4.Text = wmi_HD("Model") Next End Sub End Class ‘Bir sonraki makalemizde Mac adresleri ile ilgili bilgi vereceğiz. Görüşmek dileğiyle...Bahadirsa
Bilgisayarınız Konuşsun Evet arkadaşlar. Text kutusuna yazdığınız kelimeleri, bilgisayarınız sizin için söylesin. Formunuza 1 adet TextBox, 1 adet Button ekleyin. İlk yapmanız gereken Project > Add Reference > System.Speech özelliğini Ok tuşuna basarak getirmek. Daha sonra aşağıdaki kodları formunuza yazın. Bilgisayarınız sizin yerinize konuşsun :) Forma yazılacak kodlar: Public Class Form1 Dim i As New SpeechLib.SpVoice Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load With Me .Text = "Voice Örnek...Bahadirsa" .MaximizeBox = False .Size = New System.Drawing.Size(237, 144) .Location = New Point(250, 170) End With Button1.Text = "Bilgisayarı Konuştur" End Sub Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click If TextBox1.Text = "" Then i.Speak("Yazı Giriniz. Bahadirsa") MsgBox("Yazı Giriniz. Bahadirsa", MsgBoxStyle.OkOnly, "bahadirsa voice ") End If i.Speak(TextBox1.Text) End Sub End Class Bir sonraki makalede buluşmak üzere...Bahadirsa
Form Başlığında Kayan Yazı Bu örneğimizde formumuzun başlığı kaydıracağız. İlk önce yapmamız< gereken formumujza 1 adet Timer eklemek. Timer ın interval değerini 100 yapın. Timer_Tick olayına aşağıdaki kodları yazın. Forma yazılacak kodlar: Public Class Form1 Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load Me.Text = "Kayan Yazı Örnek...Bahadirsa " Timer1.Interval = 100 Timer1.Enabled = True End Sub Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick Dim str As String Dim i As Integer str = "" For i = 1 To Me.Text.Length - 1 str = str + Me.Text(i) Next Me.Text = str + Me.Text(0) End Sub End Class ‘Bir sonraki makalede görüşmek üzere...Bahadirsa
TCMB den Günlük Döviz Kurunu Alma Bu makalemizde TCMB günlük USD, EURO Alış Satış birim fiyatlarını alıp, Bir önceki günkü kurla karşılaştırıp Artış veya Azalış oranını göstereceğiz. Günlük kurları TCMB nin http://www.tcmb.gov.tr/kurlar/today.xml dosyasından çekeceğiz.Bir önceki günkü kuruda; Örnek:http://www.tcmb.gov.tr/kurlar/200705/30052007.xml seklinde xml dosyası. Bunu aşağıdaki kodları incelediğinizde otomak olarak program alacak. Formunuzu aşağıdaki Şekil1 deki gibi tasarlayın...Bahadirsa Forma yazılacak kodlar: Public Class Form1 Dim tarih(3) As String Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load With Me .Text = "Bugünkü Döviz Kurunu Al" .MaximizeBox = False End With End Sub Private Sub btnAl_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnAl.Click ‘bugunkü kuru alma Dim kur As DataSet = New DataSet kur.ReadXml("http://www.tcmb.gov.tr/kurlar/today.xml") Dim USD As DataRow = kur.Tables(1).Rows(0) Dim EURO As DataRow = kur.Tables(1).Rows(11) Me.txtusd.Text = USD(4) Me.txtusd2.Text = USD(5) Me.txteuro.Text = EURO(4) Me.txteuro2.Text = EURO(5) ‘bir gün önceki kuru alma Dim dun As String tarih(0) = Now.Date.Month If tarih(0) < 10 Then tarih(0) = 0 & tarih(0) ElseIf tarih(0) >= 10 Then tarih(0) = tarih(0) End If tarih(1) = Format(Now, "yyyy" & tarih(0)) tarih(2) = (Now.Day - 1) If tarih(2) < 10 Then tarih(2) = 0 & tarih(2) ElseIf tarih(0) >= 10 Then tarih(2) = tarih(2) End If tarih(3) = Format(Now, tarih(2) & tarih(0) & "yyyy") Dim dunku_kur As DataSet = New DataSet ‘bir önceki gun formati ‘http://www.tcmb.gov.tr/kurlar/200705/30052007.xml seklinde dun = "http://www.tcmb.gov.tr/kurlar/" & tarih(1) & "/" & tarih(3) & ".xml" dunku_kur.ReadXml(dun) Dim dunku_USD As DataRow = dunku_kur.Tables(1).Rows(0) Dim dunku_EURO As DataRow = dunku_kur.Tables(1).Rows(11) ‘Dunku kura gore artma/azalma oranlama txtoran.Text = 100 * (Val(txtusd.Text) - Val(dunku_USD(4))) txtoran2.Text = 100 * (Val(txteuro.Text) - Val(dunku_EURO(4))) ‘Virgulden sonra iki rakam alma Dim a, b As Single a = txtoran.Text b = txtoran2.Text a = CSng(Format(a, "#,##0.00")) b = CSng(Format(b, "#,##0.00")) txtoran.Text = a txtoran2.Text = b If Val(a > 0) Then pbox1.Image = Image.FromFile("images\yukari.GIF") ElseIf Val(a < 0) Then pbox1.Image = Image.FromFile("images\asagi.GIF") End If If Val(b > 0) Then pbox2.Image = Image.FromFile("images\yukari.GIF") ElseIf Val(b < 0) Then pbox2.Image = Image.FromFile("images\asagi.GIF") End If End Sub End Class
Otomatik Key Olusturma Bu örneğimizde otomatik olarak key numaraları oluşturacağız. Ayrıca oluşturacağımız key numaralarını text dosyasına kaydedip, daha sonra text dosyasındanda yükleyebilirsiniz. Bunun için formunuza 5 adet Textbox, 4 adet Button ve 1 adet RichTextBox ekleyin. Aşağıdaki şekil gibi formunuzu oluşturun...Bahadirsa Forma yazılacak kodlar: Public Class Form1 Dim i As Integer = 0, j As Integer = 0 Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load Me.Text = "Bahadirsa Otomatik Key Oluşturma" Me.Width = 296 Me.Height = 327 Me.Left = 200 Me.Top = 130 Me.MaximizeBox = False RichTextBox1.Width = 247 RichTextBox1.Height = 135 RichTextBox1.ReadOnly = True TextBox1.MaxLength = 5 TextBox2.MaxLength = 5 TextBox3.MaxLength = 5 TextBox4.MaxLength = 5 TextBox5.MaxLength = 5 TextBox1.ReadOnly = True TextBox2.ReadOnly = True TextBox3.ReadOnly = True TextBox4.ReadOnly = True TextBox5.ReadOnly = True Label1.Text = "Otomatik Key Oluşturma " Label2.Text = "Oluşturduğunuz Key Sayısı:" + CStr(0) Timer1.Enabled = True Timer1.Interval = 10 Button1.Text = "Key Oluştur" Button2.Text = "Text Olarak Kaydet" Button3.Text = "Dosyadan Key Yükle" Button4.Text = "İçeriği Temizle" End Sub Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Dim dizi() As String = {"A", "B", "C", "D", "E", "F", "G", "H", "I", "J", "K", "L", "M", "N", "O", "P", "R", "S", "T", "U", "V", "W", "X", "Y", "Z", "a", "b", "c", "d", "e", "f", "g", "h", "i", "j", "k", "l", "m", "n", "o", "p", "r", "s", "t", "u", "v", "w", "x", "y", "z", 0, 1, 2, 3, 4, 5, 6, 7, 8, 9, "?", "+"} Dim sayı() As Double = {0, 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15, 16, 17, 18, 19, 20, 21, 22, 23, 24, 25} sayı(0) = (i * 300) Mod 62 sayı(1) = ((i + 5) * 20) Mod 62 sayı(2) = ((i * 2323) + 44) Mod 62 sayı(3) = ((i * 15) - 23) Mod 62 sayı(4) = ((3 * i + 45) * 4) Mod 62 TextBox1.Text = CStr(dizi(sayı(0))) & CStr(dizi(sayı(1))) & CStr(dizi(sayı(2))) & CStr(dizi(sayı(3))) & CStr(dizi(sayı(4))) sayı(5) = (i + 1234) Mod 62 sayı(6) = ((i + 44) * 20) Mod 62 sayı(7) = ((i * 23) + 34) Mod 62 sayı(8) = ((i * 55) - 23) Mod 62 sayı(9) = ((88 * i + 45) * 4) Mod 62 TextBox2.Text = CStr(dizi(sayı(5))) & CStr(dizi(sayı(6))) & CStr(dizi(sayı(7))) & CStr(dizi(sayı(8))) & CStr(dizi(sayı(9))) sayı(10) = (i) Mod 62 sayı(11) = ((i * 12) + 40) Mod 62 sayı(12) = ((i * 999) + 1234) Mod 62 sayı(13) = ((i * 155) - 12) Mod 62 sayı(14) = ((i * 100 + 20) / 10) Mod 62 TextBox3.Text = CStr(dizi(sayı(10))) & CStr(dizi(sayı(11))) & CStr(dizi(sayı(12))) & CStr(dizi(sayı(13))) & CStr(dizi(sayı(14))) sayı(15) = (i * 88) Mod 62 sayı(16) = ((i * 2 + 125) * 2) Mod 62 sayı(17) = (((i * 23) - 23) + 44) Mod 62 sayı(18) = ((i * i) + 38) Mod 62 sayı(19) = ((34 * i + 45 - i)) Mod 62 TextBox4.Text = CStr(dizi(sayı(15))) & CStr(dizi(sayı(16))) & CStr(dizi(sayı(17))) & CStr(dizi(sayı(18))) & CStr(dizi(sayı(19))) sayı(20) = ((i * 23) + 4) Mod 62 sayı(21) = ((i * 150) - 34) Mod 62 sayı(22) = ((2 * i) + 44) Mod 62 sayı(23) = ((i * 12) - 12) Mod 62 sayı(24) = ((10 * i + 45) * 4) Mod 62 TextBox5.Text = CStr(dizi(sayı(20))) & CStr(dizi(sayı(21))) & CStr(dizi(sayı(22))) & CStr(dizi(sayı(23))) & CStr(dizi(sayı(24))) RichTextBox1.AppendText((TextBox1.Text & "-" & TextBox2.Text & "-" + TextBox3.Text & "-" & TextBox4.Text & "-" & TextBox5.Text) & " ") j = j + 1 Label2.Text = "Oluşturduğunuz Key Sayısı:" & CStr(j) End Sub Private Sub TextBox1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox1.TextChanged ‘TextBox1.MaxLength = 5 End Sub Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick i = i + 1 End Sub Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click Label1.Text = "Dosya C:\bahadirsa.txt Adresine Kaydedildi..." RichTextBox1.SaveFile("c:\bahadirsa.txt") End Sub Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click Label1.Text = "Dosya Yükleme İşlemi" RichTextBox1.LoadFile("C:\bahadirsa.txt") End Sub Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click RichTextBox1.Clear() End Sub End Class ‘ Bir sonraki makalemizde buluşmak üzere...Bahadirsa
Xml Dosyasına Kayıt Bu örneğimizde Northwind.mdb veritabanındaki alanlardan çektiğimiz bilgileri, Xml olarak kaydedeceğiz...Bahadirsa Forma yazılacak kodlar: Imports System.Xml Public Class Form1 Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Dim baglan As OleDb.OleDbConnection = New Data.OleDb.OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=Northwind.mdb") Dim adp As New OleDb.OleDbDataAdapter Dim str As String = "Select * From " & cmb.Text adp.SelectCommand = New OleDb.OleDbCommand(str, baglan) baglan.Open() Dim ds As New Data.DataSet adp.Fill(ds) Dim xreader As Xml.XmlReader ‘bu xmlreader executereader dan farklı olarak sonucu xml olarak üretiyor. ds.ReadXml(xreader) ‘datasetimize xml mizi okutuyoruz. ds.WriteXml("C:\test.xml") ‘ve harddiskimize dataseti yazdırıyoruz. baglan.Close() End Sub Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load cmb.Text = "Customers" With Me .Text = "XML Olarak Kayıt...Bahadirsa" .MaximizeBox = False .MinimizeBox = False .Location = New Point(350, 200) End With End Sub End Class ‘Bir sonraki makalede görüşmek dileğiyle...Bahadirsa
Xml Dosyasından Kayıt Okuma Arkadaşlar bu örneğimizde, hazır bulunan xml dosyamızdan, oluşturduğumuz textboxlara veri ve picturebox ımıza resim çekeceğiz. İlk önce yapmanız gereken Xml dosyanızı oluşturmak. Bunun için Microsoftun sitesinden xmlnotepad programından yararlanabilirsiniz. Örnektede görüldüğü gibi, XmlReader metodu kullanarak bilgilerimizi xml dosyasından çekeceğiz...Bahadirsa Forma yazılacak kodlar: Imports System.XML Public Class Form1 Dim i As Integer = 0 Private Sub btnVeriAl_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnVeriAl.Click i = i + 1 btnVeriAl.Text = "Kayıt İleri" Dim reader As Xml.XmlReader = New System.Xml.XmlTextReader("bahadirsa_bilgi.xml") While (reader.Read()) If i = 1 Then If (reader.NodeType = XmlNodeType.Element) Then If (reader.Name.Equals("id")) Then TextBox1.Text = reader.ReadString() ElseIf (reader.Name.Equals("ad")) Then TextBox2.Text = reader.ReadString() ElseIf (reader.Name.Equals("soyad")) Then TextBox3.Text = reader.ReadString() ElseIf (reader.Name.Equals("ogrenim")) Then TextBox4.Text = reader.ReadString() ElseIf (reader.Name.Equals("meslek")) Then TextBox5.Text = reader.ReadString() ElseIf (reader.Name.Equals("il")) Then TextBox6.Text = reader.ReadString() ElseIf (reader.Name.Equals("image1")) Then PictureBox1.Image = Image.FromFile(reader.ReadString()) End If End If End If If i = 2 Then If (reader.NodeType = XmlNodeType.Element) Then If (reader.Name.Equals("id2")) Then TextBox1.Text = reader.ReadString() ElseIf (reader.Name.Equals("ad2")) Then TextBox2.Text = reader.ReadString() ElseIf (reader.Name.Equals("soyad2")) Then TextBox3.Text = reader.ReadString() ElseIf (reader.Name.Equals("ogrenim2")) Then TextBox4.Text = reader.ReadString() ElseIf (reader.Name.Equals("meslek2")) Then TextBox5.Text = reader.ReadString() ElseIf (reader.Name.Equals("il2")) Then TextBox6.Text = reader.ReadString() ElseIf (reader.Name.Equals("image2")) Then PictureBox1.Image = Image.FromFile(reader.ReadString()) End If End If End If If i = 3 Then If (reader.NodeType = XmlNodeType.Element) Then If (reader.Name.Equals("id3")) Then TextBox1.Text = reader.ReadString() ElseIf (reader.Name.Equals("ad3")) Then TextBox2.Text = reader.ReadString() ElseIf (reader.Name.Equals("soyad3")) Then TextBox3.Text = reader.ReadString() ElseIf (reader.Name.Equals("ogrenim3")) Then TextBox4.Text = reader.ReadString() ElseIf (reader.Name.Equals("meslek3")) Then TextBox5.Text = reader.ReadString() ElseIf (reader.Name.Equals("il3")) Then TextBox6.Text = reader.ReadString() ElseIf (reader.Name.Equals("image3")) Then PictureBox1.Image = Image.FromFile(reader.ReadString()) End If End If End If If i > 3 Then i = 1 End If End While reader.Close() End Sub Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load With Me .Text = "Xml Dosyadan Veri Okuma...Bahadirsa" .MaximizeBox = False .Location = New Point(250, 200) End With End Sub End Class ‘Bir sonraki makalede görüşmek dileğiyle...Bahadirsa
Tablodan Veri Okuma Bu örneğimizde oluşturacağımız tablodan veri okuyacağız. Forma yazılacak kodlar: Imports System Public Class Form1 Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnVeriAl.Click With Me.DataGridView1.RowTemplate .DefaultCellStyle.BackColor = Color.LightYellow .DefaultCellStyle.ForeColor = Color.Navy .DefaultCellStyle.Font = New Font("Verdana", 10, FontStyle.Regular) End With Dim columnHeaderStyle As New DataGridViewCellStyle columnHeaderStyle.BackColor = Color.Aqua columnHeaderStyle.ForeColor = Color.AliceBlue columnHeaderStyle.Font = New Font("Verdana", 10, FontStyle.Bold) DataGridView1.ColumnHeadersDefaultCellStyle = columnHeaderStyle DataGridView1.GridColor = Color.Black Dim Table1 As DataTable Table1 = New DataTable("Customers") Dim str1 As String() = {"Bahadirsa", "xxxxx", "Muhendis", "Master", "Istanbul"} Dim str2 As String() = {"Fatih", "Koç", "Muhendis", "Üniversite", "Istanbul"} Dim str3 As String() = {"Haluk", "Akman", "Muhendis", "Üniversite", "Istanbul"} Dim str4 As String() = {"Ahmet", "Aydın", "Muhendis", "Üniversite", "Istanbul"} Dim str5 As String() = {"Kürşat", "Şahin", "Muhendis", "Üniversite", "Istanbul"} Try Dim ad As DataColumn = New DataColumn("Ad") ad.DataType = System.Type.GetType("System.String") Table1.Columns.Add(ad) Dim soyad As DataColumn = New DataColumn("Soyad") soyad.DataType = System.Type.GetType("System.String") Table1.Columns.Add(soyad) Dim meslek As DataColumn = New DataColumn("Meslek") meslek.DataType = System.Type.GetType("System.String") Table1.Columns.Add(meslek) Dim ogrenim As DataColumn = New DataColumn("Öğrenim") ogrenim.DataType = System.Type.GetType("System.String") Table1.Columns.Add(ogrenim) Dim il As DataColumn = New DataColumn("İl") il.DataType = System.Type.GetType("System.String") Table1.Columns.Add(il)
Bilgisayarınızın Ağa Bağlı Olup Olmadığını Kontrol Etme Bilgisayarınızın ağa bağlı olup olmadığını bir kaç kod parçası yazarak öğrenebilirsiniz...Bahadirsa Forma yazılacak kodlar: Public Class Form1 Private Sub btnKontrol_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnKontrol.Click Dim host As System.Net.IPHostEntry Try Label1.Text = Environment.GetEnvironmentVariable("LOGONSERVER") host = System.Net.Dns.GetHostByName(Label1.Text.Substring(2)) Label1.Text = Label1.Text & vbCrLf & " Adıyla ağa bağlısınız. " Return Catch ex As Exception Label1.Text = "Ağ Bağlantınız Bulunmamaktadır." End Try End Sub Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load Label1.Text = "" End Sub End Class
Yön Tuşları ve F Tuşları Kullanımı Bu örneğimizde Formumuzun Keyup yordamına aşağıdaki kodları yazarak, yön tuşları, F tuşları veya herhangi bir tuşa basıldığı zaman hangi tuşa basıldığını mesaj veren bir program yapacağız. Forma yazılacak kodlar: Public Class Form1 Private Sub Form1_KeyUp(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles Me.KeyUp ‘Yön tuşları If e.KeyCode = Keys.Left Then MessageBox.Show("Sol ok tuşuna bastınız") If e.KeyCode = Keys.Right Then MessageBox.Show("Sağ ok tuşuna bastınız") If e.KeyCode = Keys.Up Then MessageBox.Show("Yukarı ok tuşuna bastınız") If e.KeyCode = Keys.Down Then MessageBox.Show("Aşağı ok tuşuna bastınız") ‘F tuşları If e.KeyCode = Keys.F1 Then MessageBox.Show("F1 tuşuna bastınız") If e.KeyCode = Keys.F2 Then MessageBox.Show("F2 tuşuna bastınız") ‘Harf tuşları If e.KeyCode = Keys.A Then MessageBox.Show("A tuşuna bastınız") ‘... ornekleri istediginiz kadar cogaltabilirsiniz End Sub ‘Bir sonraki makalede görüşmek üzere...Bahadirsa
Text Dosyasından Okuma ve Text Dosyasına Kayıt Bu makalemizde oluşturduğumuz text dosyasından bilgi okuyacağız. Ayrıca text dosyamıza kayıt gerçekleştireceğiz. Bu örneğimizde text dosyamızı C:\test.txt olarak oluşturduk. Aşağıdaki şekilden örneğimizi görebilirsiniz. Forma yazılacak kodlar: Public Class Form1 Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load With Me .Text = "Text Dosyaya Kayıt...Bahadirsa" .MaximizeBox = False .Location = New Point(300, 200) End With End Sub ‘Text dosyaya kayıt StreamWriter ‘metodu ile olmaktadır. Private Sub btnkaydet_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnkaydet.Click Dim dosya As New System.IO.StreamWriter("C:\test.txt") dosya.WriteLine(txtyaz.Text) dosya.Close() End Sub ‘ Text dosyadan okuma StreamReader ‘metodu ile yapılıyor. Private Sub btnoku_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnoku.Click Dim dosya As New System.IO.StreamReader("C:\test.txt") Dim str As String = dosya.ReadToEnd() txtyaz.Text = str dosya.Close() End Sub End Class
VB 6 ve VB.NET Arasındaki Önemli Söz Dizim Farklılıklar VB 6 ve VB.NET Arasındaki Önemli Söz Dizim Farklılıklar VB 6 ile VB .NET arasında birçok fark vardır. Bazı yönlerden en önemli farklar,söz dizimi ya da dile ilgili değil kavramsaldır. Tablo değişen progam öğelerinin çoğunu ve VB .NET te bunların yerine geçenlerin (eğer varsa) bir listesini vermektedir. VB 6 Programlama Öğesi...................................VB .NET Eşdeğeri Abs fonksiyonu............................................Abs metodu AscB fonksiyonu..........................................Asc fonksiyonu As Any anahtar kelime cümlesi.....................Option Strict özelliğini devre dışı bırakın ya da fonksiyonların aşırı yüklenmesini kullananın Atn fonksiyonu............................................Atan metodu Calendar özelliği.........................................CurrentCulture özelliği ChDir ifadesi..............................................ChDir fonksiyonu ChDrive ifadesi...........................................ChDrive fonksiyonu Chr$ ve ChrB fonksiyonları..........................Chr fonksiyonu Close ifadesi..............................................FileClose fonksiyonu Cos fonksiyonu..........................................Cos metodu Currency veri tipi.......................................Decimal veri tipi CVDate fonksiyonu.....................................DateValue fonksiyonu CVError fnsiyonu.......................................Error ifadesi Date fonksiyonu ve Date ifadesi..................Now ve Today özelikleri Date$ fonksiyonu.......................................DateString özelliği Debug.Assert metodu.................................Assert ve Fail metotları Debug.Print metodu...................................Write,WriteIf,WriteLine ve WriteLineIf metotları Deftype ifadeleri........................................VB .NET içinde desteklenmez DeleteSetting ifadesi..................................DeleteSetting fonksiyonu DoEvents fonksiyonu..................................DoEvents metodu Empty anahtar kelimesi..............................Nothing anahtar kelimesi Eqv operatörü............................................= operatörü Exp fonksiyonu...........................................Exp metodu FileCopy ifadesi..........................................FileCopy fonksiyonu Get ifadesi ................................................FileGet fonksiyonu GoSub ifadesi............................................VB .NET içinde desteklenmez Initialize olayı............................................Sub New ifadesi Imp operatörü...........................................Boolean mantıkta, X = A Imp B ifadesi, sadece A True ve B False ise True döndürür;bu VB .NET te X = ( Not A ) or şeklinde yazılır Input# ve Input$ ifadeleri;.........................Input fonksiyonu Input$, InputB ve InputB$ fonksiyonları Instancing özelliği.....VB 6 da, bir sınıfın Instancing özelliğine GlobalMultiUse verebilirdiniz;VB .NET ile, aynı işlem için statik metotlar kullanılır InStrB fonksiyonu.......................................Instr fonksiyonu IsEmpty fonksiyonu.....................................IsNothing fonksiyonu IsMissing fonksiyonu ...................................VB .NET içinde desteklenmez;isteğe bağlı tüm argümanların varsayılan değerleri olmalıdır;dolayısıyla""eksik"" olmaları mümkün değildir. IsNull fonksiyonu.........................................IsDbNull fonksiyonu IsObject fonksiyonu.....................................IsReference fonksiyonu Kill ifadesi Kill fonksiyonu Lcase$ fonksiyonu.......................................LCase fonksiyonu Left$, LeftB, ve LeftB$ fonksiyonları..............Left fonksiyonu LenB fonsiyonu...........................................Len fonksiyonu Let ve Set alma ifadeleri..............................VB .NET içinde gerek yoktur;yeni Set ifadesi VB 6 dakiyle ilgili değildir Line Input# ifadesi......................................LineInput fonksiyonu Lock ifadesi................................................Lock ve Unlock fonksiyonları Log fonksiyonu...........................................Log metodu LSet ve RSet ifadeleri LSet fonksiyonu, PadRight, ve PadLeft fonksiyonları LTrim$ fonksiyonu......................................LTrim fonksiyonu MidB ifadesi...............................................Mid ifadesi MkDir ifadesi.............................................MkDir fonksiyonu Name ifadesi.............................................Rename fonksiyonu Now fonksiyonu.........................................Now özelliği Nul anahtar kelimesi..................................Nothing anahtar kelimesi Oct$ fonksiyonu........................................Oct fonksiyonu On ... GoSub............................................VB .NET içinde desteklenmez;Select Case ifadesini kullanın On ... GoTo yapısı.....................................VB .NET içinde desteklenmez;Select Case ifadesini kullanın Open ifadesi.............................................FileOpen fonksiyonu Option Base ifadesi....................................VB .NET içinde desteklenmez;tüm VB .NET dizleri sıfır tabanlıdır Option Private Module ifadesi.....................VB .NET içinde desteklenemez;Module ifadesini kullanın Prnt# ifardesi............................................Print ve PrintLine fonksiyonları Property Get, Property Let, ve Property Set ifadeleri....................................................Property prosedürleri için VB .NET farklı bir söz dizimi vardır Put ifadesi.................................................LinePut fonksiyonu Reset ifadesi..............................................Reset fonksiyonu Right$ ve RihghtB fonksiyonları...................Right fonksiyonu RmDir ifadesi.............................................RmDir fonksiyonu Round fonksiyonu.......................................Round metodu RSet ve LSet ifadeleri.................................RSet fonksiyonu RTrim$ fonksiyonu.....................................RTrim fonksiyonu SaveSettng ifadesi.....................................SaveSetting fonksiyonu Scale metodu............................................VB .NET içinde desteklenmez (VB .NET twip kullanmaz;her şey piksel cinsindedir) Set ve Let atama ifadeleri..........................VB .NET içinde gerek yoktur;yeni Set ifadesi VB6 dakiyle ilgili eğildir SetAttr ifadesi...........................................SetAttr fonksiyonu Sgn fonksiyonu.........................................Sign fonksiyonu Sin fonksiyonu..........................................Sin metodu Sqr fonksiyonu..........................................Sqrt fonksiyonu String fonksiyonu......................................String yapılandırıcısı String($) fonksiyonları...............................VB .NET içinde gerek yoktur Terminate olayı.........................................VB .NET iinde desteklenmez;Su Dispose ve Sub Finalize ifadelerini kulanın Time fonksiyonu ve Time ifadesi................TimeOfDay özelliği;DateTime yapısına ve Date veri tipine bakın Time$ fonksiyonu.....................................TimeString özelliği Timer fonksiyonu.....................................Timer özelliği Trim$ fonksiyonu.....................................LTrim,Rtrim, ve Trim fonksiyonları Type ifadesi.............................................Structure ifadesi UCase$ fonksiyonu...................................UCase fonksiyonu Unlock ifadesi...........................................Lock ve Unlock fonksiyonları Variant veri tipi........................................Object veri tipi Wend anahtar ifadesi................................While...End While ifadeleri ve End ifadesi Width# ifadesi..........................................FileWidth fonksiyonu Write# ifadesi..........................................Write ve WriteLine fonksiyonları"
Repeater Nesnesinde Veritabanındaki Kayıtları Göstermek Project sayfasınıza 1 adet Repeater ekleyin. Default.aspx i Şekil 2 deki gibi oluşturun. Bu örneğimizde Northwind access veritabanındaki Customers tablosundaki verilerin gösterimini sağlayacağız.
DataView ile Veritabanındaki Kayıtları Filtreleme DataView in RowFilter metodunu kullanarak veritabanındaki kayıtlarımızı filtreleyeceğiz. Sonra filtrelediğimiz şekilde GridView nesnesinde verilerin gösterimi sağlayacağız.
Ajax Timer Kontrolü Bu makalemizde Asp.Net te ajax timer kontrolünün örneğini göreceğiz. Button un text in de 1 den 10 a kadar sayı saydırdıktan sonra, HyperLink imizi görünür yaparak, belirtiğimiz siteye link verdireceğiz.
Xml Dosyaya Kayıt ve Xml Dosyadan Okuma Yeni bir web projesi acalım. Çalışma sayfamıza iki buton ve bir gridview koyalım.Sql deki kisibilgi tablosundaki verileri C:\deneme.xml dosyası oluşturup bu xml dosyasına yazdıracağız.
Çalışma Anında LinkButton Oluşturmak Bu örneğimizde çalışma anında linkbutton oluşturup, oluşturulan linke tıklanıldığı zaman, önceden belirtilen sayfaya gitmesini sağlıyacağız.
Çalışma Anında HyperLink Oluşturmak Bu örneğimizde çalışma anında hyperlink oluşturup, oluşturulan linke tıklanıldığı zaman, önceden belirtilen web sitesine gitmesini sağlıyacağız.
Girilen Stringi Word Belgesine Aktarma Girmiş olduğumuz Stringi Word belgesine aktaracağız. İlk önce Web Site -->Add Reference -->Com dan Microsoft 12.0 Word Object Library i ekleyin.(Şekil 1)
Bilgisayarınızın Ekran Çözünürlüğünü Bulun Bu makalemizde bilgisayarımızın ekran çözünürlüğünü bulacağız. Projectimizde Default.aspx ve bul.aspx isimli sayfalarımız olacak.
Sitenizi Ziyaret Edenlerin IP Numaralarını Kaydetme Arkadaşlar bu makalemizde sitenize giriş yapan ziyaretçilerin Ip numarasını gösterip, Access veritabanına kaydedeceğiz.
Session ile Kullanıcı Girişi Kontrol Session metodu ile Kullanıcı adı ve şifresi kontrolü yaptıracağız. Girilen kullanıcı adı ve şifresi doğru ise giris.aspx sayfasına, yanlış ise hata.aspx sayfasına yönlendirme yapacağız.
Sanal Klavye Arkadaşlar bu makalede bankaların internet sitelerinde kullandığı, sanal klavye konusunu göreceğiz. Sanal klavye yi kullanarak, şifre girişi yapacağız. Seçime bağlı sanal klavyedeki rakamların yerinin sürekli değiştireceğiz.
Kullanıcı Girişi ve Denetimi Bu örnekte login.aspx sayfasında kullanıcı denetimi yapacağız. Kullanıcı adı ve şifresini web. config dosyasına yazacağız. Doğru giriş yapıldığında, default.aspx sayfasına yönlendirme yapacağız.
Session Kullanımı Bu örneğimizde Session un nasıl kullanıldığını göreceğiz. Session özelliği genellikle bir sayfadan diğer sayfaya veri aktarımında kullanılan bir metod dur.
ASP.NET 3.5 ile Gelen Yenilikler Bu yazımızda ASP.NET 3.5 ile gelen yeniliklere hızlı şekilde göz atıyoruz. Yine geçtiğimiz günlerde resmen duyurulan ASP.NET 3.5 Extensions paketiyle gelen yenilikleri de inceliyor olacağız.
GridView Nesnesinde CheckBox İle Seçili Satırı Silme Bu makalemizde GridView nesnesine Checkbox ekleyip, Seçili olan satırları sileceğiz. Formunuza 1adet Checkbox, GridView, LinkLabel ve SqlDataSource nesnesi ekleyin.
GridView daki Verileri Metin Dosyasına Kaydetme Önceki makalelerde Excel dosyasına aktarmayı gördük. Şimdi Gridview nesnemizdeki verileri Metin dosyasına aktaracağız. Ayrıca Sil ve Güncelle butonları ekleyeceğiz.
GridView daki Verileri Excel Dosyasına Kaydetme-2.Metod Bu makalede Northwind.mdb Customers alanındaki verileri Gridview nesnesinde gösterimini sağlayıp, daha sonra Excel dosyasına kaydetmeyi göreceğiz.
GridView daki Verileri Tablo Yöntemi İle Excel Dosyasına Kaydetme-Metod1 Bu makalede Sql veritabanındaki verileri SqlDataSource ile GridView nesnesine aktarıp, daha sonra GridView daki verileri tablo ya aktaracağız.
VC# - Excel Dosyasından GridView a Veri Okuma Bu makalemizde GridView nesnemizde Excel dosyamızdan alacağımız verileri göstereceğiz. Bilgiler.xls excel dosyası oluşturup, aşağıdaki kodları formunuza yazın. Aşağıdaki şekilleri inceleyin...
Ajax ta Update Panel Kullanımı Bu makalemizde Ajax ta Update Panel uygulamasını göreceğiz. Update Panel kullanarak sayfamızın tamamını güncelleştirmeden sadece panel içindeki nesnelerimizi güncelleştirebiliriz.
GridView Içinde Hyperlink Kullanımı Bu makalemizde GridView nesnemizin içinde Hyperlink kullanacağız. Hyperlink e tıkladığınız zaman veritabanından ilgili personelin bilgilerini getirecek. Makalenin en altındaki Şekilleri inceleyin.
IP Numarasını ,Ülke ve Il Adını Öğrenme Arkadaşlar bu makalede sitenize bağlanan kişilerin ip numarasını gösterebilirsiniz. Ayrıca bu Ip numarasının hangi Ülkeye ve İle ait olduğunu bulabilirsiniz.Aşağıdaki örnek resme bakabilirsiniz.
FileUpload ile Sitenize Dosya Yükleyin-C# Evet arkadaşlar. FileUpLoad metodu ile sitenize istediğiniz dosyaları yükleyebilirsiniz. Bu örneğimizde resim dosyalarını sitemize yükleyeceğiz. Aşağıdaki örnek şekillerden uygulamayı görebilirsiniz.
Text Kayıt Örneği Bunun için ilk önce c:\kayit.txt dosyası oluşturun (isterseniz başka isimde de oluşturabilirsiniz). Form1 ve Form2 oluşturun.
Çalışma Anında LinkButton Oluşturma Arkadaşlar bu örneğimizde çalışma anında istediğimiz kadar link oluşturacağız. Daha doğrusu Access veritabanımızdaki kayıtlı veri kadar link oluşturup, linke gidilmesini sağlıyacağız...Bahadirsa
Veritabanı Bağlantı Kontrol Bu makalemizde veritabanına bağlantımız olup olmadığını kontrol edeceğiz. Formunuza 2 adet button ekleyin. Aşağıdaki şekilleri inceleyin.
Datareader ile Kayıt Kontrolü Bu makalemizde Access veritabanındaki kayıtlar arasında Ada göre sorgulama yapıp, aynı isimde kaç kayıtın bulunduğunu göreceğiz. Formunuza 1 adet DataGridview ve Button ekleyin.
Veritabanındaki Kayıt Sayısını Öğrenmek Bu örnekte Northwind.mdb Access veritabanındaki Customers tablosunda kayıtlı olan kayıt sayısını öğreneceğiz.
Veritabanında Kayıtlı Kullanıcı Adı ve Şifrelerini Eşleştirme Bu makalemizde veritabanında kayıtlı kullanıcı adı ve şifreler ile txtKullanici ve txtSifre isimli textboxlara girilen verilerin eşleştirmesini, sorgulamasını yapacağız. Formunuza 21 adet textBox, Label ve 1 adet Button ekleyin. Aşağıdaki şekilleri inceleyin.
Sql de Kayıtlı Kullanıcı Adı Sorgulama Bu makalemizde; sql veritabanına yeni kullanıcı adı girişi yapılmadan önce, veritabanında kayıtlı adları sorgulatıyoruz. Eğer girmek istediğimiz Ad veritabanında kayıtlı ise, Şekil 2 deki gibi Girmiş olduğunuz ad veritabanında kayıtlı. Lütfen başka ad giriniz uyarısı alıyoruz.
Sql Bağlantı Kontrol Bu makalemizde sql veritabanı bağlantısının açık olup olmadığını yani veritabanına bağlantımızı kontrol edeceğiz.
Sql Veritabanında Kayıt Arama Bu makalede sql veritabanımızdaki bir kayıtı, tablomuzdaki sütundaki alanlardaki kriterlere göre aratarak bulunan kayıtı, dataGridView nesnesinde göstereceğiz. Aşağıdaki şekilleri inceleyin.
DataGridView daki Kayıtları Diğer DataGridView a Kopyalama Bu örnekte DataGridView1 deki kayıtları DataGridView2 e kopyalayacağız. Aşağıdaki şekilleri inceleyin.
DataGridView Nesnesinde Seçili Satırın İndeksinin Alınması DataGridView nesnesinde seçili satırın indeksini mesaj olarak alacağız. İlk önce formunuza 1 adet dataGridView ve button nesnesi ekleyin. Aşağıdaki şekli inceleyin.
DataGridView daki Verileri Excel e Kaydetme ve Excel den Veri Okuma Öncelikle yapılması gereken; 1- Solution Explorer a sağ tıklayın. Add Reference kısmından COM sekmesini seçin. Bu kısımdan Microsoft Excel Library nesnesini Ok butonuna tıklayarak projenize ekleyin.
DataGridView da Seçili CheckBox taki Satırı Silme Bu makalede DataGridView nesnesine checkbox sütunu ekleyeceğiz. Ayrıca sql veritabanımıza bağlanıp bilgileri dataGridView nesnesinde göstereceğiz. Son olarak checkbox ı seçili satırı sileceğiz.
DataGridView da Seçili Satırı Kopyalama Bu makalemizde DataGridView da seçili satırı diğer DataGridView a kopyalayacağız. Formunuza 2 adet DataGridView ekleyin. Aşağıdaki şekilleri inceleyin.
ListView da Checkbox, Resim ve Veri Gösterimi Bu makalemizde ListView nesnesinde resim, checkbox ve veri gösterimini anlatacağız. Formunuza 1 adet ListView ve ImageList nesneleri ekleyin. ImageListe göstermek istediğiniz resimleri item olarak ekleyin. Aşağıdaki şekli inceleyin.
VC#.Net te dataGridView a Satır Sutun Ekleme Bu makalemizde veritabanına bağlanmaksızın dataGridView nesnemize satır ve sütun ekleyip, veri girişini sağlıyacağız. Aşağıdaki şekilleri inceleyin. Formunuza 1 adet button ve dataGridView nesnesi ekleyin...
VC#.Net te id no ya Göre Kayıt Arama Bu makalemizde Sql veritabanımızda kayıtlı id no ya göre verilerimizi ve kayıtlı resimlerimizi textboxlara ve pictureBox ımımıza getireceğiz. İlk önce sql veritabanınızı oluşturun.
DataGridView da Tarih Aralığına Göre Kayıt Sıralama Sql veritabanımızdaki kayıtları TextBox1 ve Textbox2 ye girmiş olduğumuz tarih aralıklarına göre sıralayacağız. Bunun için sql komutu between den yararlanacağız.
Sql Veritabanına Kayıt Ekleme Bu makalemizde SQL veritabanımıza kayıt ekleme konusunu inceleyeceğiz. SQL veritabanının nasıl oluşturulacağı konusunu önceki makaleler de anlatmıştım.
Excel Dosyasından Veri Okumak-VB.NET İlk önce C:\Bilgiler.xls şeklindeki gibi excel dosyanızı oluşturun. Daha sonra formunuza 1 adet Label, Button ve DataGridView nesnesi ekleyin.
Kayıt Silme-VB.NET Bu örnekte Access veritabanımızdan, T. C. Kimlik No‘ya göre Kayıt Silme işlemi yapacağız. Sizler kendi parametrelerinize göre kayıt silme işlemini gerçekleştirebilirsiniz.
Access Veritabanına Kayıt Ekleme Bu örneğimizde Access Veritabanımıza kayıt eklemeyi göreceğiz. İlk önce C:\p_takip.mdb şeklinde veritabanımızı tanımlayalım.
Tablodan Veri Okuma Bu örneğimizde oluşturacağımız tablodan veri okuyacağız.
Xml Dosyasından Kayıt Okuma Arkadaşlar bu örneğimizde, hazır bulunan xml dosyamızdan, oluşturduğumuz textboxlara veri ve picturebox ımıza resim çekeceğiz.
Xml Dosyasına Kayıt Bu örneğimizde Northwind.mdb veritabanındaki alanlardan çektiğimiz bilgileri, Xml olarak kaydedeceğiz...
DataReader ile TextBox a Veri Çekme Evet arkadaşlar Datareader kullanarak Serverımızdaki sql veritabanımızdan Textbox ımıza veri çekeceğiz. Unutmadan TextBox ımızın MultiLine özelliğini True yapın...Bahadirsa Aşağıdaki şekildeki gibi formunuzu tasarlayın. Formunuza 1 adet TextBox ve Button ekleyin.

Online:	1667
Bugün:	2857
Dün:	3080
Toplam:	2.422.528
Ip No:	18.116.118.0

Makale Toplam:	757
Download:	7
Güncel Haber:	6

	akd27
	haycom
	haycom
	army19
	xcvzczxz
	picasso777
	zaebb
	yavuz
	marnovo
	fd35

Bahadır ŞAHİN Programlama Sitesi

Menu:

Sitede hangi programlama dillerini görmek istersiniz.

Kullanıcı Giriş

Tags-Etiketler

Bu kısımda sitemizde etiketlenmiş makaleleri toplu olarak bulabilirsiniz...

Label ve TextBox Nesnelerinde TrackBar Kullanımı

C++ maskedTextBox İle Formatlı Yazmak

Excel de Kayıt Aramak

DataGridView da CheckBox Sütunda Seçili Olan Satırları Başka Bir DataGridView da Gösterimini Sağlamak

ListBox ta Arama Yapmak ve Seçili Itemin Yazı ve Arka Plan Rengini Değiştirmek

Asp.Net te Javascript Kullanarak GridView daki Satır Rengini Değiştirmek

CheckBoxList de Secili Item Bilgisini GridView da Gostermek

Python da Ekran Görüntüsü Almak

C++ My Sql Veritabanina Baglanmak ve dataGridView Nesnesinde Seçili Satir Bilgilerini MessageBoxta Gösterimini Saglamak

dataGridView da CheckBox İle Satır Seçmek, Seçili Satırın Yazı ve Arka Plan Rengini Değiştirmek

Tkinter CheckBox

C++ da dataGridView Nesnesine TextBox, Button, CheckBox, ComboBox ve Image Alanları Eklemek

Cookie Oluşturmak ve Cookie Değerlerini Almak

dataGridView da Boş Satır Olup Olmadığının Kontrolünü Yapmak

GridView da Seçili CheckBox taki Satırların Arka Plan Rengini Değiştirmek

GridView da CheckBox Kullanarak Satır Seçmek (GridView HighLight)

OuickReport Kurulumu Resimli Anlatımı

Delphide DBGrid Nesnesini Access Veritabanına Bağlamak

GridView da Sorgulamaya Göre Satir Arka Plan ve Yazi Rengini Degistirmek

GridView Nesnesinde Satırdaki Verileri HyperLinke Tıklayarak DetailsView Nesnesinde Göstermek

PlaceHolder Kullanımı

Repeater da HyperLink Kullanımı

Asp.Net te MultiView Kullanımı

GridView da Compute Islemleri

QueryString Metodu Ile DetailsView da Gösterim

ListBox Çalışmaları

GridView da DropDownList Kullanımı

Programlama E-Kitap-3

Sql Veritabanına Binary Image Eklemek ve Eklenen Image’i GridView’da Göstermek

ListBox’ta Seçili Verileri Veritabanına Kaydetmek

GridView da Otomatik Numara Vermek

GridView da Seçili CheckBox taki Satırlardaki Veriyi MesajBox ta Göstermek

CSV Dosyasından Okuma Yapmak

DataGridView Kullanımı

ListView Kullanımı ve CheckBox İle Seçili Satır Bilgisini MesajBox ta Göstermek

Çalışma Anında GridView da Sütun Gizlemek

DataGridView da Seçili Satırların Silinmesi

GridView’daki Verileri Word’e Aktarmak

Chart Kullanımı

Asp.net te Profil Kullanımı

DataGridView a Satır Ekleme ve Seçili Satırı Silme

GridView da Seçili Satır Bilgisini DetailsView da Göstermek

Repeater Kullanımı ve Sütundaki Satırların Fontunun ve Renginin Değiştirilmesi

GridView da ImageField Kullanımı

GridView da Seçili CheckBox Sütun Değerlerini Toplamak

Cümle İçerisindeki Kelimeleri Saymak

GridView da Karakter Sınırlama

Ajax Control Toolkit Kurulumu

CheckBoxList Örneği

DataGridView da Kayıt Arama ve TextBox a Aktarma

GridView Nesnesindeki Verileri ve Resimleri Excele Aktarmak

ListBox a Kayıt Ekleme ve Aynı Kayıt Girişini Engelleme

ProgressBar İle Birlikte Dosya Kopyalama Örneği

GridView Nesnesinde Kayıt Arama

TextBox ta Otomatik Tamamlama İşlemi

CheckBoxList Kullanımı

DetailsView Nesnesinde Yeni Kayıt Girişi, Güncelleme ve Silme İşlemleri

GridView Nesnesinde Aranan String in Satır Rengini Değiştirmek

GridView da JavaScript Kullanarak Checkbox Onaylama

GridView Nesnesinde Sütundaki Verileri Toplama

GridView Nesnesinde Kayıt Arama

GridView Nesnesinde Seçili CheckBox Satırların Silinmesi

GridView Nesnesine Boş Satır Ekleme

GridView Nesnesine Otomatik Satır Numarası Ekleme

GridView Nesnesinde Seçili CheckBox Satırlarının Gösterimi

GridView Nesnesinde Dinamik Olarak Resim Gösterimi

GridView Nesnesinde Sütunlarda Arama Yapmak

Image Üzerinde ElevateZoom u Kullanarak Zoomlama İşlemi Gerçekleştirme

DataGridView Kontrolünde Kayıt Arama

GridView Nesnesi ve DropDownList Nesnesini Birlikte Kullanmak

Excel de Arama Yapmak

DataGridView Satırlarını Koşullu Olarak Renklendirme

GridView Nesnesinde Seçili CheckBox Satırlarının Silinmesi

DataGridView da Link Sütunu Kullanmak