Не могу уместить в 256 байт...

[Mikle]

Создайте пустой проект, вставьте в форму такой код:

Код: Выделить всё

Sub Form_Load
DrawWidth=9:x=99:y=99:a=60:b=20:w=ScaleWidth-90:Show:While DoEvents:t=Timer:While t=Timer:Wend:x=x+a:a=a*((x<w)*(x>90)*2-1):y=y+b:b=b*((y<ScaleHeight-90)*(y>90)*2-1):Cls:PSet(x,y),255:Line(0,y-200)-(80,y+200),255,BF:Line(w,y-200)-(w+90,y+200),255,BF:Wend
End Sub

Это 278 байт

[Хакер]

Ужал до 257
Правда там есть проблема с закрытием.
260 — проблемы нет.

Ну либо 253, если допускается не закрашивать мячик:

Код: Выделить всё

Sub Form_Activate:j=90:x=j:y=x:a=60:b=20:w=ScaleWidth-j:z=255:While DoEvents:t=Timer:While t=Timer:Wend:x=x+a:a=a*(x<w)*(x>j)*2-a:y=y+b:b=b*(y<ScaleHeight-j)*(y>j)*2-b:Cls:Circle(x,y),67,z:Line(0,y-z)-(j,y+z),z,BF:Line(w,y-z)-(w+j,y+z),z,BF:Wend:End Sub

[Mikle]

если допускается не закрашивать мячик

Так даже лучше смотрится!
И цвет закраски можно смело ставить 0, у меня там 255 - это остаток от экспериментов на чёрном фоне.
Отличная мысль избавиться от Showзаменой Form_Loadна Form_Activate.

Правда там есть проблема с закрытием.

Не заметил.

[Хакер]

Не заметил.

Потому что я его не выложил.

[Mikle]

Заменил DoEvents на 1? Так можно было 7 байт сэкономить.

[Хакер]

Нет, заменил Form_Activate на Form_Paint.

Вообще, идея была избавиться от циклов, от Timer и DoEvents, а сделать паразитный цикл на базе события Paint и метода Refresh (вызываемого из обработчика Paint). Но не вышло.