İyi akşamlar arkadaşlar,
En son yazmış olduğum makalemde güzel bir c++ programını hazırladık ve C++’ya bir süre ara verip Visual Basic’e geçişimizi yapalım. Futbol ile ilgili arkadaşlarımız için güzel bir basic programını birazdan hep 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 olarak kendisi hesap yapıp ilgili hücreye sonucu ilgili renkle yazacaktır.
Tabloda var olan bilgiler ise form çalıştırıldığında yüklenecektir. Puanı en fazla olan takıma ait tüm bilgiler yeşil renkte, 2.sıradaki takıma ait tüm bilgiler mavi renkte, 3. ve 4.sıradaki takımlara ait tüm bilgiler bordo renkte, 16, 17. ve 18. sıradaki takımlara ait tüm bilgiler kırmızı renkte, diğer takımlara ait tüm bilgiler ise siyah renkte olacaktır.
1 Private Sub Form_Load() 2 MSFlexGrid1.TextMatrix(0, 0) = "SNo" 3 MSFlexGrid1.TextMatrix(0, 1) = "Takım Adı" 4 MSFlexGrid1.TextMatrix(0, 2) = "O" 5 MSFlexGrid1.TextMatrix(0, 3) = "G" 6 MSFlexGrid1.TextMatrix(0, 4) = "B" 7 MSFlexGrid1.TextMatrix(0, 5) = "M" 8 MSFlexGrid1.TextMatrix(0, 6) = "A" 9 MSFlexGrid1.TextMatrix(0, 7) = "Y" 10 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 = 6 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) = 6 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 = 10 Or i = 14 Or i = 18 Then 53 MSFlexGrid1.TextMatrix(i, 4) = 9 54 ElseIf i = 3 Or i = 5 Then 55 MSFlexGrid1.TextMatrix(i, 4) = 10 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 = 3 Then 66 MSFlexGrid1.TextMatrix(i, 5) = 6 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 = 10 Or i = 15 Then 72 MSFlexGrid1.TextMatrix(i, 5) = 10 73 ElseIf i = 9 Or i = 14 Or i = 16 Then 74 MSFlexGrid1.TextMatrix(i, 5) = 11 75 ElseIf i = 6 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 = 10 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 = 6 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 = 10 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 = 6 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 = 3 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 = 3 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 = 3 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)) * 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 hale getirdik, Buyurun bu da benim programımın ekran görüntüsü…
Arama Terimleri: https://emresupcin com/2013/05/26/msflexgrid-kontrolu-ile-futbol-takimlarinin-puan-tablosunun-yapimi/- emresupcin
- Visual Basic
- 26 Mayıs 2013 - 22:33
- Yorum Yok
- 5119 Görüntülenme
basic futbol puanları beşiktaş bjk fb fenerbahçe futbol puanları programı galatasaray gs MSFlexGrid örnekleri msflexgrid programları takımların puanlarının hesaplatılması trabzonspor ts visual basic programları