Модераторы: Akina
  

Поиск:

Ответ в темуСоздание новой темы Создание опроса
> очень нужна помощь с q-basic, помогите, пожалуйста... 
:(
    Опции темы
Xeni@
  Дата 19.4.2004, 07:20 (ссылка)    |    (голосов: 0) Загрузка ... Загрузка ... Быстрая цитата Цитата


Unregistered











Мне срочно нужна какая-нибудь анимация, которая работает с quick basic..Я пробовала сделать , но не получалось..Кто нибудь может дать граф-программу..желательно не очень сложную? butbut.gif
  Вверх
Akina
Дата 19.4.2004, 08:24 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Советчик
****


Профиль
Группа: Модератор
Сообщений: 20581
Регистрация: 8.4.2004
Где: Зеленоград

Репутация: 34
Всего: 454



а чем демка не устраивает?


--------------------
 О(б)суждение моих действий - в соответствующей теме, пожалуйста. Или в РМ. И высшая инстанция - Администрация форума.

PM MAIL WWW ICQ Jabber   Вверх
Guest
Дата 19.4.2004, 15:02 (ссылка)    |    (голосов: 0) Загрузка ... Загрузка ... Быстрая цитата Цитата


Unregistered











Что?..извини я плохо врубаюсь в эту программу...
  Вверх
Staruha
Дата 19.4.2004, 22:24 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
***


Профиль
Группа: Участник Клуба
Сообщений: 1292
Регистрация: 1.2.2004
Где: Казань

Репутация: 2
Всего: 27



Михаил Фролов.Логические и компьютерые сказки.Вот про блоху:
SCREEN 1
CLS
PSET (15, 25)
END

SCREEN 1
CLS
FOR I=0 TO 320
PSET (1, 100)
FOR K=0 TO 5000
NEXT I
END
и т.д. tounge.gif



--------------------
Возмездие настигнет
PM MAIL   Вверх
Guest
Дата 20.4.2004, 00:08 (ссылка)    |    (голосов: 0) Загрузка ... Загрузка ... Быстрая цитата Цитата


Unregistered











Старуха
спасибо большое rolleyes.gif
  Вверх
Staruha
Дата 20.4.2004, 15:49 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
***


Профиль
Группа: Участник Клуба
Сообщений: 1292
Регистрация: 1.2.2004
Где: Казань

Репутация: 2
Всего: 27



Неначем wink.gif


--------------------
Возмездие настигнет
PM MAIL   Вверх
Guest
Дата 20.4.2004, 21:05 (ссылка)    |    (голосов: 0) Загрузка ... Загрузка ... Быстрая цитата Цитата


Unregistered











что-то у меня ничего
не вышло..точнее не вышло анимации hmmm.gif
  Вверх
Guest
Дата 21.4.2004, 14:25 (ссылка)    |    (голосов: 0) Загрузка ... Загрузка ... Быстрая цитата Цитата


Unregistered











Эта программа обучаящая.На самом деле это просто точка ,меняющая координаты.Проверь коды mad.gif
  Вверх
Staruha
Дата 21.4.2004, 14:29 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
***


Профиль
Группа: Участник Клуба
Сообщений: 1292
Регистрация: 1.2.2004
Где: Казань

Репутация: 2
Всего: 27



И ещё - это работает только в q-basic mad.gif


--------------------
Возмездие настигнет
PM MAIL   Вверх
Akina
Дата 21.4.2004, 18:01 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Советчик
****


Профиль
Группа: Модератор
Сообщений: 20581
Регистрация: 8.4.2004
Где: Зеленоград

Репутация: 34
Всего: 454



Вот например - из демок Microsoft QuickBASIC 4.50... комментированная даже...

Код
' The macro string to draw the cube and paint its sides:
Plot$ = "BR30 BU25 C1 R54 U45 L54 D45 BE20 P1,1 G20 C2 G20" + "R54 E20 L54 BD5 P2,2 U5 C4 G20 U45 E20 D45 BL5 P4,4"

APage% = 1      ' Initialize values for the active and visual
VPage% = 0      ' pages, as well as the angle of rotation.
Angle% = 0

DO

  ' Draw to the active page while showing
  ' the visual page:
  SCREEN 7, , APage%, VPage%
  CLS 1

  ' Rotate the cube "Angle%" degrees:
  DRAW "TA" + STR$(Angle%) + Plot$

  ' Angle% is some multiple of 15 degrees:
  Angle% = (Angle% + 15) MOD 360

  ' Switch the active and visual pages:
  SWAP APage%, VPage%

LOOP WHILE INKEY$ = ""     ' A key press ends the program.

END





--------------------
 О(б)суждение моих действий - в соответствующей теме, пожалуйста. Или в РМ. И высшая инстанция - Администрация форума.

PM MAIL WWW ICQ Jabber   Вверх
Program
Дата 1.5.2004, 13:17 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 9
Регистрация: 29.4.2004

Репутация: нет
Всего: нет



0! я тоже когдато занимался QBASIC'oм ваща прикольно!!! я в нем могу сделать все, что угодно!!! когдато даж делел жалкое подобие Paint'а, но не до конца сделал... Хотите, могу файл на мыло скинуть.

Я вобще много прог на нем написал...я в нем знаю ВСЕ!!! можете спрашивать, если что...

я даже малек знаю BlitzBasic, DarkBasic(на нем я написал кубик Рубика); VBA, VB 6.0 кароче, по бейсику я могу помочь... Вот вы мне бы помогли с VC++, PHP...
PM MAIL   Вверх
Guest
Дата 10.6.2004, 11:45 (ссылка)    |    (голосов: 0) Загрузка ... Загрузка ... Быстрая цитата Цитата


Unregistered











Akina
bored.gif помогите
  Вверх
Jey_k
Дата 15.6.2004, 23:36 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


WEB-командир
****


Профиль
Группа: Комодератор
Сообщений: 4149
Регистрация: 16.11.2003
Где: Москва

Репутация: нет
Всего: 61



Самый простенький пример. Квадратик двигается.
Код

CLS
SCREEN 12
FOR I= 10 ТО 600
LINE (300,I)-(320,I+20),7,B
SOUND 6000,1
LINE (300,I)-(320,I+20),0,B
NEXT I



--------------------
PM MAIL WWW   Вверх
Enflout
Дата 16.6.2004, 08:03 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 260
Регистрация: 22.5.2004

Репутация: нет
Всего: 6



[code]

CLS
SCREEN 12
LINE (120, 350)-(150, 380), 1, BF
DIM a(8000)
i = 99
GET (99, 240)-(391, 400), a
1 : PUT (i, 240), a, PSET
i = i + 1
IF i = 340 THEN 2
GOTO 1
2 : PUT (i, 240), a, PSET
i = i - 1
IF i = 40 THEN 1
GOTO 2
END

Упростил до невозможности


PM MAIL   Вверх
Jey_k
Дата 16.6.2004, 22:33 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


WEB-командир
****


Профиль
Группа: Комодератор
Сообщений: 4149
Регистрация: 16.11.2003
Где: Москва

Репутация: нет
Всего: 61



Templar$

smile.gif

Прикольно



--------------------
PM MAIL WWW   Вверх
  
Ответ в темуСоздание новой темы Создание опроса
Правила форума "VB6"
Akina

Запрещается!

1. Публиковать ссылки на вскрытые компоненты

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

  • Литературу по VB обсуждаем здесь
  • Действия модераторов можно обсудить здесь
  • С просьбами о написании курсовой, реферата и т.п. обращаться сюда
  • Вопросы по реализации алгоритмов рассматриваются здесь
  • Используйте теги [code=vb][/code] для подсветки кода. Используйтe чекбокс "транслит" (возле кнопок кодов) если у Вас нет русских шрифтов.


Если Вам понравилась атмосфера форума, заходите к нам чаще! С уважением, Akina.

 
0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема | VB6 | Следующая тема »


 




[ Время генерации скрипта: 0.0534 ]   [ Использовано запросов: 22 ]   [ GZIP включён ]


Реклама на сайте     Информационное спонсорство

 
По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности     Powered by Invision Power Board(R) 1.3 © 2003  IPS, Inc.