Resimde  görüldüğü gibi For-next döngüsü içine yazılan kod arılığı ile  sembol rakam ve sayıları sıralatabiliyoruz..

Yapılışı:

Button1 yazılacaklar; (Ascıı kodları önce öğrenelim)

 Dim a As Integer
For a = 1 To 255
ListBox1.Items.Add("ASCII kodu=" &; a &; "Karakter karşılığı=" &; (Chr(a)))
Next

Button2 yazılacaklar;(Büyük Harfleri Sırasıyla listbox’a Sıralayacak)

 Dim a As Integer
For a = 65 To 90
ListBox2.Items.Add("ASCII kodu=" &; a &; "Karakter karşılığı=" &; (Chr(a)))

Next

Button3 Yazılacaklar;( Küçük  Harfleri Sırasıyla listbox’a Sıralayacak)

Dim a As Integer
For a = 97 To 122
ListBox3.Items.Add("ASCII kodu=" &; a &; "Karakter karşılığı=" &; (Chr(a)))

Next

Button4 Yazılacaklar;(0-9 arası rakamları sırasıyla listbox’a sıraylayacak)

Dim a As Integer
For a = 48 To 57
ListBox4.Items.Add("ASCII kodu=" &; a &; "Karakter karşılığı=" &; (Chr(a)))

Next

Projeyi indir

Yukarıdada Görüldüğü gibi program 2 textbox,1 button ve 1 adet listbox’tan oluşuyor. kullanıcı dışarıdan tamamen küçük harflerle veri giriyor aam ekle dediğinde listboxa eklenmeden yazdığımız kodlarla program harfleri büyük ve küçüklüğünü istediğimiz gibi değiştiriyor. şimdi programın yapılışına geçelim. Ekle butonuna tıkladığımızda işlevler gerçekleşeceği için kodlarımızı  buttona yazacağız .

Yapılışı:

Button1 yazılacaklar;

Dim ad, soyad, a As String 'Değişkenler
ad = TextBox1.Text
soyad = TextBox2.Text
soyad = soyad.ToUpper
Dim i As Integer
For i = 1 To ad.Length - 1
a = a + ad.Chars(i)

Next

ListBox1.Items.Add(ad.ToUpper.Chars(0) &;; a.ToLower ; " " &; soyad.ToUpper)

Sonra Programı Çalıştırıyoruz.. Yapamayanlar veya kodları incelemek isteyenler Aşığıdan Projeyi indire tıklayarak programı inceleyebilirsiniz..

Projeyi İndir

Private Sub Command1_Click()
Dim sayı1, sayı2, sonuç As Integer
sayı1 = Val(InputBox("1.sayıyı gir"))
sayı2 = Val(InputBox("2.sayıyı gir"))
sonuc = sayı1 + sayı2
MsgBox ("sayıların toplamı=" & sonuc)
End Sub

projeyi İNDİR

3 Seçenekli Silindir Formülü Hesaplayan programın akış diyagram örneği.(flowchart programı ile yapılmış)

Oluşturulması:”Start” ile başlanır.Klavyeden girilecek olan sayı değeri “Input”la belirlenir.”Action” ‘la “sayac” ‘a 1 değer verilir.”Output”  ile ekrana hangi yazıyı yazıcağamızı seçeriz.”Action”  ile “sayac” ın 1 artması sağlanır.Şart’ada şekildeki değerler girilir.”End” ile program bitirilir.

Oluşturulması:”Start” ile başlanır.”Input” ile yarıcap değerinin klavyeden girilmesi sağlanır.”Action”(aksiyon) butonlarıyla silindirin çevresi elde edilir.Bulunan sonuç” Output” butonuyla ekrana yazdırılır.Ardından alanı bulmak için formül “Action” butonuyla hesaplatılır.Çıkan değer “Output”la ekrana yazdırılır.”End”le program bitirilir.

