| ← Октябрь 2017 → | ||||||
|
1
|
||||||
|---|---|---|---|---|---|---|
|
2
|
3
|
4
|
5
|
6
|
7
|
8
|
|
9
|
10
|
11
|
12
|
13
|
15
|
|
|
16
|
17
|
18
|
19
|
20
|
21
|
22
|
|
23
|
24
|
25
|
26
|
27
|
28
|
29
|
|
30
|
31
|
|||||
За последние 60 дней ни разу не выходила
Сайт рассылки:
http://prog.rusfaq.ru/basic
Открыта:
14-03-2002
Статистика
0 за неделю
RFpro.ru: Программирование на Basic / VBA
| РАССЫЛКИ ПОРТАЛА RFPRO.RU
Лучшие эксперты в разделе
∙ Basic
Консультация # 147835: Здравствуйте уважаемы специалисты. Возникла необходимость написать скрипт, который бы удалял изо всех папок файл Thumbs.db, подскажите как это сделать. Заранее спасибо... Консультация # 68833: как сделать задержку времени на VB? Что-то вроде Sleep(1000) Чес слово искал в нете, в форумах, MSDN, второй час не могу найти.... Здравствуйте, уважаемые эксперты! Прошу Вас ответить на следующий вопрос:
Дата отправки: 26.12.2010, 13:40 Консультирует Megaloman (Академик): Здравствуйте, Benqq! Вот ответ на первое задание. Код макроса Код :: выделить код Sub Z1()
Dim a, b, t, y As Single
Dim Ra, Rb, Rt, Ry, tt As String
Dim Msg As String
Ra = "A6" ' Адреса ячеек, где введём a и b, и отобразим t и y
Rb = "B6"
Rt = "C6"
Ry = "D6"
DD = Mid(5 / 2, 2, 1) ' Определю разделитель целой и дробной части
t = InSng(InputBox("Введите число"), DD)
Select Case t
Case 1 To 2
a = InSng(Range(Ra), DD)
y = a * t ^ 3 + 3
Msg = "a=" + Format(a, "# ##0.00") + vbCrLf + "t=" + Format(t, "# ##0.00") + vbCrLf + "y= a*t^3+3 = "
Case Is > 2
a = InSng(Range(Ra), DD)
b = InSng(Range(Rb), DD)
y = Exp(a * t) * Cos(b * t)
Msg = "a=" + Format(a, "# ##0.00") + vbCrLf + "b=" + Format(b, "# ##0.00") + vbCrLf + "t=" + Format(t, "# ##0.00") + vbCrLf + "y= Exp(a*t)*Cos(b*t) = "
Case Is < 1
Msg = "t=" + Format(t, "# ##0.00") + vbCrLf + "y= "
y = 4
End Select
Range(Rt) = t
Range(Ry) = y
MsgBox Msg + Format(y, "# ### ##0.00")
End Sub
Function InSng(InData, D) As Single
tt = Replace(InData, ".", D)
tt = Replace(tt, ",", D)
InSng = CSng(tt)
End Function
Готовый пример в Excel-таблице можно загрузить.
Здравствуйте уважаемы специалисты. Возникла необходимость написать скрипт, который бы удалял изо всех папок файл Thumbs.db, подскажите как это сделать. Заранее спасибо
Дата отправки: 20.10.2008, 12:01 Консультирует Megaloman (Академик): Здравствуйте, Nether! Код :: выделить код del C:\Thumbs.db /F /S /Q /A del D:\Thumbs.db /F /S /Q /A и т д по имеющимся логическим дискам в котором перечислить все буквы дисков, с которых надо что-то удалить. Но при периодичном запуске будет выскакивать окно командного режима, что при работе будет мешать. В скрипте это решено. Приложение:
как сделать задержку времени на VB?
Дата отправки: 27.12.2006, 18:03 Консультирует Филатов Евгений Геннадьевич: Здравствуйте, Alexburzak!
Консультирует Tossha: Здравствуйте, Alexburzak!
Консультирует Miklucho: Здравствуйте, Alexburzak!
Оценить выпуск | Задать вопрос экспертам
главная страница
|
стать участником
|
получить консультацию
|
Прикреплённый файл: 
| В избранное | ||
