visual basic компилятор

Ответ от Андрей[гуру]
С официального сайта Microsoft, бесплатная Express версия
Платные версии ищи на торрентах. Для поиска так и пиши "Visual Basic"

Ответ от Den[гуру]
Это не VISUAL, но BASIC под винду . Работает без инсталла. приятный компилятор, только с кодом проблемно....компиляция в exe простая . Среда бесплатная, из Examples удалось примеры скомпилировать....В комплекте есть файл справка, но на английском . Рекомендую попробовать .
Пример кода формы, медленно появляющейся из точки :
''simple diaform example by m.waterman
Declare SetWindow as "SetWindowRgn" of "user32"
hwnd As integer
hRgn As integer
bRedraw As integer
end declare
declare elips as "CreateEllipticRgn" of "gdi32"
x1 as integer
y1 as integer
x2 as integer
y2 as integer
result as integer
end declare
sub paint(x as integer,y as integer,x1 as integer,y1 as integer,myform as form)
elips.x2=x
elips.y2=y
elips.x1=x1
elips.y1=y1
elips
with setwindow:hwnd=myform.hwnd:hrgn=elips.result:bredraw=1:end with
setwindow
end sub
dim stop as boolean
object dform as form
onpaint=start
left=(screenwidth-dform.width)/2
top=(screenheight-dform.height)/2
end object
paint(0,0,0,0,dform)
dform.ShowModal
sub start()
dim runonce as boolean
if runonce=true then exit function
runonce=true
dim x as integer,y as integer
dim x1 as integer,y1 as integer
x=dform.width/2
y=dform.height/2
y1=y
x1=x
do
sleep 8
x=x+1
y=y+1
y1=y1-1
x1=x1-1
if (x^2+y^2)/2>(dform.height^2+dform.Width^2) then exit do
paint(x,y,x1,y1,dform)
loop
end sub
Если нужно, файл справку скину на англ.

Ответ от 3 ответа[гуру]

Ответ от 3 ответа[гуру]