Bir yardım edermisiniz ? (Kodları uzun uzun yazmak yerine kısa değerler atamıştım) Projeyi indirirseniz daha iyi anlayacağını duşunuyorum

KODLAR:
Kod:
Private Sub Button4_Click(sender As System.Object, e As System.EventArgs) Handles Button4.Click 'Ram Guclendirici ustte olması icin değeri arttır My.Settings.RamGuclendirici += 1 My.Settings.Save() End Sub Private Sub Button5_Click(sender As System.Object, e As System.EventArgs) Handles Button5.Click 'Klasor Kilitleyici ustte olması icin değeri arttır My.Settings.KlasorKilitleyici += 1 My.Settings.Save() End Sub Private Sub Button6_Click(sender As System.Object, e As System.EventArgs) Handles Button6.Click 'Anti Virus ustte olması icin değeri arttır My.Settings.AntiVirus += 1 My.Settings.Save() End Sub Private Sub Button7_Click(sender As System.Object, e As System.EventArgs) Handles Button7.Click 'Ebeveyn yoneticisi ustte olması icin değeri arttır My.Settings.EbeveynYoneticisi += 1 My.Settings.Save() End Sub Private Sub Timer1_Tick(sender As System.Object, e As System.EventArgs) Handles Timer1.Tick 'Test amaclı ozelliklerin değerleri Label1.Text = My.Settings.RamGuclendirici & " - RamGuclendirici" Label2.Text = My.Settings.KlasorKilitleyici & " - KlasorKilitleyici" Label3.Text = My.Settings.AntiVirus & " - AntiVirus" Label4.Text = My.Settings.EbeveynYoneticisi & " - EbeveynYoneticisi" 'Kısaltmak amaclı ozelliklerin harfleri Dim a = My.Settings.RamGuclendirici Dim b = My.Settings.KlasorKilitleyici Dim c = My.Settings.EbeveynYoneticisi Dim d = My.Settings.AntiVirus 'Kısaltmak amaclı ozelliklerin harfleri Dim q As String = "Ram Guclendirici" Dim w As String = "Klasor Kilitleyici" Dim r As String = "Ebeveyn Yoneticisi" Dim t As String = "Anti Virus" 'Sezgisellik If a > b > c > d Then p1.Text = q p2.Text = w p3.Text = r ElseIf a > c > d > b Then p1.Text = q p2.Text = r p3.Text = w ElseIf a > d > b > c Then p1.Text = q p2.Text = r p3.Text = w ElseIf a > d > c > b Then p1.Text = q p2.Text = t p3.Text = r ElseIf a > c > b > d Then p1.Text = q p2.Text = r p3.Text = w ElseIf a > b > d > c Then p1.Text = q p2.Text = w p3.Text = t End If If b > a > c > d Then p1.Text = w p2.Text = q p3.Text = r ElseIf b > c > d > a Then p1.Text = w p2.Text = r p3.Text = t ElseIf b > d > a > c Then p1.Text = w p2.Text = t p3.Text = q ElseIf b > a > d > c Then p1.Text = w p2.Text = q p3.Text = t ElseIf b > c > a > d Then p1.Text = w p2.Text = r p3.Text = q ElseIf b > d > c > a Then p1.Text = w p2.Text = t p3.Text = r End If If c > a > b > d Then p1.Text = r p2.Text = q p3.Text = w ElseIf c > b > d > a Then p1.Text = r p2.Text = w p3.Text = t ElseIf c > d > a > b Then p1.Text = r p2.Text = t p3.Text = q ElseIf c > a > d > b Then p1.Text = r p2.Text = q p3.Text = t ElseIf c > b > a > d Then p1.Text = r p2.Text = w p3.Text = q ElseIf c > d > b > a Then p1.Text = r p2.Text = t p3.Text = w End If If d > a > b > c Then p1.Text = t p2.Text = q p3.Text = w ElseIf d > b > c > a Then p1.Text = t p2.Text = w p3.Text = r ElseIf d > c > a > b Then p1.Text = t p2.Text = r p3.Text = q ElseIf d > a > c > b Then p1.Text = t p2.Text = q p3.Text = r ElseIf d > b > a > c Then p1.Text = t p2.Text = w p3.Text = q ElseIf d > c > b > a Then p1.Text = t p2.Text = r p3.Text = w Else p1.Text = q p2.Text = w p3.Text = r End If End Sub Private Sub LinkLabel1_LinkClicked(sender As System.Object, e As System.Windows.Forms.LinkLabelLinkClickedEventArgs ) Handles LinkLabel1.LinkClicked 'Hepsini 0'la My.Settings.RamGuclendirici = 0 My.Settings.AntiVirus = 0 My.Settings.KlasorKilitleyici = 0 My.Settings.EbeveynYoneticisi = 0 My.Settings.Save() End Sub
PROJE DOSYASI:
http://s3.dosya.tc/server/wb0f24/Arayuz.rar.html