Telnet server	Program
Bubenφk	Program
Manager	Program
Animace	Program
Polyline	API
PolylineTo	API
PolyPolyline	API
MoveToEx	API
Ellipse	API
Rectangle	API
RoundRect	API
Polygon	API
PolyPolygon	API

Telnet server

Pro ty z vßs, kdo se zajφmajφ o komunikaci na sφti, je tento p°φklad. Ned∞lß nic jinΘho, ne₧ ₧e ukazuje, jak vytvo°it telnetov² server.
63267 byt∙	Kopφrovat

Zp∞t na obsah

Bubenφk

Velmi p∞kn∞ ud∞lan² program na tvorbu rytm∙. Co je na n∞m tak zajφmavΘho je to, ₧e vßs nauΦφ pracovat s midi.
27772 byt∙	Kopφrovat

Zp∞t na obsah

Manager

P°φklad, kter² vßs nauΦφ pracovat se spoustou v∞cφ ve Windows 9x. Umφ zobrazovat dialogy z ovlßdacφch panel∙, pracovat se soubory, zjiÜ¥ovat cestu ke specißlnφm slo₧kßm atd.
21661 byt∙	Kopφrovat

Zp∞t na obsah

Animace

Jednoduch² a p°ehledn∞ ud∞lan² p°φklad na vytvo°enφ animace.
10745 byt∙	Kopφrovat

Zp∞t na obsah

Polyline

Vykresluje slo₧enou Φßru na zadanΘ grafickΘ za°φzenφ. Ka₧dß jednotlivß Φßra je urΦena poΦßteΦnφm a koncov²m bodem. Za poΦßteΦnφ bod je brßn koncov² bod p°edchozφ Φßry.

Pokud funkce skonΦφ v po°ßdku, vracφ hodnotu 1, jinak 0.

Declare Function Polyline Lib "gdi32" _
  (ByVal hdc As Long, lpPoint As POINTAPI, ByVal nCount As Long) As Long

hdc - kontext za°φzenφ, na kterΘ se bude vykreslovat
lpPoint - pole obsahujφcφ jednotlivΘ sou°adnice
nCount - poΦet bod∙, tzn. poΦet prvk∙ v poli lpPoint

'Vykreslφ Φßru slo₧enou ze dvou Φar
'Prvnφ bude mφt sou°adnice 0,0 a 100,100, druhß 100,100 a 200,0
Dim p(0 To 2) As POINTAPI

Form1.ForeColor = vbBlack
p(0).x = 0: p(0).y = 0
p(1).x = 100: p(1).y = 100
p(2).x = 200: p(2).y = 0
Polyline Form1.hdc, p(0), 3

Zp∞t na obsah

PolylineTo

Vykresluje slo₧enou Φßru na zadanΘ grafickΘ za°φzenφ. Ka₧dß jednotlivß Φßra je urΦena poΦßteΦnφm a koncov²m bodem. Za poΦßteΦnφ bod je brßn koncov² bod p°edchozφ Φßry. Narozdφl od API funkce Polyline nezaΦφnß kreslit zadan²m poΦßteΦnφm bodem, ale za poΦßteΦnφ bod bere aktußlnφ sou°adnice pera. Tzn. je-li aktußlnφ sou°adnice pera 0,0 a vy zadßte jako prvnφ bod 100,100 je hned vykreslena Φßra.

Pokud funkce skonΦφ v po°ßdku, vracφ hodnotu 1, jinak 0.

Declare Function PolylineTo Lib "gdi32" _
  (ByVal hdc As Long, lppt As POINTAPI, ByVal cCount As Long) As Long

hdc - kontext za°φzenφ, na kterΘ se bude vykreslovat
lpPoint - pole obsahujφcφ jednotlivΘ sou°adnice
nCount - poΦet bod∙, tzn. poΦet prvk∙ v poli lpPoint

'Vykreslφ Φßru slo₧enou ze t°φ Φar
'Prvnφ bude mφt sou°adnice 100,300 a 0,0, druhß 0,0 a 100,100, t°etφ 100,100 a 200,0
Dim p(0 To 3) As POINTAPI, curPoint As POINTAPI

Form1.ForeColor = vbBlack

'p°esune se do bodu 100, 300
MoveToEx Form1.hdc, 100, 300, curPoint

p(0).x = 0: p(0).y = 0
p(1).x = 100: p(1).y = 100
p(2).x = 200: p(2).y = 0
PolylineTo Form1.hdc, p(0), 3

Zp∞t na obsah

PolyPolyline

