Public Class Oneylabs

Private Sub Oneylabs_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles

Dim i As Integer ‘ Döngü için

i = 1‘ ! den başlamsını sağladık

Do ‘ döngü başladı

harf = Mid(kelime, i, 1) ‘ harfi i’ci karaktere eşitledik

If harf = “” Then ‘ ” ” boşluk değil fark ettiyseniz.programda yazının bitişine “” konulur.işte buna gelindiyse

Exit Do ‘ döngüden çık

Else ‘ değilse

End If ‘ karar yapısnı kapat

Loop ‘ döngüyü tamamla

End Sub

bu karakter sayısnı vercektir

 

ilk olrak formumuzu şu şekilde ayarlayalım.

Eklenmesi Gereken Nesneler :

5 adet radiobutton
2 adet Label
1 adet splitcontainer
1 adet menü

İsimlerini Şu şekilde Ayarlayın.

name özellikleri

form  oneylabs
sırasıyla radiobutonlar  : Rbfb,Rbgs,Rbbjk,Rbts,Rbtr şeklinde adlandırılır.

splitcontainer : renk olrak değiştirdim ben.

labellerden birisini  takım olark ayarlayın.
text özelliklerinide ekrandaki gibi verin.

Sonra Kodu yapıştırın ve F5 basıp keyifini çıkartın.

Public Class Oneylabs

    Private Sub değiştir()

        If Rbfb.Checked Then

            Renk.Panel1.BackColor = Color.Yellow

            Renk.Panel2.BackColor = Color.DarkBlue

            takım.Text = “FENERBAHCE”

        ElseIf RbGs.Checked Then

            Renk.Panel1.BackColor = Color.Red

            Renk.Panel2.BackColor = Color.Yellow

            takım.Text = “Galatasaray”

        ElseIf RbBjk.Checked Then

            Renk.Panel1.BackColor = Color.Black

            Renk.Panel2.BackColor = Color.White

            takım.Text = “Beşiktaş”

        ElseIf Rbts.Checked Then

            Renk.Panel1.BackColor = Color.Brown

            Renk.Panel2.BackColor = Color.Blue

            takım.Text = “Trabzon”

        ElseIf RbTr.Checked Then

            Renk.Panel1.BackColor = Color.Red

            Renk.Panel2.BackColor = Color.White

            takım.Text = “Türkiye”

        End If

    End Sub

    Private Sub Rbfb_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Rbfb.CheckedChanged

        değiştir()

    End Sub

    Private Sub RbGs_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RbGs.CheckedChanged

        değiştir()

    End Sub

    Private Sub RbBjk_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RbBjk.CheckedChanged

        değiştir()

    End Sub  

    Private Sub Rbts_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Rbts.CheckedChanged

        değiştir()

    End Sub

    Private Sub RbTr_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RbTr.CheckedChanged

        değiştir()

    End Sub

End Class

