20CN网络安全小组论坛 - 编程破解 - 由程序编出来的图形

论坛: 编程破解标题: 由程序编出来的图形

复制本贴地址

作者: blindeaf [blindeaf]

论坛用户

看了286编出来的图形，觉得挺不错的。
正好今天有空也编了个图形。用的编程语言是VB。

在窗体上建一个picture,command控件。代码如下

Private Sub Command1_Click()
Dim c As Integer
Dim x As Single
Dim y As Single
Dim y1 As Single
Dim y2 As Single
Dim x1 As Single
Dim x2 As Single
For x = -1 To 1 Step 1 / 400 'step可以根据机子具体的情况设置。
'值越小绘出的图形越细致。
For y = -1 To 1 Step 1 / 400
x1 = x
y1 = y
For c = 0 To 128
x2 = 1.5 * x1 * x1 - y1 * y1 - 0.5
y2 = 3 * x1 * y1 + 0.4
If (x1 * x1 + y1 * y1) > 100 Then
Exit For
Else
x1 = x2
y1 = y2
End If
Next c
Picture1.PSet (x, y), QBColor(c Mod 16)
Next y
Next x
End Sub

Private Sub Form_Load()
Picture1.Scale (-1, -1)-(1, 1)
End Sub
该算法主要是从左到右一个个地画点，点的颜色是由以下循环确定的。
For c = 0 To 128
x2 = 1.5 * x1 * x1 - y1 * y1 - 0.5
y2 = 3 * x1 * y1 + 0.4
If (x1 * x1 + y1 * y1) > 100 Then
Exit For
Else
x1 = x2
y1 = y2
End If
Next c
得出的图形其实是一个分形图形。分形图形简单地说就是大图和里面的小图相似。

[此贴被海鬼(blindeaf) 在 10月09日15时41分编辑过]

地主发表时间: 10/09 15:32