Vykresluje zadan² poΦet slo₧en²ch Φar na grafickΘ za°φzenφ. Ka₧dß jednotlivß Φßra je urΦena poΦßteΦnφm a koncov²m bodem. Za poΦßteΦnφ bod je brßn koncov² bod p°edchozφ Φßry. VÜechny body vÜech Φar jsou ulo₧eny v jednom poli. DruhΘ pole urΦuje, kolik prvk∙ mß ka₧dß Φßra.

Pokud funkce skonΦφ v po°ßdku, vracφ hodnotu 1, jinak 0.

Declare Function PolyPolyline Lib "gdi32.dll" _
  (ByVal hdc As Long, lpPoint As POINTAPI, lpdwPolyPoints As Long, _
   ByVal nCount As Long) As Long

hdc - kontext za°φzenφ, na kterΘ se bude vykreslovat
lpPoint - pole obsahujφcφ jednotlivΘ sou°adnice
lpdwPolyPoints - pole, kterΘ urΦuje kolik bod∙ z pole lpPoint mß ka₧dß Φßra
nCount - poΦet Φar, tzn. poΦet prvk∙ v poli lpdwPolyPoints

Dim p(0 To 5) As POINTAPI 'urΦuje sou°adnice jednotliv²ch bod∙
Dim n(0 To 1) As Long 'urΦuje poΦet bod∙ v ka₧dΘ Φß°e

Form1.ForeColor = vbBlack

'prvnφ Φßra
p(0).x = 0: p(0).y = 0
p(1).x = 100: p(1).y = 100
p(2).x = 200: p(2).y = 0
n(0) = 3 'poΦet bod∙ prvnφ Φßry

'druhß Φßra
p(3).x = 200: p(3).y = 200
p(4).x = 300: p(4).y = 300
p(5).x = 400: p(5).y = 200
n(1) = 3 'poΦet bod∙ druhΘ Φßry

PolyPolyline Form1.hdc, p(0), n(0), 2

Zp∞t na obsah

MoveToEx

Nastavφ sou°adnice aktußlnφho bodu grafickΘho za°φzenφ.

Pokud funkce skonΦφ v po°ßdku, vracφ hodnotu 1, jinak 0.

Declare Function MoveToEx Lib "gdi32" _
  (ByVal hdc As Long, ByVal x As Long, ByVal y As Long, lpPoint As POINTAPI) As Long

hdc - kontext grafickΘho za°φzenφ
x - sou°adnice novΘho aktußlnφho bodu na ose x
y - sou°adnice novΘho aktußlnφho bodu na ose y
lpPoint - do tΘto prom∞nnΘ jsou vrßceny sou°adnice starΘho aktußlnφho bodu

'P°esune aktußlnφ bod na sou°adnice 100, 300
Dim curPoint As POINTAPI
MoveToEx Form1.hdc, 100, 300, curPoint

Zp∞t na obsah

Ellipse

Vykreslφ elipsu na zadanΘ grafickΘ za°φzenφ. Elipsa je urΦena pomocφ obdΘlnφku, do kterΘho je vykreslena.

Pokud funkce skonΦφ v po°ßdku, vracφ hodnotu 1, jinak 0.

Declare Function Ellipse Lib "gdi32" _
  (ByVal hdc As Long, ByVal X1 As Long, ByVal Y1 As Long, _
   ByVal X2 As Long, ByVal Y2 As Long) As Long

hdc - kontext grafickΘho za°φzenφ
X1 - sou°adnice x levΘho hornφho rohu obdΘlnφku
Y1 - sou°adnice y levΘho hornφho rohu obdΘlnφku
X2 - sou°adnice x pravΘho dolnφho rohu obdΘlnφku
Y2 - sou°adnice y pravΘho dolnφho rohu obdΘlnφku

Form1.ForeColor = vbBlack
'Kru₧nice se st°edem v bod∞ 100,100 a polom∞rem 100.
Ellipse Form1.hdc, 0, 0, 200, 200
'Elipsa se st°edem v bod∞ 100,50
Ellipse Form1.hdc, 0, 0, 200, 100

Zp∞t na obsah

Rectangle

Vykresluje pravo·hl² Φty°·helnφk na zadanΘ grafickΘ za°φzenφ.

Pokud funkce skonΦφ v po°ßdku, vracφ hodnotu 1, jinak 0.

Declare Function Rectangle Lib "gdi32" _
  (ByVal hdc As Long, ByVal X1 As Long, ByVal Y1 As Long, _
   ByVal X2 As Long, ByVal Y2 As Long) As Long