Public Class Oneylabs

    Private Function cift(ByVal sayi As Integer) As Boolean
        If sayi Mod 2 = 0 Then ‘sayinin 2 bölümü kalan 0 sa
            Return True ‘ çift
        Else ‘ değilse
            Return False ‘ tek
        End If ‘ bitir
    End Function

    Private Function asal(ByVal sayi As Integer) As Boolean
        Dim i As Integer
        For i = 2 To sayi – 1 ‘  2,3,4,5,6,7,8,9….. bunlara bölümlerine baktırmak için
            If sayi Mod i = 0 Then ‘ if sayinin yukardaki sayilardan birine bölümünden kalan 0 sa asal değildir.
                Return False ‘ o zman Asal değil döner

            End If ‘ biter
        Next ‘ döngü tamamlanır
        If i = sayi Then ‘ eğer döngü tamamlandıysa i = sayi olduysa
            Return True ‘ Bu sayı Asaldır deriz
        End If ‘ biter
    End Function

    Private Sub BtCift_Tek_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtCift_Tek.Click
        CbCift.Items.Clear() ‘Boşalltık
        CbTek.Items.Clear() ‘Boşalltık
        Dim i As Integer
        If tbbas.Text = “” Or tbson.Text = “” Or IsNumeric(tbbas.Text) = False Or IsNumeric(tbson.Text) = False Then
            tbbas.Text = “”
            tbson.Text = “”
            ‘ kontrolller yapıldı
        Else
            For i = tbbas.Text To tbson.Text ‘ belirlenen sayoılar dağilnde dön
                If cift(i) = True Then ‘ fonksiyona göre ciftse
                    CbCift.Items.Add(i) ‘ ekle
                Else ‘değilse
                    CbTek.Items.Add(i) ‘ ekle
                End If
            Next
        End If
        CbTek.SelectedIndex = 0 ‘ en baştakini seçtik
        CbCift.SelectedIndex = 0 ‘ en baştakini seçtik

    End Sub

    Private Sub BtAsal_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtAsal.Click
        cbAsal.Items.Clear()
        Dim i As Integer
        If tbbas.Text = “” Or tbson.Text = “” Or IsNumeric(tbbas.Text) = False Or IsNumeric(tbson.Text) = False Then
            tbbas.Text = “”
            tbson.Text = “”
        Else
            For i = tbbas.Text To tbson.Text
                If asal(i) = True Then ‘ asal fonksiyona göre
                    cbAsal.Items.Add(i) ‘ ekle
                End If
            Next
        End If
        cbAsal.SelectedIndex = 0 ‘ en baştakini seçtik
    End Sub
End Class

zızqükzq-  = Başarılar

Rdmh­Rduhxnqtl = Seni Seviyorum   örneğini Programla çevirebilirsiniz. yada herhangi bir metini bu şekilde bilinmeyenlere götürebilir yada geri getirebilirsiniz.      

Gerekenler :
3 adet button ,sırasıyla clear,code,decode

2 adet textbox = sırasıyla ,tbcode,tbdecode

Public Class Oneylabs_Code_Decode

Private Sub code_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles

Button1.Click 
tbdecode.Text = “” 
Dim i As Integer 
Dim harf, gecis As String 
For i = 1 To Len(tbcode.Text)
harf = Mid(tbcode.Text, i, 1)
If harf = Chr(97)Then

gecis = 122
tbdecode.Text += Chr(gecis) 
Else
gecis = Asc(harf) – 1
tbdecode.Text += Chr(gecis)
End If

Next 
End Sub
‘——————————
Private Sub decode_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
tbdecode.Text = “” 
Dim i As Integer 

Dim harf, gecis As String

For i = 1 To Len(tbcode.Text)

harf = Mid(tbcode.Text, i, 1)

If harf = Chr(122) Then

gecis = 97

decode.Text += Chr(gecis)

Else 

gecis = Asc(harf) + 1
tbdecode.Text += Chr(gecis) 
End If

Next 

End Sub 
‘——————————

Private Sub clear_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
tbcode.Text = “” 

End Sub  

End Class  

Kodları indirmek için tıkla

Not : Çok satırdan oluşan 65535 karaktere varabilen metin ve sayı girilebilen türdür.

Sayi : Üzerinde matematiksel işlem yapılabilen türdür.

Tarih / Saat : İçerisinde tarih ve saat bilgisini tutan veri türüdür.100 ile 9999 yıllarını arasında bilgi saklayabilir.

Para Birimi: Virgülden Sonra 4 ,virgülden önce 15 basamak saklayabilen üzerinde matematiksel işlem yapılabilen türdür.

Otomatik Sayı : Tabloya her veri girişi yapıldığında otomatik olarak sırayla atanan ve kullanıcı tarafından güncellenemeyen bölümdür.

Ewet / Hayır :  İçerisinde sadece evet / hayır – Doğru /Yanlış cevaplarını saklayan türdür.

Ole Nesnesi : Access içinde word ,exel gibi programların her hangi birinden dosya aktarımı yapılabilen nesnedir.

Köprü:Bağlanti atamak için ve yönlendirme yapmak için atanmış bir türdür.

Arama Sihirbazı : Bir arada bulunan gruplanmış verilerin Kullanıcının istediğini seçmesi şeklinde açılır pencere halinde sunulmasıdır.

Bu standartlar Ulusal Amerikan Standartlar ensütüsü (ANSC) ve ISO(Uluslar Arası Standartlar ensütüsü) dur.Dünya çapında bir ortak dil gerekmeyte idi.

