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

TyMc
Идёшь Project References выбираешь Microsoft Scripting Runtume
Применение. Пусть у тебя массив слов Words() As String

Код:
Dim pDic As New Scripting.Dictionary, i As Long

For i = LBound(Words) To Ubound(Words)
If pDic.Exists(Words(i)) Then
pDic.Item(Words(i)) = pDic.Item(Words(i)) + 1&
Else
pDic.Add Words(i), 1&
End If

Все привет!!!!
Подскажите как сделать папку на VBS с именем текущего дня?????? т.е DDMM.....

JCC
MkDir Format$(Now,"DDMMYYYY")

AndVGri
не получается.... Можешь подробнее....

JCC
И какое сообщение об ошибке получил?

AndVGri
Вопрос был по VBS, а он не поддерживает эти функции.
JCC

Код: Dim fso
Set fso = CreateObject("Scripting.FileSystemObject")
fso.CreateFolder FormatDateTime(Now,2)

Rush
Извиняюсь, конечно, но тема то по VB? Вот и не глядя,

Цитата:

Dim pDic As New Scripting.Dictionary, i As Long

For i = LBound(Words) To Ubound(Words)
If pDic.Exists(Words(i)) Then
pDic.Item(Words(i)) = pDic.Item(Words(i)) + 1&
Else
pDic.Add Words(i), 1&

хмм не работает, эта функция в VBS работает?

TyMc
Раздел по VBSrcipt здесь

Объяви
Dim pDic, i
Set pDic = CreateObject("Scripting.Dictionary")

Народ Хелп ми срочно пожалуйста Хедп)))

Известны среднемесячная температуры за год. Вывести на экран список названий месяцев в которых средняя температура была выше 7 градусов. Список месяцев расположить в порядке убывания их среднемесячных температур.

В числовую переменную последовательно 10 десятичных цифр. Вывести на экран изображение числа без незначащих нулей, составленного из этих цифр в порядке их ввода. Предусматреть проверку правильности ввода информации

Мужики кто знает Quick Basik? помогите, а то не хочу свой мозг засорять учив синтаксис его.

1) Нужно написать программу выводящую на дисплей количество символов(букв) в слове вводимом с клавиатуры. + замену в слове буквы на другую.
Т.е. запрашивается слово: Например вводится шалаш
Потом выводится что в слове шалаш 5 букв.
Потом я "ш" заменяю на "б", получаю балаб

2) Написать программу нахождения суммы чисел полученных с натуральных чисел А и Б отбрасываемых старших чисел если они парные.

3) Подпрограмма-функция:

Даны действительн. числа s, t Получить F(t, -2s, 1.17)+F(2.2, t, s-t), где
F(a,b,c)= (2a-b-sinc)/(5+|c|)

4) Подпрограмма -функция и подпрограмма-процедура:
Программа нахождения площади треугольника по трем сторонам.

Зы. Знаю Паскаль и чуток С++, но дали задание на зачет сделать все это на Бейсике в эммуляции ДОС.

Нужна помощь. Сам я строитель =) Но вот девушке (экономисту) к зачету дали на VBA написать такие вот вещи...

У вас есть доллары. Вы хотите обменять их на рубли. Есть информация о стоимости купли-продажи в банках города. Разработать функцию пользователя, определяющую самый выгодный курс рбмена

Разработать форму пользователя для расчета показателей характеризующих текущее платежеспособность предприятия:
Наименование предприятия
Юридический адрес
Коэффициент покрытия=ликвидные активы/краткосрочные обязательства
Коэффициент ликвидности = (денежная наличность + ценные бумаги + счета к получению)/краткосрочные обязательства
Коэффициент среднего срока складирования = (360*средний уровень запасов)/себестоимость реализованной продукции
В программе предусмотреть проверку корректности данных и вывод сообщения о неустойчивом состоянии предприятия. В случае когда Коэффициент покрытия < 2.

Насколько я понял из ее объяснений, все данные нужные для расчета вводятся вручную.

На 2 курсе мне препод дал такую лабу: сделать Поле Чудес на языке С# в VisStudio 05.
Эта лаба должна быть сделана по слудующим критериям:

