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

вопрос решил)
если кому интересно, то таким образом

Код: Dim xSize As Integer
Dim ySize As Integer
If a = 1 Then


xSize = PictureBox1.Size.Height + 10
ySize = PictureBox1.Size.Width + 10
PictureBox1.Size = New Size(xSize, ySize)
Else

xSize = PictureBox1.Size.Height - 10
ySize = PictureBox1.Size.Width - 10
PictureBox1.Size = New Size(xSize, ySize)

End If
If xSize >= Me.Size.Height Or ySize >= Me.Size.Width Then
a = 0
End If

If xSize <= 0 Or ySize <= 0 Then
a = 1
End If

помогите составить код к задачи:"Вычислить сумму членов числовой последовательности, которая задана в виде B1, B2, …, Bn, где n – число членов ряда. Члены числовой последовательности вводятся в ПЭВМ последовательно с клавиатуры."

Добавлено:
помогите решить

1)Вычислить сумму членов числовой последовательности, которая задана в виде B1, B2, …, Bn, где n – число членов ряда. Члены числовой последовательности вводятся в ПЭВМ последовательно с клавиатуры.




2)Даны два действительные числа x и y. Получить: Max(x,y), Min(x,y).


3)Даны два действительные числа x и y. Получить: Max(x,y), Min(x,y).

Здравствуйте! Подскажите, как вывести в Label информацию из файла, например, текстового...и построчно... Спасибо)

Здравствуйте, а скажите, как сделать следующее
Форму на которой кнопка и поле ввода. Вводим текст в поле ввода, нажимаем на кнопку и создается файл txt с имене которое записано в поле ввода. Меняем надпись в поле ввода нажимаем на кнопку и снова создается файл, но уже с этим именем.

p.s. сори за такой вопрос, просто пишу на Делфи, а программу нужно на Визуал Бейсике сделать...
Спасибо!!!

Всем привет.
Может кто подскажет как зашифровать текст по Цезарю в Microsoft Visual Basic 2008

Цитата:

написать программу которая определяет находится ли точка А с указанными координатами внутри или вне прямоугольника

Площадь прямоугольника равна сумме площадей 4-х треуголиников, с вершиной в этой самой точке.

Ну, или просто сравнить координаты углов прямоугольника и точки.

Добрые люди помогите с задачей шифрования текстового файла по алгоритму Цезаря, если есть возможность подробно.
Заранее благодарен.

Цитата:

    
Здравствуйте, а скажите, как сделать следующее
Форму на которой кнопка и поле ввода. Вводим текст в поле ввода, нажимаем на кнопку и создается файл txt с имене которое записано в поле ввода. Меняем надпись в поле ввода нажимаем на кнопку и снова создается файл, но уже с этим именем.

p.s. сори за такой вопрос, просто пишу на Делфи, а программу нужно на Визуал Бейсике сделать...
Спасибо!!!

Люди добрые помогите бедному студенту решить 2 задачки пожалустаа

1)В массиве из 15 чисел подсчитать сумму элементов расположеных между первым отрицательным и последним положительным.

2)Даны три числа вывести на печать те из них которые имеют дробную часть

Заранее спасибо

Решите, пожалуйста, задачку на QBasic

есть файл TABLE.TXT

10 1.247 2.51
20 1.205 2.59
30 1.165 2.67
40 1.128 2.76

Три столбика: первый t, второй p, третий La
На самом деле она в 100 раз больше, но мне надо только понять как, а дальше я сам )

Надо в программке найти значения p и La, при заданном t; провести интерполяцию, т.к. t может быть 33.8(не целое).

Alexeyee
Тема по qbasic >>> http://forum.ru-board.com/topic.cgi?forum=33&topic=0442

Привет, помоготе пожалуйста!
    Если используется первый ResSQL то данные достаю(на фирме аутентификация Windows)
А если второе подключение (в данный момент закоментировано)
1. с доменном "firma\" выдает ошибку -
run-time error '-2147217543 (80040e4d)':
Недоступное имя учетной записи или пароль.
2. без домена выдает ошибку -
run-time error '-2147217843 (80040e4d)':
Не удаеться запустить приложение. Системная база данных отсутствует или открыта с монопольным доступом другим пользователем.

Файл находиться в розшариной папке на сервере SP.

Посмотрите пож. может синтаксис не правельный или я что-то не так делаю?
Спасибо.

Код:
Sub Проект()
Dim Рес, ResSQL, ПроектыВехи, f
Dim rs As New ADODB.Recordset

ResSQL = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=\\projectsrv\sites\MS_ProjectServer_PublicDocuments\Shared Documents\01.XLS" _
& ";Extended Properties=Excel 8.0" 'Подключение есть

