Отправляет email-рассылки с помощью сервиса Sendsay

RFpro.ru: Программирование на Basic / VBA

Подписаться Бесплатная «Золотая» новостная рассылка . Подписчиков 1.824 RSS
←   Сентябрь 2005   →
 1
 2
 3
 4
 5
 6
 7
 8
 9
10
11
12
12.09.2005
03:11:29
03:18:13
13
14
15
16
17
18
19
19.09.2005
14:20:46
14:58:09
20
21
22
23
24
25
26
27
28
29
30


За последние 60 дней ни разу не выходила


Сайт рассылки: http://prog.rusfaq.ru/basic
Открыта: 14-03-2002

Автор
Калашников О.А.

Статистика

1.824 подписчиков
0 за неделю
←   Все выпуски   →

RusFAQ.ru: Программирование на Basic / VBA


Информационный Канал Subscribe.Ru
РАССЫЛКИ ПОРТАЛА RUSFAQ.RU

/ КОМПЬЮТЕРЫ И ПО / Языки программирования / Basic/VBA

Выпуск № 104
от 04.09.2005, 19:36

Администратор:Калашников О.А.
В рассылке:Подписчиков: 104, Экспертов: 13
В номере:Вопросов: 2, Ответов: 6

Вопрос № 25512: У меня очень простой вопрос :D Как зделать чтобы при нажатии на кнопку(command1) подсчитывался квадратный корень числа введённого в текстовом поле (text1) и ответ выводился в другом текстовом поле(text2)? Вообще то я знаю как это сделать :) ,но вот н...
Вопрос № 25547: У меня на форме есть DriveListBox, DirListBox, FileListBox и кнопка, как сделать чтобы при нажатии на кнопку открывался файл выбранный в FileListBox?...

Вопрос № 25.512
У меня очень простой вопрос :D Как зделать чтобы при нажатии на кнопку(command1) подсчитывался квадратный корень числа введённого в текстовом поле (text1) и ответ выводился в другом текстовом поле(text2)? Вообще то я знаю как это сделать :) ,но вот не знаю как сделать чтобы подсчитывался корень!
Отправлен: 29.08.2005, 21:05
Вопрос задал: Dushin Igor (статус: Посетитель)
Всего ответов: 4
Мини-форум вопроса >>> (сообщений: 0)
Отвечает: Rojohn
Здравствуйте, Dushin Igor!
Алгоритм весьма прост. См. приложение.
Удачи!

Приложение:

---------
Век живи - век учись, с пользой и без напряга!

Ответ отправил: Rojohn (статус: 7-ой класс)
Отправлен: 29.08.2005, 21:43
Отвечает: Tsechoev Bagaudin
Здравствуйте, Dushin Igor!
Подключи библиотеку:
Imports System.Math
и дальше все просто функция Sqrt(значение) вернет тебе результат типа double.
Удачи!


---------
Есть только одно зло - невежество, и только одно благо - знания
Ответ отправил: Tsechoev Bagaudin (статус: 10-ый класс)
Отправлен: 29.08.2005, 21:54
Отвечает: Евгений Неверов
Здравствуйте, Dushin Igor!
Для вычисления корня используйте функцию Sqr(число)
Ответ отправил: Евгений Неверов (статус: Студент)
Отправлен: 30.08.2005, 00:09
Отвечает: Ерёмин Андрей
Здравствуйте, Dushin Igor!
Для извлечения квадратного корня из какого-либо числа существует функция SQR(). Удачи!
---------
Мышка побежала, xвостиком махнула - cервер упал...
Ответ отправил: Ерёмин Андрей (статус: Практикант)
Отправлен: 30.08.2005, 08:03

Вопрос № 25.547
У меня на форме есть DriveListBox, DirListBox, FileListBox и кнопка, как сделать чтобы при нажатии на кнопку открывался файл выбранный в FileListBox?
Отправлен: 30.08.2005, 15:36
Вопрос задал: Dushin Igor (статус: Посетитель)
Всего ответов: 2
Мини-форум вопроса >>> (сообщений: 3)
Отвечает: Rojohn
Здравствуйте, Dushin Igor!
Если просто в FileListBox, то так:
Private Sub Command1_Click()
Shell File1.FileName
End Sub

Private Sub Form_Load()
File1.Path = "c:Win98"
End Sub
Если с учетом DriveListBox и DirListBox, то примерно так:
Private Sub Command1_Click()
Dim MyPath As String, i As Integer

If File1.FileName <> "" Then
For i = Len(Dir1.Path) To 1 Step -1
If Mid(Dir1.Path, i, 1) = "" Then
MyPath = Dir1.Path + File1.FileName
Else
MyPath = Dir1.Path + "" + File1.FileName
End If
Exit For
Next i
Shell MyPath
End If
End Sub

Private Sub Dir1_LostFocus()
Dir1.Path = Dir1.List(Dir1.ListIndex)
End Sub

Private Sub Dir1_Change()
File1.Path = Dir1.Path
End Sub

Private Sub Drive1_Change()
On Error GoTo DriveHandler

Dir1.Path = Drive1.Drive
Exit Sub
DriveHandler:
Drive1.Drive = Dir1.Path
Exit Sub
End Sub

Private Sub Form_Load()
File1.Pattern = "*.exe"
Dir1.Path = "c:"
Dir1.Path = Drive1.Drive
File1.Path = "c:Win98"
End Sub

Творческих успехов!
---------
Век живи - век учись, с пользой и без напряга!
Ответ отправил: Rojohn (статус: 7-ой класс)
Отправлен: 30.08.2005, 16:17
Отвечает: _Виталий
Здравствуйте, Dushin Igor!
Добвалю, что предыдущий ответ подходит только для исполняемых файлов. Предлагаю пример для открытия файлов любых типов. Файл открывается программой, которая связана с данным расширением в ОС. Добавьте кнопку на форму и код из приложения.

Приложение:

Ответ отправил: _Виталий (статус: 6-ой класс)
Отправлен: 30.08.2005, 16:34

Отправить вопрос экспертам этой рассылки

Приложение (если необходимо):

* Код программы, выдержки из закона и т.п. дополнение к вопросу.
Эта информация будет отображена в аналогичном окне как есть.

Обратите внимание!
Вопрос будет отправлен всем экспертам данной рассылки!
Для того, чтобы отправить вопрос выбранным экспертам этой рассылки или
экспертам другой рассылки портала RusFAQ.ru, зайдите непосредственно на RusFAQ.ru.


Форма НЕ работает в почтовых программах The BAT! и MS Outlook (кроме версии 2003+)!
Чтобы отправить вопрос, откройте это письмо в браузере или зайдите на сайт RusFAQ.ru.

© 2001-2005, RusFAQ.ru, Россия, Москва. Все права защищены.
Идея, дизайн, программирование, авторское право: Калашников О.А.

Яндекс

Subscribe.Ru
Поддержка подписчиков
Другие рассылки этой тематики
Другие рассылки этого автора 		Подписан адрес:
Код этой рассылки: comp.soft.prog.basicvba 		Отписаться
Вспомнить пароль
В избранное