Oluşturulması; “Start” ile başlanır.Klavyeden girilecek kenar değeri “input” ile verilir.Daha Sonra ”Action” ‘ dan(aksiyon) hacim formülü hesaplatılır.Ardından diğer “Action” lada alan formülü hesaplatılır.İki sonuç elde edilir.Çıkan sonuçlar “output” la ekrana yazdırılır.”End” le program bitirilir.

Private Sub Command1_Click()
Dim sayi As Integer
sayi=val(inputbox("sayıyı giriniz"))
if  sayi < O  Then MsgBox("girmiş olduğunuz sayı pozitiftir")if
if  sayi > O Then MsgBox("girmiş olduğunuz sayı negatiftir")
if  sayi = O Then MsgBox("girmiş olduğunuz sayı nötrdür")
End Sub

Private Sub Command1 Click()
Dim sayı1,sayı2,sonuc As integer
sayi1=val(inputbox("1. sayıyı giriniz"))
sayi2=val(inputbox("2.sayıyı giriniz"))
sonuc=sayi1+sayi2
msgbox ("sayıların toplamı=" & sonuc)
End Sub

======= Veritabanı Bağlama ========

Veritabanı Bağlamak için Öncelikle projemizin kayıtlı bulunduğu dosya içinde WindowsFormsApplication adındaki klasörün içindeki bin klasörüne girip oradanda Debug Adlı klasör içine girip MS accesste oluşturduğumuz veritabanı dosyasını oluşturuyoruz..Bu işlemi yaptıktan sonra projemizi açıp toolboxda Data altında bulunan kontrollere OledbAdapter,OledbConnection,Dataview ve DataGrid kontrollerini eklememiz gerekir.. Bunun için toolboxda Data üzerine sağ tuş Choose İtems a tıklarayarak Adı geçen kontrolleri gelen pencerede seçerek toolbox a ekleriz.. Ardından OledbAdapter Kontrolüne çift tıklayarak Veritabanını bağlama işlemine başlayacağız..OledbAdapter e tıkladıktan sonra gelen pencereden New Connection diyoruz.. Gelen pencerede Data Source karşısındaki Change Butonuna basarak gelen pencereden other Seçilip OK butona basarız..Bu İşlemi yaptıktan sonra OLE DB Provider ın Altında bulunan açılır liste kutusundan Microsoft Jet 4.0 OLE DB Provider Seçildikten sonra Data Links Butonuna tıklarız.1.Veritabanı adını seçiniz veya girin karşısında … Butonuna basarak daha önce oluşturduğumuz access veritabanı dosyasını seçeriz..Bu işlemi yaptıktan sonra Bağlantıyı sına Butonuna basarak Bağlantımızın düzgün olup olmadığını kontrol ederiz..Sınama başarılı oldu mesajı alındıktan sonra Tamam Butonuna basarız.. Ekranda kalan penceremizde Test Connection Butona basarak YineBağlantımızın doğru olup olmadığını kontrol ederiz.. Test connection succeeded mesajını aldıktan sonra OK butonuna basarız..Ekranda kalan pencereden NExt Diyerek devam ederiz.. Next butonuna bastıktan sonra Bir mesaj gelecektir bu mesaja evet diyerek geçeriz.Yine next butonuna basarak devam ederiz. Next dedikten sonra gelen pencerede Query Builder butonuna basarız..Gelen pencerede accesste oluşturduğumuz tablo(lar) görüntülenecektir..Burada Kullanacağımız tablo(lar) seçip add butonana basarız.. Add butonuna basıp tablomuzu ekledikten sonra close butonuna basarak pencereyi kapatırız.. Ekrandaki pencerede tablodaki tüm alanların gözükmesini istiyorsak All Columns seçeneğine tıklayarak Execute Query butununa basarak Oluşturduğumuz tablodaki verileri ve alanları görüntüleriz.. Bu işlemi yaptıktan sonra OK butonuna basarak Ekranda bulunan pencereden Next butonuna basarız .. Ardından Gelen pencereden Finish Butonuna basarız ve pencere kapanır..

