Pr12

   Проект картинка из образа в памяти.

Чтобы  сделать мультипликацию, нужно загрузить несколько картинок из файлов в оперативную память. Это самый долгий процесс.

   Затем выводить эти картинки из памяти на экран через какой то интервал времени. Это быстрый процесс.

   Чтобы поместить картину в память нужно определить объект типа картина.

Создать новый объект. Затем загрузить в эту переменную картину из файла.

   На форме внизу кнопка управления.

 

Public sub button1_click()

Dim hpicture as picture

Hpicture=new picture (300,200,true)

Hpicture=picture(“lico.jpeg”)

Draw.begin(form1)

Draw.picture(hpicture,100,100)

Draw.end

End

 

   Примечание.

(300,200) – размер образа

(100,100) – левый верхний угол картины на форме.

После ввода программы сохраните проект .

  Чтобы загрузить файл с картинкой, сначала нарисуйте лицо в графическом редакторе.

Выберите   Файл  Сохранить как

Выберите формат

Jpeg

Напечатайте имя файла с расширением через точку

Lico.jpeg

Нажмите сохранить.

Зайдите в каталог, в котором сохранился файл.

Выделите имя файла.

Скопируйте в буфер обмена

Зайдите в папку проекта, щелкнув по ней.

Вставьте файл с картинкой

Edit paste

Зайдите в Gambas , откройте свой проект (open).

Скомпилируйте и выполните программу. Картинка появится на форме.

     Спишите эту страничку и сделайте точно по технологии.

Здесь есть еще один секрет!!!