MSFlexGrid Kontrolü ile Futbol Takımlarının Puan Tablosunun Yapımı?

MSFlexGrid Kontrolü ile Futbol Takımlarının Puan Tablosunun Yapımı? İyi akşamlar arkadaşlar, En son yazmış olduğum makalemde muhteşem bir c++ programını hazırladık ve C++’ya bir vakit mesafe verip Visual Basic’e geçişimizi yapalım. Futbol ile ilgili arkadaşlarımız için muhteşem bir basic programını birazdan herzaman beraber yazacağız. Öncelikle yapmak istediğimiz programı sizlere kısaca anlatayım; Bir tablomuz olacak ve boş bırakılan yerlere tıklandığında otomatik şekilde kendisi hesap yapıp ilgili hücreye sonucu ilgili renkle yazacaktır.     Tabloda mevcut olan bilgiler ise form çalıştırıldığında yüklenecektir. Puanı en fazla olan takıma ait bütün bilgiler yeşil renkte, 2.sıradaki takıma ait bütün bilgiler mavi renkte, 3. ve 4.sıradaki takımlara ait bütün bilgiler bordo renkte, 16, 17. ve 18. sıradaki takımlara ait bütün bilgiler al renkte, öbür takımlara ait bütün bilgiler ise siyah renkte olacaktır.     1       Private Sub Form_Load() 2       MSFlexGrid1.TextMatrix(0, 0) = “SNo” üç       MSFlexGrid1.TextMatrix(0, 1) = “Takım Adı” 4       MSFlexGrid1.TextMatrix(0, 2) = “O” 5       MSFlexGrid1.TextMatrix(0, 3) = “G” altı       MSFlexGrid1.TextMatrix(0, 4) = “B” 7       MSFlexGrid1.TextMatrix(0, 5) = “M” 8       MSFlexGrid1.TextMatrix(0, 6) = “A” 9       MSFlexGrid1.TextMatrix(0, 7) = “Y” on   MSFlexGrid1.TextMatrix(0, 8) = “Av” 11   MSFlexGrid1.TextMatrix(0, 9) = “P” 12   MSFlexGrid1.TextMatrix(1, 1) = “Galatasaray” 13   MSFlexGrid1.TextMatrix(2, 1) = “Fenerbahçe” 14   MSFlexGrid1.TextMatrix(3, 1) = “Beşiktaş” 15   MSFlexGrid1.TextMatrix(4, 1) = “Kasımpaşa” 16   MSFlexGrid1.TextMatrix(5, 1) = “Bursaspor” 17   MSFlexGrid1.TextMatrix(6, 1) = “MP Antalya” 18   MSFlexGrid1.TextMatrix(7, 1) = “Eskişehirspor” 19   MSFlexGrid1.TextMatrix(8, 1) = “Gençlerbirliği” 20   MSFlexGrid1.TextMatrix(9, 1) = “Kayserispor” 21   MSFlexGrid1.TextMatrix(10, 1) = “Gaziantepspor” 22   MSFlexGrid1.TextMatrix(11, 1) = “Sivasspor” 23   MSFlexGrid1.TextMatrix(12, 1) = “Trabzonspor” 24   MSFlexGrid1.TextMatrix(13, 1) = “KDÇ Karabük” 25   MSFlexGrid1.TextMatrix(14, 1) = “İstanbul BŞB” 26   MSFlexGrid1.TextMatrix(15, 1) = “SB Elazığspor” 27   MSFlexGrid1.TextMatrix(16, 1) = “Orduspor” 28   MSFlexGrid1.TextMatrix(17, 1) = “Akhisar Bld.” 29   MSFlexGrid1.TextMatrix(18, 1) = “Mersin İY” 30   For i = 1 To 18 31   MSFlexGrid1.TextMatrix(i, 0) = Str(i) & “.” 32   MSFlexGrid1.TextMatrix(i, 2) = 28 33   Next 34   For i = 0 To 9 35   If i = 1 Then 36   MSFlexGrid1.ColWidth(i) = 2500 37   Else 38   MSFlexGrid1.ColWidth(i) = 750 39   End If 40   Next 41   For i = 1 To 18 42   If i = altı Then 43   MSFlexGrid1.TextMatrix(i, 4) = 4 44   ElseIf i = 11 Then 45   MSFlexGrid1.TextMatrix(i, 4) = 5 46   ElseIf i = 9 Then 47   MSFlexGrid1.TextMatrix(i, 4) = altı 48   ElseIf i = 2 Or i = 4 Or i = 12 Or i = 13 Then 49   MSFlexGrid1.TextMatrix(i, 4) = 7 50   ElseIf i = 1 Or i = 17 Then 51   MSFlexGrid1.TextMatrix(i, 4) = 8 52   ElseIf i = on Or i = 14 Or i = 18 Then 53   MSFlexGrid1.TextMatrix(i, 4) = 9 54   ElseIf i = üç Or i = 5 Then 55   MSFlexGrid1.TextMatrix(i, 4) = on 56   ElseIf i = 15 Or i = 16 Then 57   MSFlexGrid1.TextMatrix(i, 4) = 11 58   Else 59   MSFlexGrid1.TextMatrix(i, 4) = 12 60   End If 61   Next 62   For i = 1 To 18 63   If i = 1 Then 64   MSFlexGrid1.TextMatrix(i, 5) = 4 65   ElseIf i = 2 Or i = üç Then 66   MSFlexGrid1.TextMatrix(i, 5) = altı 67   ElseIf i = 5 Or i = 7 Or i = 8 Then 68   MSFlexGrid1.TextMatrix(i, 5) = 7 69   ElseIf i = 4 Then 70   MSFlexGrid1.TextMatrix(i, 5) = 9 71   ElseIf i = on Or i = 15 Then 72   MSFlexGrid1.TextMatrix(i, 5) = on 73   ElseIf i = 9 Or i = 14 Or i = 16 Then 74   MSFlexGrid1.TextMatrix(i, 5) = 11 75   ElseIf i = altı Or i = 12 Or i = 13 Then 76   MSFlexGrid1.TextMatrix(i, 5) = 12 77   ElseIf i = 11 Or i = 17 Then 78   MSFlexGrid1.TextMatrix(i, 5) = 13 79   Else 80   MSFlexGrid1.TextMatrix(i, 5) = 15 81   End If 82   Next 83   For i = 1 To 18 84   If i = 17 Then 85   MSFlexGrid1.TextMatrix(i, 6) = 24 86   ElseIf i = 15 Then 87   MSFlexGrid1.TextMatrix(i, 6) = 25 88   ElseIf i = 18 Then 89   MSFlexGrid1.TextMatrix(i, 6) = 29 90   ElseIf i = 12 Then 91   MSFlexGrid1.TextMatrix(i, 6) = 30 92   ElseIf i = 11 Then 93   MSFlexGrid1.TextMatrix(i, 6) = 32 94   ElseIf i = 16 Then 95   MSFlexGrid1.TextMatrix(i, 6) = 33 96   ElseIf i = on Then 97   MSFlexGrid1.TextMatrix(i, 6) = 34 98   ElseIf i = 14 Then 99   MSFlexGrid1.TextMatrix(i, 6) = 35 100    ElseIf i = 13 Then 101    MSFlexGrid1.TextMatrix(i, 6) = 36 102    ElseIf i = 9 Then 103    MSFlexGrid1.TextMatrix(i, 6) = 39 104    ElseIf i = 8 Then 105    MSFlexGrid1.TextMatrix(i, 6) = 41 106    ElseIf i = 4 Or i = 7 Then 107    MSFlexGrid1.TextMatrix(i, 6) = 42 108    ElseIf i = 5 Or i = altı Then 109    MSFlexGrid1.TextMatrix(i, 6) = 43 110    ElseIf i = 2 Then 111    MSFlexGrid1.TextMatrix(i, 6) = 49 112    Else 113    MSFlexGrid1.TextMatrix(i, 6) = 54 114    End If 115   Next 116    For i = 1 To 18 117    If i = 15 Then 118    MSFlexGrid1.TextMatrix(i, 8) = -17 119    ElseIf i = 18 Then 120    MSFlexGrid1.TextMatrix(i, 8) = -16 121    ElseIf i = 17 Then 122    MSFlexGrid1.TextMatrix(i, 8) = -14 123    ElseIf i = on Then 124    MSFlexGrid1.TextMatrix(i, 8) = -10 125    ElseIf i = 13 Then 126    MSFlexGrid1.TextMatrix(i, 8) = -9 127    ElseIf i = 16 Or i = 11 Then 128    MSFlexGrid1.TextMatrix(i, 8) = -6 129    ElseIf i = 12 Then 130    MSFlexGrid1.TextMatrix(i, 8) = -3 131    ElseIf i = 14 Or i = 9 Then 132    MSFlexGrid1.TextMatrix(i, 8) = -1 133    ElseIf i = altı Then 134    MSFlexGrid1.TextMatrix(i, 8) = 0 135    ElseIf i = 8 Then 136    MSFlexGrid1.TextMatrix(i, 8) = 2 137    ElseIf i = 5 Then 138    MSFlexGrid1.TextMatrix(i, 8) = 7 139    ElseIf i = 7 Then 140    MSFlexGrid1.TextMatrix(i, 8) = 8 141    ElseIf i = 4 Then 142    MSFlexGrid1.TextMatrix(i, 8) = 11 143    ElseIf i = üç Then 144    MSFlexGrid1.TextMatrix(i, 8) = 12 145    ElseIf i = 2 Then 146    MSFlexGrid1.TextMatrix(i, 8) = 19 147    Else 148    MSFlexGrid1.TextMatrix(i, 8) = 24 149    End If 150    Next 151    MSFlexGrid1.Font.Bold = True 152    For i = 0 To 18  153    For k = 0 To 9 154    MSFlexGrid1.Row = i 155    MSFlexGrid1.Col = k 156    MSFlexGrid1.CellAlignment = 5 157    Next 158    Next 159    For i = 1 To 1 160    For k = 0 To 9 161    MSFlexGrid1.Row = i 162    MSFlexGrid1.Col = k 163   MSFlexGrid1.CellForeColor = RGB(0, 255, 0) 164    Next 165    Next 166    For i = 2 To 2 167    For k = 0 To 9 168    MSFlexGrid1.Row = i 169    MSFlexGrid1.Col = k 170    MSFlexGrid1.CellForeColor = RGB(0, 0, 255) 171    Next 172    Next 173    For i = üç To 4 174    For k = 0 To 9 175    MSFlexGrid1.Row = i 176    MSFlexGrid1.Col = k 177    MSFlexGrid1.CellForeColor = RGB(128, 0, 0) 178    Next 179    Next 180    For i = 16 To 18 181    For k = 0 To 9 182    MSFlexGrid1.Row = i 183    MSFlexGrid1.Col = k 184    MSFlexGrid1.CellForeColor = RGB(255, 0, 0) 185    Next 186    Next 187    End Sub 188    Private Sub MSFlexGrid1_Click() 189    If MSFlexGrid1.Col = üç Then 190    For i = 1 To 18 191   MSFlexGrid1.TextMatrix(i, 3) = CInt(MSFlexGrid1.TextMatrix(i, 2)) - (CInt(MSFlexGrid1.TextMatrix(i, 4)) + CInt(MSFlexGrid1.TextMatrix(i, 5))) 192    Next 193    ElseIf MSFlexGrid1.Col = 7 Then 194    For i = 1 To 18 195    MSFlexGrid1.TextMatrix(i, 7) = CInt(MSFlexGrid1.TextMatrix(i, 6)) - (CInt(MSFlexGrid1.TextMatrix(i, 8))) 196    Next 197    ElseIf MSFlexGrid1.Col = 9 Then 198    For i = 1 To 18 199    MSFlexGrid1.TextMatrix(i, 9) = CInt(MSFlexGrid1.TextMatrix(i, 3)) * üç + CInt(MSFlexGrid1.TextMatrix(i, 4)) 200    Next 201    End If 202    End Sub   Kodlarımızı da yazdıktan sonra programımızı çalışabilir duruma getirdik, Buyurun bu da benim programımın ekran görüntüsü…  


Yapılan Yorumlar
Erdem OFLAZ

Bir mum, diğer mumu tutuşturmakla ışığından bir şey kaybetmez.
 Kategoriler
 Popüler yazılar