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

Помогите!!! Считываю с диска названия папок и файлов, как сделать чтобы они заносились в разные списки(List1 и List2)? В чем их отличия?

Здравствуйте! Помогите решить пару задачку:
Дана квадратная матрица A(5:5). Найти минимальное значение среди положительных элементов верхнего треугольника матрицы.

моя аська: 364107942 мыло: ardashev@e1.ru

Сообщение отредактировал ZEISS - 24:06:2008, 07:33

помогите создать программу, которая из заданных 10 чисел выдавала бы все варианты по 6 чисел.
например:
1 2 3 4 5 6 7 8 9 10
1 2 3 4 5 6
1 2 3 4 5 7
1 2 3 4 5 8
1 2 3 4 5 9
1 2 3 4 5 10
2 3 4 5 6 7
..........ИТД
а в отдельной ячейке выводилось бы число полученных вариантов
пишите сюда или на serega3001@mail.ru
спасибо

Привет УМЫ!!!
Сейчас Вы будете смеятся ...но мне ничего не остается делать как обратится к Вам...
Начал изучать Бейсик ... и уже столкнулся с маленькой проблемкой такого характера ...
Создал в форме 1 единственную кнопку Microsoft Multimedia Control 6.0 (S/P3)

Написал для нее код ... (хочу что бы при нажатии на нее начинал играть музон)

Private Sub Плеер_Done(NotifyCode As Integer)
Плеер.DeviceType = "WaveAudio"
Плеер.FileName = "C:\WINDOWS\Media\chimes.wav"
Плеер.Command = "Open"
Плеер.Command = "Play"
End Sub

Но ничего не выходит ... кнопка - не нажимается и не работает ни фига ...
Вот скрин еще гляньте ]]>http://img247.imageshack.us/img247/1131/25761710dr9.gif]]>
Ребята...подскажите что я не так сделал ... сижу и уже не знаю че делать ...

Здравствуйте, коллеги.
Изначальная задача. которая реализовалась - создание БД из N-го кол-ва однотипных файлов Excel (>1000). Модуль написан и работает. Трудность заключается в том, что выгружает данные он с 1го листа в книге, а необходимо загружать с листа с определенным названием, а лист этот не всегда присутствует в книге. Прошу дополнить модуль функцией проверки наличия в книге листа с заданным именем и вставить в тело программы комманду о соответствующей проверке и выгрузке данных, если лист есть. За основу возьмем лист "Заемщик".

С программированием знаком, но с VBA не сталкивался, а во времени ограничен.
Буду благодарен за понимание и Ваше время.

Помогите, плиз, кому не трудно
Я, в принципе программировать умею, но с VB практически не сталкивался
А тут понадобился макрос для EXCEL
Вот упрощенная формулировака задачи (имея пример, я сам доделаю)

1. Надо открыть файл по фиксированному пути (например C:\путь\файл.txt)
2. Этот текстовый файл содержит 2 строки, в каждой строке число в формате nn...n.nn
3. Эти числа надо записать в открытый в EXCEL файл в заранее известные ячейки
Например: Лист1!A1 и Лист2!B2
4. Закрыть файл

Спасибо

Сообщение отредактировал Hryv - 5:08:2008, 07:22

есть скрипт для перезагрузки модема
strComputer = "."
strTarget = "turbo.uralcom.com" 'IP address or hostname
Set objWMIService = GetObject("winmgmts:" _
& "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")
Set colPings = objWMIService.ExecQuery _
("Select * From Win32_PingStatus where Address = '" & strTarget & "'")
If Err = 0 Then
Err.Clear
For Each objPing in colPings 'избавиться от форича
If Err = 0 Then
Err.Clear
If objPing.StatusCode = 0 Then
' если статус = 0, пустая строка - другое
Else
Set oShell = WScript.CreateObject("WScript.Shell")
oShell.Run "telnet.exe 192.168.1.1"
WScript.Sleep 1000
oShell.SendKeys "user" & chr(13)
WScript.Sleep 1000
oShell.SendKeys "password" & chr(13)
WScript.Sleep 1000
oShell.SendKeys "sys reboot" & chr(13)
End If
Else
Err.Clear
WScript.Echo "Unable to call Win32_PingStatus on " & strComputer & "."
End If
Next
Else
Err.Clear
WScript.Echo "Unable to call Win32_PingStatus on " & strComputer & "."
End If
при вводе sys reboot выдает ошибку ss r52 помогите нужен скрипт способный на перезагрузку модема по телнету
задача такова
1)соеденение
2)ввод пароля
3)ввод команды sys reboot
очень нужно