'ResSQL = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=\\projectsrv\sites\MS_ProjectServer_PublicDocuments\Shared Documents\01.XLS" _
& ";User ID=firma\Alexandr;Password=pas;Extended Properties=Excel 8.0" 'Нет подключения

Рес = "SELECT * FROM [RESERVED_DATA1$]"

rs.Open Рес, ResSQL, adOpenStatic
While (Not rs.EOF)
ПроектыВехи = rs.GetString(adClipString)
Wend
rs.Close

End Sub

1)Генератор случайных чисел выдает три натуральных числа из диапазона [2,80]. Считая эти числа знаменателями трех простых дробей, найти общий знаменатель этих дробей.

2)Написать программу печати пар взаимно-простых чисел на интервале [1, 1000].

3)Построить кривую (кардионда) по заданному параметрическому представлению:
x=a cos(1+cos t)
y=a sin t (1+cos t), a>0, t не принадлежит [0, 2 Pi].

4)Постороить кривую (лемниската) по ее уравнениям в полярных координатах
p= корень квадратный (из модуля (2 cos 2 fi)), a>0.

5)Дан файл, элементами которого являются целые числа. Найти среднее арифметическое элементов файла.

Здравствуйте, необходимо решить такую задачу. программа visual basic:

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


благодарю за винмание.

Здравствуйте.
Прошу помощи у людей знающих.
Имеется база данных ACCESS. Я её зашифровал. На данном этапе программа выполняет следующие операции:
1. расшифровывает базу.
2. сохраняет расшифрованную копию на жесткий диск.
3. обращается к копии и считывает нужную информацию
4. удаляет копию

Ниже приведён имеющийся код:
[more]
Imports System.IO
Public Class Form1
Dim sourceFileName As String = "data.db"
Dim destFileName As String = "selection"
Dim StrOleDbConnection As String = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source='" + destFileName + "'"
Dim cnOleDbConnection As New System.Data.OleDb.OleDbConnection(StrOleDbConnection)


Sub зашифровать(ByVal soursename As String, ByVal destName As String)
If File.Exists(soursename) Then
Dim binaryReader As New BinaryReader(File.Open(soursename, FileMode.Open))
'Dim binaryWriter As New BinaryWriter(File.Open(destName, FileMode.Create))
Dim binaryWriter As New BinaryWriter(File.Open(destName, FileMode.Create))
Dim text() As Byte
Dim text2() As Byte
Dim a As Int16
binaryReader.BaseStream.Seek(0, SeekOrigin.Begin)
Try
text = binaryReader.ReadBytes(binaryReader.BaseStream.Length)
text2 = text
Dim i As Integer
For i = 0 To binaryReader.BaseStream.Length - 1


If i Mod 2 = 0 Then
a = text(i) + 1
If a = 256 Then a = 0
Else
a = text(i) - 1
If a = -1 Then a = 255

End If
text2(i) = a
Next
binaryWriter.Write(text2)
Finally
binaryReader.Close()
binaryWriter.Close()
End Try
End If
End Sub

Sub расшифровать(ByVal soursename As String, ByVal destName As String)
Dim i As Integer
If File.Exists(soursename) Then
Dim binaryReader As New BinaryReader(File.Open(soursename, FileMode.Open))
Dim binaryWriter As New BinaryWriter(File.Open(destName, FileMode.Create))
Dim text() As Byte
Dim text2() As Byte
Dim a As Int16
binaryReader.BaseStream.Seek(0, SeekOrigin.Begin)
Try
text = binaryReader.ReadBytes(binaryReader.BaseStream.Length)
text2 = text

For i = 0 To binaryReader.BaseStream.Length - 1


If i Mod 2 = 1 Then
a = text(i) + 1
If a = 256 Then a = 0
Else
a = text(i) - 1
If a = -1 Then a = 255

End If
text2(i) = a
Next
binaryWriter.Write(text2)

Finally
binaryReader.Close()
binaryWriter.Close()
End Try
End If
End Sub


Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

'1. расшифровываем базу. и 2.сохраняем расшифрованную копию на жесткий диск.
расшифровать(sourceFileName, destFileName)

'3. обращаемся к копии и считываем нужную информацию
cnOleDbConnection.Open()
'
'тут код обращения к копии базы
'
cnOleDbConnection.Close()
'4. удаляем копию
If File.Exists(destFileName) Then File.Delete(destFileName)

End Sub


End Class
[/more]

Но есть один минус. Копия, пусть и не долго, но хранится на жестком диске. Т.е. при желании её можно восстановить.
Вопрос. Можно ли реализовать всё то-же самое, но без записи на диск? Записать базу в память и работать с ней именно в памяти? И если это возможно то как?

zerkalo77

