|
- Forum studentów Informatyki Zaocznej na Uniwersytecie Opolskim http://www.informatykauo.pun.pl/index.php - Programowanie http://www.informatykauo.pun.pl/viewforum.php?id=7 - Szachownica http://www.informatykauo.pun.pl/viewtopic.php?id=32 |
| Andrzej - 2008-11-15 20:45:01 |
| katarzyna6226 - 2008-11-18 20:36:47 |
dzięki bardzo, to co odpisałam na laborce od Ciebie, kompletnie nie chodziło(gdzieś, coś namieszałam), a to pięknie bryka:D |
| anubiss - 2008-11-24 17:28:55 |
Witam. Kod:Dim kartka As Graphics = Me.CreateGraphics
Dim narysowany_kolor_czarny As Boolean = False
Dim wielkosc_kwadratu_x As Integer = Me.Width \ 8
Dim wielkosc_kwadratu_y As Integer = (Me.Height - 30) \ 8
For odleglosc_na_osi_y As Integer = 0 To Me.Height - 30 Step (Me.Height - 30) \ 8
For odleglosc_na_osi_x As Integer = 0 To Me.Width Step Me.Width \ 8
If narysowany_kolor_czarny = False Then
kartka.FillRectangle(Brushes.Black, odleglosc_na_osi_x, odleglosc_na_osi_y, wielkosc_kwadratu_x, wielkosc_kwadratu_y)
narysowany_kolor_czarny = True
Else
kartka.FillRectangle(Brushes.White, odleglosc_na_osi_x, odleglosc_na_osi_y, wielkosc_kwadratu_x, wielkosc_kwadratu_y)
narysowany_kolor_czarny = False
End If
Next odleglosc_na_osi_x
Next odleglosc_na_osi_yJeszcze czasami się pokazują jakieś 2 piksele, ale nie jestem pewien skąd ;) |
| katarzyna6226 - 2008-11-24 19:40:29 |
hej |
| anubiss - 2008-11-24 20:39:12 |
-30 w kodzie odejmuje wysokość niebieskiego paska okna. Jak tego nie robiłem, to najniższy wiersz wychodził "niewymiarowy" w stosunku do innych. Nie jestem na 100% pewien czy 30 pikseli to ta wysokość, ale wydaje mi się że tak. |
| slowik84 - 2008-12-18 19:04:56 |
czesc ja mam pytanko bo u mnie to nie smiga! jak rozciagne formatke to pokazuje tylko 4 albo 6 kwadracikow i nic wiecej. ktos moze mnie oswiecic?? |
| ciemak666 - 2008-12-18 21:07:02 |
@ Słowik może deklarujesz "kartke" Graphics przed utworzeniem formatki programu |
| slowik84 - 2008-12-19 18:33:58 |
ja pierdykam. |