Тривиум, пробуй так.
Назови Microsoft Multimedia Control как MMControl, и добавь в форму следующий код:

Private Sub Form_Load()
MMControl.Notify = False
MMControl.Wait = True
MMControl.Shareable = False
MMControl.DeviceType = "WaveAudio"
MMControl.FileName = "C:\WINDOWS\Media\chimes.wav"
End Sub

Private Sub Form Unload(Cancel As Integer)
MMControl.Command = "Close"
End Sub







Помогите мне плз!
Существуют 2 Excel'евских файла на диске С:\ - book1.xls и book2.xls (Пути: C:\book1
C:\book2)
В книге book1.xls в поле A1 существует некое значение, которое нужно скопировать в book2.xls в поле B1.
Как это осуществить при помощи VB6.0, чтобы вышеописанное выполнялось по нажатию кнопки?

привет всем, в Универе Басик не учил, никакой, только паскаль, но на работе встала задача подправить в аутглюке кое чего, а именно:
Вся входящая почта должна нумироваться, в идеале - програмно создаваться поле
текст скрипта, вдруг и там глюканул чего:


Сообщение отредактировал zwitter - 5:09:2008, 11:09

Народ помогите пжалста.

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

вот собственно мне очень нужна помощ по какому вопросу.
Как обратится к ексель таблице через диаграмму. или банально обновить диаграмму. потому как именно в этом вопросе косяк имхо.

Всем привет, помогите решить задачку!
Расстояние до ближайшей к Земле звезды Альфа Центавра -4,3 световых года. Световой год - это расстояние, которое проходит свет за год. Скорость света принять 300 000км/с. Скорость земного звездолета 100км/с. За сколько лет звездолет долетит до звезды?
--Имееться подсказка:
"чтобы не было переполнения при вычеслениях, лучше задайте правильный тип данных для расстояния до звезды в км, а ещё лучшесначала выведите формулу для количества лет!
Помогите плиз решить

Програмирование на VB6

Сообщение отредактировал Hatr - 21:09:2008, 07:12

Hatr
Бред. Самому сложно это сделать?

Dim r as long
r=((4,3*300000)/100)/365/60/60/24
msgbox r

Вставь это на кнопку и все.

Люди, пожалуйста, помогите студентке-двоечнице :) Задача такова:
Написать макрос, для Microsoft Word упорядочивающий и нумерующий абзацы в текущей главе:
a) по умолчанию без упорядочивания
b) с выбором типа нумерации и способа упорядочивания и размещения абзацев на странице

Макрос b) должен выполняться только в области его действия, в случае запуска макроса вне области действия должно выдаваться сообщение об ошибке.
Макрос должен размещаться в шаблоне пользователя или документе и не копироваться в Normal.dot. Макрос не должен препятствовать выполнению стандартных макросов. Дополнительные условия работы макроса должны быть описаны в комментариях.

Здравствуйте, мне нужен код для кнопки, чтобы при её нажатии выводился определённый текст на печать.. Это вообще реально ?

Poma
Можно. Поищи справку на команду Print

у мня справка не пашет.... =\ пишет что the MSDN collection does not exist. Please reinstall MSDN...
Я его переустанавливал, всё рафно такую фигню даёт....

Разобрался.. Если кому нада :

Помогите пожалуйста, ни где не могу найти... Вообщем мне надо штоб в базу данных добавлялся пол. Имя, Фамилию я сделал. вот код как я делал, штоб вместо базы данных аксес использовался txt файл

If RadioButton1.Checked = True Then
            card = card + "м"
        Else : card = card + "ж"
        End If

А вот как я пытался с sql запросом сделать:

   inserted = d.QueryUpdate("Insert Into baza (pol) Values (" + "'" + "M" + "'" + ")")
            inserted = d.QueryUpdate("Insert Into baza (name, family, age) Values (" + "'" + TextBox1.Text + "'" + "," + "'" + TextBox2.Text + "'" + "," + TextBox3.Text + ")")

Но читается только первая строчка, вторая перепрыгиваеся.
Вот как сделать что бы пол брался из радиобаттона и запросом отправлялся в базу данных?