Özellikler çok fazla kullanılan TL\SQL – T/SQL da kullanılmıştır.

Günümüzdeki en çok kullalılan veritabanları :
Oracle
MsSQL
Access
MySQL

 Kullanım Videosu için tıkla.

Select * From Oneylabs Where like “m*” ; (m harfiyle başlayanlar gelir. )
Select * From Oneylabs Where like “m??” ; (m harfiyle başlayan ve 3 harften oluşanlar gelir)

Min : Alandaki en küçük değeri gösterir.
Max : Alandaki en büyük değeri gösterir.
As : Alan adını farklı göstermeye yarar

örneğin : Oneylabs tablosundaki ogr_no alanındaki en büyük değerle en küçük değeri getirmek istiyorum.
Select Min(ogr_no) as Minimum deger , Max (Ogr_no) as Maximum deger from Oneylabs Ortalama almak için kullanılır.bir sayı grubunun ortalamasını verir.
Örneğin:Oneylabs tablosundaki site_No alanın ortalamsını istiyorum.
Select Avg(Site_no) as Ortalama from Oneylabs

Avg :

Sum : Bir alandaki tüm verilerin toplamını verir.
Örneğin:Oneylabs tablosundaki site_No alanın toplamını istiyorum.
Select Sum(Site_no) as Toplam from Oneylabs

Count : Bir alanda Kac adet veri varsa onun sayısını verir.
Örneğin:Oneylabs tablosundaki site_No alanın içinde kac kayıt var öğrenmek istiyorum.
Select Count(Site_no) as Toplam_kayıt from Oneylabs

Video : indirmek için tıklayın.

Arkadaşlar bugünkü dersimizin konusu; Vb.net prgoramlama dilinde hesapmakinesi yapmak.  Vb.net hesap makinesi görüntülü dersini Burdan indirebilirsiniz

İnidr……

http:\\oneylabs.com

Rar Key : Oneylabs.com
]]> http://trword.wordpress.com/2008/12/12/vbnet-hesap-makinesi-goruntulu-ders/feed/ 0 mesut Çakir http://trword.wordpress.com/2008/12/12/string-sinifinin-genel-ozellikleri-ve-kullanimlari/ http://trword.wordpress.com/2008/12/12/string-sinifinin-genel-ozellikleri-ve-kullanimlari/#comments Fri, 12 Dec 2008 12:06:35 +0000 mesut cakir http://trword.wordpress.com/?p=23 ]]> Chars  : Belirlenmiş bir karakterin yerine karakter ekler.
Length : Stringdeki karakter sayısını verir.
Compare : Belirlenmiş iki string nesnesini karakter sayılarına göre karşılaştırır.
Sonuç eşit ise “0”, büyükse “+1”, küçükse”-1” değerlerini döndürür.
CompareTo :  Belirlenen iki stringi alfabetik sıraya göre karşılaştır. Sonuç eşit ise “0”,
eşit değil ise “-1” değeri geri döndürür.
Concat : Stringi bir veya birden fazla string ile birleştirir. 
Contains  : String içerisinde belirlenmiş başka string nesnelerinin bulunup
bulun madığını kontrol eder.
Copy : Belirlenmiş bir string karakterlerini kullanarak yeni bir örnek string
oluşturur.
EndsWith :  Stringin sonunda belirli bir string örneğinin olup olmadığına karar verir.
Equals :  İki string nesnesinin aynı değerlere sahip olup olmadığı kontrol eder. True
veya false değerleri geri döndürür.
Format  : Stringi bilgiyi belli bir biçime dönüştürür.
GetEnumerator :  String içerisinde tekrar eden bir nesne bulur.
GetHashCode : Stringdeki bozuk kodu bulur.
GetType : Örneğin tipini verir.
GetTypeCode :  Stringin  Type code (Tür kodunu) çağırır.
IndexOf  : Stringin içindeki dizenin başlangıç noktasını bulur.
IndexOfAny  : Stringdeki herhangi bir karakterin başlangıç noktasını bulur.
Insert  : String içerisine karakter ekler.
IsNullOrEmpty : Stringin boş olup olmadığını gösterir.
LastIndexOf   : Bir karakter veya karakter grubunun stringin içinde bulunduğu pozisyonu
sayısal olarak ifade eder. (Eğer karakter veya karakter grubu string
içerisinde birden fazla ise en sondaki karakter veya karakter grubunun
sayısal olarak bulunduğu yeri belirtir.)
PadLeft : Stringin solundan başlayarak stringin boyutu verilen değere eşit olana
kadar istenilen karakter eklenir.
PadRight : Stringin sağından başlayarak stringin boyutu verilen değere eşit olana
kadar istenilen karakter eklenir.
ReferenceEquals Belirlenmiş nesne örneklerinin referans türle aynı olup olmadığına karar
verir.
Remove  : String içerisinde belirli sayıda karakter siler.
Replace :Stringin istediğimiz karakterlerini değiştirmek için kullanılır.
StartsWith : Belirlenen bir dizenin stringin başlangıcı olup olmadığını bulur. Boolean
tipte bir değer döndürür.
Substring  Stringde belirtilen bir karakterden başlayarak sabit sayıda karakter
döndürür.
ToCharArray :  Stringi dizi karakterlerine çevirir.
ToLower  :Stringdeki harfleri küçük harfe dönüştürür.
ToString : Bilgileri string türüne dönüştürür.
ToUpper  : Stringdeki harfleri büyük harfe dönüştürür.
Trim  : Stringin başında ve sonundaki boşlukları veya belirtilen karakterleri
kaldırır.
TrimEnd  : Stringin sonundaki boşlukları veya belirtilen karakterleri kaldırır.
TrimStart  : Stringin başındaki boşlukları veya belirtilen karakterleri kaldırır.

