» Задачи на Visual Basic (VB).

помогите решить задачи,пожалуйста!! 1.найти произведение элементов первой строки на соотв. элементы к-го столба. 2.умножить скалярно каждый столбец матрицы А(n,m) на соотв. столбец матрицы B(n,m). напишите программные коды,пожалуйста!!!

не туда....

Доброго времени суток, как написать матрицу с четырьмя нечётными вершинами в графе в visual basic 6.0?
Само задание звучит так: написать программу, которая выдаёт значение графа: уникурсальный/неуникурсальный (т.е. тот граф, который можно нарисовать проведя по его вершинам ровно 1 раз)
я долго думал с учителем и мы решили что это тот граф у которого матрица содержит 4 нечётные вершины. а вот как задать такую матрицу, я уже 3 недели не могу догодаться, помогите пожалуйста.

Scorogovorka
Граф, который можно нарисовать проведя по его вершинам ровно 1 раз - это вроде как граф с 2 нечётными вершинами или вообще без нечётных вершин... По крайней мере, если я правильно понял суть

Добавлено:
А вот суть задачи (что конкретно надо сделать) я так и не понял...

надо написать матрицу, чтобы в ней отображался граф с 4мя нечётными вершинами. матрица смежности вроде её величают...

Добавлено:
в visual basic 6.0

Доброго времени суток!
За два дня сломал голову. Надо написать перекодировщик из Quoted-printable строки в удобочитаемый вид.

Сейчас есть такая функция (взята с форума MSDN).


Код:
Imports Microsoft.VisualBasic
Imports System
Imports System.Text
Imports System.Text.RegularExpressions

Public Shared Function DecodeQuotedPrintableString(ByVal encodedString As String) As String
Dim b As New StringBuilder()
Dim startIndx As Integer = 0
Dim QuotedPrintableRegex As New Regex("=(?<hexchars>[0-9a-fA-F]{2,2})", RegexOptions.IgnoreCase Or RegexOptions.Compiled)
Dim matches As MatchCollection = QuotedPrintableRegex.Matches(encodedString)

For i As Integer = 0 To matches.Count - 1
Dim m As Match = matches(i)
Dim hexchars As String = m.Groups("hexchars").Value
Dim charcode As Integer = Convert.ToInt32(hexchars, 16)
Dim c As Char = ChrW(charcode)
If m.Index > 0 Then
b.Append(encodedString.Substring(startIndx, (m.Index - startIndx)))
End If
b.Append(c)
startIndx = m.Index + 3
Next

If startIndx < encodedString.Length Then
b.Append(encodedString.Substring(startIndx))
End If
Return Regex.Replace(b.ToString(), "=" & vbCr & vbLf, "")
End Function

Всем доброго!

Не могу понять почему не перенаправляется выходной поток в файл.
Вот следующая кострукция не отрабатывает:

Код: Set WshShell = WScript.CreateObject("WScript.Shell")
RetCode = WshShell.Run ("ftp -s:" & ftpscript & " >>F.log", , True)

Доброго времени суток!
Есть такой вопрос. У меня на сервере есть расшаренный диск Obmen называется, предназначен для обмена информацией в сети между пользователями, (чтобы с флешками не бегать). Я написал скрипт который выводит информационное окно.
Задача в следующем, как сделать так чтобы этот скрипт выполнялся когда пользователь заходит на Obmen. Пробовал через авторан, но ничего не запускается.
Вот код скрипта.


Код: ' Объявление переменной:
Dim strMessage
' Присваивание переменной значения:
strMessage = "Этот сетевой диск предназначен для ОБМЕНА информацией, а не для ее хранения! Пожалуйста вовремя делайте резервные копии ВАЖНЫХ документов и храните их в надежных местах!"
' Вывод окна с сообщением:
MsgBox strMessage

Положи текстовый файл с таким названием "Это вам не помойка, охламоны!.txt" и будет тебе шастьё.

Цитата:

Положи текстовый файл с таким названием "Это вам не помойка, охламоны!.txt" и будет тебе шастьё.

как я сразу то не подумал!!!!

)

