Search found 1 match

by Matt12346123
Tue Dec 11, 2012 10:45 am
Forum: Challenges Solved
Topic: lotsa dots
Replies: 26
Views: 5325

Hello, I thought I'll post a VB solution (feel free to laugh) For y = 120 To Picture1.Height Step (16 * 15) b = 0 p = 7 For x = 120 To Picture1.Width - 120 Step (16 * 15) If (Picture1.Point(x, y) And &HFF) = 230 Then b = b Or (2 ^ p) p = p - 1 Next x sstr = sstr & Chr(b) Next y Clipboard.Cle...