Все игры
Обсуждения
Сортировать: по обновлениям | по дате | по рейтингу Отображать записи: Полный текст | Заголовки
Владимир Р, 08-01-2016 15:01 (ссылка)

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

false

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

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



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

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

Город: Омск

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

E-mail: vova6490@mail.ru

Skype: facebook:vova6490

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




Проблемма с конструктором формы (Visual Basic 2008)

Хочу заметить, что стирать код в VB-2008 нужно аккуратно, иначе пропадёт что-нибудь, и вернуть через меню, не всегда удастся!

Какое-то время не могла понять причину, почему исчезла форма, но всё-же поняла. Дело в том, что если стереть Public Class Form , то форма исчезнет после перезагрузки проекта.

Это будет интересно тем, кто с подобным столкнулся, но так и не выяснил причину.

Метки: Visual Basic 9, проблема

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

Tema App, 04-01-2010 15:23 (ссылка)

Помогите новичку решить задачу в Visual Basic

Решение записать в виде программы.

1 Даны действительные числа x и y. Если x и y положительны, то каждое число заменить его квадратом; если положительно только одно из них, то оба увеличить на 2.5; если оба числа не положительны и только одно из них принадлежит отрезку [0,10], то оба числа уменьшить в 3 раза; в остальных случаях x и y заменить их кубами.

2 Дана строка. Переставить символы в строке в таком порядке: первый, последний, второй, предпоследний, третий, предпоследний и т.д.

3 Целочисленная матрица n*m: найти пропорциональные столбцы и указать коэффициент пропорциональности.

4 Исключить из множества X целые числа, находящиеся в массиве {A1,A2,...A10}


Метки: задача, математика

slracer ., 18-11-2010 14:38 (ссылка)

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

 Подскажите пожалуйста как использовать свой шрифт если он находится в ресурсах
  Всяко разно пытался
   например
 pub.......
   button.font = new font (.............................)
end sub...

Метки: шрифт

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

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

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


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



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

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

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

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

помогите с VB6

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

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

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

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

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

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

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

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

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

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

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

slracer ., 17-11-2010 13:22 (ссылка)

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

 Подскажите пожалуйста как таскать форму не за заголовок, а за любое место в vb8

Метки: перемещение, форма

eugene popov, 28-10-2009 12:40 (ссылка)

Рисование графических объектов по нажатию кнопки в VB NET

Есть проблема - не пойму, как можно в VB NET  сделать так, что графические объекты рисовались, после нажатия кнопки. Например, нажимаем кнопку на форме и на этой же форме с помощью объекта Graphiocs рисуется хотя бы простейшая линия. Конечно, можно нарисовать ту же линию с помощью обработки события Me.Paint, но хотелось бы чтобы это происходило после нажатия кнопки.

Метки: Графика, Visual Basic .NET

Несложный вопрос

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

Метки: льстец, формы

slracer ., 23-11-2010 15:25 (ссылка)

На счет калькулятора

 Подскажите пожалуйста как сделать так что бы было как в калькуляторе "смена знака и поставить запятую в значении только один раз "  ПОЖАЛУЙСТА ОЧЕНЬ НУЖНО

Метки: Запрет ввода, Калькулятор, знак

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

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

Помогите пожалуйста с ккр:.



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





Метки: математика, уравнение

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

Please HELP!!!

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

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

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

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

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

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

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

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

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

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

slracer ., 30-11-2010 13:50 (ссылка)

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

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

Метки: TextBox, Split, новая строка

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

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

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

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

M A K C, 14-10-2009 16:17 (ссылка)

многопоточность на VB5 или 6

Кто нибудь вообще делал многопоточность?

Метки: многопоточность, Visual Basic 6

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

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

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

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

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

VB сайт

Я тут сайтик сделал в честь Visual basic 6.Заходим ригистрируемся Перейти на сайт

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

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

Калькулятор одной строкой (ScriptControl Object)

Интерестный контрол, который пригодится не только тем кто решил сделать калькулятор, но и просто тем, кому необходимо делать расчет с динамическими формулами.

Скачать его можно отсюда: СКАЧАТЬ

Вот пример его использования:


Метки: ScriptControl, Интерпретатор

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


Для скачивания!

Среда программирования.

    Популярные версии:
Visual Basic 6:          АНГЛИЙСКАЯ ВЕРСИЯ ; РУССКАЯ ВЕРСИЯ .
Visual Basic 2008:   РУССКАЯ ВЕРСИЯ .


Новинка: Visual Basic 2010


Книги по VB и не только.

Читать далее...  ]Электронный учебник по Visual Basic.
Читать далее...  ]Множество книг. Используем поисковик для поиска нужной книги.
Читать далее...  ]Ещё один сайт с книгами.
Читать далее...  ]Тоже хороший сайт, содержит большое количество книг.
Читать далее...  ]Самоучитель Visual Basic. Учебники по Basic.

Для просмотра!
Форумы.

Читать далее...  ]Форум посвященный Visual Basic.
Читать далее...  ]Форум по программированию (категория Visual Basic).
Читать далее...  ]Форум программистов (категория Visual Basic).
Читать далее...  ]Исходники.RU (категория Visual Basic).

Библиотеки.

Читать далее...  ]Программирование на Visual Basic разных версий.
Читать далее...  ]Программирование на MsAccess, VB, VBA.
Читать далее...  ]Visual Basic на русском.
Читать далее...  ]Огромная библиотека для программиста (категория Visual Basic).

API-функции.

Читать далее...  ]Справочник по API-функциям.
Читать далее...  ]Отличный сайт по API-функциям.

Разное.

Читать далее...  ]Программирование на любых языках.
Читать далее...  ]Web-мастеру.
Читать далее...  ]Информационный порталЧитать далее...  ]
Читать далее...  ]SoftDocЧитать далее...  ]
Читать далее...  ]Немного советов для программистов на VB и VBA.
Читать далее...  ]Сайт посвященный Visual BasicЧитать далее...  ]
Читать далее...  ]Портал о Visual Basic.


ЕСЛИ ЕСТЬ НОВЫЕ ССЫЛКИ, ВЫКЛАДЫВАЕМ ТУТ!

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

HELP PLEASE!

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

Кто хорошо разбирается в Visual Basic?

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

Метки: математика, задания

Портал о VB

заходите на vbprogs.3dn.ru хороший портал о Visual Basic.Там вы найдёте всё что надо для VB

Control Mozilla Browser

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

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

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

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