№1
Создайте приложение. Задайте строку меню , по которой будут вызываться диалоговые окна . Создайте диалоговые окна, в которых будут задаваться новые данные, редактироваться старые и выводиться результат
№2
Создать требуемый класс(Прописать все необходимые функции и данные. Добавить во все диалоговые окна все нужные элементы.
№3
Создать для редактирования, поиска и отображения данных таблицы. Предусмотреть им-порт и экспорт в одну из баз данных.
№4
Прописать все стандартные окна: открытие файла, сохранение, печать, настройки шрифта и цветов №5
Создать графический модуль и сделать графическое отображение объекта класса №6
Создать двуязычное меню, двухрежимный вариант работы (администратор и пользова-тель).
№7
Создать панели инструментов, возможность вызова команды через клавиатуру или мышь.

Народ, плиз помогите, а то я ни фига не знаю как работать в Vis Studio05.

Народ ещё киньте ссылки, где в нете можно найти проги или лабы, зделанные на языке
C # в Vis Studio 05!!!!!!!

for td88:
тебе сюда
http://www.intuit.ru/department/pl/csharp/1/

Народ кто мне может помочь в решении задачи.Вот условие: Разработайте прогамму для решения квадратного уравнения ax(в квадрате)+bx+c=0.Пользователь будет вводить a.b.c.Программа сначала вычсляет D=b(в квадрате)-4ac,если дискреминант больше нуля,то вычмсляется корни квадратного уравнения по формуле

x1,2=-b+-корень из D,делить на 2ас.

Sargento
держи, компилировано в Visual Studio, как консольное приложение:

Цитата:

Module Module1

Sub Main()
Dim a, b, c, x1, x2 As Double 'значения для ввода данных и вывода результатов
Dim dd, d As Double ' хранение промежуточных результатов вычисления корня

'выводиться для справки и исключения ошибок
Console.WriteLine("Формат уравнения: ax^2 + bx + с = 0")
1:
Console.Write("Введите число а: ")
' обработка ошибок при вводе, проверяется только есть ли значение
Try
a = Console.ReadLine()
Catch
Console.WriteLine("Введите значение!")
GoTo 1 ' если нет значения, то начинаем заново. Также и для остальных
End Try
2:
Console.Write("Введите число b: ")
Try
b = Console.ReadLine()
Catch
Console.WriteLine("Введите значение!")
GoTo 2
End Try
3:
Console.Write("Введите число с: ")
Try
c = Console.ReadLine()
Catch
Console.WriteLine("Введите значение!")
GoTo 3
End Try

' Вычисление уравнения
dd = (b ^ 2) - 4 * a * c
If dd < 0 Then
' проверяем из какого числа береться корень,
'если из отрицательного, то идем в конец программы
Console.WriteLine("Корень из отрицательного числа!")
Console.WriteLine("Ответы:")
Console.WriteLine("X1 = Нет решения")
Console.WriteLine("X2 = Нет решения")
GoTo 4
Else
d = Math.Sqrt(dd)
x1 = (-(b) + d) / (2 * a)
x2 = (-(b) - d) / (2 * a)
' вывод информации: получившееся уравнение и ответы
Console.WriteLine("**********************************************************")
Console.WriteLine("Вид уравнения: " & a & "x^2 + (" & b & "x) + (" & c & ")= 0")
Console.WriteLine("**********************************************************")
Console.WriteLine("Ответы:")
Console.WriteLine("X1 = " & x1)
Console.WriteLine("X2 = " & x2)
End If
'новый ввод данных, надо ответить да
4:
Dim ans As String
Console.WriteLine("Начнем заново? [да] [нет]: ")
ans = Console.ReadLine()
If ans = "да" Then
GoTo 1
End If
End Sub
End Module

Отредактировал свой пост, небольшой ляп был при отрицательности корня, сейчас поправил.
(19 июня 2007 г. 0:09:42)

Спосибо

Народ, как в Visual Studio стелать следующее:

Дана форма, в ней PictureBox и Кнопка, в PictureBox'е картинка, как сделать,
чтоб после нажатия кнопки рисунок вращался по часовой или против часовой стрелки????

Или у меня дано несколько картинок, и как сделать что после нажатия кнопки
картинки менялись в PictureBox??????
Помогите, а то это не фига не знаю как делать!!!!!

Язык С# Visual Studio 05!!!!

всем привет!!вот не могу никак решить эту дибильную задачку...помогите плз)))
Составьте программу для расчета платы за перевозку экспортных и импортных грузов по железной дороге на расстояние 1000 км в зависимости от массы груза: F=33,43*M +10166.Выполнить расчет при след. значениях исходных данных: M=10,15,...40 тонн.Определите среднее значение платы.
тока тут прям решение надо((((
Заранее спасибо)))

td88

Цитата:

Дана форма, в ней PictureBox и Кнопка, в PictureBox'е картинка, как сделать,
чтоб после нажатия кнопки рисунок вращался по часовой или против часовой стрелки????

можно сделать путем перерисовки с новыми координатами. Попробуйте на это счет книжки поштудировать. И лучше данные сообщения в своей ветке писать.
kennygirl
держай:

Цитата:

Module Module1

Sub Main()
Dim m, f, sm, nach_z, kon_z, del As Double
Dim Srednee As Double
nach_z = 10 'Начальное значение
kon_z = 40 'Конечное значение
sm = 0 'Обнуляем переменную
For m = nach_z To kon_z Step 5 'Берем массу в тоннах с шагом в 5 тонн
f = (33.43 * m) + 10166
Console.WriteLine("Масса:" & m & ", оплата:" & f) 'Выводим на экран соответсвие массы к оплате
sm = sm + f 'Общая сумма, нужна для расчета средней платы
Next
del = ((kon_z - nach_z) / 5) + 1 'вычисляем на что нам делить
Srednee = sm / del ' общую сумму делим на значение del
Console.WriteLine("Средняя оплата:" & Srednee)
1:
Dim ans As String
Console.WriteLine("Ну вот и все. Выходим? [да] [нет]: ")
ans = Console.ReadLine()
If ans = "нет" Then
GoTo 1
End If
End Sub

Если надо вводить данные оставил "пути отступления": значения nach_z и kon_z, как вводить можно посмотреть из прошлого моего примера плюс убрать присвоение после Dim'ов.

Подскажите,где можно найти теоретическую базу по VB.Завтра сдавать экзамен(((
Вопросы такие:
1.Базовые элементы языка.
2.Интегрированная среда(Редактор VB)
3.Структура программы.
4.Типы данных.
5.Типы данных.Совместимость типов и значений,финкции приеобразования типов.
6.Тип данных String.Функции для обработки строк.
7.Организация ввода-вывода в программе.
8.Организация линейной структуры в программе.
9.Построение условных конструкции в программе.
10.Организация циклов в программе.
11.Структурированные типы данных.Массивы.Типичные операции над массивами.

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

Danceangel
да-а-а, чего-то вы "рано" собрались за книжками.
Ну ладно:
вот книги
Чарльз Петцольд
Программирование для Microsoft Windows на Microsoft Visual Basic .NET. в 2-х т.
разжовано до невозможности(но по объему более 1000страниц, т.к. что до завтра точно не прочитать)
т.1: к сожалению ссылки нет, придется искать
т.2(размер:91метр): _http://rapidshare.com/files/30672729/Programmirovanie.dlya.Microsoft.Windows.na.Microsoft.Visual.Basic.NET.T.2.2003._www.all-eBooks.com_.
Книжка по проще, если найдете то вам сказачно повезло:
Уоллес Вонг. Visual Basic .NET для чайников, опять же ссылки нет.

Народ, сорцы криптора на вб некто не видел?

удалите этот пост

Доброго дня.

Помогите кто может. Пробема в следующем:

Не могу нигде найти MCI microsoft multimedia control 6.0

Прочитал в книге следующий абзац:
"Для управления мультимедиа используется элемент управления MCI microsoft multimedia control, который позволяет выполнять все необходимые действия с устройствами мультимедиа. Чтобы этот элемент управления можно было использовать в приложении, необходимо подключить к проекту библиотеку Microsoft Multimedia Control 6.0, используя вкладку COM диалогового окна Add Reference, открываемого командой Add Reference меню Project. Для отображения элемента управления Microsoft Multimedia Control в окне Toolbox необходимо воспользоваться диалоговым окном Choose Toolbox Items, открываемым одноименной командой Tools."

Так вот я не могу найти у себя этого С_т_РАН_н_ОГО элемента. Да и не только его. Библиотека тоже напрочь отсутствует.

Подскажите где взять эту библиотеку. Плиз. Задолбался ковырять NET. Ничего похожего...

zerkalo77

Цитата:

необходимо подключить к проекту библиотеку Microsoft Multimedia Control 6.0

Находится в MCI32.OCX. Входит в стандартный VB6.

Помогите с идеей...
Нужно мониторить один постоянно пополняемый лог-файл (по определенной строке в файле - определенное событие необходимо выполнять, например отправку сообщения на почту).
Какой алгоритм наиболее приемлим в данном случае? (основной вопрос - отслеживаение изменения файла и каким-то образом выяснение, что изменилось-добавилось).

Помогите найти инфу по использованию TAPI в VB6

Помогите!
задача: есть БД в ней таблицы, одна из таблиц bins. в ней два столбика bin и bank. Есть форма в которой необходимо проводить проверку:
Sub Form_Current()
If Left(номер, 6) = [данные с таблицы bins столбца bin] Then
Переключатель16.Visible = False
Переключатель14.Visible = True
Else
Переключатель16.Visible = True
Переключатель14.Visible = False
End If
End Sub

Помогите с синтаксисом - [данные с таблицы bins столбца bin].
или подскажите как перечислить 30-40 значений

Спасибо

melniki
похоже тут плохо с бейксистами
что касается Вашей задачи - надо было указать что за формат базы, способ подключения к ней, но в общем случае:
1. подключаемяс к базе
2. создаем набор Recordset
3. цикл с первого по последний Recordcount
4. значение поля = ВашRecordset.Fields("Имя поля")
для текущей записи.