Короче, я смотрел форум с достаточно коротким названием Задачка. Там куча новичков просят помощи у форумчанинов. Ну так вот - для всех таких лентяев я делаю тему. Задавайте здесь вопросы типа Помогите написать программу на Бейсике. Буду по возможности отвечать. И прошу не писать мне сообщения типа зачем тебе это надо и т.п.

Для: gerich
1.Расположить на форме кнопку run. Щелчок по кнопкевызывает запрос 10 элементов массива Х. Записать в массив У номера эл-ов массива Х удовлетворяющих условию 1<=x(i)<=2.Вывести эл-ты массива У в метку.

2.Расположить на форме кнопку run. Щелчок по кнопкевызывает запрос эл-ов матрицы А(5*5). Найти наименший эл-т матрицы. Записать нули в строку, в которой нах-ся наим. эл-т матрицы. Вывести в метку эл-ты преобразованной матрицы.

3. Расположить на форме кнопку run. Щелчок по кнопкевызывает запрос строки, состоящей из отдельных слов, разделенных пробелами. Найти кол-во слов в строке. Вывести в первую метку исходную строку, во вторую кол-во слов.

4.Заданы 3 массива А(10), В(10),С(10).Определить кол-во положительных эл-ов до первого отрицательного в этих массивах. Для ввода массива и подсчета кол-ва нулевых эл-ов в массве написать процедуру пользователя.
Расположить на форме 2 кнопки input и run и метку.Щелч. по инпут трижды вызывает процедуру ввода массива,щелч. по ран, трижды вызывает процедуру подсчета кол-ва положительных эл-ов до первого отрицательного. Рез-т вывести в метку.

5. Сформировать справочник (массив) рейсов в аэропорту. Пол записи об одном рейсе : номер, тип самолета, пункт назначения, дата, время вылета. Выдать информацию обо всех рейсах в заданный пункт назначения на определенную дату.
Расположить на форме 2 кнопки input и run и метку.Щелч. по инпут вызывает запрос данных о рейсах, шелч по ран приводит к выводу в метку нужной информации.

ПОМОГИ ПОЖАЛУЙСТА!!!![color=#FF0000]

Люди не считайте меня идиот плз )) но мне нада помоч в одном.

Смарите я сделал прогу в ВБ в папку Resource закинул необходимые файлы, ну и сделал так типа при нажатии на кнопку тот та фаил включается (руссифкатор линяги). Но када я перевожу прогу в .ехе и делаю установщик как на другом компе включаю прогу типа пишет ненайден путь ресурсов прога занимает столько место сколько далжна с ресурсами а ресов нету, если не трудно плиз зайдите на сайт и скачайте эту прогу там всего 8 мб прошу очень ответьте посмотрите что за ошибка. Сайт la2twx.3dn.ru

Уважаемые программисты.
Не профессионал, просто любитель.
Пытаюсь самостоятельно научится программировать на VB.net 2003 делаю первые шаги.
Вот образчик моих потуг в программировании: (брал примеры кодов из справки и приспосабливал
под себя)

Dim fr As StreamReader
Dim FileString As String
FileString = ""
Try
fr = New StreamReader("D:\file.txt")
FileString = fr.ReadLine
Finally
fr.Close()
End Try
chislo1.Text = FileString

но это выполняется после нажатия кнопки, а надо что бы file.txt считывался автоматически в
textBox chislo1 в момент запуска программы.

Для: Александр Е
Даблклинкни по форме в дизайнере. Студия создаст пустой метод Form1_Load. Перенеси код в него.
И создавай отдельные топики для таких вопросов, ты не лентяй раз сам код пишешь .

ты упустил самое главное! в какой процедуре это у тебя происходит? верно в процедуре соответствующей нажатию кнопки. А тебе нужно перенести в процедуру Load главной формы (по аналогии с VB6, исправте меня если я не прав)
--------
сорри ответа выше не заметил

Сообщение отредактировал Hetman - 20:01:2008, 21:58

Спасибо все получилось, сейчас заработало как надо!

Здравствуйте!
задача практически решена(экономическая задачка по учету продукции на складе, всё действо проходит на одной странице Excel),
осталась небольшая загвоздка с выводом данных: нужно вывести результаты от цикла в таблицу Eхcel.
Через Range("P32" + nn).Value = realf
где P32-необходимая ячейка, nn - счетчик, realf - значение выводимой переменной
не получается.

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

подскажите, пожалуйста, как правильно сделать.
заранее Спасибо!

