Сообщений в теме: 5

[初音ミクこんばんは]

Опрос.

Сообщение отредактировал MrStitch: 02 Апрель 2016 - 02:19

[Shinsaku-To]

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

[初音ミクこんばんは]

Что-то поздновато я решил за него взяться. Искал литературу по "Visual Basic 5". Не нашёл. Похоже, озаботиться надо было лет 15 назад.
Те книги, которые у меня были и которые удалось откопать сейчас, очень расплывчаты. Полистал... Но читать там нечего.
Бросил я эту затею. Перейду-ка я к "Visual C++ 6.0".
А ведь когда-то я написал программу на Visual Basic. Называется "Оптимизация графика вытирания пыли с оборудования".
И ещё одну – "The wall". Но это уже на "Visual Basic .NET".

[Shinsaku-To]

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

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

[PanicPanic]

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

[初音ミクこんばんは]

Построил график функции z = x / y.
Скачать программу, её текст и скриншот: https://yadi.sk/d/BpCajMpwqRPvp
Системные требования: Win32. Но вы всё равно не сможете её запустить, потому что ей требуется dll-библиотека, а у вас её нет.
Скриншот программы под Windows 95:

Скрытый текст

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