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

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

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

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

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

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

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

Город: Омск

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

E-mail: vova6490@mail.ru

Skype: facebook:vova6490

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

Привет Всем! Заранее буду очень признателен за оказанную помощь.
Есть таблица расчета, где в ячейках по горизонтали введены буквы А, В, С и т.д, а по вертикали 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

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

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

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

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

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

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

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

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



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

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

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

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



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

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

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

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

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

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

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

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

Странности 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

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

Подскажите код чтобы перемещать форму за любое место как за заголовок
########################################################
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
########################################################
С этим кодом как то не очень смотрится, когда быстро перемещаешь форма не следует за курсором (сбивается). Подскажите, очень нужно, ни где не могу найти.

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

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

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

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

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

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

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

Мне нужно в 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

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

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

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

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

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

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

Помогите пожалуйста написать программу к заданию:
Программа-льстец. На экране появляется вопрос "Кто ты: мальчик или девочка? Введи Д или М".
в зависимости от ответа на экране должен появиться текст "Мне нравятся девочки!" или "Мне нравятся мальчики"

Необходимо составить программу на языке программирования
Visual
Basic
для
вычисления выражения: при x =2

 Подскажите пожалуйста как подсчитать количество строк, и отдельно, подсчитать сколько символов в одной строке ну например в textbox`e?