*—–KULLANIMI—-*

1.  a.Length = 1. stringin karakter uzunluğunu verir. Uzunluk bulunurken boşluklar
dâhil edilir.
2.  b.Chars(1) = 2  . stringin 1. elemanını ekrana yazdırır. Dikkat edilecek husus
stringin ilk karakteri  0. elemanıdır.
3.  a.CompareTo(b) = 1  . string ile 2. stringi karşılaştırır. İki string eşit -1 değeri
döndürür.
4.  String.Concat(a, b) = 1 . stringin sonuna 2. stringi ekler. 1. stringin sonunda
veya 2. stringin başında boşluk olmadığından stringler birleştirildiğinde arada
boşluk olmaz.
5.  a.Contains(”eslek”) = 1 .  string içerisinde “eslek” kelimesi olduğundan true
değeri döndürür.
6.  String.Copy(a) = 1. stringin kopyasını oluşturur.
7.  a.IndexOf(”düstri”) = “dustri”  stringinin 1. stringin kaçıncı karakterinden
itibaren başladığını gösterir. stringin ilk elemanı 0. karakterdir.
8.  b.Insert(3, “v”) = 2.  stringin 3. karakterine v harfini ekler.
9.  String.IsNullOrEmpty(b) = 2.  Stringin boş olup olmadığını kontrol eder. Boş
olmadığı için False değeri döndürür.
10.  a.LastIndexOf(”d”) = d harfinin 1. stringin kaçıncı karakteri olduğunu bulur.
11.  a.PadLeft(30, “?”) = 1 . stringin sol tarafına toplam uzunluk 30 karakter olana
kadar “?” işareti ekler.
12.  b.PadRight(15, “*”) = 2  .  stringin sağ tarafına toplam uzunluğu 15 karakter
olana kadar “*” işareti ekler.
13.  a.Remove(3, 5) = 1 . stringin 3. karakterinden başlayarak 5 karakter siler.
14.  b.ToUpper = 2 . stringin bütün karakterlerini büyük harfe çevirir.
15.  a.ToLower = 1 . stringin bütün karakterlerini küçük harfe çevirir.
16.  a.Trim(”En”) = 1 . stringin başında veya sonunda En kelimesi varsa bulup siler.
17.  a.Replace(”Meslek”, “Teknik”) = 1  . string içerisinde “Meslek” kelimesini
arayıp bulduğunda “Teknik” kelimesi ile yer değiştirir.