hdc - kontext grafickΘho za°φzenφ
X1 - sou°adnice levΘho hornφho rohu na ose x
Y1 - sou°adnice levΘho hornφho rohu na ose y
X2 - sou°adnice pravΘho dolnφho rohu na ose x
Y2 - sou°adnice pravΘho dolnφho rohu na ose y

'Vykreslφ Φtverec s dΘlkou strany 200 pixel∙
Form1.ForeColor = vbBlack
Rectangle Form1.hdc, 0, 0, 200, 200

Zp∞t na obsah

RoundRect

Vykreslφ pravo·hl² Φty°·helnφk se zaoblen²mi rohy na zadanΘ grafickΘ za°φzenφ.

Pokud funkce skonΦφ v po°ßdku, vracφ hodnotu 1, jinak 0.

Declare Function RoundRect Lib "gdi32" _
  (ByVal hdc As Long, ByVal X1 As Long, ByVal Y1 As Long, _
   ByVal X2 As Long, ByVal Y2 As Long, ByVal X3 As Long, ByVal Y3 As Long) As Long

hdc - kontext grafickΘho za°φzenφ
X1 - sou°adnice levΘho hornφho rohu na ose x
Y1 - sou°adnice levΘho hornφho rohu na ose y
X2 - sou°adnice pravΘho dolnφho rohu na ose x
Y2 - sou°adnice pravΘho dolnφho rohu na ose y
X3 - dΘlka oblouku na ose x
Y3 - dΘlka oblouku na ose y

'Vykreslφ Φtverec s dΘlkou strany 200 pixel∙, dΘlka zaoblenφ bude 20 pixel∙
Form1.ForeColor = vbBlack
RoundRect Form1.hdc, 100, 100, 200, 200, 20, 20

Zp∞t na obsah

Polygon

Vykreslφ polygon na zadanΘ grafickΘ za°φzenφ. Vrcholy polygonu se zadßvajφ do pole, poslednφ bod pole je spojen s prvnφm.

Pokud funkce skonΦφ v po°ßdku, vracφ hodnotu 1, jinak 0.

Declare Function Polygon Lib "gdi32" _
  (ByVal hdc As Long, lpPoint As POINTAPI, ByVal nCount As Long) As Long

hdc - kontext grafickΘho za°φzenφ
lpPoint - pole obsahujφcφ sou°adnice jednotliv²ch vrchol∙
nCount - poΦet vrchol∙, tzn. poΦet prvk∙ v poli lpPoint

'Vykreslφ Üesti·helnφk
Dim p(0 To 5) As POINTAPI
Form1.ForeColor = vbBlack
p(0).x = 100: p(0).y = 0
p(1).x = 200: p(1).y = 0
p(2).x = 300: p(2).y = 100
p(3).x = 200: p(3).y = 200
p(4).x = 100: p(4).y = 200
p(5).x = 0: p(5).y = 100
Polygon Form1.hdc, p(0), 6

Zp∞t na obsah

PolyPolygon

Vykreslφ n∞kolik polygon∙ narßz na zadanΘ grafickΘ za°φzenφ. Vrcholy polygon∙ se zadßvajφ do jednoho pole, poslednφ vrchol polygonu je spojen s prvnφm.

Pokud funkce skonΦφ v po°ßdku, vracφ hodnotu 1, jinak 0.

Declare Function PolyPolygon Lib "gdi32" _
  (ByVal hdc As Long, lpPoint As POINTAPI, lpPolyCounts As Long, _
   ByVal nCount As Long) As Long

hdc - kontext grafickΘho za°φzenφ
lpPoint - pole obsahujφcφ sou°adnice jednotliv²ch vrchol∙
lpPolyCounts - pole obsahujφcφ poΦet vrchol∙ v jednotliv²ch polygonech
nCount - poΦet polygon∙, tzn. poΦet prvk∙ v poli lpPolyCounts

Dim p(0 To 8) As POINTAPI, n(0 To 1) As Long

Form1.ForeColor = vbBlack

'prvnφ polygon
p(0).x = 1: p(0).y = 1
p(1).x = 100: p(1).y = 1
p(2).x = 100: p(2).y = 100
p(3).x = 1: p(3).y = 100
n(0) = 4

'druh² polygon
p(4).x = 200: p(4).y = 200
p(5).x = 300: p(5).y = 200
p(6).x = 350: p(6).y = 250
p(7).x = 300: p(7).y = 300
p(8).x = 200: p(8).y = 300
n(1) = 5

PolyPolygon Form1.hdc, p(0), n(0), 2

Zp∞t na obsah