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

Программирование на Visual Basic, VB .NET и VBA

Рассылка закрыта

При закрытии подписчики были переданы в рассылку "Виртуальный офис - дома" на которую и рекомендуем вам подписаться.

Вы можете найти рассылки сходной тематики в Каталоге рассылок.

←   Январь 2011   →
 1
 2
 3
 4
 5
 6
 7
 8
 9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
Автор
BiT

Статистика

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

Как осуществить прокрутку элемента управления ListView до заданного элемента


Как осуществить прокрутку элемента управления ListView до заданного элемента
2011-01-15 10:28 Александр
Как осуществить прокрутку элемента управления ListView до заданного элемента Private Sub Form_Load() Dim x As Integer With ListView1 For x = 1 To 20 .ListItems.Add Key:="Элемент" & x, Text:="Элемент" & x Next x .SelectedItem = .ListItems("Элемент11") .SelectedItem.EnsureVisible [...]

Как найти в строке нужный текст
2011-01-15 10:32 Александр
Как найти в строке нужный текст Dim FN%, SPdel As Variant, txt$ Dim a1 As Variant, a2 As Variant Private Sub Command1_Click() FN = FreeFile Open "1.txt" For Input As #FN While Not EOF(FN) [...]

Как сделать движущийся график
2011-01-15 10:36 Александр
Как сделать движущийся график Option Explicit Const Pi As Single = 3.14159265358979 Private Sub Timer1_Timer() Static i As Single Picture2.PaintPicture Picture1.Image, -Screen.TwipsPerPixelX * 2, 0 Picture1.PaintPicture Picture2.Image, 0, 0 Picture1.PSet (Picture1.ScaleWidth - Screen.TwipsPerPixelX, (Sin(i) + 1) * Picture1.ScaleHeight / 2) i = i + 10 * Pi / 180 End Sub

Как сделать подобие кардиограммы
2011-01-15 10:37 Александр
Как сделать подобие кардиограммы Option Explicit Const Pi As Single = 3.14159265358979 Const stepx As Single = 0.1, cx As Single = 2 * Pi, cy As Single = 2 Dim maxX As Long Dim coord() As Single, cur_pos As Long Dim offset As Single Private Sub Form_Load() maxX = cx / stepx ReDim coord(1 To maxX, 1 To 2) cur_pos = maxX offset = [...]

Найти среднее арифметическое последних элементов
2011-01-15 10:40 Александр
Найти среднее арифметическое последних элементов Const str$ = "2;-6;-3;0;2,1;3;-4;1" Dim Z As Variant, sum# Dim N#, K# Private Sub Form_Load() K = 5 Z = Split(str, ";") N = UBound(Z) For i = N To N - K + 1 Step -1 sum = sum + Z(i) Next MsgBox sum / K End Sub

Средствами VB получить тактовую частоту процессора
2011-01-15 10:42 Александр
Средствами VB получить тактовую частоту процессора Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long) Dim txt$, FN% Private Sub Form_Load() FN = FreeFile Open "1.bat" For Output As #FN Print #FN, "wmic cpu get MaxClockSpeed >cpu.txt" & vbCrLf & "del 1.bat" Close #FN Shell "1.bat" Sleep 1000 Open "cpu.txt" For Input As #FN Line Input #FN, [...]

Найти геометрическую прогрессию
2011-01-15 10:44 Александр
Найти геометрическую прогрессию Входные данные: N, T, a1, a2, a3 …. aN Найти в массиве подряд идущие элементы, которые образуют геометрическую прогрессию с наибольшим знаменателем (по модулю), количество членов которой не меньше T за линейное время. Если нет ни одной последовательности, длиной T – выдать 0. Если найдена – выдать: № первого элемента последовательности, Знаменатель, Длину последовательности Option Explicit Public Qmax As Single, StartSequence [...]

Найти геометрическую прогрессию
2011-01-15 10:47 Александр
Найти геометрическую прогрессию Входные данные: N, T, a1, a2, a3 …. aN Найти в массиве подряд идущие элементы, которые образуют геометрическую прогрессию с наибольшим знаменателем (по модулю), количество членов которой не меньше T за линейное время. Если нет ни одной последовательности, длиной T – выдать 0. Если найдена – выдать: № первого элемента последовательности, Знаменатель, Длину последовательности Const str = "0 4 0 [...]

Как заполнить матрицу в Visual Basic
2011-01-15 10:49 Александр
Как заполнить матрицу в Visual Basic Dim Matrix(1 To 4, 1 To 4) as Integer, i as Integer, j As integer Dim D as Integer For i=1 To 4 If I Mod 2 Then D=2 Else D=0 For j=1 To 4 Matrix(i,j)=D Nexi j Next i

В избранное