برنامه ای که با گرفتن دو عکس تشخیص می دهد که هم سان هستند یا نه
Dim a, b, c, d, e, f, g, h, i, j, k, l, m, n, o, p, q, r, s, t, u, v, w, X, Y, z, aa, bb, cc, dd, ee, ff, gg, hh, ii, jj, kk, ll, mm, nn, oo, pp, qq, rr, ss, tt, uu, vv As Variant
ابتدا حافظه های بالا را در قسمت تعاریف عمومی یا همون جنرال تعریف می کنیم ''
حافظه های تعریف شده را در هنگام اجرای برنامه مقدار دهی کردم ''
b = 1000
c = 3500
d = 1000
e = 1500
f = 2500
g = 3500
h = 2500
i = 1500
j = 1000
k = 1500
l = 2500
m = 3500
n = 1000
o = 3500
p = 2500
q = 2500
r = 2000
s = 4500
t = 2000
u = 2500
v = 3500
w = 4500
X = 3500
Y = 2500
z = 2000
aa = 2500
bb = 3500
cc = 4500
dd = 2000
ee = 4500
ff = 3500
gg = 1500
hh = 1000
ii = 2500
jj = 2000
kk = 3500
ll = 1000
m = 4500
nn = 2000
oo = 1500
pp = 2500
qq = 2500
rr = 3500
ss = 3500
tt = 2500
uu = 4500
vv = 3500
MsgBox (" ATIFAZI ")
end sub
private sub timer1_timer()
با دستور لاین خطها را در مختصات حافظه های تعریف شده طوری رسم کردیم که تبدیل به مکعب مستطیل بشه''
شما میتونید با قلم و کاغذ ایتدا روی کاغذ بکشد و سپس این کار را انجام دهید''
برای اینکه کمی زیبا سازی بشه و انگاری متحرک به نظر بیاد کدهارو تو تایمر و در یه شمارنده گذاشتم. برای بهتر شدن اینکار میتونید مقدار شمارنده را کمتر کنید.''
pic.Line (a + 500, b + 500)-(c + 500, d + 500), vbRed
pic.Line (a + 500, b + 500)-(c + 500, d + 500), vbRed
pic.Line (e + 500, f + 500)-(g + 500, h + 500), vbRed
pic.Line (i + 500, j + 500)-(k + 500, l + 500), vbRed
loadprivate sub form_() a = 1500 For lmp = 1 To 10000
pic.Line (m - 500, n + 500)-(o + 500, p + 500), vbRed
pic.Line (q + 500, r + 500)-(s + 500, t + 500), vbRed
pic.Line (u + 500, v + 500)-(w + 500, X + 500), vbRed
pic.Line (Y + 500, z + 500)-(aa + 500, bb + 500), vbRed
pic.Line (cc + 500, dd + 500)-(ee + 500, ff + 500), vbRed
pic.Line (gg + 500, hh + 500)-(ii + 500, jj + 500), vbRed
pic.Line (kk + 500, ll + 500)-(mm + 5000, nn + 500), vbRed
pic.Line (oo + 500, pp + 500)-(qq + 500, rr + 500), vbRed
pic.Line (ss + 500, tt + 500)-(uu + 500, vv + 500), vbRed
pic.Cls
pic.Line (a + 500, b + 500)-(c + 500, d + 500), vbRed
pic.Line (a + 500, b + 500)-(c + 500, d + 500), vbRed
pic.Line (e + 500, f + 500)-(g + 500, h + 500), vbRed
pic.Line (i + 500, j + 500)-(k + 500, l + 500), vbRed
pic.Line (m - 500, n + 500)-(o + 500, p + 500), vbRed
pic.Line (q + 500, r + 500)-(s + 500, t + 500), vbRed
pic.Line (u + 500, v + 500)-(w + 500, X + 500), vbRed
pic.Line (Y + 500, z + 500)-(aa + 500, bb + 500), vbRed
pic.Line (cc + 500, dd + 500)-(ee + 500, ff + 500), vbRed
pic.Line (gg + 500, hh + 500)-(ii + 500, jj + 500), vbRed
pic.Line (kk + 500, ll + 500)-(mm + 5000, nn + 500), vbRed
pic.Line (oo + 500, pp + 500)-(qq + 500, rr + 500), vbRed
pic.Line (ss + 500, tt + 500)-(uu + 500, vv + 500), vbRed
Next lmp
امید وارم متوجه شده باشین. البته با کمی توجه میتونید کد را درک کنید . راستی میبینین که توی کد ساخت خط از +50 استفاده شده . برای این بود که هر چند لحظه یه تغییر زاویه داشته باشه
