Автор Тема: программа на gambas  (Прочитано 1737 раз)

Оффлайн dimann

  • Участник
  • *
  • Сообщений: 1
программа на gambas
« : 07.08.2012 21:27:47 »
Доброго времени суток. Я наконец то успешно начал осваивать Gambas . Написал программу которая рисует нотный стан и пока всего одну ноту. Меня интересует: как gambas работает с миди? И как можно вывести рисунок в формат postscript(c последующим конвертированием в pdf).
редактор планирую написать необычный. Он будет без тактов и для атональной музыки. Может кому интересно вот код:

' Gambas class file
PUBLIC SUB Button1_Click()
DRAW.BEGIN(DrawingArea1)
DRAW.LINE(0, 100, 714, 100)
DRAW.LINE(0, 110, 714, 110)
DRAW.LINE(0, 120, 714, 120)
DRAW.LINE(0, 130, 714, 130)
DRAW.LINE(0, 140, 714, 140)
DRAW.END()
END


PUBLIC SUB RadioButton1_Click()
RadioButton1.Value = TRUE

END

PUBLIC SUB CheckBox1_Click()
CheckBox1.Value = TRUE
END

PUBLIC SUB Button2_Click()
IF RadioButton1.Value AND CheckBox1.Value = TRUE THEN
DRAW.BEGIN(DrawingArea1)
DRAW.Circle(10, 150, 5)
Draw.Line(2, 150, 18, 150)
DRAW.END()
ENDIF
END

PUBLIC SUB Button3_Click()
DIM $Box AS String
$Box = InputBox("Введите название произведения")
DRAW.BEGIN(DrawingArea1)
DRAW.TEXT($Box, 100, 10)
DRAW.END()
END
« Последнее редактирование: 08.08.2012 13:31:54 от Skull »