Откройте свой Мир!

Регистрация Вход

Мы применяем рекомендательные технологии

Сортировать: по обновлениям | по дате | по рейтингу Отображать записи: Полный текст | Заголовки

« Предыдущие 35

Владимир Р, 08-01-2016 15:01 (ссылка)

Ищу компаньона для развития блога

Ищу компаньона для совместного развития блога.

Направления:

б/у компьютеры скупка/продажа/ремонт. Создание программных продуктов, обучающих курсов, игр, сайтов.

Текущие задачи:

сео оптимизация блога, написание статей, создание обучающего видеокурса, формирование базы подписчиков

Контактное лицо: Владимир

Город: Омск

Телефон: 8-951-407-25-24

E-mail: vova6490@mail.ru

Skype: facebook:vova6490

Сайт: http://coding.id1945.com

Рейтинг

0 комментариев

Cat Lucerus, 24-09-2011 19:29 (ссылка)

Уравнение нормали

Здравствуйте!
Помогите пожалуйста с задачей нахождения точки пересечения нормали с прямой.

Условие: Есть прямая, у которой известны две точки M (x1; y1) и N (x2; y2) с заданными координатами. Необходимо провести нормаль к прямой, через точку A (x; y), и определить координаты точки B (x0; y0), которая является пересечением прямых.
Требование: Нужно сначало найти общее уравнение нормали, а после общую формулу нахождения точки пересечения. (Все решение должно быть программным, но проблемма возникла в выводе формулы)

Если кто знает, и может помочь, то спасибо большое заранее. Хотя-бы общее уравнение нормали.

Метки: прямая, Нормаль, пересечение

Рейтинг

2 комментария

~~Taras Zayats~~, 18-03-2012 18:03 (ссылка)

Как воспользоваться циклом при именовании адресов ячеек

Привет Всем! Заранее буду очень признателен за оказанную помощь.
Есть таблица расчета, где в ячейках по горизонтали введены буквы А, В, С и т.д, а по вертикали U, argU и т.д .

         A B C N AB BC CA aa1 bb1 cc1 a1 b1 c1 n1 a1b1 b1c1 c1a1 aa2 bb2 cc2 a2 ..
U      UA
argU
ReU
ImU                ImUAB
I
argI
ReI
ImI
и т.д.

Как можно сделать, чтобы на пересечении А и U и т.д. адрес ячейки назывался, например не B2, а UA или ImAB.
Попробовал записать макрос, при именовании ячейки D8, он мне выдал следующее
Sub Макрос 9()
    Range("D8").Select
    ActiveWorkbook.Names.Add Name:="phUA", RefersToR1C1:="=Лист1!R8C4"
End Sub
Попробовал написать программку для трех имен, но RefersToR1C1:="=Лист1R6C&dc" не реагирует на переменную dc
Sub ProgNAMES()
Dim dc As Integer, i As Integer
Dim phase As Variant
phase = Array(Array("A", "B", "C", "N", "AB", "BC", "CA", _
                "aa1", "bb1", "cc1", _
                "a1", "b1", "c1", "n1", "a1b1", "b1c1", "c1a1", _
                "aa2", "bb2", "cc2", _
                "a2", "b2", "c2", "n2", "a2b2", "b2c2", "c2a2"), _
        Array("U", "argU", "ReU", "ImU"), _
        Array("I", "argI", "ReI", "ImI"), _
        Array("Z", "argZ", "ReZ", "ImZ"), _
        Array("Y", "argY", "ReY", "ImY"), _
        Array("Zýê", "argZýê", "ReZýê", "ImZýê"))

For i = 0 To 3
dc = 2 + i
   Range("B6").Select

ActiveWorkbook.Worksheets(Лист1!).Names.Add Name:="ph" &
phase(1)(0) & phase(0)(i), RefersToR1C1:="=Лист1!R6C&dc"

Next i
End Sub

Что-то не получается правильно сделать

Рейтинг

0 комментариев

сергей кириллов, 29-02-2012 23:14 (ссылка)

очень нужна помощь!!! за ранее огромное спасибо

дан процент выполнения 10-ю судами 101 102 103 113 100 90 93 99 85 70 . найти среднее значение массива

Рейтинг

0 комментариев

slracer ., 31-10-2011 14:54 (ссылка)

Подскажите пожалуйста vs 2008

