Программирование на языке GAMBAS

[artflam]

В бранче обновления ПСПО доступен только gambas-2.0.0-alt0.M40.1. Никаих обновений там не планируется. Рекомендую скачать и поставить новую версию (http://www.altlinux.org/Школьный)

мда.. однако. я бы и рад альт 5-ый школьный поставить, да вот только мои машины его не могут установить. даже в безопасном режиме. начинается установка - потом экран отключается и все.
видимо придется детей в опен офис бейсику учить (или на лазарус и паскаль переходить, что не совсем то, что нужно) пока школа новые машины не приобретет. :((

[ruslandh]

В бранче обновления ПСПО доступен только gambas-2.0.0-alt0.M40.1. Никаих обновений там не планируется. Рекомендую скачать и поставить новую версию (http://www.altlinux.org/Школьный)

мда.. однако. я бы и рад альт 5-ый школьный поставить, да вот только мои машины его не могут установить. даже в безопасном режиме. начинается установка - потом экран отключается и все.
видимо придется детей в опен офис бейсику учить (или на лазарус и паскаль переходить, что не совсем то, что нужно) пока школа новые машины не приобретет. :((

Есть смысл посмотреть на Терминальный Сервер

[artflam]

поставил lxde-school-lite (http://forum.altlinux.org/index.php/topic,8912.45.html)
но в нем нет гамбаса. хоят работает не хуже 4-го.

[YYY]

поставил lxde-school-lite (http://forum.altlinux.org/index.php/topic,8912.45.html)
но в нем нет гамбаса. хоят работает не хуже 4-го.

apt-get install gambas ?

Потом из кеша можно пакеты перетащить на флешки на компы где нет инета...

[Rezedent12]

Решил я написать одну апликуху.
Для обзора списка думаю использовать iconView (QT), добавил его на форму. Но рассматривая свойства этого элемента управления не понял как вообще добавлять в список значки. Русскоязычной справки не нашёл. Подскажите как использовать этот элемент управления.

[Карлсон]

Для обзора списка думаю использовать iconView (QT)

Сама по себе плохая, негодная идея, потому что:

http://doc.qt.nokia.com/latest/q3iconviewitem.html

[Rezedent12]

Сама по себе плохая, негодная идея, потому что:

http://doc.qt.nokia.com/latest/q3iconviewitem.html

хм.. а что посоветуете что бы значки и подписи под ними?

[Карлсон]

хм.. а что посоветуете что бы значки и подписи под ними?

Традиционно посоветую Гугль!
Вторая ссылка: http://lists.qt.nokia.com/pipermail/qt-interest/2008-December/000868.html

[Rezedent12]

Традиционно посоветую Гугль!
Вторая ссылка: http://lists.qt.nokia.com/pipermail/qt-interest/2008-December/000868.html

Но спук ингриш.

[Карлсон]

Но спук ингриш.

Тогда вам не стоит заниматься программированием. Это будет пустая трата времени. Ну и да: у гугля есть замечательный переводчик, который в том числе переводит веб-страницы целиком.

[Skull]

Но спук ингриш.

Тогда или переводчик или смотреть qtdemo и код использования виджетов.

[ska]

Озадачился переводом Visual Basic в Gambas. Есть такая задача

«Движение тела, брошенного под углом к горизонту»

азместить на форме шесть текстовых полей: 
·     txtV0 для ввода значений начальной скорости; 
·     txtA для ввода угла бросания; 
·     txtS для ввода расстояния до площадки; 
·     txtL для ввода длины площадки; 
·     txtX для вывода координаты х падения мячика; 
·     txtM для вывода текстового сообщения о результатах броска.

Код: [Выделить]

Поместить на форму кнопку и создать для нее событийную процедуру, которая обеспечивает присвоение переменным значений, введенных в текстовые поля, вычисление координаты х падения мячика и вывод результатов на форму с использованием конструкции выбора Select Case:
 
Const G As Single = 9.81 
Const Pi As Single = 3.14 
Dim V0, A, S, L As Double 
Private Sub сmdCalc_Click() 
'Ввод начальных значений 
V0 = Val(txtV0.Text) 
A = Val(txtA.Text) 
S = Val(txtS.Text) 
L = Val(txtL.Text) 
'Попадание в площадку 
X = V0 ^ 2 * Sin(2 * A * Pi / 180) / G   
txtХ.Text = Х 
Select Case Х 
Case Is < S 
txtM.Text = "Недолет" 
Case Is > S+L 
txtM.Text = "Перелет" 
Case Else 
txtM.Text = "Попадание" 
End Select 
End Sub


Код: [Выделить]

'Рисование траектории   
For T = 0 To 10 Step 0.1 
Y = V0 * Sin(A * Pi / 180) * T - G * T * T / 2 
X = V0 * Cos(A * Pi / 180) * T 
pic1.Scale (0, 15)-(S + 5, -5) 
pic1.PSet (X, Y) 
Next T 
'Ось X 
pic1.Line (0, 0)-(50, 0) 
For I = 0 To 50 Step 5 
pic1.PSet (I, 0) 
pic1.Print I 
Next I 
'Ось Y 
pic1.Line (0, -5)-(0, 15) 
For I = -5 To 20 Step 5 
pic1.PSet (0, I) 
pic1.Print I 
Next I 
'Площадка 
pic1.Line (S, 0.2)-(S + L, 0.2)


Первый код (вычисление координаты падения мячика) перевелся легко. Правда, у меня case почему то не работал, я заменил его на if.

Код: [Выделить]

' Gambas class file

PUBLIC CONST G AS Single = 9.8

PUBLIC SUB Button1_Click()

DIM X, Y, T AS Float
DIM V0, A, Sd, L AS Integer


'Ввод начальных значений

V0 = Val(txtV0.Text)

A = Val(txtA.Text)

Sd = Val(txtS.Text)

L = Val(txtL.Text)

'Попадание в площадку

X = V0 ^ 2 * Sin(2 * A * Pi / 180) / G

txtX.Text = X

IF X < Sd

txtM.Text = "Недолет"

ELSE IF X > Sd + L

txtM.Text = "Перелет"

ELSE

txtM.Text = "Попадание"

ENDIF

END SUB
А вот с построением графика проблемы, не могу разобраться. Может, кто подскажет, как построить достойную  систему координат в Gambas? Объясните, как работает draw.translate  и draw.scale

[Archer]

ska, приходи сюда:
http://im-ua.org/
Попробуем помочь. Я сам тока вчера взялся с Draw разбираться, не все там понятно, как то.

[ska]

Рисование траектории на данный момент выглядит так

Код: [Выделить]

'Рисование траектории
Draw.Begin(pic1)

FOR T = 0 TO 10 STEP 0.1

Y = V0 * Sin(A * Pi / 180) * T - G * T * T / 2

X = V0 * Cos(A * Pi / 180) * T


Draw.Point(X, Y)

NEXT

Draw.End
Т.е. рисуется по формуле точечная траектория (на картинке она слабо, но заметна). Однако, насколько я понимаю, все это дело исчисляется в пикселях относительно левого верхнего угла drawingarea (pic1), а мне надо по-нормальному (в обычной системе координат). И таректория какая-то перевернутая получается

[Archer]

В тобычной системе координат - это что значит? Чтобы ноль был в нижнем левом углу?
Может перевернуть твою траекторию просто:

Код: [Выделить]

hImage.Mirror(True, True)Выложи проект куда-нибудь. Тоже покопаюсь.