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

[ska]

Да как же это она полетит. Значения X и Y всегда одни и теже.

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

Dim X, Y As Single
  X = X + 5
  Y = Y - 5Вы их каждый раз инициализируете и присваиваете одно и тоже значения.
Нужно.
1. Создать глобальные переменные:

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

Public Image1, Image2 As Image
  Public flg1 As Boolean
  Public X, Y As Single

При таком объявлении выдает ошибку Missing AS (объявляю до Public Sub)

[Archer]

Попробуй так

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

Public Image1 As Image
Public  Image2 As ImageЯ же только направление даю, тем более без гамбас под рукой.

[ska]

Понятно. Глобальные переменные нельзя через запятую писать? Нужно по одной на одной строке?
С глобальными переменными выдало 'Form.X' is incorretctly overriden in class 'FMain'
Насчет повтора Image2 это опечатка была. Сейчас есть Image1 и Image2

[Archer]

Понятно. Глобальные переменные нельзя через запятую писать? Нужно по одной на одной строке?
С глобальными переменными выдало 'Form.X' is incorretctly overriden in class 'FMain'
Насчет повтора Image2 это опечатка была. Сейчас есть Image1 и Image2

Да глобальные нельзя через запятую, сам порой забываю.

Form.X

- откуда это взялось?
Можно весь код?

[ska]

Исправил с переменными... Глобальными оставил только Image1 и Image2. Остальные - обычные. При запуске - чистая область рисования, ни одной бабочки).

[Archer]

Покажи весь код

[ska]

ок) с таким кодом, бабочка как раньше сидит внизу в углу и не летит)

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


 Public Image1 As Image
  Public Image2 As Image
Public Sub Timer1_Timer()
 Dim flg1 As Boolean
 Dim X, Y As Single
 X = X + 5
  Y = Y - 5
 
  Draw.Begin(DrawingArea1)
 
 
  Image1 = Image.Load("~/btfly/bfly1.bmp")
  Image2 = Image.Load("~/btfly/bfly2.bmp")
  If flg1 Then
  flg1 = False
   Else
    flg1 = True
  Endif
   Draw.Translate(0, 200)
  If flg1 Then
    Draw.Image(Image1, X, Y)
    Else
      Draw.Image(Image2, X, Y)
  Endif
 
  Draw.End
   X = X + 5
  Y = Y - 5
End


[Archer]

ок) с таким кодом, бабочка как раньше сидит внизу в углу и не летит)

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

Public Sub Timer1_Timer()
 Dim flg1 As Boolean
 Dim X, Y As Single
 X = X + 5
  Y = Y - 5
 
  Draw.Begin(DrawingArea1)
 
 
  Image1 = Image.Load("~/btfly/bfly1.bmp")
  Image2 = Image.Load("~/btfly/bfly2.bmp")
  If flg1 Then
  flg1 = False
   Else
    flg1 = True
  Endif
   Draw.Translate(0, 200)
  If flg1 Then
    Draw.Image(Image1, X, Y)
    Else
      Draw.Image(Image2, X, Y)
  Endif
 
  Draw.End
   X = X + 5
  Y = Y - 5
End


Ну мы же уже обсудили это, с этим кодом она никогда не полетит. Сделай как я писал.

[ska]

 Если глобальными объявить все переменные выдает ошибку 'Form.X' is incorretctly overriden in class 'FMain'

[Archer]

Если глобальными объявить все переменные выдает ошибку 'Form.X' is incorretctly overriden in class 'FMain'

Наверное X и Y зарезервированы, назови их по другому  X1 и Y1, например.

[ska]

Если глобальными объявить все переменные выдает ошибку 'Form.X' is incorretctly overriden in class 'FMain'

Наверное X и Y зарезервированы, назови их по другому  X1 и Y1, например.

ура, полетела, спасибо насчет переменных

[Archer]

Если глобальными объявить все переменные выдает ошибку 'Form.X' is incorretctly overriden in class 'FMain'

Наверное X и Y зарезервированы, назови их по другому  X1 и Y1, например.

ура, полетела, спасибо насчет переменных

:)

А ты где применяешь Gambas? Или это просто для себя?

[ska]

в школе применяю в качестве обучения программированию) (первый год). И сам за одно учусь)

[ska]

а что с сайтом http://im-ua.org/? в последнее время он как-то странно выглядит

[Archer]

а что с сайтом http://im-ua.org/? в последнее время он как-то странно выглядит

Этот домен больше не будет использоватся для блога о Gambas. Сайт полностью перенесен на
gambas.pro. Так что если что читайте там все есть, ну и пишите.