Судя по тому что все делается быстро данных у тебя там на килобайт... нах тогда юзать базу акцеса? Возьми и заюзай XML и не парь мозг себе... а xml - это обычный String загруженый в объект и легко извлекаемый от туда (разные версии XML Parserов по размному релазуют работу с документом)

Добавлено:
aliska90

Эт че здесь лабораторные работы делают шоль? студенты учитесь! и забивайте мозг тем кто отучился!

Цитата:

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

Кхм... Ну как бы в базе у меня 15000 строк. В каждой строке 10 столбцов. База на 2мб... )))
А вот с чего ты решил, что данных у меня на килобайт я так и не понял...

Код:
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

'1. расшифровываем базу. и 2.сохраняем расшифрованную копию на жесткий диск.
расшифровать(sourceFileName, destFileName)

'3. обращаемся к копии и считываем нужную информацию
cnOleDbConnection.Open()
'
'Время существования расшифрованой базы(selection) зависит не от размера базы,
'а от запроса. Чем больше выбранной информации, тем дольше она существует.
'Соответственно если запрос был точный "select * from список where номер_записи = 1",
'то существует база доли секунды.
'Мало того. Даже если я делаю запрос по типу:
' "select * from список", а затем все считанные данные отображаю
' в датагридвьювере, то вся операция занимает от 0.8 до 1-й секунды.
'Моей первой задачей было исключить такие запросы. С этим проблем, естественно, нет.
'Проблема в другом. В том что расшифрованная база ХРАНИТЬСЯ на диске.
'А значит, при желании, её можно восстановить как обычный файл.
'Утилит для этого дела как на зло тысячи...
'
cnOleDbConnection.Close()
'4. удаляем копию
If File.Exists(destFileName) Then File.Delete(destFileName)

End Sub

При присвоении рекордсету var1 (var1 AS ADODB.Recordset)
значения, которое не смогло быть выбрано SQL-евским запросом
по типу var1 = cn.Execute (" select [здесь выборка из базы]")

где select ничего не выбрал т.к. записи отсутствовали
скрипт на VBA вылетает с ошибкой Application-defined or Object-defined error

Решаемая задача - импорт из Excel в Access.
Все работает, но только когда в БД нет значений записей, импортируемых из Excel, начинаются проблемы. Хочу сделать обработчик такой исключительной ситуации.

Да, кстати, дебаггер выдает значение var1 = <Out of context>

Помогите решить трабл плз.

Помогите с задачками! Третий день вешаюсь и нифига не понимаю...


Последовательный вычислительный процесс.


z=(x^2+5x^5+6y^6)/|5x-6y|=

1. Сделать блок схему алгоритма.
2. Сочинить програму.
3.Сочинить контрольный пример.
4.Выполнить рощет за данными контрольного примера.



вычислительный процесс, что "розгалуджуеться":

У преподавателей уза такие професии и оклады:
- Профессор - 350
- Доцент - 290
- Преподаватель - 260

Выщитать законную надбавку преподавателю за "выслугу" годов, если за стаж от 10 до 20 годов доплачивают 10% оклада, до 30 годов - 20% оклада, свыше 30 годов - 30% оклада.

Как у Excel-объекта узнать количество листов в книге и как их перебирать?

как для OLEObjectsControls (optionbutton штук 300) назначить один и тот же макрос. В FormsControl можно назначить, но есть другие неудобства. Советы типа
Sub OB2_Click
call OB1_Click
end sub
не предлагать. Буду очень прнизнателен. Burk

Помогите новичку!
Пишу прогу в которой надо выбрать файл (простое изображение) и показать его в Imagebox. Я написал следующие функции:

Код: Private Sub Drive1_Change()
Dir1.Path=Drive1 //Здесь выбираем носитель
End Sub

Private Sub Dir1_Change()
File1.Path=Dir1 //Здесь отображаются все папки в носителе
End Sub

blaro
Попробуй File1.FileName

dneprcomp
Выдает ошибку "Несовпадение типов"

blaro
Image1.Picture = LoadPicture(File1.Path & "\" & File1.FileName) 'File1.List(File1.ListIndex)

dneprcomp
Спасибо, заработало!!

Цитата:

Как у Excel-объекта узнать количество листов в книге и как их перебирать?

An4eus
http://www.delphikingdom.com/asp/viewitem.asp?catalogid=1273#11
http://msdn.microsoft.com/en-us/library/59dhz064.aspx

Подскажите пожалуйста, есть ли в VB функция, возвращающая позицию одной подстроки в другой. Например при поиске "стан" в слове "электростанция" она бы возвратила число 8. А если такой подстроки нет, то возвращала бы -1.
Извиняюсь если что-то неправильно назвал.