Перейти к содержимому
Открыть в приложении

Лучший способ просмотра. Узнать больше.

АнимеФорум

Полноэкранное приложение на домашнем экране с push-уведомлениями, значками и другими функциями.

Чтобы установить это приложение на iOS и iPados
  1. Нажмите на иконку «Поделиться» в Safari
  2. Прокрутите меню и нажмите Добавить на домашний экран.
  3. Нажмите Добавить в правом верхнем углу.
Чтобы установить это приложение на Android
  1. Нажмите на меню из трёх точек (⋮) в правом верхнем углу браузера.
  2. Нажмите Добавить на домашний экран или Установить приложение.
  3. Подтвердите, нажав Установить.

Изучали ли вы Visual Basic?

21 пользователь проголосовал

  1. 1. Учили ли вы Visual Basic?

    • Да
      10
    • Нет
      9

Пожалуйста, войдите или зарегистрируйтесь, чтобы проголосовать.

Рекомендуемые ответы

  • Автор

Что-то поздновато я решил за него взяться. Искал литературу по "Visual Basic 5". Не нашёл. Похоже, озаботиться надо было лет 15 назад.

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

Бросил я эту затею. Перейду-ка я к "Visual C++ 6.0".

А ведь когда-то я написал программу на Visual Basic. Называется "Оптимизация графика вытирания пыли с оборудования".

И ещё одну – "The wall". Но это уже на "Visual Basic .NET".

for (j = 0; j < 100; j++) a [j] = d [j] = g [j] = 0;

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

 

Ну и да, в С++ немедленно сломаешь моск об управление памятью и всякие указатели. Хочешь язык общего назначения для обучения программированию -- бери уж Java.

Если долго всматриваться в бездну, можно неплохо провести время.

  • 3 недель позже...
А у меня так получилось, что за VB я взялась уже после С++, C# и Java. Устроилась на работку поддерживать базу на оракле, а оказалась внезапно программистом на VB для бухгалтерии. Пришлось экстренно изучить. Но он легкий совсем, не вижу смысла отдельно его изучать, если по работе не требуется. Лучше время потратить на что-то более востребованное.

Будущее уже наступило. Просто оно еще неравномерно распределено

Gendo Ikari is an anagram for "ignore a kid"

[Yuri][Общество любителей кошек][Дядьки]team

  • 1 год позже...
  • Автор

Построил график функции z = x / y.

Скачать программу, её текст и скриншот: https://yadi.sk/d/BpCajMpwqRPvp

Системные требования: Win32. Но вы всё равно не сможете её запустить, потому что ей требуется dll-библиотека, а у вас её нет.

Скриншот программы под Windows 95:

http://s7.uploads.ru/t/cXVvu.png

 

Rem   p8
Rem   p8 - task 3 - book 1
Rem   Язык Visual Basic 5.0

Option Explicit

Rem   ba - координата x, bb - координата y, bc - ширина графика
Rem   bd - масштаб графика
Dim ba, bb, bc, bd As Integer
Rem   Координаты линии в 3D: (ea, eb, ec) - (ed, ee, ef)
Dim ea, eb, ec, ed, ee, ef As Single

Rem   Рисование системы координат
Function ga()
   Cls
   Line (ba, bb)-(ba - bc, bb - bc / 2), QBColor(8)
   Line (ba, bb)-(ba + bc, bb - bc / 2), QBColor(8)
   Line (ba, bb)-(ba, bb - bc), QBColor(15)
   Line (ba, bb)-(ba - bc, bb + bc / 2), QBColor(15)
   Line (ba, bb)-(ba + bc, bb + bc / 2), QBColor(15)
End Function

Rem   Рисование линии в 3D-координатах
Function gb()
   Line (ba - ea + eb, bb + (ea + eb) / 2# - ec)- _
       (ba - ed + ee, bb + (ed + ee) / 2# - ef), QBColor(14)
End Function

Rem   Функция, график которой надо построить
Function ha(a As Single, b As Single)
   ha = a / b
End Function

Private Sub Form_Load()
   ba = 400: bb = 400: bc = 380: bd = 50
End Sub

Private Sub Form_Paint()
   Dim a, b As Integer
   Dim c, d As Single
   
   ga
   For a = -bc To bc Step 10
       For b = -bc To bc
           If b = 0 Then GoTo aaa
           c = ha(a / CSng(bd), b / CSng(bd)) * bd
           If b > -bc And b <> 1 Then
               ea = a: eb = b: ec = c: ed = a: ee = b - 1: ef = d
               gb
           End If
           d = c
aaa:
       Next
   Next
End Sub

 

for (j = 0; j < 100; j++) a [j] = d [j] = g [j] = 0;

Присоединяйтесь к обсуждению

Вы можете опубликовать сейчас и зарегистрироваться позже. Если у вас есть аккаунт, войдите сейчас, чтобы публиковать с вашего аккаунта.
Примечание: Ваш пост требует одобрения модератора перед публикацией.

Гость
Ответить на эту тему...

Последние посетители 0

  • Ни одного зарегистрированного пользователя не просматривает данную страницу.

Важная информация

Аккаунт

Навигация

Поиск

Настроить push-уведомления в браузере

Chrome (Android)
  1. Нажмите на значок замка рядом с адресной строкой.
  2. Выберите Разрешения → Уведомления.
  3. Настройте предпочтения.
Chrome (Desktop)
  1. Нажмите на значок замка в адресной строке.
  2. Выберите Настройки сайта.
  3. Найдите пункт Уведомления и настройте параметры по своему усмотрению.