Как правильно работать с 3d, или дайте ссылки на уроки, а то уже 2ой день лазаю в инете, никак не могу найти.

Рейтинг

0 комментариев

Cat Lucerus, 26-09-2011 14:48 (ссылка)

Смещение оси ординат

Доброго всем дня!

Подскажите пожалуйста, как в Visual Basic 2008 смещать ось координат? В моем случае, необходимо сместить ось ординат до нижнего левого угла формы.

Заранее спасибо большое, тем кто поможет!

Метки: смещение, ось координат

Рейтинг

0 комментариев

Cat Lucerus, 24-09-2011 02:37 (ссылка)

Элементарная геометрия

Здравствуйте!
Помогите пожалуйста с одной задачей.

Требование: Найти координаты точек пересечения окружности с прямой.
Условие: Даны координаты центра окружности, радиус и координаты двух точек принадлежащих этой прямой.
Язык: Visual Basic 2008 (но важны сами формулы и алгоритм решения).

Я пытался написать код, получилось вот что:

Вроде-бы все правильно, но числа получаются заоблачные, что говорит о неправильности.

Заранее спасибо большое всем кто поможет!

Метки: окружность, прямая, задача, пересечение

Рейтинг

3 комментария

Никита Сунгуров, 16-05-2011 15:50 (ссылка)

Смотрите на баг) предыдущая запись - 2012 года))

Метки: Смотрите на баг) предыдущая запи

Рейтинг

1 комментарий

slracer ., 01-06-2011 17:54 (ссылка)

Что то не понимаю

Visual Basic 2008

Даже самая простая програмка требует примерно 10 МБ памяти.
Это как нибудь можно исправить?

Рейтинг

1 комментарий

slracer ., 07-06-2011 14:05 (ссылка)

Please HELP!!!

В vb 5ом или 6ом, точно не помню, можно создавать массивы и контролов (нап. text(0), text(1), text(2) и т.д), а вот в Visual Studio 2008 это не катит. Подскажите как это можно сделать.

Рейтинг

0 комментариев

Дима Кузнецов, 05-12-2010 20:13 (ссылка)

Пожалуйста помогите с задачкой

Помогите написать программу для задачки " Дано три числа a b c , какова вероятность что из них будут противоположные числа "

Рейтинг

2 комментария

slracer ., 18-05-2011 18:01 (ссылка)

Please HELP!!!

