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

İ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ü…