Kurs Notlarını indirmek için Tıklayın…

Görsel Programlama Modüllerini indirmek için Tıklayın…

Acrobat dosyalarını açmak için AcrobatReader’ı indirin…!!!

Ofice 2003 de Ofis2007 dosyalarını açmak için FileFormatConverter’ı indir…!!!

2011 YGS – LYS SINAV SİSTEMİ

SINAV SİSTEMİ İLE İLGİLİ BİLGİLER!

• Üniversiteye giriş iki aşamalıdır. Birinci aşama YGS, ikinci aşama LYS dir.
• YGS ve LYS puanları 100-5000 Aralığında hesaplanacaktır.
• OBP (Orta Öğretim Başarı Puanı) 100-500 Aralığında hesaplanacaktır.
• AOBP (ağırlıklı orta Öğretim Başarı Puanı), alana uygun tercihte 0,15 katsayısı ile, alan dışı tercihte ise 0,12 katsayısı ile çarpılacaktır.
• Meslek Lisesi öğrencilerine, kendi alanlarının devamı niteliğindeki lisans programları tercihlerinde, 0,06 EK PUAN katsayı uygulanacaktır.

2011 YGS

Direnç Hesapla programı ile katıldığımız Emepya 2011 yarışmasında Mesleki Eğitim Kategorisinde Mansiyon ödülünü aldık. Finalde olmak, yarışmak çok güzeldi, törenler de olmakta çok güzeldi. Emeği geçen herkese teşekkürler.
Proje yarışmasına katıldığımız Direnç Hesapla Programını indirmek için tıklayın…!!!

Proje Sahipleri : Pınar – Serhat DEMİR

POST (Power On Self Test ) : Bilgisayarın ilk açılışında donanımı test eder. Eğer bir hat ile karşılaşırsa kullanıcıya sesli ya da yazılı uyarı verir. Detaylı bilgi modüllerde yer almaktadır.

Modülü İndirmek için…!!!

Aşağıdaki Form’da başlangıç ve bitiş değerleri girilir. Aşağı Doğru Say düğmesine tıklandığında bitiş değerinden başlangıç değerine doğru, birer azalarak, sayılar 000 yazan Label’da 1 saniye gecikme ile gösterilir. Aşağı Doğru Say düğmesine tıklandığında başlangıç değerinden bitiş değerine doğru, birer artarak, sayılar 000 yazan Label’da 1 saniye gecikme ile gösterilir. Çıkış düğmesine tıklandığında form kapatılır.

Public Class Form1

Private Sub cikis_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles cikis.Click

Me.Close() ‘ Form penceresini kapatır

End Sub

Private Sub asagi_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles asagi.Click

Dim a, b, i As Integer

a = baslangic.Text

b = bitis.Text

For i = b To a Step -1

say.Refresh() ‘ say Label’ini tazeler

System.Threading.Thread.Sleep(1000) ‘ 1 sn lik gecikme saplar

say.Text = i ‘ i değerini her döngü adımında say Label’inda gösterir.

Next

End Sub

Private Sub yukari_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles yukari.Click

Dim a, b, i As Integer

a = baslangic.Text

b = bitis.Text

For i = a To b Step 1

say.Refresh()

System.Threading.Thread.Sleep(1000)

say.Text = i

Next

End Sub

End Class

__________________________________

ÖRNEK 6:

Ekle düğmesine tıklandığında girilen metinden, girilen sayı kadar, alttaki listbox’a ekler.

Public Class Form1

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

Dim i As Integer

For i = 1 To Val(TextBox2.Text)

ListBox1.Items.Add(TextBox1.Text)

Next

End Sub

End Class

__________________________________

ÖRNEK 7:

Renk aktarımı : Formda sağ tarafta bulunan seçeneklerden seçili olan nesne, yine alt tarafta bulunan renklerden seçili olan renge boyanır. Renkleri Sıfırla düğmesi, bütün nesnelerin renklerinin ilk görünümdeki renklere dönmesini sağlar.

Public Class Form1

Private Sub mavi_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles mavi.Click

If baslik.Checked = True Then

Label1.ForeColor = Color.Turquoise

ElseIf metin.Checked = True Then

TextBox1.BackColor = Color.Turquoise

ElseIf buton.Checked = True Then

Button1.BackColor = Color.Turquoise

Else : Me.BackColor = Color.Turquoise

End If

End Sub

Private Sub mor_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles mor.Click

If baslik.Checked = True Then

Label1.ForeColor = Color.MediumPurple

ElseIf metin.Checked = True Then

TextBox1.BackColor = Color.MediumPurple

ElseIf buton.Checked = True Then

Button1.BackColor = Color.MediumPurple

Else : Me.BackColor = Color.MediumPurple

End If

End Sub

Private Sub pembe_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles pembe.Click

If baslik.Checked = True Then

Label1.ForeColor = Color.HotPink

ElseIf metin.Checked = True Then

TextBox1.BackColor = Color.HotPink

ElseIf buton.Checked = True Then

Button1.BackColor = Color.HotPink

Else : Me.BackColor = Color.HotPink

End If

End Sub

Private Sub gri_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles gri.Click

If baslik.Checked = True Then

Label1.ForeColor = Color.DimGray

ElseIf metin.Checked = True Then

TextBox1.BackColor = Color.DimGray

ElseIf buton.Checked = True Then

Button1.BackColor = Color.DimGray

Else : Me.BackColor = Color.DimGray

End If

End Sub

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

Label1.ForeColor = Color.Black

TextBox1.BackColor = Color.White

Button1.BackColor = Color.WhiteSmoke

Me.BackColor = Color.WhiteSmoke

End Sub

End Class

Göster düğmesine tıklandığında girilen sayının faktöriyelini alarak sonucu gösterir.

Public Class Form1

Dim a As Integer

Dim f As Integer

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

a = Val(TextBox1.Text)

f = 1

For i = 1 To a

f = f * i

Next

Label3.Text = f

End Sub

End Class

Ya da

Public Class Form1

Dim a As Integer

Dim f As Integer

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

f = 1

For i = TextBox1.Text To 1 Step -1

f = f * i

Next

Label3.Text = f

End Sub

End Class

ÖRNEK 4:

Kuvveti Hesapla düğmesine tıklandığında, girilen sayının, yine girilen kuvvet değerine göre kuvvetini alıp, sonuç kutucuğunda gösterir.

Public Class Form1

Private Sub hesapla_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles hesapla.Click

Dim carpim, s, i As Integer

carpim = 1 ‘ sıfır yutan eleman olduğundan, carpim’in ilk değerini

1 belirledik.

s = sayi.Text

For i = kuvvet.Text To 1 Step -1

carpim = carpim * s

sonuc.Text = carpim

Next

End Sub

End Class

ÖRNEK 1:

Göster düğmesine tıklandığında 1’ den 10’a kadar olan sayıların toplamını gösterir.

Public Class Form1

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

Dim i As Integer

Dim toplam As Integer

toplam = 0

For i = 1 To 10 Step 2

toplam = toplam + i

Next

Label1.Text = toplam

End Sub

End Class


ÖRNEK 2:

Göster düğmesine tıklandığında 45 ile 125 arasındaki sayıların toplamını gösterir.

Public Class Form1

 

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

Dim i As Integer

Dim toplam As Integer

toplam = 0

For i = 46 To 124 Step 2

toplam = toplam + i

Next

Label1.Text = toplam

End Sub

 

End Class