[ say ] /
Makaleler-Article(s)
say ile ilgili toplam 37 makale bulundu ! (A total of 37 article(s) about say was(were) found in all of articles!)
| Article |
|---|
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. | DataGridView da Sayfalama
Merhaba arkadaşlar. Bu makalemizde DataGridView nesnesinde istenilen sayıda kayıt nasıl gösterilir ve kayıtlar arası geçişleri göreceğiz. Bu örnekte DataGridView da 5 li kayıt gösterimini sağlayacağız. | 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. | Karakter Sayımı
Merhaba arkadaşlar. Bu makalemizde Textbox alanındaki a harfinin kaç kez geçtiğini sayarak mesaj olarak yazdıracağız. | ListBox ta Tekrarlanan Satır Sayısını Öğrenme
Merhaba arkadaşlar, bu makalemizde Listboxta tekrarlanan satır sayısını öğreneceğiz. | ListView QueryStringField Alanını Kullanarak Sayfalama
Merhaba arkadaşlar, bu makalemizde ListView nesnemizi web adresinde belirtiğimiz sayfa no ya göre sayfalama yapacağız. | DetailsView da Sayfalama
Merhaba arkadaşlar, bu makalemizde DetailsView nesnesinde DropDownList i kullanarak sayfalama işlemi yapacağız. DetailsView ın AllowPaging özelliğini True yapın. | İnternet Açılış Sayfasını Değiştirme
İnternet Explorer açılış sayfasını TextBox a gireceğimiz adres ile değiştireceğiz. Şekil 1.Bir makalenin daha sonuna geldik. Bir sonraki makalede görüşmek dileğiyle. Hoşçakalın. Bahadır ŞAHİN | DataList Sayfalama-2
Bu örneğimizde Datalist nesnemizi nümerik olarak indekslemeyi göreceğiz. Default.aspx sayfanıza 1 adet DataList, TextBox ve 5 adet Label ekleyin. Şekil 1 deki gibi oluşturun. TextBox ın ismini txtStart yapın. TextBox ta sayfanın başlangıç durumunu tutacağız. Northwind veritabanındaki Customers tablosundaki verileri göstereceğiz. | DataList Nesnesinde Sayfalama-1
Bu makalemizde DataList nesnemizde sayfalama nasıl yapılır? konusunu göreceğiz. Bu gösterimimizde Buttonlardan faydalanacağız. Sonraki makalelerde DataList nesnesinde nümerik indeksleme metodunu göstereceğim. Şimdi sayfanızı Şekil 1 deki gibi oluşturun. Bu örnekte Northwind veritabanındaki Customers tablosuna bağlanacağız.
DataList nesnesinin ItemTemplate kısmına;
Bir makalenin daha sonuna geldik. Bir sonraki makalede görüşünceye kadar hoşçakalın. 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
| Random Sayı Atama
Bu örnekte rastgele sayı oluşturmayı göreceğiz.
1. olarak rastgele oluşturduğumuz ilk 10 rakam için sabit random değerini atadık. Bunuda ListBox nesnesinde Item olarak gösterdik.
2. olarak birbirinden farklı random sayıları Listbox a ekledik.
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 btnRandom_Click(object sender, EventArgs e)
{
int[] sayi=new int[11];
for (int i = 0; i <= 10; i++)
{
Random rnd = new Random();
sayi[i] = rnd.Next(0, 100);
//İlk 10 rakam için sabit random değerini atadık.
//İlk 10 değerimiz aynı.
listBox1.Items.Add(Convert.ToString(i + "=" + sayi[i]));
}
}
private void btnRastgele_Click(object sender, EventArgs e)
{
//listBox1.Items.Clear();
Random rnd = new Random();
int i = rnd.Next(0,100);
listBox1.Items.Add(i);
}
}
}
//Bir sonraki makalede görüşmek üzere. Bahadır ŞAHİN | Rastgele Üretilen Sayıların En Küçüğü,En Büyüğü ve Ortalamasını Bulma
Rastgele ürettiğimiz 20 sayının en küçüğü en büyüğü ve bu 20 sayının ortalamasını bulacağız.
Formunuza 1 adet Button, Label ve ListBox ekleyin. Aşağıdaki şekilleri inceleyin.
private void button1_Click(object sender, EventArgs e)
{
int[] dizi = new int[20];
int sayi = 0, j = 0, toplam =0;
bool buldu = false;
Random rastgele = new Random();
for (int i = 0; i < 20; i++)
{
buldu = false;
while (buldu == false)
{
sayi = rastgele.Next(1, 30);
for (j = 0; j < 20; j++)
if (dizi[j] == sayi) break;
if (j == 20)
{
dizi[i] = sayi;
buldu = true;
}
}
toplam = toplam + dizi[i];
}
int ortalama;
ortalama = toplam / 20;
Array.Sort(dizi);
MessageBox.Show("En Küçük Sayı=" + dizi[0] + Environment.NewLine + "En Büyük Sayı=" + dizi[19]+ Environment.NewLine + "Ortalama=" + ortalama);
foreach (int yaz in dizi)
listBox1.Items.Add(yaz);
}
//Bir sonraki makalede buluşmak üzere. Bahadır ŞAHİN | 10 luk Sayı Sistemini 2 lik Sayı Sistemine Çevirme
Bu örnekte TextBox a girilen onluk sayı sitemini 2 lik sayı sistemine çevireceğiz. Formunuza 2 adet textbox ve 1 adet button ekleyin. Aşağıdaki şekli inceleyin.
private void button1_Click(object sender, EventArgs e)
{
textBox2.Clear();
byte deger;
Byte bit;
deger = Convert.ToByte(textBox1.Text);
for (int i = 7; i >= 0; i--)
{
bit = (byte)(deger >> i & 1); //mantıksal veri
textBox2.Text = textBox2.Text+Convert.ToString(bit);
}
}
//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
| İki Sayı Arasındaki Sayıların Toplamı
İki sayıda dahil olmak üzere aradaki sayıların toplamını bulacağız. Aşağıdaki şekli inceleyin.
private void button1_Click(object sender, EventArgs e)
{
int x = Convert.ToInt32(textBox1.Text);
int y = Convert.ToInt32(textBox2.Text);
int sonuc = 0;
for (int i = x; i <= y; i++)
{
sonuc += i;
}
MessageBox.Show("İki Sayı Arası Toplam:" + sonuc.ToString(), "Sonuç");
}
//Bir sonraki makalede buluşmak üzere. Bahadır | Bilgisayarınızın Kaç Saat Açık Olduğunu Öğrenmek
Arkadaşlar bu örnekte, bilgisayarımızın ne zamandan beri açık olduğunu öğreneceğiz.
Bunun için System.Environment.TickCount özelliğinden faydalanacağız. Formunuza 1 adet timer ekleyin. Aşağıdaki şekli inceleyiniz.
private void Form1_Load(object sender, EventArgs e)
{
timer1.Enabled = true;
timer1.Interval = 1000;
}
private void timer1_Tick(object sender, EventArgs e)
{
string ad, versiyon;
double sure;
int dakika;
sure = System.Environment.TickCount;
//bilgisayar adı öğrenme
ad = System.Environment.MachineName;
//versiyon öğrenme
versiyon = Convert.ToString(System.Environment.OSVersion);
//dakika cinsinden
dakika = Convert.ToInt32((sure / 1000) / 60);
//saat cinsinden
sure = (((sure / 1000) / 3600));
string saat = sure.ToString("F");
label4.Text = ad;
label5.Text = versiyon;
label6.Text = ad + " adlı bilgisayarınız " + saat + " saattir açık bulunmakta. " + Environment.NewLine + "(" + dakika + " dakikadır açık)";
}
//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 a Sadece Sayı Girebilme
Bu örnekte textBox nesnesine sadece sayı girişi yapılacak. String girilemiyecek. String girilmeye çalışıldığında bizi uyaracak. textBox ın KeyPress olayına aşağıdaki kodları yazacağız. Public Form1()
kısmına textBox1.KeyPress += new System.Windows.Forms.KeyPressEventHandler(textBox1_KeyPress);
i eklemeyi unutmayı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();
textBox1.KeyPress += new System.Windows.Forms.KeyPressEventHandler(textBox1_KeyPress);
}
private void textBox1_KeyPress(object sender, System.Windows.Forms.KeyPressEventArgs e)
{
if ((e.KeyChar) == 8)
{
e.Handled = false;
return;
}
if ((e.KeyChar) < 48 | (e.KeyChar) > 57)
{
e.Handled = true;
MessageBox.Show("Sadece Sayı Girebilirsiniz", "Dikkat!!", MessageBoxButtons.OK);
return;
}
}
}
}
//Bir sonraki makalede görüşmek üzere. Bahadır | Formu Saydamlaştırma
Formumuzun Opacity değeriyle oynayarak saydamlaştırabiliriz. Formumuzun Opacity değerini Trackbar nesnesiyle değiştireceğiz.
Public Class Form1
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
TrackBar1.Minimum = 0
TrackBar1.Maximum = 10
TrackBar1.Value = 10
End Sub
Private Sub TrackBar1_ValueChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles TrackBar1.ValueChanged
Me.Opacity = TrackBar1.Value / 10
End Sub
End Class
Bir sonraki makalede görüşmek ü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 | Bilgisayarın Hızını Ölçün
Bilgisayarınızın hızını GetSystemMetrics Apisini kullanarak ölçebilirsiniz. Aşağıdaki şekli inceleyin.
Public Class Form1
Private Declare Function GetSystemMetrics Lib "user32" (ByVal nIndex As Long) As Long
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
If GetSystemMetrics(73) Then
MessageBox.Show("Bilgisayarınız yavaş çalışmakta...", "Uyarı!", MessageBoxButtons.OK, MessageBoxIcon.Warning)
Else
MessageBox.Show("Bilgisayarınız hızlı çalışmakta...", "Uyarı!", MessageBoxButtons.OK, MessageBoxIcon.Warning)
End If
End Sub
End Class
Bir sonraki makalede görüşmek ü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 | 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
| 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
| İ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 | InputBox tan Girilen Sayıları Büyükten Küçüğe Sıralama
Bu örneğimizde InputBox tan girilen sayıları ListBox ta büyükten küçüğe sıralamayı göreceğiz.
Public Class Form1
Private Sub btnGir_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnGir.Click
Dim i, j, k, yedek As Integer
Dim sayi(10) As Long
‘sayi(10) indisli değişkendir
For i = 1 To 10
sayi(i) = InputBox(i & ".Sayıyı Giriniz...") ‘sayıları alıyoruz
Next
For i = 1 To 10
For j = 1 To 10
If sayi(i) > sayi(j) Then
yedek = sayi(j)
sayi(j) = sayi(i)
sayi(i) = yedek
End If
Next j
Next i
‘Buyukten Kucuge Siralama
For k = 1 To 10
ListBox1.Items.Add(sayi(k))
Next
‘Kucukten Buyuge Siralama
‘For k = 10 To 1 Step -1
‘ListBox1.Items.Add(sayi(k))
‘Next
End Sub
End Class
| Geri Sayım-Timer Uygulaması
Bu makalemizde Rapidshare deki gibi geri sayım uygulaması yapacağız. Combobox nesnesinden seçilen dakika ve saniyeden geriye doğru saydıracağız. Ayrıca timer ın interval değerini, formun rengini vb... işlemleri çalışma anında yapabileceğiz. Aşağıdaki şekilleri inceleyin. Formunuza 1 adet Timer, 3 adet Label ve 4 adet Combobox nesnesi ekleyin.
Public Class Form1
Dim i As Integer = 5
Dim j As Integer = 59
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Timer1.Enabled = False
Timer1.Interval = 1000
Label1.Text = "0" & i
Label2.Text = "00"
Label3.Text = ":"
cmb1.Text = "59"
cmb2.Text = "0"
cmb3.Text = "Timer Hızını Ayarla"
cmb1.Enabled = False
cmb2.Enabled = False
cmb3.Enabled = False
cmb4.Text = "Renk Ayarla"
With Me
.Text = "Geri Sayım"
.Location = New Point(250, 150)
.MaximizeBox = False
.MinimizeBox = False
End With
End Sub
Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
If j = 59 Then
i = i - 1
If i < 9 Then
Label1.Text = "0" & i
Else
Label1.Text = i
End If
ElseIf j = -1 Then
If i > 9 Then
i = i - 1
Label1.Text = i
j = 59
ElseIf i > 0 And i <= 9 Then
i = i - 1
Label1.Text = "0" & i
j = 59
ElseIf i <= 0 Then
j = 0
i = 0
Label3.Text = ":"
Timer1.Enabled = False
End If
End If
If Label3.Text = ":" Then
Label3.Text = ""
Else
Label3.Text = ":"
End If
If j > 9 Then
Label2.Text = j
Else
Label2.Text = "0" & j
End If
If i = 0 And j = 0 Then
Label3.Text = ":"
btnBaslat.Text = "Baslat"
Timer1.Enabled = False
MsgBox("Süre Bitti", MsgBoxStyle.OkOnly, "Bahadirsa Mesaj")
Exit Sub
End If
j = j - 1
End Sub
Private Sub btnBaslat_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnBaslat.Click
If Timer1.Enabled = False Then
Timer1.Enabled = True
btnBaslat.Text = "Durdur"
Else
Timer1.Enabled = False
btnBaslat.Text = "Başlat"
End If
End Sub
Private Sub cbox1_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cbox1.CheckedChanged
Label3.Text = ":"
If cbox1.Checked Then
cmb1.Enabled = True
cmb2.Enabled = True
cmb3.Enabled = True
i = cmb1.Text
j = cmb2.Text
Label1.Text = i
If i <= 9 Then
Label1.Text = "0" & i
End If
If j > 9 Then
Label2.Text = j
Else
Label2.Text = "0" & j
End If
Else
i = 5
j = 0
Label1.Text = "0" & i
Label2.Text = "0" & j
Label3.Text = ":"
Timer1.Enabled = False
cmb1.Enabled = False
cmb2.Enabled = False
cmb3.Enabled = False
btnBaslat.Text = "Başlat"
End If
End Sub
Private Sub cmb3_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmb3.SelectedIndexChanged
Timer1.Interval = cmb3.Text
End Sub
Private Sub cmb1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmb1.SelectedIndexChanged
cbox1_CheckedChanged(sender, e)
End Sub
Private Sub cmb2_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmb2.SelectedIndexChanged
cbox1_CheckedChanged(sender, e)
End Sub
Private Sub ComboBox1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmb4.SelectedIndexChanged
If ColorDialog1.ShowDialog() = Windows.Forms.DialogResult.OK Then
If cmb4.SelectedIndex = 0 Then
Label1.ForeColor = ColorDialog1.Color
Label2.ForeColor = ColorDialog1.Color
Label3.ForeColor = ColorDialog1.Color
ElseIf cmb4.SelectedIndex = 1 Then
Label1.BackColor = ColorDialog1.Color
Label2.BackColor = ColorDialog1.Color
Label3.BackColor = ColorDialog1.Color
ElseIf cmb4.SelectedIndex = 2 Then
Me.BackColor = ColorDialog1.Color
End If
End If
End Sub
End Class
Bir sonraki makalede buluşmak üzere...Bahadır | 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 Adının Alınması
Bu makalemizde bilgisayar adını öğreneceğiz. Aşağıdaki şekli inceleyin.
Forma yazılacak kodlar:
Imports System
Public Class Form1
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
IPAddress()
End Sub
Private Sub IPAddress()
Dim LocalHostName As String
Dim i As Integer
LocalHostName = Net.Dns.GetHostName()
Dim ipEnter As Net.IPHostEntry = Net.Dns.GetHostByName(LocalHostName)
TextBox1.Text =
LocalHostName.ToString()
End Class
Bir sonraki makalemizde Bilgisayarın IP adresini öğrenme konusunu inceleyeğiz. Bir sonraki makalemizde görüşmek üzere...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
| TextBox a Girilen Rakamı Yazıya Çevirme
Bu örneğimizde TextBox a girilecek olan rakamaların, yazı olarak karşılığını yazdıracağız. Aşağıdaki şekli inceleyin.
Forma yazılacak kodlar:
Imports VB = Microsoft.VisualBasic
Public Class Form1
Private Sub btnCevir_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnCevir.Click
RichTextBox1.Text = GetSayilar((txtsayi.Text))
End Sub
Private Sub txtsayi_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles txtsayi.KeyPress
Dim KeyAscii As Short = Asc(e.KeyChar)
KeyAscii = IIf(IsNumeric(Chr(KeyAscii)) Or (InStr(txtsayi.Text, ".") = 0 And KeyAscii = 46) Or KeyAscii = 8, KeyAscii, 0)
If KeyAscii = 0 Then
e.Handled = True
End If
End Sub
Function GetSayilar(ByRef x As String) As String
Dim bir(10) As String
Dim iki(10) As String
Dim Uc(10) As String
Dim Yüz As String
Dim Bin As String
Dim yüzbin As String
Dim Onmilyon As String
Dim Milyar As String
Dim Milyon As String
Dim Trilyon As String
bir(0) = "Sıfır" : bir(1) = "Bir" : bir(2) = "İki" : bir(3) = "Üç" : bir(4) = "Dört" : bir(5) = "Beş" : bir(6) = "Altı" : bir(7) = "Yedi" : bir(8) = "Sekiz" : bir(9) = "Dokuz"
iki(0) = "On" : iki(1) = "Onbir" : iki(2) = "Oniki" : iki(3) = "Onüç" : iki(4) = "Ondört" : iki(5) = "Onbeş" : iki(6) = "Onaltı" : iki(7) = "Onyedi" : iki(8) = "Onsekiz" : iki(9) = "Ondokuz"
Uc(2) = "Yirmi" : Uc(3) = "Otuz" : Uc(4) = "Kırk" : Uc(5) = "Elli" : Uc(6) = "Altmış" : Uc(7) = "Yetmiş" : Uc(8) = "Seksen" : Uc(9) = "Doksan"
Yüz = "Yüz" : Bin = "Bin" : yüzbin = "Yüz Bin" : Onmilyon = "On Milyon" : Milyar = "Milyar"
Milyon = "Milyon" : Trilyon = "Trilyon"
Dim inp, RetVal As String
inp = CStr(Val(x))
Select Case Len(inp)
Case 1
RetVal = bir(CInt(x))
Case 2
If Int(CDbl(VB.Right(inp, 1))) > 0 And CDbl(VB.Left(inp, 1)) > 1 Then RetVal = GetSayilar(CStr(Int(CDbl(VB.Right(inp, 1))))) ‘ 20 den 90 adım 10
If CDbl(VB.Left(inp, 1)) > 1 Then RetVal = Uc(CInt(VB.Left(inp, 1))) & RetVal ‘ 20-99
If CDbl(VB.Left(inp, 1)) = 1 Then RetVal = iki(CInt(VB.Right(inp, 1))) ‘11-19
Case 3
If Int(CDbl(VB.Right(inp, 2))) > 0 Then RetVal = GetSayilar(CStr(Int(CDbl(VB.Right(inp, 2)))))
RetVal = GetSayilar(Int(CDbl(VB.Left(inp, 1)))) & Yüz & RetVal
Case 4
If Int(CDbl(VB.Right(inp, 3))) > 0 Then RetVal = GetSayilar(CStr(Int(CDbl(VB.Right(inp, 3)))))
RetVal = GetSayilar(Int(CDbl(VB.Left(inp, 1)))) & Bin & RetVal
Case 5
If Int(CDbl(VB.Right(inp, 3))) > 0 Then RetVal = GetSayilar(CStr(Int(CDbl(VB.Right(inp, 3)))))
RetVal = GetSayilar(Int(CDbl(VB.Left(inp, 2)))) & Bin & RetVal
Case 6
If CInt(VB.Right(inp, 5)) > 0 Then RetVal = GetSayilar(CStr(CInt(VB.Right(inp, 5))))
RetVal = GetSayilar(Int(CDbl(VB.Left(inp, 1)))) & yüzbin & RetVal
Case 7
If CInt(VB.Right(inp, 5)) > 0 Then RetVal = GetSayilar(CStr(CInt(VB.Right(inp, 5))))
RetVal = GetSayilar(Int(CDbl(VB.Left(inp, 2)))) & yüzbin & RetVal
Case 8
If CInt(VB.Right(inp, 7)) > 0 Then RetVal = GetSayilar(CStr(CInt(VB.Right(inp, 7))))
RetVal = GetSayilar(Int(CDbl(VB.Left(inp, 1)))) & Onmilyon & RetVal
Case 9
If CInt(VB.Right(inp, 7)) > 0 Then RetVal = GetSayilar(CStr(CInt(VB.Right(inp, 7))))
RetVal = GetSayilar(Int(CDbl(VB.Left(inp, 2)))) & Onmilyon & RetVal
Case 10
If CInt(VB.Right(inp, 9)) > 0 Then RetVal = GetSayilar(CStr(CInt(VB.Right(inp, 9))))
RetVal = GetSayilar(Int(CDbl(VB.Left(inp, 1)))) & Milyar & RetVal
Case 11
If CInt(VB.Right(inp, 9)) > 0 Then RetVal = GetSayilar(CStr(CInt(VB.Right(inp, 9))))
RetVal = GetSayilar(Int(CDbl(VB.Left(inp, 2)))) & Milyar & RetVal
Case 12
If Val(VB.Right(inp, 11)) > 0 Then RetVal = GetSayilar(VB.Right(inp, 11))
RetVal = GetSayilar(Int(CDbl(VB.Left(inp, 1)))) & Milyon & RetVal
Case 13
If Val(VB.Right(inp, 11)) > 0 Then RetVal = GetSayilar(VB.Right(inp, 11))
RetVal = GetSayilar(Int(CDbl(VB.Left(inp, 2)))) & Milyon & RetVal
Case 14
If Val(VB.Right(inp, 13)) > 0 Then RetVal = GetSayilar(VB.Right(inp, 13))
RetVal = GetSayilar(Int(CDbl(VB.Left(inp, 1)))) & Trilyon & RetVal
Case 15
If Val(VB.Right(inp, 13)) > 0 Then RetVal = GetSayilar(VB.Right(inp, 13))
RetVal = GetSayilar(Int(CDbl(VB.Left(inp, 2)))) & Trilyon & RetVal
End Select
GetSayilar = " " & RetVal & " "
GetSayilar = Replace(GetSayilar, " ", " ")
End Function
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
With Me
.Text = "Rakam ı Yazıya Çeviren Program"
.MaximizeBox = False
End With
RichTextBox1.ReadOnly = True
End Sub
End Class
‘Faydalı olması dileğiyle. Bir sonraki makalede görüşmek üzere...Bahadirsa | TextBox a Sadece Rakam ve Virgül Girme
TextBox ın KeyPress yordamına aşağıdaki kodları yazacağız. Bu şekilde Textbox a sadece
rakam ve virgül girişini sağlıyacağız. Klavyeden harf girildiği zaman herhangi bir işlem yapmayıp, bizi uyaracak.
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 = "Formunuza Sadece Sayı ve Bir Virgül Girme...Bahadirsa"
.MaximizeBox = False
.Size = New System.Drawing.Size(248, 99)
.Location = New Point(250, 190)
End With
End Sub
Private Sub TextBox1_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles TextBox1.KeyPress
Dim i As Integer
Dim k As String
Dim j As Char
Dim dizi As String
dizi = "1234567890,"
j = Chr(Asc(e.KeyChar))
k = TextBox1.Text & j
i = InStr(1, k, ",")
If InStr(i + 1, k, ",") > 0 Then
MsgBox("Sadece Bir Virgül İçerebilir")
e.KeyChar = ChrW(0)
TextBox1.Focus()
Exit Sub
End If
If (Val(e.KeyChar) <> 8) Then
If (InStr(dizi, CStr(j)) = 0) Then
e.KeyChar = ChrW(0)
MsgBox("Sadece Rakam ve Bir Virgül Girilebilir...")
Exit Sub
End If
End If
End Sub
End Class
‘ Bir sonraki makalede buluşmak üzere...Bahadirsa | 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 | 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. | DataGridView Nesnesinde Seçili Satır Sayısını ve Satır Nosunu Gösterme
Arkadaşlar, dataGridView nesnesinde seçili satır sayılarını ve no larını mesaj olarak göstereceğiz. Aşağıdaki şekilleri inceleyin. Formunuza 1 adet dataGridView nesnesi ve button ekleyin. |
|