Ardından toolboxda bulunan Data ya eklediğimiz kontrollerden Dataviewe çift tıklayarak Formumuzun altına ekleriz..Bu işlemden sonra formumuzun altında bulunan oledbAdapter Üzerine gelip sağ tuş Generate Dataset e tıklarız gelen pencerede OK butonuna basarız..Bu işlemi yaptıktan sonra formumuzun altına eklediğimiz dataview i seçip properties penceresinden Table Özelliğine tıklatıp Dataset11 altında bulunan tablomuzu seçeriz. bu işlemi yaptıktan sonra Yine toolboxda data içine ekledğimiz DataGrid kontrolünü formumuza ekliyoruz..Datagrid i ekledikten sonra datagrid i seçip properties penceresinde DataSource özelliğine tıklayıp Form1 List İnstances in Altında bulunan Dataviewi seçiyoruz..Eklenen textboxları veritabanı bağlatısı için textbox seçiyoruz. Properties penceresinden DataBindings + işaretine tıklanır.Text – Other Data Sources – Form1 List İnstances– Dataset11 – bağlantı kurcağınız access dosyasının ilgili alanı seçilir. Bu işlemide yaptıktan sonra Veritabanı bağlama işlemi başarı ile sona ermiştir…

public partial class Form1 : Form
{
public Form1()
{
InitializeComponent();
}

private void button2_Click(object sender, EventArgs e)
{
Form2 frm2 = new Form2();
frm2.Show();
this.Hide();

}

private void button3_Click(object sender, EventArgs e)
{
MessageBox.Show("iyi günler....");
this.Close();

}

private void Form1_Load(object sender, EventArgs e)
{

}

private void button1_Click(object sender, EventArgs e)
{
this.BindingContext[dataSet21, "ögr"].EndCurrentEdit();
this.BindingContext[dataSet21, "ögr"].AddNew();

}

private void button4_Click(object sender, EventArgs e)
{
this.BindingContext[dataSet21, "ögr"].EndCurrentEdit();
this.BindingContext[dataSet21, "ögr"].AddNew();
oleDbDataAdapter1.Update(dataSet21);

}

private void button5_Click(object sender, EventArgs e)
{
DialogResult sil;
sil = MessageBox.Show("silmek istiyormusunuz ?", "sil", MessageBoxButtons.YesNo, MessageBoxIcon.Hand);
if (sil == DialogResult.Yes)
{
int kyt;
kyt = this.BindingContext[dataSet21, "ögr"].Position;
this.BindingContext[dataSet21, "ögr"].RemoveAt(kyt);
this.BindingContext[dataSet21, "ögr"].Position -= 1;
this.BindingContext[dataSet21, "ögr"].EndCurrentEdit();
oleDbDataAdapter1.Update(dataSet21);
}

else
{
;
}
}
}
//FORM2 İçerisine Yazılacak Kodlar
public partial class Form2 : Form
{
public Form2()
{
InitializeComponent();
}

private void Form2_Load(object sender, EventArgs e)
{
comboBox1.Items.Add ("serdar altınsoy");
comboBox1.Items.Add ("hasan yılmaz");
comboBox1.Items.Add("osman kaya");

}

private void textBox5_TextChanged(object sender, EventArgs e)
{
DateTime bslngc, bts;
int gün;
try
{
bslngc = DateTime.Parse(textBox5.Text );
gün = int.Parse(textBox7.Text);
bts = bslngc.AddDays(gün);
label1.Text = bts.ToLongDateString();
}
catch
{
;
}
}

private void textBox7_TextChanged(object sender, EventArgs e)
{
textBox5_TextChanged(textBox5, e);
}
private void button1_Click(object sender, EventArgs e)
{
Form1 frm1 = new Form1();
frm1.Show();
this.Hide();
}
}

Projeyi İNDİR