هذا هو الحال
<%
الخيار
فئة صريحة FiveStarredFlag
العرض الخاص
الارتفاع الخاص
حشو خاص
صورة بالحجم الخاص
حجم الملف الخاص
Private BitMap()
Private Sub Class_Initialize
الارتفاع = 200
العرض = 300
الحشو = (32 - العرض مود 32) مود 32
SizeImage = (العرض + الحشو) * الارتفاع 8
FileSize = SizeImage + 14 + 40 + 8
ReDim BitMap (العرض + الحشو - 1، الارتفاع - 1)
ارتفاع النجمة * 0.25، الارتفاع * 0.75، الارتفاع * 0.15، 0
عرض النجمة / 3، الارتفاع * 0.9، الارتفاع * 0.05، 120.9637565320735
عرض النجمة * 0.4، الارتفاع * 0.8، الارتفاع * 0.05، 98.13010235415598
عرض النجمة * 0.4، الارتفاع * 0.65، الارتفاع * 0.05، 74.0546040990771
عرض النجمة / 3، الارتفاع * 0.55، الارتفاع * 0.05، 51.3401917459099
نهاية
الفئة الفرعية الخاصة_Terminate
Response.ContentType = "صورة/bmp"
Response.BinaryWrite FileHeader وInfoHeader وPalette وImageData
End Sub
النجم الفرعي الخاص (x، y، r، a)
خافت بي، الخامس، د، ط، ي، ك، م 2
بي = 3.1415926535897932
v = r * Sin(pi * 0.1) / Sin(pi * 0.7)
من أجل j = -r إلى r
لأني = -ص إلى ص
د = Sqr(i ^ 2 + j ^ 2)
إذا كان d < v ثم
خريطة نقطية(x + i, y + j) = 1
ElseIf د <ص ثم
إذا كنت = 0 ثم
إذا كان j > 0 فإن k = 90 وإلا فإن k = -90
آخر
ك = أتن (ي / ط) * 180 / بي
إذا كنت <0 ثم ك = ك + 180
النهاية إذا
ك = ك - أ - 18
بينما ك <0
ك = ك + 360
ويند
بينما ك >= 360
ك = ك - 360
ويند
بينما ك >= 72
ك = ك - 72
ويند
إذا ك > 36 ثم ك = 72 - ك
م2 = د ^ 2 + ص ^ 2 - د * ص * 2 * كوس (ك * بي / 180)
إذا (m2 + r ^ 2 - d ^ 2) / (Sqr(m2) * r * 2) > Cos(pi * 0.1) إذن
خريطة نقطية(x + i, y + j) = 1
نهاية إذا
نهاية إذا
التالي
التالي
نهاية
الوظيفة الفرعية الخاصة CWord(I16)
CWord = ChrB(I16 و&HFF) & ChrB(I16 256 و&HFF)
وظيفة النهاية
وظيفة خاصة CDWord(I32)
CDWord = ChrB(I32 و &HFF) & ChrB(I32 256 و &HFF) & ChrB(I32 65536 و &HFF) & ChrB(I32 &HFFFFFF و &HFF)
وظيفة النهاية
"www.knowsky.com."
الملكية الخاصة احصل على FileHeader
نوع ملف Const = &H4D42
كونست محجوزة1 = 0
كونست محجوز2 = 0
عدد البتات الثابتة = 62
FileHeader = CWord(FileType) & CDWord(FileSize) & CWord(Reserved1) & CWord(Reserved2) & CDWord(OffBits)
نهاية الملكية
الملكية الخاصة احصل على InfoHeader
حجم المعلومات الثابت = 40
طائرات كونست = 1
عدد البتات الثابت = 1
ضغط ثابت = 0
كونست XPelsPerMeter = 0
كونست YPelsPerMeter = 0
Const ClrUsed = 0
كونست ClrImportant = 0
InfoHeader = CDWord(InfoSize) & CDWord(Width) & CDWord(Height) & CWord(Planes) & CWord(BitCount) & CDWord(Compression) & CDWord(SizeImage) & CDWord(XPelsPerMeter) & CDWord(YPelsPerMeter) & CDWord(ClrUsed ) وCDWord(ClrImportant)
نهاية الملكية
الملكية الخاصة احصل على لوحة الألوان
لون خلفي ثابت = &HFF0000
Const ForeColor = &HFFFF00
لوحة الألوان = CDWord (اللون الخلفي) وCDWord (اللون الأمامي)
نهاية الملكية
الملكية الخاصة احصل على ImageData
ديم ط، ي
بيانات الصورة = ""
ل ي = 0 إلى الارتفاع - 1
لأني = 0 إلى العرض + الحشو - 1 الخطوة 8
ImageData = ImageData & ChrB(BitMap(i, j) * 128 أو BitMap(i + 1, j) * 64 أو BitMap(i + 2, j) * 32 أو BitMap(i + 3, j) * 16 أو BitMap( i + 4, j) * 8 أو BitMap(i + 5, j) * 4 أو BitMap(i + 6, j) * 2 أو BitMap(i + 7, j))
التالي
التالي
نهاية الملكية
نهاية الفصل
مع FiveStarredFlag الجديد
نهاية مع
%>