VB 2008
Подскажите как сделать что бы в textbox`e всегда после определенного знака или например после третьего символа стояла тире?

Рейтинг

2 комментария

slracer ., 20-11-2010 09:56 (ссылка)

Как вставить картинку в контекстное меню

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

Метки: меню, картинка, Оформление

Рейтинг

5 комментариев

~~~AeROs~ Ast~~ , 24-04-2009 07:30 (ссылка)

Свои "кирпичики" для Visual Basic 6

Предлагаю здесь писать свои примеры кода, которые могут быть использованы в других программах на VB.

настроение: Оптимистичное
хочется: всего хорошего по-немногу... нет, по-многу!!!

Метки: примеры, Visual Basic 6

Рейтинг

10 комментариев

Никита Сунгуров, 29-04-2011 18:30 (ссылка)

Как вытащить из *.ехе\dll иконку размером НЕ 32х32??!

Как вытащить из *.ехе\dll иконку размером НЕ 32х32 - Visual Basic 6.0 (32x32 и так могу)?!?!?!
Позарез нужно(да и просто нужно))

Рейтинг

0 комментариев

Пользователь удален

Помогите плиз.

Хочу написать одну программу в visual basic 6, но есть проблема. Нужно заставить
shape вращаться вокруг своей оси. Как это можно сделать?

Рейтинг

2 комментария

Пользователь удален

Разработка 2D RPG

Разрабатываю игру. Приглашаю всех желающих. Условие только одно - стаж программирования не менее 1 года.
IC Q: 55 - 390 - 138

Метки: разработка, реклама

Рейтинг

9 комментариев

* Лариса * ~Larisa~, 13-09-2010 17:03 (ссылка)

Функция для работы с ini файлами!

Большинство программ хранят свои настройки или иные записи в ini файлах, так-же немало программ используют реестр. Но выкладываю исходник функции, которая умеет записывать и считывать данные с ini файлов.

Скачать можно здесь.

Я считаю эту функцию полезной и нужной. Так что для тех кто с этим не знаком, обязательно ознакомьтесь.

Метки: ini, функция, Visual Basic 6

Рейтинг

1 комментарий

* Лариса * ~Larisa~, 19-06-2010 22:42 (ссылка)

Control Mozilla Browser

Предложите, пожалуйста, элементарный способ, програмным управлением этим контролом!

А именно (желательно), чтобы программно управлять содержимым web-страницы. К примеру нажать на кнопку, ввести данные в текстовое поле, и т.д.

Метки: mozilla, Контрол, браузер

Рейтинг

2 комментария

slracer ., 27-12-2010 13:20 (ссылка)

Помогите очень нужно!!!!!!!

Подскажите код чтобы перемещать форму за любое место как за заголовок
########################################################
Dim mox As Integer = 0, moy As Integer = 0
    Private go = 0

    Private Sub Form1_MouseDown(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Me.MouseDown
        If e.Button = MouseButtons.Left Then
            go = 1
            mox = MousePosition.X
            moy = MousePosition.Y
        End If
    End Sub

    Private Sub Form1_MouseMove(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Me.MouseMove
        If go = 1 Then
            Me.Left += MousePosition.X - mox
            Me.Top += MousePosition.Y - moy
            mox = MousePosition.X
            moy = MousePosition.Y
        End If
    End Sub

    Private Sub Form1_MouseUp(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Me.MouseUp
        If e.Button = MouseButtons.Left Then
            go = 0
            mox = 0
            moy = 0
        End If
    End Sub
########################################################
С этим кодом как то не очень смотрится, когда быстро перемещаешь форма не следует за курсором (сбивается). Подскажите, очень нужно, ни где не могу найти.

настроение: Грустное

Рейтинг

2 комментария

Юль Чик, 04-12-2010 11:17 (ссылка)

Помогите пожалуйста составить программу по такой задаче

(программа русская)

Рейтинг

2 комментария

slracer ., 17-12-2010 10:12 (ссылка)

Помогите с кодом на vb9

Как сохранить по нажатию "button1" в *.ini файл значение переменной например
Private yes = 0 и прочитать зто значение при нажатии "button2"

настроение: Надеющееся

Рейтинг

6 комментариев

* Лариса * ~Larisa~, 01-11-2009 00:00 (ссылка)

ПОЛЕЗНЫЕ ССЫЛКИ - 27.11.2010

Для скачивания!
Среда программирования.

Популярные версии:

Visual Basic 6: АНГЛИЙСКАЯ ВЕРСИЯ ; РУССКАЯ ВЕРСИЯ .
Visual Basic 2008: РУССКАЯ ВЕРСИЯ .

Новинка: Visual Basic 2010

Метки: ссылки, ресурсы, скачать

Рейтинг

1 комментарий

Ильнар Измайлов, 06-12-2010 15:15 (ссылка)

помогите с VB6

Всем привет!
Помогите с задачей
Нужно сделать программу, которая переводит числа из 10-ричной системы в 2-ичную систему счисления
заранее спасибо

Рейтинг

3 комментария

~~Taras Zayats~~, 01-01-2011 14:12 (ссылка)

Excel и VBA.Странность№1.Круговой массив дуг

Странности Excel.Рисование и VBA.Круговой массив дуг
Здравствуйте, уважаемые члены сообщества. И снова мне нужна Ваша помощь.
В следующих двух кодах на рабочем листе Excel рисуется массив дуг, повернутых наружу и внутрь.
При выполнении этих двух кодов из массива дуг, повернутых наружу и внутрь, должны сложиться окружности.
Но на листе Excel у меня получились окружности при углах 0,90,180,270,360 градусов.
При других углах дуги почему-то не стыкуются в окружности.
С чем это связано и как этого избежать?
Ниже приведу коды на VBA, где рисуется массив дуг, повернутых наружу и внутрь.

Sub ArcAroundMassiveOpen()
Dim i As Integer, k0 As Double, dn As Double, da As Double
Dim x0 As Double, y0 As Double, z As Double, R As Double
Const pi = 3.14159265358979

x0 = 300: y0 = 300: R = 100: z = 10: k0 = 30: dn = 30: da = 180

For i = k0 To 360 + k0 - dn Step dn
     x1 = x0 + R * Cos(i * pi / 180): y1 = y0 - R * Sin(i * pi / 180) - z
    ActiveSheet.Shapes.AddShape(msoShapeArc, x1, y1, z, z).Select
             Selection.Name = "arc_" & i & "_" & dn & "_" & da
        With Selection.ShapeRange.Adjustments
            .Item(1) = 90 + da + i
            .Item(2) = 90 + i
        End With
        With Selection.ShapeRange.Item("arc_" & i & "_" & dn & "_" & da)
            .Fill.Visible = msoFalse
            .Line.Weight = 0.75
            .Line.DashStyle = msoLineSolid
            .Line.ForeColor.RGB = RGB(100, 80, 150)
        End With
    Next i
End Sub
Sub ArcAroundMassiveClose()
Dim i As Integer, k0 As Double, dn As Double, da As Double
Dim x0 As Double, y0 As Double, z As Double, R As Double
Const pi = 3.14159265358979

x0 = 300: y0 = 300: R = 100: z = 10: k0 = 30: dn = 30: da = 180

For i = k0 To 360 + k0 - dn Step dn
     x1 = x0 + R * Cos(i * pi / 180): y1 = y0 - R * Sin(i * pi / 180) - z
    ActiveSheet.Shapes.AddShape(msoShapeArc, x1, y1, z, z).Select
             Selection.Name = "arcr_" & i & "_" & dn & "_" & da
        With Selection.ShapeRange.Adjustments
            .Item(1) = 90 + i
            .Item(2) = 90 + da + i
        End With
        With Selection.ShapeRange.Item("arcr_" & i & "_" & dn & "_" & da)
            .Fill.Visible = msoFalse
            .Line.Weight = 0.75
            .Line.DashStyle = msoLineSolid
            .Line.ForeColor.RGB = RGB(100, 80, 150)
        End With
    Next i
End Sub

Рейтинг

3 комментария

~~Taras Zayats~~, 06-12-2010 21:49 (ссылка)

Рисование в Excel. Круговой массив объектов

Мне нужно в Excel нарисовать круговой массив линий, которые расположены под одинаковым углом друг к другу. В Excel сделал программу, но с рисунка видно, что линии расположены как-то неравномерно в круговом массиве.
С чем это связано и как все-таки сделать, чтобы на экране монитора это выглядело правильно? Код программы ниже:
Sub RADEK()
Dim i As Integer, r As Double
Dim x0 As Double, y0 As Double, x2 As Double, y2 As Double
x0 = 300: y0 = 300
r = 150
For i = 0 To 360 Step 15
        x2 = x0 + r * Cos(i): y2 = y0 + r * Sin(i)
    ActiveSheet.Shapes.AddLine(x0, y0, x2, y2).Select
    Selection.Name = "line_" & i
    Selection.ShapeRange.Fill.Transparency = 0#
    With Selection.ShapeRange.Line
        .Weight = 0.75
        .DashStyle = msoLineSolid
        .Style = msoLineSingle
        .ForeColor.RGB = RGB(100, 80, 150)
        .Visible = msoTrue
    End With
Next i
End Sub

Рейтинг

4 комментария

~~* Анатолий *~~, 22-04-2009 16:14 (ссылка)

Работа с буффером обмена (Visual Basic 6)

Если эта небольшая статья покажется интерестной, то это будет хорошо. Но я думаю она пригодится всем программерам на VB6. Хотябы чтобы вспомнить.
Работа с буффером обмена довольно часто встречается во многих программах, поэтому если вы не знаете как с ним работать, то советую изучить.

В буфер обмена можно записать только два типа данных. Это текстовые и графические.
Работать с буффером обмена нам позволяет объект Clipboard.

1. Очистка буфера обмена: Clipboard.Clear

По очистке буфера думаю вопросов не будет.

2. Запись в буфер обмена:

2.1 Текста: Clipboard.SetText strText, | vbCFText | vbCFRTF | vbCFLink |

vbCFText - обычный текст;
vbCFRTF - RTF-текст (стиливой);
vbCFLink - текст в формате DDE.

Пример:

Запишет в буфер текст: VB6 – Класс !!!

Clipboard.SetText "VB6 – Класс !!!", vbCFText

Если текст содержит какой-то стиль форматирования, то чтобы он не лишился при считывании из буфера своего стиля, вместо vbCFText написать vbCFRTF:

Clipboard.SetText "VB6 – Класс !!!", vbCFRTF

vbCFBitmap - картинка в формате .bmp;
vbCFMetafile - метафайл;
vbCFDIB - картинка в формате .dib;
vbCFPalette – палитра.

Пример:

Занесёт в буфер картинку из объекта Picture1

Clipboard.SetData Picture1.Picture, vbCFBitmap

3. Чтение из буфера обмена:

3.1 Текста: Clipboard.GetText

Пример:

Считает текст из буфера в переменную strTextBuf

Dim strTextBuffer As String
strTextBuffer = Clipboard.GetText

3.2 Картинки: Clipboard.GetData

Пример:

Загрузит изображение из буфера в объект Picture1

Picture1.Picture = Clipboard.GetData

Пример:

Присвоит переменной 1 из 2-х возможных значений (True или False). Если тип переменной, переданной в качестве параметра, совпадает с типом данных в буфере обмена, то функция передаст переменной значение True, если не совпадет, то передастся False.

Dim blnTypeData as Boolean
blnTypeData = Clipboard.GetFormat(vbCFText)

Прошу прокоментировать мою небольшую статью посвященную работе с буффером обмена.

Метки: Буффер обмена, Clipboard

Рейтинг

3 комментария

Тамара Дудина, 28-12-2010 18:02 (ссылка)

HELP PLEASE!

Нуно решить задачу!
Собственно вот!
.Дана строка символов. Подсчитать, сколько раз среди сим¬волов строки встречается буква «а».
Огромное спасибо!

Рейтинг

1 комментарий

Алексей Иванов, 18-12-2010 23:56 (ссылка)

НУЖНА ПОМОЩЬ В basic 6.0

задача
Дан двумерный массив NxN (N- четное). В котором каждый элемент встречается четыре раза. Развернуть его по строкам. Удалите все повторяющиеся элементы и сверните обратно по столбцам в массив (N/2) x (N/2). Дополнительные массивы не использовать!

Дополнительно создать блок-схему!!

Рейтинг

3 комментария

slracer ., 21-12-2010 20:34 (ссылка)

Подскажите пожалуйста как использовать свой курсор на vb9

Подскажите пожалуйста как использовать свой курсор из ресурсов или какой либо папки?

Рейтинг

2 комментария

Пользователь удален

как создать игру с помощью Visual Basik 6.0??

"угадай число", "кости" или что-то в этом роде????
помогите пожалуйста!!!!!

Рейтинг

1 комментарий

* Лариса * ~Larisa~, 01-01-2009 22:22 (ссылка)

Хороший файлообменник!

Уважаемые друзья!

Буду очень рада Вашей помощи в поиске хорошего, бесплатного и без рекламного ФАЙЛООБМЕННИКА.
Возможно это и сказка для нашего времени, но надежда ещё есть, что есть такой файлообменник существует.

Подскажите пожалуйста, есть ли такой вообще?

Заранее всем откликнувшимся, большое спасибо!
С уважением, Лариса!

Метки: файлообменник

Рейтинг

7 комментариев

Пользователь удален

Задачка с подпрограммой.

Помогите разобраться, что от меня требуют в задаче, совсем не доходит, какой интерфейс должен быть...
Вот задача: Распечатайте список учеников музыкальной школы, которые учатся играть на скрипке. Укажите также, сколько лет они занимаются музыкой. Выборку списка учеников осуществите в одной подпрограмме, а ввод самого списка в линейный массив с записями – в другой.
На VB 6.0 надо...
Заранее спасибо!

Рейтинг

8 комментариев

Евгений Ерёмченко, 05-12-2010 20:18 (ссылка)

Пожалуйста помогите с задачкой

Ввести любой символ и определить его порядковый номер ,а также указать предыдущий и последующий символы

Рейтинг

2 комментария

slracer ., 14-12-2010 06:39 (ссылка)

Помогите пожалуйста с кодом на vb9

Помогите пожалуйста! Мне бы хотелось узнать код перемещения объекта (например Label1) чтобы он перемещался по форме и отталкивался от краев формы, ну как в стандартной XP-заставке "Метаморфозы"

Рейтинг

0 комментариев

В этой группе, возможно, есть записи, доступные только её участникам.
Чтобы их читать, Вам нужно вступить в группу

RSS группы

« Предыдущие 35