PEMROGRAMAN API: TUGAS API 4 (MEMBUAT KARTU REMI DENGAN REGION MENGGUNAKAN VB 6

OUTPUT

SOURCODE :

Private Declare Function CreateEllipticRgn Lib "gdi32" (ByVal X1 As Long, ByVal Y1 As Long, ByVal X2 As Long, ByVal Y2 As Long) As Long

Private Declare Function CreateRoundRectRgn Lib "gdi32" (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

Private Declare Function CreateRectRgn Lib "gdi32" (ByVal X1 As Long, ByVal Y1 As Long, ByVal X2 As Long, ByVal Y2 As Long) As Long

Private Declare Function CombineRgn Lib "gdi32" (ByVal hDestRgn As Long, ByVal hSrcRgn1 As Long, ByVal hSrcRgn2 As Long, ByVal nCombineMode As Long) As Long

Private Declare Function SetWindowRgn Lib "user32" (ByVal hwnd As Long, ByVal hRgn As Long, ByVal bRedraw As Boolean) As Long

Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long

Private Declare Function ReleaseCapture Lib "user32" () As Long

Private Type COORD

x As Long

y As Long

End Type

Private Declare Function CreatePolygonRgn Lib "gdi32" (lpPoint As Any, ByVal nCount As Long, ByVal nPolyFillMode As Long) As Long

Private Declare Function FillRgn Lib "gdi32" (ByVal hdc As Long, ByVal hRgn As Long, ByVal hBrush As Long) As Long

Private Declare Function GetStockObject Lib "gdi32" (ByVal nIndex As Long) As Long

Private Declare Function DeleteObject Lib "gdi32" (ByVal hObject As Long) As Long

Const ALTERNATE = 1 ' ALTERNATE and WINDING are

Const WINDING = 2 ' constants for FillMode.

Const BLACKBRUSH = 4 ' Constant for brush type.

Private Sub Form_DblClick()

End

End Sub

Private Sub Form_Load()

'======================================================================================= merah

'==AS Love Start

lo1 = CreateEllipticRgn(36, 23, 59, 46)

lo2 = CreateEllipticRgn(58, 23, 81, 46)

CombineRgn lo1, lo1, lo2, 2

Dim polye(1 To 3) As COORD, NumCoordse As Long, hBrushe As Long, hRgne As Long

polye(1).x = 58.5

polye(1).y = 71

polye(2).x = 36

polye(2).y = 36

polye(3).x = 81

polye(3).y = 36

NumCoordse = 3

segitigaakul = CreatePolygonRgn(polye(1), NumCoordse, ALTERNATE)

CombineRgn segitigaakul, segitigaakul, lo1, 2

'hurufAS start

Dim pol1l(1 To 3) As COORD, NumCoords1l As Long, hBrush1l As Long, hRgn1l As Long

pol1l(1).x = 34

pol1l(1).y = 57

pol1l(2).x = 7

pol1l(2).y = 99

pol1l(3).x = 61

pol1l(3).y = 99

NumCoords1l = 3

segita1l = CreatePolygonRgn(pol1l(1), NumCoords1l, ALTERNATE)

'-----

Dim pol2l(1 To 3) As COORD, NumCoords2l As Long, hBrush2l As Long, hRgn2l As Long

pol2l(1).x = 35

pol2l(1).y = 73

pol2l(2).x = 8

pol2l(2).y = 115

pol2l(3).x = 62

pol2l(3).y = 115

NumCoords2l = 3

segita2l = CreatePolygonRgn(pol2l(1), NumCoords2l, ALTERNATE)

'hurufAS end

balokas = CreateRectRgn(22, 83, 46, 90)

CombineRgn segita1l, segita1l, segita2l, 4

CombineRgn segita1l, segita1l, balokas, 2

CombineRgn segitigaakul, segitigaakul, segita1l, 2

'==AS Love end

'==2 Love Start

l12 = CreateEllipticRgn((138), 23, (161), 46)

l22 = CreateEllipticRgn((160), 23, (183), 46)

CombineRgn l12, l12, l22, 2

'segitiga love 2

Dim sl2(1 To 3) As COORD, Nsl2 As Long, hsl2 As Long, rsl2 As Long

sl2(1).x = 160.5

sl2(1).y = 71

sl2(2).x = 138

sl2(2).y = 36

sl2(3).x = 183

sl2(3).y = 36

Nsl2 = 3

sel2 = CreatePolygonRgn(sl2(1), Nsl2, ALTERNATE)

CombineRgn sel2, sel2, l12, 2

'--angka2 love start

ling21 = CreateEllipticRgn(115, 63, 141, 89)

ling22 = CreateEllipticRgn(108.09, 57.06, 151, 95)

CombineRgn ling22, ling22, ling21, 4

ppjg21 = CreateRectRgn(104, 54, 124, 99)

CombineRgn ling22, ling22, ppjg21, 4

ppjg22 = CreateRectRgn(123, 89, 152, 98)

CombineRgn ling22, ling22, ppjg22, 2

'--angka2 love end

CombineRgn sel2, sel2, ling22, 2

'==2 Love End

'==3 Love Start

l13 = CreateEllipticRgn((228), 23, (251), 46)

l23 = CreateEllipticRgn((250), 23, (273), 46)

CombineRgn l13, l13, l23, 2

'segitiga love 3

Dim sl3(1 To 3) As COORD, Nsl3 As Long, hsl3 As Long, rsl3 As Long

sl3(1).x = 250

sl3(1).y = 71

sl3(2).x = 228

sl3(2).y = 36

sl3(3).x = 273

sl3(3).y = 36

Nsl3 = 3

sel3 = CreatePolygonRgn(sl3(1), Nsl3, ALTERNATE)

CombineRgn sel3, sel3, l13, 2

'--angka3 love start

ling31 = CreateEllipticRgn(191, 58.91, 227, 76)

ling32 = CreateEllipticRgn(206.91, 57, 233, 79)

CombineRgn ling32, ling32, ling31, 4

ling33 = CreateEllipticRgn(194.75, 74.16, 227, 93)

ling34 = CreateEllipticRgn(203, 71, 235, 98)

CombineRgn ling34, ling34, ling33, 4

CombineRgn ling34, ling34, ling32, 2

'--angka3 love end

CombineRgn sel3, ling34, sel3, 2

'==3 Love End

'==4 Love Start

l14 = CreateEllipticRgn((326), 23, (349), 46)

l24 = CreateEllipticRgn((348), 23, (371), 46)

CombineRgn l14, l14, l24, 2

'segitiga love 4

Dim sl4(1 To 3) As COORD, Nsl4 As Long, hsl4 As Long, rsl4 As Long

sl4(1).x = 348.5

sl4(1).y = 71

sl4(2).x = 326

sl4(2).y = 36

sl4(3).x = 371

sl4(3).y = 36

Nsl4 = 3

sel4 = CreatePolygonRgn(sl4(1), Nsl4, ALTERNATE)

CombineRgn sel4, sel4, l14, 2

'--angka4 love start

ppjg41 = CreateRectRgn(305, 57, 311, 80)

ppjg42 = CreateRectRgn(307, 74, 330, 80)

ppjg43 = CreateRectRgn(326, 57, 332, 97)

CombineRgn ppjg42, ppjg42, ppjg41, 2

CombineRgn ppjg43, ppjg43, ppjg42, 2

'--angka4 love end

CombineRgn sel4, ppjg43, sel4, 2

'==4 Love End

'==5 Love Start

l15 = CreateEllipticRgn((424), 23, (447), 46)

l25 = CreateEllipticRgn((446), 23, (469), 46)

CombineRgn l15, l15, l25, 2

'segitiga love 5

Dim sl5(1 To 3) As COORD, Nsl5 As Long, hsl5 As Long, rsl5 As Long

sl5(1).x = 446.5

sl5(1).y = 71

sl5(2).x = 424

sl5(2).y = 36

sl5(3).x = 469

sl5(3).y = 36

Nsl5 = 3

sel5 = CreatePolygonRgn(sl5(1), Nsl5, ALTERNATE)

CombineRgn sel5, sel5, l15, 2

'--angka5 love start

ppjg51 = CreateRectRgn(397, 57, 426, 64)

ppjg52 = CreateRectRgn(397, 58, 404, 77)

CombineRgn ppjg52, ppjg52, ppjg51, 2

ling51 = CreateEllipticRgn(392, 74, 423, 93)

ling52 = CreateEllipticRgn(394, 69, 429, 98)

CombineRgn ling52, ling52, ling51, 4

CombineRgn ling52, ling52, ppjg52, 2

'--angka5 love end

CombineRgn sel5, ling52, sel5, 2

'==5 Love End

'==6 Love Start

l16 = CreateEllipticRgn((518), 23, (541), 46)

l26 = CreateEllipticRgn((540), 23, (563), 46)

CombineRgn l16, l16, l26, 2

'segitiga love 6

Dim sl6(1 To 3) As COORD, Nsl6 As Long, hsl6 As Long, rsl6 As Long

sl6(1).x = 540.5

sl6(1).y = 71

sl6(2).x = 518

sl6(2).y = 36

sl6(3).x = 563

sl6(3).y = 36

Nsl6 = 3

sel6 = CreatePolygonRgn(sl6(1), Nsl6, ALTERNATE)

CombineRgn sel6, sel6, l16, 2

'--angka6 love start

ling61 = CreateEllipticRgn(487, 56, 522, 98)

ling62 = CreateEllipticRgn(493, 60, 525, 93)

CombineRgn ling61, ling61, ling62, 4

ling63 = CreateEllipticRgn(493, 70, 521, 96)

ling64 = CreateEllipticRgn(497.66, 74.66, 516, 92)

CombineRgn ling63, ling63, ling64, 4

CombineRgn ling63, ling63, ling61, 2

'--angka6 love end

CombineRgn sel6, ling63, sel6, 2

'==6 Love End

'==7 Love Start

l17 = CreateEllipticRgn((610), 23, (633), 46)

l27 = CreateEllipticRgn((632), 23, (655), 46)

CombineRgn l17, l17, l27, 2

'segitiga love 7

Dim sl7(1 To 3) As COORD, Nsl7 As Long, hsl7 As Long, rsl7 As Long

sl7(1).x = 632.5

sl7(1).y = 71

sl7(2).x = 610

sl7(2).y = 36

sl7(3).x = 655

sl7(3).y = 36

Nsl7 = 3

sel7 = CreatePolygonRgn(sl7(1), Nsl7, ALTERNATE)

CombineRgn sel7, sel7, l17, 2

'--angka7 love start

ppjg71 = CreateRectRgn(587.34, 56.5, 612, 63)

ppjg72 = CreateRectRgn(605, 56.5, 612, 99)

ppjg73 = CreateRectRgn(597, 77.34, 621, 82)

CombineRgn ppjg72, ppjg72, ppjg71, 2

CombineRgn ppjg73, ppjg73, ppjg72, 2

'--angka7 love end

CombineRgn sel7, ppjg73, sel7, 2

'==7 Love End

'==8 Love Start

l18 = CreateEllipticRgn((706), 23, (729), 46)

l28 = CreateEllipticRgn((728), 23, (751), 46)

CombineRgn l18, l18, l28, 2

'segitiga love 8

Dim sl8(1 To 3) As COORD, Nsl8 As Long, hsl8 As Long, rsl8 As Long

sl8(1).x = 728.5

sl8(1).y = 71

sl8(2).x = 706

sl8(2).y = 36

sl8(3).x = 751

sl8(3).y = 36

Nsl8 = 3

sel8 = CreatePolygonRgn(sl8(1), Nsl8, ALTERNATE)

CombineRgn sel8, sel8, l18, 2

'--angka8 love start

ling81 = CreateEllipticRgn(684.16, 61.25, 699, 75)

ling82 = CreateEllipticRgn(679, 56.5, 705, 81)

CombineRgn ling82, ling82, ling81, 4

ling83 = CreateEllipticRgn(680.97, 76, 704, 93)

ling84 = CreateEllipticRgn(675.28, 71.91, 709, 98)

CombineRgn ling84, ling84, ling83, 4

CombineRgn ling84, ling84, ling82, 2

'--angka8 love end

CombineRgn sel8, sel8, ling84, 2

'==8 Love End

'==9 Love Start

l19 = CreateEllipticRgn((799), 23, (822), 46)

l29 = CreateEllipticRgn((821), 23, (844), 46)

CombineRgn l19, l19, l29, 2

'segitiga love 9

Dim sl9(1 To 3) As COORD, Nsl9 As Long, hsl9 As Long, rsl9 As Long

sl9(1).x = 821.5

sl9(1).y = 71

sl9(2).x = 799

sl9(2).y = 36

sl9(3).x = 844

sl9(3).y = 36

Nsl9 = 3

sel9 = CreatePolygonRgn(sl9(1), Nsl9, ALTERNATE)

CombineRgn sel9, sel9, l19, 2

'--angka9 love start

ling91 = CreateEllipticRgn(780, 63, 798, 80)

ling92 = CreateEllipticRgn(774, 58, 802, 84)

CombineRgn ling92, ling92, ling91, 4

ling93 = CreateEllipticRgn(770, 61, 802, 94)

ling94 = CreateEllipticRgn(773, 56, 808, 98)

CombineRgn ling94, ling94, ling93, 4

CombineRgn ling94, ling94, ling92, 2

'--angka9 love end

CombineRgn sel9, ling94, sel9, 2

'==9 Love End

'==10 Love Start

l110 = CreateEllipticRgn((894), 23, (917), 46)

l210 = CreateEllipticRgn((916), 23, (939), 46)

CombineRgn l110, l110, l210, 2

'segitiga love 10

Dim sl10(1 To 3) As COORD, Nsl10 As Long, hsl10 As Long, rsl10 As Long

sl10(1).x = 916.5

sl10(1).y = 71

sl10(2).x = 894

sl10(2).y = 36

sl10(3).x = 939

sl10(3).y = 36

Nsl10 = 3

sel10 = CreatePolygonRgn(sl10(1), Nsl10, ALTERNATE)

CombineRgn sel10, sel10, l110, 2

'--angka10 love start

ppjg101 = CreateRectRgn(862, 57, 879, 63)

ppjg102 = CreateRectRgn(871, 57, 878, 99)

CombineRgn ppjg102, ppjg102, ppjg101, 2

ling101 = CreateEllipticRgn(886, 66, 903, 89)

ling102 = CreateEllipticRgn(880, 57, 911, 99)

CombineRgn ling102, ling102, ling101, 4

CombineRgn ling102, ling102, ppjg102, 2

'--angka10 love end

CombineRgn sel10, ling102, sel10, 2

'==10 Love End

'==j Love Start

l1j = CreateEllipticRgn((994), 23, (1017), 46)

l2j = CreateEllipticRgn((1016), 23, (1039), 46)

CombineRgn l1j, l1j, l2j, 2

'segitiga love j

Dim slj(1 To 3) As COORD, Nslj As Long, hslj As Long, rslj As Long

slj(1).x = 1016.5

slj(1).y = 71

slj(2).x = 994

slj(2).y = 36

slj(3).x = 1039

slj(3).y = 36

Nslj = 3

selj = CreatePolygonRgn(slj(1), Nslj, ALTERNATE)

CombineRgn selj, selj, l1j, 2

'--angkaj love start

ppjgj1 = CreateRectRgn(964, 57, 988, 62)

ppjgj2 = CreateRectRgn(980, 57, 987, 90)

CombineRgn ppjgj2, ppjgj2, ppjgj1, 2

lingj1 = CreateEllipticRgn(959, 73, 981, 94)

lingj2 = CreateEllipticRgn(962, 77, 988, 99)

CombineRgn lingj2, lingj2, lingj1, 4

CombineRgn lingj2, lingj2, ppjgj2, 2

'--angkaj love end

CombineRgn selj, lingj2, selj, 2

'==j Love End

'==q Love Start

l1q = CreateEllipticRgn((1084), 23, (1107), 46)

l2q = CreateEllipticRgn((1106), 23, (1129), 46)

CombineRgn l1q, l1q, l2q, 2

'segitiga love q

Dim slq(1 To 3) As COORD, Nslq As Long, hslq As Long, rslq As Long

slq(1).x = 1106.5

slq(1).y = 71

slq(2).x = 1084

slq(2).y = 36

slq(3).x = 1129

slq(3).y = 36

Nslq = 3

selq = CreatePolygonRgn(slq(1), Nslq, ALTERNATE)

CombineRgn selq, selq, l1q, 2

'--angkaq love start

lingq1 = CreateEllipticRgn(1055, 63, 1079, 85)

lingq2 = CreateEllipticRgn(1049, 56, 1084, 92)

CombineRgn lingq2, lingq2, lingq1, 4

lingq3 = CreateEllipticRgn(1074, 72, 1098, 94)

lingq4 = CreateEllipticRgn(1070, 76, 1093, 98)

CombineRgn lingq4, lingq4, lingq3, 4

CombineRgn lingq4, lingq4, lingq2, 2

'--angkaq love end

CombineRgn selq, lingq4, selq, 2

'==q Love End

'==k Love Start

l1k = CreateEllipticRgn((1181), 23, (1204), 46)

l2k = CreateEllipticRgn((1203), 23, (1226), 46)

CombineRgn l1k, l1k, l2k, 2

'segitiga love k

Dim slk(1 To 3) As COORD, Nslk As Long, hslk As Long, rslk As Long

slk(1).x = 1203.5

slk(1).y = 71

slk(2).x = 1181

slk(2).y = 36

slk(3).x = 1226

slk(3).y = 36

Nslk = 3

selk = CreatePolygonRgn(slk(1), Nslk, ALTERNATE)

CombineRgn selk, selk, l1k, 2

'--angkak love start

ppjgk1 = CreateRectRgn(1149, 57, 1155, 99)

Dim slkh1(1 To 3) As COORD, Nslkh1 As Long, hslkh1 As Long, rslkh1 As Long

slkh1(1).x = 1156

slkh1(1).y = 70

slkh1(2).x = 1156

slkh1(2).y = 55

slkh1(3).x = 1173

slkh1(3).y = 55

Nslkh1 = 3

selkh1 = CreatePolygonRgn(slkh1(1), Nslkh1, ALTERNATE)

Dim slkh2(1 To 3) As COORD, Nslkh2 As Long, hslkh2 As Long, rslkh2 As Long

slkh2(1).x = 1154

slkh2(1).y = 78

slkh2(2).x = 1154

slkh2(2).y = 57

slkh2(3).x = 1178

slkh2(3).y = 57

Nslkh2 = 3

selkh2 = CreatePolygonRgn(slkh2(1), Nslkh2, ALTERNATE)

CombineRgn selkh2, selkh2, selkh1, 4

Dim slkh3(1 To 3) As COORD, Nslkh3 As Long, hslkh3 As Long, rslkh3 As Long

slkh3(1).x = 1156

slkh3(1).y = 84

slkh3(2).x = 1156

slkh3(2).y = 100

slkh3(3).x = 1175

slkh3(3).y = 100

Nslkh3 = 3

selkh3 = CreatePolygonRgn(slkh3(1), Nslkh3, ALTERNATE)

Dim slkh4(1 To 3) As COORD, Nslkh4 As Long, hslkh4 As Long, rslkh4 As Long

slkh4(1).x = 1154

slkh4(1).y = 77

slkh4(2).x = 1154

slkh4(2).y = 98

slkh4(3).x = 1178

slkh4(3).y = 98

Nslkh4 = 3

selkh4 = CreatePolygonRgn(slkh4(1), Nslkh4, ALTERNATE)

CombineRgn selkh4, selkh4, selkh3, 4

CombineRgn selkh4, selkh4, selkh2, 2

CombineRgn selkh4, selkh4, ppjgk1, 2

'--angkak love end

CombineRgn selk, selkh4, selk, 2

'==k Love End

'==GABUNG SEMUA LOVE START

CombineRgn segitigaakul, segitigaakul, sel2, 2

CombineRgn sel3, sel3, sel4, 2

CombineRgn sel5, sel5, sel6, 2

CombineRgn sel7, sel7, sel8, 2

CombineRgn sel9, sel9, sel10, 2

CombineRgn selj, selj, selq, 2

CombineRgn sel3, sel3, segitigaakul, 2

CombineRgn sel7, sel7, sel5, 2

CombineRgn selj, selj, sel9, 2

CombineRgn sel7, sel7, sel3, 2

CombineRgn selk, selk, selj, 2

CombineRgn selk, selk, sel7, 2

'==GABUNG SEMUA LOVE END

'==GABUNGAN MERAH WAJIK START==

'===============================================================================Wajik 1

Dim wajik1(1 To 3) As COORD, Numwajik1 As Long, hBwajik1 As Long, hRwajik1 As Long

wajik1(1).x = 72

wajik1(1).y = 129

wajik1(2).x = 53

wajik1(2).y = 157

wajik1(3).x = 91

wajik1(3).y = 157

Numwajik1 = 3

segitiga1 = CreatePolygonRgn(wajik1(1), Numwajik1, ALTERNATE)

'========================================================================================= As

Dim pol1w(1 To 3) As COORD, NumCoords1w As Long, hBrush1w As Long, hRgn1w As Long

pol1w(1).x = 34

pol1w(1).y = 178

pol1w(2).x = 7

pol1w(2).y = 220

pol1w(3).x = 61

pol1w(3).y = 220

NumCoords1w = 3

segita1w = CreatePolygonRgn(pol1w(1), NumCoords1w, ALTERNATE)

Dim pol2w(1 To 3) As COORD, NumCoords2w As Long, hBrush2w As Long, hRgn2w As Long

pol2w(1).x = 35

pol2w(1).y = 194

pol2w(2).x = 8

pol2w(2).y = 236

pol2w(3).x = 62

pol2w(3).y = 236

NumCoords2w = 3

segita2w = CreatePolygonRgn(pol2w(1), NumCoords2w, ALTERNATE)

balokasw = CreateRectRgn(22, 204, 46, 211)

CombineRgn segita1w, segita1w, segita2w, 4

CombineRgn segita1w, segita1w, balokasw, 2

'========================================================================================= As SUKSES

Dim wajik11(1 To 3) As COORD, Numwajik11 As Long, hBwajik11 As Long, hRwajik11 As Long

wajik11(1).x = 72

wajik11(1).y = 187

wajik11(2).x = 53

wajik11(2).y = 157

wajik11(3).x = 91

wajik11(3).y = 157

Numwajik11 = 3

segitiga11 = CreatePolygonRgn(wajik11(1), Numwajik11, ALTERNATE)

CombineRgn segitiga1, segitiga1, segitiga11, 2

CombineRgn segitiga1, segitiga1, segita1w, 2

'================================================================================Wajik 1

'Catatan Logika

'RGN_AND = 1

'RGN_OR = 2

'RGN_XOR = 3

'RGN_DIFF = 4

'RGN_COPY = 5

'================================================================================Wajik 2

Dim wajik2(1 To 3) As COORD, Numwajik2 As Long, hBwajik2 As Long, hRwajik2 As Long

wajik2(1).x = 168

wajik2(1).y = 129

wajik2(2).x = 149

wajik2(2).y = 159

wajik2(3).x = 187

wajik2(3).y = 159

Numwajik2 = 3

segitiga2 = CreatePolygonRgn(wajik2(1), Numwajik2, ALTERNATE)

'================================================================================ 2

ling21w = CreateEllipticRgn(115, 184, 141, 210)

ling22w = CreateEllipticRgn(108.09, 178, 151, 216)

CombineRgn ling22w, ling22w, ling21w, 4

ppjg21w = CreateRectRgn(104, 175, 124, 220)

CombineRgn ling22w, ling22w, ppjg21w, 4

ppjg22w = CreateRectRgn(123, 210, 152, 219)

CombineRgn ling22w, ling22w, ppjg22w, 2

'================================================================================ 2

Dim wajik22(1 To 3) As COORD, Numwajik22 As Long, hBwajik22 As Long, hRwajik22 As Long

wajik22(1).x = 168

wajik22(1).y = 187

wajik22(2).x = 149

wajik22(2).y = 157

wajik22(3).x = 187

wajik22(3).y = 157

Numwajik22 = 3

segitiga22 = CreatePolygonRgn(wajik22(1), Numwajik22, ALTERNATE)

CombineRgn segitiga2, segitiga2, segitiga22, 2

CombineRgn segitiga2, segitiga2, ling22w, 2

'===============================================================================Wajik 2

'Catatan Logika

'RGN_AND = 1

'RGN_OR = 2

'RGN_XOR = 3

'RGN_DIFF = 4

'RGN_COPY = 5

'================================================================================Wajik 3

Dim wajik3(1 To 3) As COORD, Numwajik3 As Long, hBwajik3 As Long, hRwajik3 As Long

wajik3(1).x = 262

wajik3(1).y = 129

wajik3(2).x = 243

wajik3(2).y = 159

wajik3(3).x = 281

wajik3(3).y = 157

Numwajik3 = 3

segitiga3 = CreatePolygonRgn(wajik3(1), Numwajik3, ALTERNATE)

'=============================================================================== 3

ling31 = CreateEllipticRgn(191, 179.91, 227, 197)

ling32 = CreateEllipticRgn(206.91, 178, 233, 200)

CombineRgn ling32, ling32, ling31, 4

ling33 = CreateEllipticRgn(194.75, 195.16, 227, 214)

ling34 = CreateEllipticRgn(203, 192.31, 235, 219)

CombineRgn ling34, ling34, ling33, 4

CombineRgn ling34, ling34, ling32, 2

'============================================================================== 3

Dim wajik33(1 To 3) As COORD, Numwajik33 As Long, hBwajik33 As Long, hRwajik33 As Long

wajik33(1).x = 262

wajik33(1).y = 187

wajik33(2).x = 243

wajik33(2).y = 157

wajik33(3).x = 281

wajik33(3).y = 157

Numwajik33 = 3

segitiga33 = CreatePolygonRgn(wajik33(1), Numwajik33, ALTERNATE)

CombineRgn segitiga3, segitiga3, segitiga33, 2

CombineRgn segitiga3, segitiga3, ling34, 2

'================================================================================Wajik 3

'Catatan Logika

'RGN_AND = 1

'RGN_OR = 2

'RGN_XOR = 3

'RGN_DIFF = 4

'RGN_COPY = 5

'===============================================================================Wajik 4

Dim wajik4(1 To 3) As COORD, Numwajik4 As Long, hBwajik4 As Long, hRwajik4 As Long

wajik4(1).x = 356

wajik4(1).y = 129

wajik4(2).x = 337

wajik4(2).y = 159

wajik4(3).x = 375

wajik4(3).y = 157

Numwajik4 = 3

segitiga4 = CreatePolygonRgn(wajik4(1), Numwajik4, ALTERNATE)

'====================================================================================4

ppjg41 = CreateRectRgn(305, 178, 311, 201)

ppjg42 = CreateRectRgn(307, 195, 330, 201)

ppjg43 = CreateRectRgn(326, 178, 332, 218)

CombineRgn ppjg42, ppjg42, ppjg41, 2

CombineRgn ppjg43, ppjg43, ppjg42, 2

'===================================================================================4

Dim wajik44(1 To 3) As COORD, Numwajik44 As Long, hBwajik44 As Long, hRwajik44 As Long

wajik44(1).x = 356

wajik44(1).y = 187

wajik44(2).x = 337

wajik44(2).y = 157

wajik44(3).x = 375

wajik44(3).y = 157

Numwajik44 = 3

segitiga44 = CreatePolygonRgn(wajik44(1), Numwajik44, ALTERNATE)

CombineRgn segitiga4, segitiga4, segitiga44, 2

CombineRgn segitiga4, segitiga4, ppjg43, 2

'================================================================================Wajik 4

'================================================================================Wajik 5

Dim wajik5(1 To 3) As COORD, Numwajik5 As Long, hBwajik5 As Long, hRwajik5 As Long

wajik5(1).x = 451

wajik5(1).y = 129

wajik5(2).x = 432

wajik5(2).y = 159

wajik5(3).x = 470

wajik5(3).y = 157

Numwajik5 = 3

segitiga5 = CreatePolygonRgn(wajik5(1), Numwajik5, ALTERNATE)

'===============================================================================5

ppjg51 = CreateRectRgn(397, 178, 426, 185)

ppjg52 = CreateRectRgn(397, 179, 404, 198)

CombineRgn ppjg52, ppjg52, ppjg51, 2

ling51 = CreateEllipticRgn(392, 195, 423, 214)

ling52 = CreateEllipticRgn(394, 190, 429, 219)

CombineRgn ling52, ling52, ling51, 4

CombineRgn ling52, ling52, ppjg52, 2

'===============================================================================5

Dim wajik55(1 To 3) As COORD, Numwajik55 As Long, hBwajik55 As Long, hRwajik55 As Long

wajik55(1).x = 451

wajik55(1).y = 187

wajik55(2).x = 432

wajik55(2).y = 157

wajik55(3).x = 470

wajik55(3).y = 157

Numwajik55 = 3

segitiga55 = CreatePolygonRgn(wajik55(1), Numwajik55, ALTERNATE)

CombineRgn segitiga5, segitiga5, segitiga55, 2

CombineRgn segitiga5, segitiga5, ling52, 2

'==================================================================================Wajik 5

'==================================================================================Wajik 6

Dim wajik6(1 To 3) As COORD, Numwajik6 As Long, hBwajik6 As Long, hRwajik6 As Long

wajik6(1).x = 547

wajik6(1).y = 129

wajik6(2).x = 528

wajik6(2).y = 159

wajik6(3).x = 566

wajik6(3).y = 157

Numwajik6 = 3

segitiga6 = CreatePolygonRgn(wajik6(1), Numwajik6, ALTERNATE)

'===============================================================================6

ling61 = CreateEllipticRgn(487, 177, 522, 219)

ling62 = CreateEllipticRgn(493, 181, 525, 214)

CombineRgn ling61, ling61, ling62, 4

ling63 = CreateEllipticRgn(493, 191, 521, 217)

ling64 = CreateEllipticRgn(497.66, 195.66, 516, 213)

CombineRgn ling63, ling63, ling64, 4

CombineRgn ling63, ling63, ling61, 2

'===============================================================================6

Dim wajik66(1 To 3) As COORD, Numwajik66 As Long, hBwajik66 As Long, hRwajik66 As Long

wajik66(1).x = 547

wajik66(1).y = 187

wajik66(2).x = 528

wajik66(2).y = 157

wajik66(3).x = 566

wajik66(3).y = 157

Numwajik66 = 3

segitiga66 = CreatePolygonRgn(wajik66(1), Numwajik66, ALTERNATE)

CombineRgn segitiga6, segitiga6, segitiga66, 2

CombineRgn segitiga6, segitiga6, ling63, 2

'==================================================================================Wajik 6

'==================================================================================Wajik 7

Dim wajik7(1 To 3) As COORD, Numwajik7 As Long, hBwajik7 As Long, hRwajik7 As Long

wajik7(1).x = 640

wajik7(1).y = 129

wajik7(2).x = 621

wajik7(2).y = 159

wajik7(3).x = 659

wajik7(3).y = 157

Numwajik7 = 3

segitiga7 = CreatePolygonRgn(wajik7(1), Numwajik7, ALTERNATE)

'==================================================================================7

ppjg71 = CreateRectRgn(587.34, 177.5, 612, 184)

ppjg72 = CreateRectRgn(605, 177.5, 612, 220)

ppjg73 = CreateRectRgn(597, 198.5, 621, 203)

CombineRgn ppjg72, ppjg72, ppjg71, 2

CombineRgn ppjg73, ppjg73, ppjg72, 2

'==================================================================================7

Dim wajik77(1 To 3) As COORD, Numwajik77 As Long, hBwajik77 As Long, hRwajik77 As Long

wajik77(1).x = 640

wajik77(1).y = 187

wajik77(2).x = 621

wajik77(2).y = 157

wajik77(3).x = 659

wajik77(3).y = 157

Numwajik77 = 3

segitiga77 = CreatePolygonRgn(wajik77(1), Numwajik77, ALTERNATE)

CombineRgn segitiga7, segitiga7, segitiga77, 2

CombineRgn segitiga7, segitiga7, ppjg73, 2

'==================================================================================Wajik 7

'==================================================================================Wajik 8

Dim wajik8(1 To 3) As COORD, Numwajik8 As Long, hBwajik8 As Long, hRwajik8 As Long

wajik8(1).x = 736

wajik8(1).y = 129

wajik8(2).x = 717

wajik8(2).y = 159

wajik8(3).x = 755

wajik8(3).y = 157

Numwajik8 = 3

segitiga8 = CreatePolygonRgn(wajik8(1), Numwajik8, ALTERNATE)

'===============================================================================8

ling81 = CreateEllipticRgn(684.16, 182.3, 699, 196.3)

ling82 = CreateEllipticRgn(679, 177.5, 705, 201)

CombineRgn ling82, ling82, ling81, 4

ling83 = CreateEllipticRgn(680.97, 197.3, 704, 214.6)

ling84 = CreateEllipticRgn(675.28, 192.9, 709, 219)

CombineRgn ling84, ling84, ling83, 4

CombineRgn ling84, ling84, ling82, 2

'==============================================================================8

Dim wajik88(1 To 3) As COORD, Numwajik88 As Long, hBwajik88 As Long, hRwajik88 As Long

wajik88(1).x = 736

wajik88(1).y = 187

wajik88(2).x = 717

wajik88(2).y = 157

wajik88(3).x = 755

wajik88(3).y = 157

Numwajik88 = 3

segitiga88 = CreatePolygonRgn(wajik88(1), Numwajik88, ALTERNATE)

CombineRgn segitiga8, segitiga8, segitiga88, 2

CombineRgn segitiga8, segitiga8, ling84, 2

'==================================================================================Wajik 8

'==================================================================================Wajik 9

Dim wajik9(1 To 3) As COORD, Numwajik9 As Long, hBwajik9 As Long, hRwajik9 As Long

wajik9(1).x = 832

wajik9(1).y = 129

wajik9(2).x = 813

wajik9(2).y = 159

wajik9(3).x = 851

wajik9(3).y = 157

Numwajik9 = 3

segitiga9 = CreatePolygonRgn(wajik9(1), Numwajik9, ALTERNATE)

'================================================================================9

ling91 = CreateEllipticRgn(780, 183.7, 798, 200.3)

ling92 = CreateEllipticRgn(774, 179, 802, 205)

CombineRgn ling92, ling92, ling91, 4

ling93 = CreateEllipticRgn(770, 182, 802, 215)

ling94 = CreateEllipticRgn(773, 177, 808, 219)

CombineRgn ling94, ling94, ling93, 4

CombineRgn ling94, ling94, ling92, 2

'===============================================================================9

Dim wajik99(1 To 3) As COORD, Numwajik99 As Long, hBwajik99 As Long, hRwajik99 As Long

wajik99(1).x = 832

wajik99(1).y = 187

wajik99(2).x = 813

wajik99(2).y = 157

wajik99(3).x = 851

wajik99(3).y = 157

Numwajik99 = 3

segitiga99 = CreatePolygonRgn(wajik99(1), Numwajik99, ALTERNATE)

CombineRgn segitiga9, segitiga9, segitiga99, 2

CombineRgn segitiga9, segitiga9, ling94, 2

'==================================================================================Wajik 9

'==================================================================================Wajik 10

Dim wajikX(1 To 3) As COORD, NumwajikX As Long, hBwajikX As Long, hRwajikX As Long

wajikX(1).x = 926

wajikX(1).y = 129

wajikX(2).x = 907

wajikX(2).y = 159

wajikX(3).x = 945

wajikX(3).y = 157

NumwajikX = 3

segitigaX = CreatePolygonRgn(wajikX(1), NumwajikX, ALTERNATE)

'===============================================================================10

ppjg101 = CreateRectRgn(862, 177.5, 879, 183)

ppjg102 = CreateRectRgn(871, 177.8, 878, 219.3)

CombineRgn ppjg102, ppjg102, ppjg101, 2

ling101 = CreateEllipticRgn(886, 186.6, 903, 209.9)

ling102 = CreateEllipticRgn(880, 177.5, 911, 219.3)

CombineRgn ling102, ling102, ling101, 4

CombineRgn ling102, ling102, ppjg102, 2

'==============================================================================10

Dim wajikXX(1 To 3) As COORD, NumwajikXX As Long, hBwajikXX As Long, hRwajikXX As Long

wajikXX(1).x = 926

wajikXX(1).y = 187

wajikXX(2).x = 907

wajikXX(2).y = 157

wajikXX(3).x = 945

wajikXX(3).y = 157

NumwajikXX = 3

segitigaXX = CreatePolygonRgn(wajikXX(1), NumwajikXX, ALTERNATE)

CombineRgn segitigaX, segitigaX, segitigaXX, 2

CombineRgn segitigaX, segitigaX, ling102, 2

'==================================================================================Wajik 10

'==================================================================================Wajik J

Dim wajikJ(1 To 3) As COORD, NumwajikJ As Long, hBwajikJ As Long, hRwajikJ As Long

wajikJ(1).x = 1022

wajikJ(1).y = 129

wajikJ(2).x = 1003

wajikJ(2).y = 159

wajikJ(3).x = 1041

wajikJ(3).y = 157

NumwajikJ = 3

segitigaJ = CreatePolygonRgn(wajikJ(1), NumwajikJ, ALTERNATE)

'==========================================================================J

ppjgj1 = CreateRectRgn(964, 177.5, 988, 182)

ppjgj2 = CreateRectRgn(980, 178, 987, 211)

CombineRgn ppjgj2, ppjgj2, ppjgj1, 2

lingj1 = CreateEllipticRgn(959, 193.5, 981, 214)

lingj2 = CreateEllipticRgn(962, 197.7, 988, 219.7)

CombineRgn lingj2, lingj2, lingj1, 4

CombineRgn lingj2, lingj2, ppjgj2, 2

'=========================================================================J

Dim wajikJJ(1 To 3) As COORD, NumwajikJJ As Long, hBwajikJJ As Long, hRwajikJJ As Long

wajikJJ(1).x = 1022

wajikJJ(1).y = 187

wajikJJ(2).x = 1003

wajikJJ(2).y = 157

wajikJJ(3).x = 1041

wajikJJ(3).y = 157

NumwajikJJ = 3

segitigaJJ = CreatePolygonRgn(wajikJJ(1), NumwajikJJ, ALTERNATE)

CombineRgn segitigaJ, segitigaJ, segitigaJJ, 2

CombineRgn segitigaJ, segitigaJ, lingj2, 2

'==================================================================================Wajik J

'==================================================================================Wajik Q

Dim wajikQ(1 To 3) As COORD, NumwajikQ As Long, hBwajikQ As Long, hRwajikQ As Long

wajikQ(1).x = 1117

wajikQ(1).y = 129

wajikQ(2).x = 1098

wajikQ(2).y = 159

wajikQ(3).x = 1136

wajikQ(3).y = 157

NumwajikQ = 3

segitigaQ = CreatePolygonRgn(wajikQ(1), NumwajikQ, ALTERNATE)

'========================================================================Q

lingq1 = CreateEllipticRgn(1055, 184, 1079, 206)

lingq2 = CreateEllipticRgn(1049, 177, 1084, 213)

CombineRgn lingq2, lingq2, lingq1, 4

lingq3 = CreateEllipticRgn(1074, 193, 1098, 215.5)

lingq4 = CreateEllipticRgn(1070, 197, 1093, 219)

CombineRgn lingq4, lingq4, lingq3, 4

CombineRgn lingq4, lingq4, lingq2, 2

'=======================================================================Q

Dim wajikQQ(1 To 3) As COORD, NumwajikQQ As Long, hBwajikQQ As Long, hRwajikQQ As Long

wajikQQ(1).x = 1117

wajikQQ(1).y = 187

wajikQQ(2).x = 1098

wajikQQ(2).y = 157

wajikQQ(3).x = 1136

wajikQQ(3).y = 157

NumwajikQQ = 3

segitigaQQ = CreatePolygonRgn(wajikQQ(1), NumwajikQQ, ALTERNATE)

CombineRgn segitigaQ, segitigaQ, segitigaQQ, 2

CombineRgn segitigaQ, segitigaQ, lingq4, 2

'==================================================================================Wajik Q

'==================================================================================Wajik K

Dim wajikK(1 To 3) As COORD, NumwajikK As Long, hBwajikK As Long, hRwajikK As Long

wajikK(1).x = 1211

wajikK(1).y = 129

wajikK(2).x = 1192

wajikK(2).y = 159

wajikK(3).x = 1230

wajikK(3).y = 157

NumwajikK = 3

segitigaK = CreatePolygonRgn(wajikK(1), NumwajikK, ALTERNATE)

Dim wajikKK(1 To 3) As COORD, NumwajikKK As Long, hBwajikKK As Long, hRwajikKK As Long

wajikKK(1).x = 1211

wajikKK(1).y = 187

wajikKK(2).x = 1192

wajikKK(2).y = 157

wajikKK(3).x = 1230

wajikKK(3).y = 157

NumwajikKK = 3

segitigaKK = CreatePolygonRgn(wajikKK(1), NumwajikKK, ALTERNATE)

CombineRgn segitigaK, segitigaK, segitigaKK, 2

'--angkak love start

ppjgk1w = CreateRectRgn(1149, 178, 1155, 220)

Dim slkh1w(1 To 3) As COORD, Nslkh1w As Long, hslkh1w As Long, rslkh1w As Long

slkh1w(1).x = 1156

slkh1w(1).y = 191

slkh1w(2).x = 1156

slkh1w(2).y = 176

slkh1w(3).x = 1173

slkh1w(3).y = 176

Nslkh1w = 3

selkh1w = CreatePolygonRgn(slkh1w(1), Nslkh1w, ALTERNATE)

Dim slkh2w(1 To 3) As COORD, Nslkh2w As Long, hslkh2w As Long, rslkh2w As Long

slkh2w(1).x = 1154

slkh2w(1).y = 199

slkh2w(2).x = 1154

slkh2w(2).y = 178

slkh2w(3).x = 1178

slkh2w(3).y = 178

Nslkh2w = 3

selkh2w = CreatePolygonRgn(slkh2w(1), Nslkh2w, ALTERNATE)

CombineRgn selkh2w, selkh2w, selkh1w, 4

Dim slkh3w(1 To 3) As COORD, Nslkh3w As Long, hslkh3w As Long, rslkh3w As Long

slkh3w(1).x = 1156

slkh3w(1).y = 205

slkh3w(2).x = 1156

slkh3w(2).y = 221

slkh3w(3).x = 1175

slkh3w(3).y = 221

Nslkh3w = 3

selkh3w = CreatePolygonRgn(slkh3w(1), Nslkh3w, ALTERNATE)

Dim slkh4w(1 To 3) As COORD, Nslkh4w As Long, hslkh4w As Long, rslkh4w As Long

slkh4w(1).x = 1154

slkh4w(1).y = 198

slkh4w(2).x = 1154

slkh4w(2).y = 219

slkh4w(3).x = 1178

slkh4w(3).y = 219

Nslkh4w = 3

selkh4w = CreatePolygonRgn(slkh4w(1), Nslkh4w, ALTERNATE)

CombineRgn selkh4w, selkh4w, selkh3w, 4

CombineRgn selkh4w, selkh4w, selkh2w, 2

CombineRgn selkh4w, selkh4w, ppjgk1w, 2

'--angkak love end

CombineRgn segitigaK, selkh4w, segitigaK, 2

'==================================================================================Wajik K

'==================================================================================seluruh wajik

CombineRgn segitiga1, segitiga1, segitiga2, 2 'KOMBINASI wajik 1-2

CombineRgn segitiga3, segitiga3, segitiga4, 2 'KOMBINASI wajik 3-4

CombineRgn segitiga5, segitiga5, segitiga6, 2 'KOMBINASI wajik 5-6

CombineRgn segitiga7, segitiga7, segitiga8, 2 'KOMBINASI wajik 7-8

CombineRgn segitiga9, segitiga9, segitigaX, 2 'KOMBINASI wajik 9-10

CombineRgn segitigaJ, segitigaJ, segitigaQ, 2 'KOMBINASI wajik J-Q

CombineRgn segitiga1, segitiga1, segitiga3, 2 'KOMBINASI wajik 1-4

CombineRgn segitiga5, segitiga5, segitiga7, 2 'KOMBINASI wajik 5-8

CombineRgn segitiga9, segitiga9, segitigaJ, 2 'KOMBINASI wajik 9-Q

CombineRgn segitiga1, segitiga1, segitiga5, 2 'KOMBINASI wajik 1-8

CombineRgn segitiga9, segitiga9, segitigaK, 2 'KOMBINASI wajik 9-K

CombineRgn segitiga1, segitiga1, segitiga9, 2

'==================================================================================seluruh wajik

'==GABUNGAN MERAH WAJIK END==

'------------------------------merah end

'------------------------------hitam

'==GABUNGAN HITAM WARU DAN KERITING START=================

'------------------------------------------------------- Waru as

l1 = CreateEllipticRgn(41, 277, 64, 300)

l2 = CreateEllipticRgn(63, 277, 86, 300)

CombineRgn l1, l1, l2, 2

Dim poly(1 To 3) As COORD, NumCoords As Long, hBrush As Long, hRgn As Long

poly(1).x = 63.5

poly(1).y = 252

poly(2).x = 41

poly(2).y = 287

poly(3).x = 86

poly(3).y = 287

NumCoords = 3

segitigaaku = CreatePolygonRgn(poly(1), NumCoords, ALTERNATE)

CombineRgn segitigaaku, segitigaaku, l1, 2

Dim poly1(1 To 3) As COORD, NumCoords4 As Long, hBrush4 As Long, hRgn4 As Long

poly1(1).x = 64

poly1(1).y = 286

poly1(2).x = 56

poly1(2).y = 311

poly1(3).x = 72

poly1(3).y = 311

NumCoords4 = 3

segitigaaku1 = CreatePolygonRgn(poly1(1), NumCoords4, ALTERNATE)

CombineRgn segitigaaku, segitigaaku1, segitigaaku, 2

'----------------------------------------------------------------------------------- as

Dim pol1(1 To 3) As COORD, NumCoords1 As Long, hBrush1 As Long, hRgn1 As Long

pol1(1).x = 32

pol1(1).y = 303

pol1(2).x = 5

pol1(2).y = 345

pol1(3).x = 59

pol1(3).y = 345

NumCoords1 = 3

segita1 = CreatePolygonRgn(pol1(1), NumCoords1, ALTERNATE)

Dim pol2(1 To 3) As COORD, NumCoords2 As Long, hBrush2 As Long, hRgn2 As Long

pol2(1).x = 33

pol2(1).y = 319

pol2(2).x = 6

pol2(2).y = 361

pol2(3).x = 60

pol2(3).y = 361

NumCoords2 = 3

segita2 = CreatePolygonRgn(pol2(1), NumCoords2, ALTERNATE)

balokas = CreateRectRgn(20, 329, 44, 336)

CombineRgn segita1, segita1, segita2, 4

CombineRgn segita1, segita1, balokas, 2

CombineRgn segitigaaku, segitigaaku, segita1, 2

'----------------------------------------------------------------------- waru 2

l3 = CreateEllipticRgn(138, 277, 161, 300)

l4 = CreateEllipticRgn(160, 277, 183, 300)

CombineRgn l3, l3, l4, 2

Dim p1(1 To 3) As COORD, NumCoords5 As Long, hBrush5 As Long, hRgn5 As Long

p1(1).x = 160.5

p1(1).y = 252

p1(2).x = 138

p1(2).y = 287

p1(3).x = 183

p1(3).y = 287

NumCoords5 = 3

s1 = CreatePolygonRgn(p1(1), NumCoords5, ALTERNATE)

CombineRgn s1, s1, l3, 2

Dim p2(1 To 3) As COORD, NumCoords6 As Long, hBrush6 As Long, hRgn6 As Long

p2(1).x = 161

p2(1).y = 286

p2(2).x = 153

p2(2).y = 311

p2(3).x = 169

p2(3).y = 311

NumCoords6 = 3

s2 = CreatePolygonRgn(p2(1), NumCoords6, ALTERNATE)

CombineRgn s2, s1, s2, 2

'----------------------------------------------------------------------- 2

l5 = CreateEllipticRgn(106.1, 303.1, 149, 340.9)

l6 = CreateEllipticRgn(113.2, 309.2, 138.8, 334.8)

CombineRgn l5, l5, l6, 4

b1 = CreateRectRgn(121, 335, 150, 344)

CombineRgn b1, l5, b1, 2

b2 = CreateRectRgn(102, 300, 122, 345)

CombineRgn b2, b1, b2, 4

CombineRgn s2, s2, b2, 2

'----------------------------------------------------------------------- waru 3

l7 = CreateEllipticRgn(232, 277, 255, 300)

l8 = CreateEllipticRgn(254, 277, 277, 300)

CombineRgn l7, l7, l8, 2

Dim p3(1 To 3) As COORD, NumCoords7 As Long, hBrush7 As Long, hRgn7 As Long

p3(1).x = 254.5

p3(1).y = 252

p3(2).x = 232

p3(2).y = 287

p3(3).x = 277

p3(3).y = 287

NumCoords7 = 3

s3 = CreatePolygonRgn(p3(1), NumCoords7, ALTERNATE)

CombineRgn s3, s3, l7, 2

Dim p4(1 To 3) As COORD, NumCoords8 As Long, hBrush8 As Long, hRgn8 As Long

p4(1).x = 255

p4(1).y = 286

p4(2).x = 247

p4(2).y = 311

p4(3).x = 263

p4(3).y = 311

NumCoords8 = 3

s4 = CreatePolygonRgn(p4(1), NumCoords8, ALTERNATE)

CombineRgn s4, s4, s3, 2

'---------------------------------------------------------------------- 3

l9 = CreateEllipticRgn(204.9, 303, 231.1, 324.9)

l10 = CreateEllipticRgn(189, 304.9, 224.6, 322.1)

CombineRgn l10, l9, l10, 4

l11 = CreateEllipticRgn(201.2, 317.3, 233, 344)

l12 = CreateEllipticRgn(192.8, 320.2, 224.6, 339.2)

CombineRgn l11, l11, l12, 4

CombineRgn l10, l11, l10, 2

CombineRgn s4, l10, s4, 2

'----------------------------------------------------------------------- waru 4

l13 = CreateEllipticRgn(328, 277, 351, 300)

l14 = CreateEllipticRgn(350, 277, 373, 300)

CombineRgn l13, l13, l14, 2

Dim p5(1 To 3) As COORD, NumCoords9 As Long, hBrush9 As Long, hRgn9 As Long

p5(1).x = 350.5

p5(1).y = 252

p5(2).x = 328

p5(2).y = 287

p5(3).x = 373

p5(3).y = 287

NumCoords9 = 3

s5 = CreatePolygonRgn(p5(1), NumCoords9, ALTERNATE)

CombineRgn s5, s5, l13, 2

Dim p6(1 To 3) As COORD, NumCoords10 As Long, hBrush10 As Long, hRgn10 As Long

p6(1).x = 351

p6(1).y = 286

p6(2).x = 343

p6(2).y = 311

p6(3).x = 359

p6(3).y = 311

NumCoords10 = 3

s6 = CreatePolygonRgn(p6(1), NumCoords10, ALTERNATE)

CombineRgn s6, s6, s5, 2

'---------------------------------------------------------------------- 4

b3 = CreateRectRgn(324, 303, 330, 343)

b4 = CreateRectRgn(305, 320, 328, 326)

CombineRgn b4, b4, b3, 2

b5 = CreateRectRgn(303, 303, 309, 326)

CombineRgn b5, b4, b5, 2

CombineRgn s6, s6, b5, 2

'----------------------------------------------------------------------- waru 5

l15 = CreateEllipticRgn(423, 277, 446, 300)

l16 = CreateEllipticRgn(445, 277, 468, 300)

CombineRgn l16, l16, l15, 2

Dim p7(1 To 3) As COORD, NumCoords11 As Long, hBrush11 As Long, hRgn11 As Long

p7(1).x = 445.5

p7(1).y = 252

p7(2).x = 423

p7(2).y = 287

p7(3).x = 468

p7(3).y = 287

NumCoords9 = 3

s7 = CreatePolygonRgn(p7(1), NumCoords9, ALTERNATE)

CombineRgn s7, s7, l16, 2

Dim p8(1 To 3) As COORD, NumCoords12 As Long, hBrush12 As Long, hRgn12 As Long

p8(1).x = 446

p8(1).y = 286

p8(2).x = 438

p8(2).y = 311

p8(3).x = 454

p8(3).y = 311

NumCoords10 = 3

s8 = CreatePolygonRgn(p8(1), NumCoords10, ALTERNATE)

CombineRgn s8, s8, s7, 2

'---------------------------------------------------------------------- 5

l17 = CreateEllipticRgn(392, 315, 427, 344)

l18 = CreateEllipticRgn(390, 320, 421, 339)

CombineRgn l17, l17, l18, 4

b6 = CreateRectRgn(395, 304, 402, 323)

b7 = CreateRectRgn(395, 303, 424, 310)

CombineRgn b6, b7, b6, 2

CombineRgn b6, b6, l17, 2

CombineRgn s8, s8, b6, 2

'----------------------------------------------------------------------- waru 6

l19 = CreateEllipticRgn(518, 277, 541, 300)

l20 = CreateEllipticRgn(540, 277, 563, 300)

CombineRgn l20, l19, l20, 2

Dim p9(1 To 3) As COORD, NumCoords13 As Long, hBrush13 As Long, hRgn13 As Long

p9(1).x = 540

p9(1).y = 252

p9(2).x = 518

p9(2).y = 287

p9(3).x = 563

p9(3).y = 287

NumCoords13 = 3

s9 = CreatePolygonRgn(p9(1), NumCoords13, ALTERNATE)

CombineRgn s9, s9, l20, 2

Dim p10(1 To 3) As COORD, NumCoords14 As Long, hBrush14 As Long, hRgn14 As Long

p10(1).x = 541

p10(1).y = 286

p10(2).x = 533

p10(2).y = 311

p10(3).x = 549

p10(3).y = 311

NumCoords14 = 3

s10 = CreatePolygonRgn(p10(1), NumCoords14, ALTERNATE)

CombineRgn s10, s10, s9, 2

'---------------------------------------------------------------------- 6

l21 = CreateEllipticRgn(485, 302, 520, 344)

l22 = CreateEllipticRgn(491, 306, 523, 339)

CombineRgn l22, l21, l22, 4

l23 = CreateEllipticRgn(491, 316, 519, 342)

l24 = CreateEllipticRgn(495.7, 320.7, 513.4, 337.3)

CombineRgn l23, l23, l24, 4

CombineRgn l23, l23, l22, 2

CombineRgn s10, s10, l23, 2

'----------------------------------------------------------------------- waru 7

l25 = CreateEllipticRgn(612, 277, 635, 300)

l26 = CreateEllipticRgn(634, 277, 657, 300)

CombineRgn l25, l25, l26, 2

Dim p11(1 To 3) As COORD, NumCoords15 As Long, hBrush15 As Long, hRgn15 As Long

p11(1).x = 634.5

p11(1).y = 252

p11(2).x = 612

p11(2).y = 287

p11(3).x = 657

p11(3).y = 287

NumCoords15 = 3

s11 = CreatePolygonRgn(p11(1), NumCoords15, ALTERNATE)

CombineRgn s11, s11, l25, 2

Dim p12(1 To 3) As COORD, NumCoords16 As Long, hBrush16 As Long, hRgn16 As Long

p12(1).x = 635

p12(1).y = 286

p12(2).x = 627

p12(2).y = 311

p12(3).x = 643

p12(3).y = 311

NumCoords16 = 3

s12 = CreatePolygonRgn(p12(1), NumCoords16, ALTERNATE)

CombineRgn s12, s12, s11, 2

'---------------------------------------------------------------------- 7

b8 = CreateRectRgn(585.3, 302.5, 610.7, 308.7)

b9 = CreateRectRgn(595, 323.3, 619, 328.3)

CombineRgn b9, b9, b8, 2

b10 = CreateRectRgn(603, 302.5, 610.3, 344)

CombineRgn b10, b10, b9, 2

CombineRgn s12, s12, b10, 2

'----------------------------------------------------------------------- waru 8

l27 = CreateEllipticRgn(707, 277, 730, 300)

l28 = CreateEllipticRgn(729, 277, 752, 300)

CombineRgn l28, l28, l27, 2

Dim p13(1 To 3) As COORD, NumCoords17 As Long, hBrush17 As Long, hRgn17 As Long

p13(1).x = 729.5

p13(1).y = 252

p13(2).x = 707

p13(2).y = 287

p13(3).x = 752

p13(3).y = 287

NumCoords17 = 3

s13 = CreatePolygonRgn(p13(1), NumCoords17, ALTERNATE)

CombineRgn s13, s13, l28, 2

Dim p14(1 To 3) As COORD, NumCoords18 As Long, hBrush18 As Long, hRgn18 As Long

p14(1).x = 730

p14(1).y = 286

p14(2).x = 722

p14(2).y = 311

p14(3).x = 738

p14(3).y = 311

NumCoords18 = 3

s14 = CreatePolygonRgn(p14(1), NumCoords18, ALTERNATE)

CombineRgn s14, s14, s13, 2

'---------------------------------------------------------------------- 8

l29 = CreateEllipticRgn(673.28, 317.91, 707, 344)

l30 = CreateEllipticRgn(678, 322.28, 702, 339)

CombineRgn l30, l29, l30, 4

l31 = CreateEllipticRgn(677, 302.5, 703, 327)

l32 = CreateEllipticRgn(682.16, 307.25, 697, 321)

CombineRgn l31, l31, l32, 4

CombineRgn l31, l31, l30, 2

CombineRgn s14, s14, l31, 2

'----------------------------------------------------------------------- waru 9

l33 = CreateEllipticRgn(801, 277, 824, 300)

l34 = CreateEllipticRgn(823, 277, 846, 300)

CombineRgn l34, l34, l33, 2

Dim p15(1 To 3) As COORD, NumCoords19 As Long, hBrush19 As Long, hRgn19 As Long

p15(1).x = 823.5

p15(1).y = 252

p15(2).x = 801

p15(2).y = 287

p15(3).x = 846

p15(3).y = 287

NumCoords19 = 3

s15 = CreatePolygonRgn(p15(1), NumCoords19, ALTERNATE)

CombineRgn s15, s15, l34, 2

Dim p16(1 To 3) As COORD, NumCoords20 As Long, hBrush20 As Long, hRgn20 As Long

p16(1).x = 824

p16(1).y = 286

p16(2).x = 816

p16(2).y = 311

p16(3).x = 832

p16(3).y = 311

NumCoords20 = 3

s16 = CreatePolygonRgn(p16(1), NumCoords20, ALTERNATE)

CombineRgn s16, s16, s15, 2

'---------------------------------------------------------------------- 9

l35 = CreateEllipticRgn(771, 302, 806, 344)

l36 = CreateEllipticRgn(768, 307, 800, 340)

CombineRgn l35, l35, l36, 4

l37 = CreateEllipticRgn(772, 304, 800, 330)

l38 = CreateEllipticRgn(777.59, 308.66, 796, 326)

CombineRgn l37, l37, l38, 4

CombineRgn l37, l37, l35, 2

CombineRgn s16, s16, l37, 2

'----------------------------------------------------------------------- waru 10

l39 = CreateEllipticRgn(898, 277, 921, 300)

l40 = CreateEllipticRgn(920, 277, 943, 300)

CombineRgn l39, l39, l40, 2

Dim p17(1 To 3) As COORD, NumCoords21 As Long, hBrush21 As Long, hRgn21 As Long

p17(1).x = 920.5

p17(1).y = 252

p17(2).x = 898

p17(2).y = 287

p17(3).x = 943

p17(3).y = 287

NumCoords21 = 3

s17 = CreatePolygonRgn(p17(1), NumCoords21, ALTERNATE)

CombineRgn s17, s17, l39, 2

Dim p18(1 To 3) As COORD, NumCoords22 As Long, hBrush22 As Long, hRgn22 As Long

p18(1).x = 920

p18(1).y = 286

p18(2).x = 912

p18(2).y = 311

p18(3).x = 928

p18(3).y = 311

NumCoords22 = 3

s18 = CreatePolygonRgn(p18(1), NumCoords22, ALTERNATE)

CombineRgn s18, s18, s17, 2

'---------------------------------------------------------------------- 10

b11 = CreateRectRgn(869, 302.84, 876, 345)

b12 = CreateRectRgn(859.5, 302.5, 877, 309)

CombineRgn b11, b11, b12, 2

l41 = CreateEllipticRgn(877.66, 303, 909, 345)

l42 = CreateEllipticRgn(884, 312, 901, 335)

CombineRgn l41, l41, l42, 4

CombineRgn b11, b11, l41, 2

CombineRgn s18, s18, b11, 2

'----------------------------------------------------------------------- waru j

l43 = CreateEllipticRgn(992, 277, 1015, 300)

l44 = CreateEllipticRgn(1014, 277, 1037, 300)

CombineRgn l43, l43, l44, 2

Dim p19(1 To 3) As COORD, NumCoords23 As Long, hBrush23 As Long, hRgn23 As Long

p19(1).x = 1014.5

p19(1).y = 252

p19(2).x = 992

p19(2).y = 287

p19(3).x = 1037

p19(3).y = 287

NumCoords23 = 3

s19 = CreatePolygonRgn(p19(1), NumCoords23, ALTERNATE)

CombineRgn s19, s19, l43, 2

Dim p20(1 To 3) As COORD, NumCoords24 As Long, hBrush24 As Long, hRgn24 As Long

p20(1).x = 1015

p20(1).y = 286

p20(2).x = 1007

p20(2).y = 311

p20(3).x = 1023

p20(3).y = 311

NumCoords24 = 3

s20 = CreatePolygonRgn(p20(1), NumCoords24, ALTERNATE)

CombineRgn s20, s20, s19, 2

'---------------------------------------------------------------------- j

b13 = CreateRectRgn(978.34, 303.06, 985, 336)

b14 = CreateRectRgn(961.72, 302.5, 986, 308)

CombineRgn b14, b14, b13, 2

l45 = CreateEllipticRgn(960, 322.66, 986, 345)

l46 = CreateEllipticRgn(956.81, 318.5, 979, 340)

CombineRgn l46, l45, l46, 4

CombineRgn b14, b14, l46, 2

CombineRgn s20, s20, b14, 2

'----------------------------------------------------------------------- waru q

l47 = CreateEllipticRgn(1088, 277, 1111, 300)

l48 = CreateEllipticRgn(1110, 277, 1133, 300)

CombineRgn l47, l48, l47, 2

Dim p21(1 To 3) As COORD, NumCoords25 As Long, hBrush25 As Long, hRgn25 As Long

p21(1).x = 1110.5

p21(1).y = 252

p21(2).x = 1088

p21(2).y = 287

p21(3).x = 1133

p21(3).y = 287

NumCoords25 = 3

s21 = CreatePolygonRgn(p21(1), NumCoords25, ALTERNATE)

CombineRgn s21, s21, l47, 2

Dim p22(1 To 3) As COORD, NumCoords26 As Long, hBrush26 As Long, hRgn26 As Long

p22(1).x = 1111

p22(1).y = 286

p22(2).x = 1103

p22(2).y = 311

p22(3).x = 1119

p22(3).y = 311

NumCoords26 = 3

s22 = CreatePolygonRgn(p22(1), NumCoords26, ALTERNATE)

CombineRgn s22, s22, s21, 2

'---------------------------------------------------------------------- q

l49 = CreateEllipticRgn(1047.19, 302.16, 1082, 338)

l50 = CreateEllipticRgn(1053, 309, 1077, 331)

CombineRgn l50, l49, l50, 4

l51 = CreateEllipticRgn(1067.56, 322, 1091, 344)

l52 = CreateEllipticRgn(1071.72, 318.44, 1096, 340)

CombineRgn l52, l51, l52, 4

CombineRgn l52, l52, l50, 2

CombineRgn s22, s22, l52, 2

'----------------------------------------------------------------------- waru k

l53 = CreateEllipticRgn(1182, 277, 1205, 300)

l54 = CreateEllipticRgn(1204, 277, 1227, 300)

CombineRgn l53, l54, l53, 2

Dim p24(1 To 3) As COORD, NumCoords27 As Long, hBrush27 As Long, hRgn27 As Long

p24(1).x = 1204.5

p24(1).y = 252

p24(2).x = 1182

p24(2).y = 287

p24(3).x = 1227

p24(3).y = 287

NumCoords27 = 3

s24 = CreatePolygonRgn(p24(1), NumCoords27, ALTERNATE)

CombineRgn s24, s24, l53, 2

Dim p25(1 To 3) As COORD, NumCoords28 As Long, hBrush28 As Long, hRgn28 As Long

p25(1).x = 1205

p25(1).y = 286

p25(2).x = 1197

p25(2).y = 311

p25(3).x = 1213

p25(3).y = 311

NumCoords28 = 3

s25 = CreatePolygonRgn(p25(1), NumCoords28, ALTERNATE)

CombineRgn s25, s25, s24, 2

'---------------------------------------------------------------------- k

Dim p26(1 To 3) As COORD, NumCoords29 As Long, hBrush29 As Long, hRgn29 As Long

p26(1).x = 1152

p26(1).y = 324

p26(2).x = 1152

p26(2).y = 303

p26(3).x = 1176

p26(3).y = 303

NumCoords29 = 3

s26 = CreatePolygonRgn(p26(1), NumCoords29, ALTERNATE)

Dim p27(1 To 3) As COORD, NumCoords30 As Long, hBrush30 As Long, hRgn30 As Long

p27(1).x = 1154

p27(1).y = 316

p27(2).x = 1154

p27(2).y = 301

p27(3).x = 1171

p27(3).y = 301

NumCoords30 = 3

s27 = CreatePolygonRgn(p27(1), NumCoords30, ALTERNATE)

CombineRgn s26, s26, s27, 4

Dim p28(1 To 3) As COORD, NumCoords31 As Long, hBrush31 As Long, hRgn31 As Long

p28(1).x = 1152

p28(1).y = 323

p28(2).x = 1152

p28(2).y = 344

p28(3).x = 1176

p28(3).y = 344

NumCoords31 = 3

s28 = CreatePolygonRgn(p28(1), NumCoords31, ALTERNATE)

Dim p29(1 To 3) As COORD, NumCoords32 As Long, hBrush32 As Long, hRgn32 As Long

p29(1).x = 1154

p29(1).y = 330

p29(2).x = 1154

p29(2).y = 346

p29(3).x = 1173

p29(3).y = 346

NumCoords32 = 3

s29 = CreatePolygonRgn(p29(1), NumCoords32, ALTERNATE)

CombineRgn s29, s28, s29, 4

CombineRgn s29, s29, s26, 2

b15 = CreateRectRgn(1147, 302.5, 1153, 345)

CombineRgn s29, b15, s29, 2

CombineRgn s25, s25, s29, 2

'------------------------------------------------------------------------------o

'--------------------------------------------------------------------------------o

'------------------------------------------------------------------------------o

'------------------------------------------------------- Keriting as

le1 = CreateEllipticRgn(41, 396, 64, 419)

le2 = CreateEllipticRgn(52, 382, 75, 405)

CombineRgn le2, le1, le2, 2

le3 = CreateEllipticRgn(63, 396, 86, 419)

CombineRgn le2, le3, le2, 2

Dim po1(1 To 3) As COORD, NumCoords51 As Long, hBrush51 As Long, hRgn51 As Long

po1(1).x = 64

po1(1).y = 405

po1(2).x = 56

po1(2).y = 430

po1(3).x = 72

po1(3).y = 430

NumCoords51 = 3

seg1 = CreatePolygonRgn(po1(1), NumCoords51, ALTERNATE)

CombineRgn seg1, seg1, le2, 2

'----------------------------------------------------------------------------- as

Dim po2(1 To 3) As COORD, NumCoords52 As Long, hBrush52 As Long, hRgn52 As Long

po2(1).x = 32

po2(1).y = 432

po2(2).x = 5

po2(2).y = 474

po2(3).x = 59

po2(3).y = 474

NumCoords52 = 3

seg2 = CreatePolygonRgn(po2(1), NumCoords52, ALTERNATE)

Dim po3(1 To 3) As COORD, NumCoords53 As Long, hBrush53 As Long, hRgn53 As Long

po3(1).x = 33

po3(1).y = 448

po3(2).x = 6

po3(2).y = 490

po3(3).x = 60

po3(3).y = 490

NumCoords53 = 3

seg3 = CreatePolygonRgn(po3(1), NumCoords53, ALTERNATE)

CombineRgn seg3, seg2, seg3, 4

balokas2 = CreateRectRgn(20, 458, 44, 465)

CombineRgn seg1, seg1, balokas2, 2

CombineRgn seg1, seg1, seg3, 2

CombineRgn segitigaaku, segitigaaku, segita1, 2

'------------------------------------------------------- Keriting 2

le4 = CreateEllipticRgn(138, 396, 161, 419)

le5 = CreateEllipticRgn(149, 382, 172, 405)

CombineRgn le5, le4, le5, 2

le6 = CreateEllipticRgn(160, 396, 183, 419)

CombineRgn le6, le5, le6, 2

Dim po4(1 To 3) As COORD, NumCoords54 As Long, hBrush54 As Long, hRgn54 As Long

po4(1).x = 161

po4(1).y = 405

po4(2).x = 153

po4(2).y = 430

po4(3).x = 169

po4(3).y = 430

NumCoords54 = 3

seg4 = CreatePolygonRgn(po4(1), NumCoords54, ALTERNATE)

CombineRgn seg4, seg4, le6, 2

'----------------------------------------------------------------------- 2

le7 = CreateEllipticRgn(106.9, 432.06, 149, 470)

le8 = CreateEllipticRgn(113.22, 438.22, 139, 464)

CombineRgn le8, le7, le8, 4

be1 = CreateRectRgn(121, 464, 150, 473)

CombineRgn be1, le8, be1, 2

be2 = CreateRectRgn(102, 429, 122, 474)

CombineRgn be2, be1, be2, 4

CombineRgn seg4, seg4, be2, 2

'------------------------------------------------------- Keriting 3

le9 = CreateEllipticRgn(232, 396, 255, 419)

le10 = CreateEllipticRgn(243, 382, 266, 405)

CombineRgn le9, le9, le10, 2

le11 = CreateEllipticRgn(254, 396, 277, 419)

CombineRgn le11, le9, le11, 2

Dim po5(1 To 3) As COORD, NumCoords55 As Long, hBrush55 As Long, hRgn55 As Long

po5(1).x = 255

po5(1).y = 405

po5(2).x = 247

po5(2).y = 430

po5(3).x = 263

po5(3).y = 430

NumCoords55 = 3

seg5 = CreatePolygonRgn(po5(1), NumCoords55, ALTERNATE)

CombineRgn seg5, seg5, le11, 2

'---------------------------------------------------------------------- 3

le12 = CreateEllipticRgn(204.91, 432, 231, 454)

le13 = CreateEllipticRgn(189, 433.91, 225, 451)

CombineRgn le13, le12, le13, 4

le14 = CreateEllipticRgn(201.16, 446.31, 233, 473)

le15 = CreateEllipticRgn(192.75, 449, 225, 468)

CombineRgn le15, le14, le15, 4

CombineRgn le15, le15, le13, 2

CombineRgn seg5, seg5, le15, 2

'------------------------------------------------------- Keriting 4

le16 = CreateEllipticRgn(328, 396, 351, 419)

le17 = CreateEllipticRgn(339, 382, 362, 405)

CombineRgn le16, le16, le17, 2

le18 = CreateEllipticRgn(350, 396, 373, 419)

CombineRgn le18, le18, le16, 2

Dim po6(1 To 3) As COORD, NumCoords56 As Long, hBrush56 As Long, hRgn56 As Long

po6(1).x = 351

po6(1).y = 405

po6(2).x = 343

po6(2).y = 430

po6(3).x = 359

po6(3).y = 430

NumCoords56 = 3

seg6 = CreatePolygonRgn(po6(1), NumCoords56, ALTERNATE)

CombineRgn seg6, seg6, le18, 2

'---------------------------------------------------------------------- 4

be3 = CreateRectRgn(324, 432, 330, 472)

be4 = CreateRectRgn(305, 449, 328, 455)

CombineRgn be4, be4, be3, 2

be5 = CreateRectRgn(303, 432, 309, 455)

CombineRgn be5, be4, be5, 2

CombineRgn seg6, seg6, be5, 2

'------------------------------------------------------- Keriting 5

le19 = CreateEllipticRgn(423, 396, 446, 419)

le20 = CreateEllipticRgn(434, 382, 457, 405)

CombineRgn le20, le19, le20, 2

le21 = CreateEllipticRgn(445, 396, 468, 419)

CombineRgn le21, le20, le21, 2

Dim po7(1 To 3) As COORD, NumCoords57 As Long, hBrush57 As Long, hRgn57 As Long

po7(1).x = 446

po7(1).y = 405

po7(2).x = 438

po7(2).y = 430

po7(3).x = 454

po7(3).y = 430

NumCoords57 = 3

seg7 = CreatePolygonRgn(po7(1), NumCoords57, ALTERNATE)

CombineRgn seg7, seg7, le21, 2

'---------------------------------------------------------------------- 5

le22 = CreateEllipticRgn(392, 444, 427, 473)

le23 = CreateEllipticRgn(390, 449, 421, 468)

CombineRgn le22, le22, le23, 4

be6 = CreateRectRgn(395, 433, 402, 452)

be7 = CreateRectRgn(395, 432, 424, 439)

CombineRgn be6, be7, be6, 2

CombineRgn be6, be6, le22, 2

CombineRgn seg7, seg7, be6, 2

'------------------------------------------------------- Keriting 6

le24 = CreateEllipticRgn(518, 396, 541, 419)

le25 = CreateEllipticRgn(530, 382, 553, 405)

CombineRgn le24, le24, le25, 2

le26 = CreateEllipticRgn(540, 396, 563, 419)

CombineRgn le26, le24, le26, 2

Dim po8(1 To 3) As COORD, NumCoords58 As Long, hBrush58 As Long, hRgn58 As Long

po8(1).x = 541

po8(1).y = 405

po8(2).x = 533

po8(2).y = 430

po8(3).x = 549

po8(3).y = 430

NumCoords58 = 3

seg8 = CreatePolygonRgn(po8(1), NumCoords58, ALTERNATE)

CombineRgn seg8, seg8, le26, 2

'---------------------------------------------------------------------- 6

le27 = CreateEllipticRgn(485, 431, 520, 473)

le28 = CreateEllipticRgn(491, 435, 523, 468)

CombineRgn le27, le27, le28, 4

le29 = CreateEllipticRgn(491, 445, 519, 471)

le30 = CreateEllipticRgn(495.6, 449.66, 514, 467)

CombineRgn le29, le29, le30, 4

CombineRgn le29, le29, le27, 2

CombineRgn seg8, seg8, le29, 2

'------------------------------------------------------- Keriting 7

le31 = CreateEllipticRgn(612, 396, 635, 419)

le32 = CreateEllipticRgn(623, 382, 646, 405)

CombineRgn le32, le32, le31, 2

le33 = CreateEllipticRgn(634, 396, 657, 419)

CombineRgn le33, le33, le32, 2

Dim po9(1 To 3) As COORD, NumCoords59 As Long, hBrush59 As Long, hRgn59 As Long

po9(1).x = 635

po9(1).y = 405

po9(2).x = 627

po9(2).y = 430

po9(3).x = 643

po9(3).y = 430

NumCoords59 = 3

seg9 = CreatePolygonRgn(po9(1), NumCoords59, ALTERNATE)

CombineRgn seg9, seg9, le33, 2

'---------------------------------------------------------------------- 7

be8 = CreateRectRgn(585.34, 431.5, 610, 438)

be9 = CreateRectRgn(595, 452.34, 619, 457)

CombineRgn be9, be9, be8, 2

be10 = CreateRectRgn(603, 432, 610, 474)

CombineRgn be10, be10, be9, 2

CombineRgn seg9, seg9, be10, 2

'------------------------------------------------------- Keriting 8

le34 = CreateEllipticRgn(707, 396, 730, 419)

le35 = CreateEllipticRgn(718, 382, 741, 405)

CombineRgn le35, le34, le35, 2

le36 = CreateEllipticRgn(729, 396, 752, 419)

CombineRgn le36, le36, le35, 2

Dim po10(1 To 3) As COORD, NumCoords60 As Long, hBrush60 As Long, hRgn60 As Long

po10(1).x = 730

po10(1).y = 405

po10(2).x = 722

po10(2).y = 430

po10(3).x = 738

po10(3).y = 430

NumCoords60 = 3

seg10 = CreatePolygonRgn(po10(1), NumCoords60, ALTERNATE)

CombineRgn seg10, seg10, le36, 2

'---------------------------------------------------------------------- 8

le37 = CreateEllipticRgn(673.28, 447, 707, 473)

le38 = CreateEllipticRgn(678.97, 451.28, 702, 468)

CombineRgn le38, le37, le38, 4

le39 = CreateEllipticRgn(677, 432, 703, 456)

le40 = CreateEllipticRgn(682.16, 436.25, 697, 450)

CombineRgn le40, le39, le40, 4

CombineRgn le40, le40, le38, 2

CombineRgn seg10, seg10, le40, 2

'------------------------------------------------------- Keriting 9

le41 = CreateEllipticRgn(801, 396, 824, 419)

le42 = CreateEllipticRgn(812, 382, 835, 405)

CombineRgn le41, le41, le42, 2

le43 = CreateEllipticRgn(823, 396, 846, 419)

CombineRgn le43, le43, le41, 2

Dim po11(1 To 3) As COORD, NumCoords61 As Long, hBrush61 As Long, hRgn61 As Long

po11(1).x = 824

po11(1).y = 405

po11(2).x = 816

po11(2).y = 430

po11(3).x = 832

po11(3).y = 430

NumCoords61 = 3

seg11 = CreatePolygonRgn(po11(1), NumCoords61, ALTERNATE)

CombineRgn seg11, seg11, le43, 2

'---------------------------------------------------------------------- 9

le44 = CreateEllipticRgn(771, 431, 806, 473)

le45 = CreateEllipticRgn(768, 436, 800, 469)

CombineRgn le45, le44, le45, 4

le46 = CreateEllipticRgn(772, 433, 800, 459)

le47 = CreateEllipticRgn(777.59, 437.66, 796, 455)

CombineRgn le46, le46, le47, 4

CombineRgn le46, le46, le45, 2

CombineRgn seg11, seg11, le46, 2

'------------------------------------------------------- Keriting 10

le48 = CreateEllipticRgn(898, 396, 921, 419)

le49 = CreateEllipticRgn(910, 382, 933, 405)

CombineRgn le48, le49, le48, 2

le50 = CreateEllipticRgn(920, 396, 943, 419)

CombineRgn le50, le50, le48, 2

Dim po12(1 To 3) As COORD, NumCoords62 As Long, hBrush62 As Long, hRgn62 As Long

po12(1).x = 920

po12(1).y = 405

po12(2).x = 912

po12(2).y = 430

po12(3).x = 928

po12(3).y = 430

NumCoords62 = 3

seg12 = CreatePolygonRgn(po12(1), NumCoords62, ALTERNATE)

CombineRgn seg12, seg12, le50, 2

'---------------------------------------------------------------------- 10

be11 = CreateRectRgn(869, 431.84, 876, 474)

be12 = CreateRectRgn(859.5, 431.5, 877, 438)

CombineRgn be11, be11, be12, 2

le51 = CreateEllipticRgn(877.66, 431.5, 909, 474)

le52 = CreateEllipticRgn(884.44, 440.59, 901, 464)

CombineRgn le51, le51, le52, 4

CombineRgn be11, be11, le51, 2

CombineRgn seg12, seg12, be11, 2

'------------------------------------------------------- Keriting j

le53 = CreateEllipticRgn(992, 396, 1015, 419)

le54 = CreateEllipticRgn(1003, 382, 1026, 405)

CombineRgn le54, le53, le54, 2

le55 = CreateEllipticRgn(1014, 396, 1037, 419)

CombineRgn le55, le55, le54, 2

Dim po13(1 To 3) As COORD, NumCoords63 As Long, hBrush63 As Long, hRgn63 As Long

po13(1).x = 1015

po13(1).y = 405

po13(2).x = 1007

po13(2).y = 430

po13(3).x = 1023

po13(3).y = 430

NumCoords63 = 3

seg13 = CreatePolygonRgn(po13(1), NumCoords63, ALTERNATE)

CombineRgn seg13, seg13, le55, 2

'---------------------------------------------------------------------- j

be13 = CreateRectRgn(978.34, 432.06, 985, 465)

be14 = CreateRectRgn(961.72, 431.5, 986, 437)

CombineRgn be14, be14, be13, 2

le56 = CreateEllipticRgn(960, 451.66, 986, 474)

le57 = CreateEllipticRgn(956.81, 447.5, 979, 469)

CombineRgn le56, le56, le57, 4

CombineRgn be14, be14, le56, 2

CombineRgn seg13, seg13, be14, 2

'------------------------------------------------------- Keriting q

le57 = CreateEllipticRgn(1088, 396, 1111, 419)

le58 = CreateEllipticRgn(1099, 382, 1122, 405)

CombineRgn le57, le57, le58, 2

le59 = CreateEllipticRgn(1110, 396, 1133, 419)

CombineRgn le59, le59, le57, 2

Dim po14(1 To 3) As COORD, NumCoords64 As Long, hBrush64 As Long, hRgn64 As Long

po14(1).x = 1111

po14(1).y = 405

po14(2).x = 1103

po14(2).y = 430

po14(3).x = 1119

po14(3).y = 430

NumCoords64 = 3

seg14 = CreatePolygonRgn(po14(1), NumCoords64, ALTERNATE)

CombineRgn seg14, seg14, le59, 2

'---------------------------------------------------------------------- q

le60 = CreateEllipticRgn(1047.19, 431.16, 1082, 467)

le61 = CreateEllipticRgn(1053.03, 438.19, 1077, 460)

CombineRgn le60, le60, le61, 4

le62 = CreateEllipticRgn(1067.56, 451, 1091, 473)

le63 = CreateEllipticRgn(1071.72, 447.44, 1096, 469)

CombineRgn le62, le62, le63, 4

CombineRgn le62, le62, le60, 2

CombineRgn seg14, seg14, le62, 2

'------------------------------------------------------- Keriting k

le64 = CreateEllipticRgn(1182, 396, 1205, 419)

le65 = CreateEllipticRgn(1193, 382, 1216, 405)

CombineRgn le65, le64, le65, 2

le66 = CreateEllipticRgn(1204, 396, 1227, 419)

CombineRgn le66, le66, le65, 2

Dim po15(1 To 3) As COORD, NumCoords65 As Long, hBrush65 As Long, hRgn65 As Long

po15(1).x = 1205

po15(1).y = 405

po15(2).x = 1197

po15(2).y = 430

po15(3).x = 1213

po15(3).y = 430

NumCoords65 = 3

seg15 = CreatePolygonRgn(po15(1), NumCoords65, ALTERNATE)

CombineRgn seg15, seg15, le66, 2

'---------------------------------------------------------------------- k

Dim po16(1 To 3) As COORD, NumCoords66 As Long, hBrush66 As Long, hRgn66 As Long

po16(1).x = 1152

po16(1).y = 452.34

po16(2).x = 1152

po16(2).y = 432

po16(3).x = 1176

po16(3).y = 432

NumCoords66 = 3

seg16 = CreatePolygonRgn(po16(1), NumCoords66, ALTERNATE)

Dim po17(1 To 3) As COORD, NumCoords67 As Long, hBrush67 As Long, hRgn67 As Long

po17(1).x = 1154.22

po17(1).y = 445.09

po17(2).x = 1154

po17(2).y = 430

po17(3).x = 1171

po17(3).y = 430

NumCoords67 = 3

seg17 = CreatePolygonRgn(po17(1), NumCoords67, ALTERNATE)

CombineRgn seg17, seg16, seg17, 4

Dim po18(1 To 3) As COORD, NumCoords68 As Long, hBrush68 As Long, hRgn68 As Long

po18(1).x = 1152.22

po18(1).y = 451.91

po18(2).x = 1152

po18(2).y = 473

po18(3).x = 1176

po18(3).y = 473

NumCoords68 = 3

seg18 = CreatePolygonRgn(po18(1), NumCoords68, ALTERNATE)

Dim po19(1 To 3) As COORD, NumCoords69 As Long, hBrush69 As Long, hRgn69 As Long

po19(1).x = 1154

po19(1).y = 459

po19(2).x = 1154

po19(2).y = 475

po19(3).x = 1173

po19(3).y = 475

NumCoords69 = 3

seg19 = CreatePolygonRgn(po19(1), NumCoords69, ALTERNATE)

CombineRgn seg19, seg18, seg19, 4

CombineRgn seg19, seg19, seg17, 2

be15 = CreateRectRgn(1147, 432.5, 1153, 474)

CombineRgn seg19, be15, seg19, 2

CombineRgn seg19, seg15, seg19, 2

'------------------------------------------------------------------------------

CombineRgn segitigaaku, segitigaaku, s2, 2

CombineRgn segitigaaku, segitigaaku, s4, 2

CombineRgn segitigaaku, segitigaaku, s6, 2

CombineRgn segitigaaku, segitigaaku, s8, 2

CombineRgn segitigaaku, segitigaaku, s10, 2

CombineRgn segitigaaku, segitigaaku, s12, 2

CombineRgn segitigaaku, segitigaaku, s14, 2

CombineRgn segitigaaku, segitigaaku, s16, 2

CombineRgn segitigaaku, segitigaaku, s18, 2

CombineRgn segitigaaku, segitigaaku, s20, 2

CombineRgn segitigaaku, segitigaaku, s22, 2

CombineRgn segitigaaku, segitigaaku, s25, 2

CombineRgn segitigaaku, segitigaaku, seg1, 2

CombineRgn segitigaaku, segitigaaku, seg4, 2

CombineRgn segitigaaku, segitigaaku, seg5, 2

CombineRgn segitigaaku, segitigaaku, seg6, 2

CombineRgn segitigaaku, segitigaaku, seg7, 2

CombineRgn segitigaaku, segitigaaku, seg8, 2

CombineRgn segitigaaku, segitigaaku, seg9, 2

CombineRgn segitigaaku, segitigaaku, seg10, 2

CombineRgn segitigaaku, segitigaaku, seg11, 2

CombineRgn segitigaaku, segitigaaku, seg12, 2

CombineRgn segitigaaku, segitigaaku, seg13, 2

CombineRgn segitigaaku, segitigaaku, seg14, 2

CombineRgn segitigaaku, segitigaaku, seg19, 2

CombineRgn selk, segitigaaku, selk, 2

CombineRgn selk, segitiga1, selk, 2

SetWindowRgn Remi.hwnd, selk, True

End Sub

PEMROGRAMAN API

Halaman

Rabu, 02 Oktober 2013

TUGAS API 4 (MEMBUAT KARTU REMI DENGAN REGION MENGGUNAKAN VB 6

Tidak ada komentar:

Posting Komentar