Visual-Basic-MSFlexGrid_emresupcinİ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.

 

MSFlexGrid-Futbol-Puan-Tablosu_emresupcin

 

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

 

MSFlexGrid-Futbol-Puan-Tablosu-Yapımı_emresupcin

Yazar
Yazar
Bilgisayar Programcısı, Web Tasarımcı, Üniversite Öğrencisi...
Twitter Facebook Google Linkedin Flickr YouTube

Önceki Yazı:C++ ile Öğrenci Raporu, Devamsızlık Girişi ve Ders Raporu…

Sonraki Yazı:En İyi 4 AntiVirüs Programını Biliyor musunuz?

YORUMLAR
SİZ DE CEVAP YAZABİLİRSİNİZ
Bu yazı hakkında görüşünüzü belirtin.

ES Web Tasarım Web Tasarım Blog Teması Emre Supçin Bu tema ES Web Tasarım tarafından düzenlenmiştir. Hiçbir şekilde kopyalanamaz.