В общем суть. Есть тхт файл, в котором в виде таблице данные: слово, столбец в котором 0 или 1,время(в формате 00:00:00), столбец в котором 0 или 1
Пример:
Привет 1 00:00:02 0
Нужно в забить 2 массива, один содержанием второго столбца (0 или 1), и второй содержанием 3 столбца (временем).
И еще, время - это время за которое набирают слово и нажимают пробел. Считается оно криво, записывается системное время между нажатиями на пробел и вычитается предыдущее время. Можно ли перевести время в нормальные секунды или вычислять время как-то по иному?

нашел такой вот скриптик для вставки подписи пользователям. подскажите как его модифицирвоать чтоб вставлялась еще и картинка, т.е. он генерировал не только текст, но и вставлял логотип компании

http://blog.wadmin.ru/2009/09/email-signature/

Здравствуйте!

Мне требуется решить вот такую проблему:
Имеется документ MS Word, который состоит из двух страниц. На первой странице документа в четырех местах имеется шифр вида "x" и этот шифр необходимо менять в арифметической последовательности "x+1", а остальной текст оставлять без изменений и при этом распечатывать каждый раз при изменении значения в автоматическом режиме, используя двустороннюю печать.

Используя возможности VB я добился следующего:
1 - при открытии документа у меня появляется форма, в которую я ввожу начальное значение шифра вида "x", потом ввожу общее число необходимых мне подстановок "y" (то есть например, при вводе числа y=50, будет выведено на печать 50 документов, с изменёнными значениями начиная с "x" и заканчивая "x+49")
2 - кнопка "подстановка" меняет шифр вида "x" на введённое значение в создаваемом документе в необходимых мне четырёх местах (это я сделал при помощи закладок)
3 - кнопка "отмена" закрывает форму, потом документ и затем закрывает Word

Мне осталось сделать самое главное - кнопка "подстановка" должна называться "печать"и при этом документ автоматически должен распечатываться на одном листе с двух сторон в необходимом количестве экземпляров, учитывая значения "x" и "y"

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

Поздравляю с днём ПРОГРАММИСТА

Вообщем есть 2 элемента один овал (нарисованный кружок), второй картинка рядом с ним (обычный квадрат). Рядом создал альфанамерик при помощи которого отображается температура. Вот надо написать скрипт на 2 элемента, чтобы допустим при 18С был синий цвет на овале и картинке, а при 23 желтый и т.д

[more] Здравствуйте.
Нужна помощь в создании скрипта.

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

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

У меня есть вот такое тело скрипта для проверки папки на наличие файла, но так как я не имею опыта в написании скриптов-для меня нарисовалась проблема в дополнении этого тела нужными мне функциями - цикличная проверка каждые 2 минуты, отправка на печать, удаление/перемещение файла. Скрипт нужен vbs с этим видом я хоть как-то уже знаком.

Option Explicit
On Error Resume Next

'Объявляем переменные
Dim objFSO, strFlagFile

'Создаём объект файловой системы
Set objFSO = CreateObject("Scripting.FileSystemObject")

'Задаём путь к файлу-флагу
strFlagFile = "путь_к_файлу\flag.file"

'Проверка наличия файла
If objFSO.FileExists(strFlagFile) Then
WScript.Echo "File Exist!"
Else
WScript.Echo "File Not Exist!"
End If

WScript.Quit 0 [/more]

TePP0PucT
Перемещение файла, печать, пауза (тело скрипта, соответственно, загоняется в бесконечный цикл типа while(true)).

[more] Есть два скрипта, не пойму как объединить.


Цитата:

strDir = "c:\temp" ' каталог, за которым следим
strComputer = "." ' имя компьютера; "." означает текущий компьютер
'==============================================================================
strDirSlash = Replace(strDir, "\", "\\\\")
strNamespace = "Root\CIMV2"
' Подключаемся к пространству имен
Set objService = GetObject("WinMgmts:\\" & strComputer & "\" & strNamespace)
Set objSink = WScript.CreateObject("WbemScripting.SWbemSink", "Sink_")

objService.ExecNotificationQueryAsync objSink, _
"SELECT * FROM __InstanceCreationEvent WITHIN 5 WHERE " &_
"Targetinstance ISA 'CIM_DirectoryContainsFile' and " &_
"TargetInstance.GroupComponent= " &_
"'Win32_Directory.Name=""" & strDirSlash & """'"

' Выводим сообщение о запуске сканера
Wscript.Echo "Запущен сканер создания файла в папке " & strDir

' Запускаем бесконечный цикл ожидания
While 1
WScript.Sleep 1000
Wend

' Процедура-обработчик события OnObjectReady объекта sWbemSink
Sub Sink_OnObjectReady(oOutParams, oContext)
strResult = Date & " " & Time & vbCrLf &_
"Создан файл: " & oOutParams.TargetInstance.PartComponent
Wscript.Echo strResult
End Sub

Цитата:

Option Explicit
Const PrintFolder = "C:\B\"


DIM objShell : Set objShell = CreateObject("Shell.Application")
DIM objFolder : Set objFolder = objShell.Namespace(PrintFolder)
Dim objItem
For Each objItem in objFolder.Items
'WScript.Echo "Printing..." & objItem.Path
objItem.InvokeVerbEx("Print")
Next

[/more]

Думаю уже неделю как сделать, есть у кого соображения?
Разработать программу для расчета 5 значений функции
(lnx^2)-(e^(ax+b))+lg[a-b](a-b это модуль)
a=------------------------------------------
arctg(2x+0,5)+корень 3-й стпени от(a+bx)

Два аргумента считать переменными(изменяются в соответствии с произвольно выбраной прогрессией), остальные константами, ввод и вывод результата вычислений осуществить на пользовательскую форму.Результаты проверить средствами ms excel на листе построить таблицу значений переменных и функции(константы задаются однократно,в формуле обязательно искользовать обсолютные ссылки на них)

Вообщем дела обстоят так, у меня в колледже появился предмет vba, последний раз полгода назад получил базовые знания толком вообще ничего не помню... И теперь всё никак не могу задачу додумать
Вообщем вопрос такой, скажем так по UserForm, элемент TextBox для ввода и вывода сообщений, не могу разобраться с выводом, присвоил элементу переменную (Rezult = TextBox2.Value), ну и как сделать так, чтобы выводилось в тестовое сообщение с какой нибудь числовой переменной. Например: (Ваш путь составляет: "значение переменной") - главное чтоб это было в окне TextBox, как выразить через переменную которую я присвоил данному элементу?
P.s. Заранее извиняюсь если вопрос составлен не совсем грамотно, просто действительно так сразу всё и не вспомнишь

DreamWorcs


Код: Dim X as integer
X = 5

Dim S as string
S = "Ваш путь составляет: " & X
TextBox2.Value = S

или

TextBox2.Value = "Ваш путь составляет: " & X

dneprcomp спасибо все прокатило

Сначала попробовал первый вариант, присвоил TextBox переменную с типом данных Variant, но форма не работала попробовал второй вариант и всё зарботало!
Еще раз спасибо

DreamWorcs
Variant по возможности лучше не использовать. Это все равно, что не объялять data type. Кто знает, что там в variant сейчас лежит... Texbox принимает string. При конкатенации(&) VBA пытаеся преобразовать значение переменной в string. При невoзможности(из variant) будет error msg или програма просто ничего не сделает.

Цитата:

Variant по возможности лучше не использовать. Это все равно, что не объялять data type. Кто знает, что там в variant сейчас лежит...   Texbox принимает string. При конкатенации(&) VBA пытаеся преобразовать значение переменной в string. При невoзможности(из variant) будет error msg или програма просто ничего не сделает.

dneprcomp, Спасибо возьму на заметку

Опять возникла проблема... как правильно сделать проверку на число выпадающего списка ComboBox? Т.е. Чтоб нельзя было вводить нечисловые данные...
Мой вариант таков:

Код:
Dim X As Integer
X = ComboBox1.Value
If IsNumeric(X) = False Then
MsgBox "Неверно вели данные", , "Ошибка"
End If

DreamWorcs
Так проверяй, чему равен X в момент ошибки.
И error msg надо показать здесь тоже.

dneprcomp Ошибка "несоответствие типов данных", мой косяк был в том что я додумался поставить проверку после вычислительных действий над переменной, а надо было перед... Сейчас то нормально MsgBox вылетает, однако после нажатия на ок опять выскакивает дебаг

DreamWorcs
Не имея програмы и не работая с кодом можно только безрезультатно гадать.
Такие ошибки надо наблюдать самому, а не разбираться по пересказу.
И даже с кодом, но на другом компьютере, поведение может быть другим.
Если хочешь, закинь на обменник. Попробую посмотреть.

задача по инфе в QBasic
из множества точок найти треугольник самый большой по площади и самый маленький по плащади
ето срочно!
зарание спасибо!