после не хитрых манипуляций я добиля своего. вот код

 Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim d As New DB
        Dim inserted As Boolean = False
        inserted = d.QueryUpdate("Insert Into baza (name, family, age) Values (" + "'" + TextBox1.Text + "'" + "," + "'" + TextBox2.Text + "'" + "," + TextBox3.Text + ")")
        If RadioButton1.Checked = True Then
            inserted = d.QueryUpdate1("Insert Into baza (pol) Values (" + "'" + "M" + "'" + ")")
        End If
            If inserted = True Then MessageBox.Show(TextBox1.Text + " добавлен")
    End Sub

    Public Class DB
        Public constring As String = "provider=Microsoft.Jet.OLEDB.4.0;data source=..\\Debug\\base.mdb"
        Public IsConnect As Boolean
        Public DbConnection As OleDb.OleDbConnection
        Function InitDBConn() As Boolean
            If Not IsConnect Then
                DbConnection = New OleDb.OleDbConnection(constring)
                IsConnect = True
                ' Else : IsConnect = False
            End If
            Return IsConnect
        End Function
        Function QuerySelect(ByVal SQLQuery As String) As Data.DataTable
            Dim DbDataAdapter As OleDb.OleDbDataAdapter
            Dim datatab As New DataTable()
            If InitDBConn() Then
                DbConnection.Open()
                DbDataAdapter = New OleDb.OleDbDataAdapter(SQLQuery, DbConnection)
                DbDataAdapter.Fill(datatab)
                DbConnection.Close()
                Return datatab
            Else
                Return datatab
            End If
        End Function
        Function QueryUpdate(ByVal SQLQuery As String) As Boolean
            Dim DbCommand As OleDb.OleDbCommand
            If InitDBConn() Then
                DbConnection.Open()
                DbCommand = New OleDb.OleDbCommand(SQLQuery, DbConnection)
                DbCommand.ExecuteNonQuery()
                ' DbConnection.Close()
                Return True
            Else
                Return False
            End If
        End Function
       
 'функция которая добавляет пол
        Function QueryUpdate1(ByVal SQLQuery As String) As Boolean
            Dim DbCommand As OleDb.OleDbCommand
            If InitDBConn() Then
                'DbConnection.Open()
                DbCommand = New OleDb.OleDbCommand(SQLQuery, DbConnection)
                DbCommand.ExecuteNonQuery()
                DbConnection.Close()
                Return True
            Else
                Return False
            End If
        End Function
    End Class
End Class

И то и то добавляется... толька на разных строках... а надо на одной... подскажите что сделать?

В VB нужно написать программку, но, к сожалению, я в нем ничего не понимаю, могу скинуть исходник в Delphi.

Задано 3 числа A B C. Определить могут ли они быть сторона треугольника и, если да, то определить его тип: равносторонний, равнобедренный, разносторонний.
Замечание:
Условие существования треугольника: A<=B+C; B<=A+C; C<=B+A.
Нельзя исключать экстремальных случаев, когда одна (или несколько) сторон ровны 0, либо когда одно из неравенств переходит в равенство (треугольник 0-ой площади)

Все решено, три функции все работают! пойду сегодня спать с чувством выполненного долга!
не могу найти кнопочку "удалить" пост, поэтому просто меняю его)))

а задание было такое: (одна из функций, самая легкая)
Есть задание составить пограмму на VBA в MS Excel для функции пользователя.
формула: l=2ПR

Если я правильно понимаю, нужно прописать чтото типа:
Пусть l=y
R=x
ВОПРОС 1 - как это написать?....
таким образом наша функция y(x)=2 * 3.14 * x
Я пишу в макросе так:
Function y(x)
y=2 * 3.14 * x
End function


Или все это вообще неправильно?....


Очень, очень нужна помощь!!! ЗАранее благодарна!

Сообщение отредактировал Strelnikova - 29:10:2008, 23:10

Ну раз нельзя исключать, то можно вообще переписать условие существования треугольника следующим образом: A<B+C; B<A+C; C<B+A. ))
Насчет коректности в VB не уверен, но примерно так
функция возвращает 1- равносторонний 2 - равнобедренный 3 - разносторонний 0 - если не существует

Function CheckTriangle(A as Integer, B as Integer, C as Integer)as Integer
if not ((A<B+C) and (C<B+A) and (B<A+C)) then
  CheckTriangle = 0
  Exit Function
end if
if (A=B) and (A=C) then
   'msgbox "равносторонний"
   CheckTriangle = 1
elseif (A=B) or (A=C) or (B=C) then
   'msgbox "равнобедренный"
   CheckTriangle = 2
else
   'msgbox "разносторонний"
   CheckTriangle = 3
end if
End Function

Вывод на сообщения и обработку различных "эктсремальных" ситуаций доделайте сами

Сообщение отредактировал Ogion7 - 29:10:2008, 15:12