Опрос.

Edited April 1, 20169 yr by MrStitch (see edit history)

Чего там учить-то. Он ж примитивный.

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

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

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

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

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

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

 

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

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

Построил график функции 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