Если у кого есть время,
Задание:
Преобразовать выражение в соответствии с синтаксисом basic
y=ln(x)* (ln(z^2)/(exp(z)-1)-z*sqrt5(x)

Новую тему неохото открывать, так как мне кажется, вопрос несложный, но в котором мне не разобраться.В топике, про проигрывание mp3, я кажется разобрал все виды этого действия, но мне надо узнать, как можно записать и сохранить часть уже проигрываемый mp3 (какую либо его часть). при проигрывании я использовал функции mciSendString и mciExecute, но записывать файл получается только в wav, указывая тип waveaudio, если указывать тип MPEGVideo, то ничего не происходит, может как то по другому указать тип устройства (ID),тип файла, проигрывающего этот файл или какие флаги где нибудь указать (но какие и где ), может как то можно использовать звук на выходе звуковой карты? после попытки разобратся в MSDN , совсем запутался, может подмогнете, а

уж стоило бы делать так

Range("P" & CSTR(32 + nn)).Value = realf

изначально и ИМХО не было бы проблем

Сообщение отредактировал Hetman - 24:01:2008, 22:26

Как вовремя я наткнулся на этот пост!!! Вопрос такой. Какой процедурой или каким оператором надо воспользоваться что бы заставить фокус перемещатся на тот объект куда мне надо. Т.е. при нажатии кнопки открывается TextBox готовый к вводу (как в InputBox-е) или может надо в свойствах TextBox-а что-то настроить. Пытаюсь с Майклом Хальворсон это решить, не получается .

Для: Александр Е
Focus или SetFocus, в зависимости от того, в чем пишешь.

Здравствуйте! Помогите мне,пожалуйста!!!
Программирование на языке Visual Basic for Application
Составить таблицу следующего вида:
Марка автомобиля Масса груза(т) Расстояние(км) Стоимость перевозки 1 ткм(руб) Стоимость перевозки(руб)

Рассчитать стоимось перевозки, как произведение массы груза, расстояния и стоимости перевозки 1 ткм.
Найти минимальную стоимость перевозки.

Спасибо!!!

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

Ни разу с Екселем и ВБА дел не имел но для очаровательной девушки решил попробовать, стыдно сказать всю ночь промучился, и только самый простейший вариант сделал, но его дополнишь и се будет работать ок ( у меня работает)
ето все я вешал на настраиваемую кнопку моего макроса

Sub MYRECORD()

'заполняем нужные ячейки-заголовки
Cells(1, 1) = "Марка Авто"
Cells(1, 2) = "Масса Авто"
Cells(1, 3) = "Расстояние"
Cells(1, 4) = "Стоимость 1ткм"
Cells(1, 5) = "Стоимость перевозки"
Cells(7, 6) = "Минимальная стоимость"
'заполняем нужные ячейки марки авто
Cells(2, 1) = "Iveco"
Cells(3, 1) = "Volvo"
Cells(4, 1) = "MAN"
Cells(5, 1) = "Scania"
Cells(6, 1) = "Mersedes"
'далее заполняем другие столбцы
'...........
'...........
'подсчитываем стоимость для Iveco
Range("E2").Select
    ActiveCell.FormulaR1C1 = "=PRODUCT(RC[-3]:RC[-1])"
'повторяем для других авто
'...........
'находим минимум  из всех стоимиостей
Range("F8").Select
ActiveCell.FormulaR1C1 = "=MIN(R[-5]C[-1]:R[-1]C[-1])"
End Sub

Так как сия задача не имеет практической пользы в применени, как мне кажется, то я не стал заморачиваться с inputbox-ами,массивами,циклами и проверками на неправильное значение, да и в вопросе этого не стояло так что прошу прощения за столь детсадовское решение

Спасибо большое!!! Вы меня очень выручили! Я попробую разобраться. И совсем не надо извиняться - я сама безумно далека от этого всего... Когда все сделаю, обязательно сообщу. Спасибо!!!

P.S. Вся ночь... такие жертвы!!! Я очень польщена! Спасибо!!!

Люди! Я недавно научился немного программировать на басике и вот что. Скачал исходник игры типа настольный мяч. Одна проблема. Там лежат файлы макса (3d max) с расширением .max Это модели мяча и доски. Также лежат файлы с расширением .x которые названы так же как модели расширения макс. Как из максовских моделей сделать модели для басика с этим расширение .x? А то в максе я моделирую неплохо а вот откуда эти файлы .x берутся не знаю. Очень прошу помочь!

Добрый день.
Помогите решить задачу...
На форуму нужно кинуть 1 текстовое поле и 3 объекта lable
В текстовом поле можно писать тоолько русские, заглавные и сточные буквы

После ввода в текстовое поле ФИО(фамилия имя очество) человека в произвольном регистре с пробелами и по нажатию клавиши ENTER из исходной строки, нужно отделить фамилию, имя и очество и вывести их в поля lable(в 1 lable фамилию, во 2-ю lable имя и в 3 очество)

Я только сумел написать код для ввода в текствое поле ФИО...

Private Sub txtFIO_KeyPress(KeyAscii As Integer)
Select Case KeyAscii
Case 8, 32, 45, 192 To 255
Case 13
Call findFIO
Case Else
KeyAscii = 0
End Select
End Sub

Прошу помочь...За раннее спасибо.

идею можно реализовать таким образом:
взять строку с ФИО и с помощью функции SPLIT расчепить её и присвоить переменной типа VARIANT, тем самым получится массив, затем с помощью цикла можно перебрать все её элементы и забить в требуемые тебе лэйблы. Информацию по функция можешь найти ]]>здесь]]>

Сообщение отредактировал Hetman - 7:03:2008, 16:14

SOS!!Ljudi dobrije!!pomogite mne ,blondinke, pozalujsta!! Ja v etom vba nichego ne ponimaju..uchus na gumanitarnom fakultete i s informatikoi ne druzu s detstva!!!pomogite napisat rabotu, esi ne trudno ..nuzno sdelat multik i graficheskije objekti uze est, ostalos tolko programmu napisat..te, kto mozet pomoch pishite na mail blackcat88@list.ru! Zaranee ogromnoe spasibo!

Скиньте мне пожалуйста 10 решенных задач по VB на тему "Работа и обработка с файлами *.txt"

Сообщение отредактировал PYCTAM - 17:03:2008, 06:34

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

никогда такого не видел