Ответ отправил: Vasiliy83, Практикант
Ответ отправлен: 10.12.2009, 09:35

Как сказать этому эксперту "спасибо"?

Отправить SMS #thank 257568 на номер 1151 (Россия) | Еще номера »

Отправить WebMoney: Неплохо (30 руб.) Хорошо (40 руб.) Отлично (55 руб.) БЛЕСТЯЩЕ! (80 руб.)

Вам помогли? Пожалуйста, поблагодарите эксперта за это!

Уважаемые эксперты, подскажите, пожалуйста, думал по аналогии с IE открыть Зэ Бат!
ларец не открылся, или может возле надписи Зэ Бат! слева надо было нарисовать летучую мышь?
Dim IE As Object
Set IE = CreateObject("The Bat!")
IE.Visible = True 'открывает, делает видимым
Как это сделать при помощи ВБА?
Возможно, не все программы можно открыть при помощи ВБА, тогда я понимаю, можно через Экзешний файл, и как?
Спасибо Эндрю

Отправлен: 10.12.2009, 01:16
Вопрос задал: Ципихович Эндрю, Посетитель
Всего ответов: 1
Страница вопроса »

Shell "Путь к exe-файлу

Ответ отправил: Vasiliy83, Практикант
Ответ отправлен: 10.12.2009, 08:52

Оценка ответа: 5

Как сказать этому эксперту "спасибо"?

Отправить SMS #thank 257567 на номер 1151 (Россия) | Еще номера »

Отправить WebMoney: Неплохо (30 руб.) Хорошо (40 руб.) Отлично (55 руб.) БЛЕСТЯЩЕ! (80 руб.)

Вам помогли? Пожалуйста, поблагодарите эксперта за это!

Здравствуйте, уважаемые эксперты!

Помогите доработать код для создания массива из сгенерированных чисел.

Вот сам код, но надо, чтобы элементы не повторялись.

Dim i, j As Integer
Dim numbers(N) As Integer
Dim element As Integer

For i = 1 To N
numbers(i) = Int(N * Rnd()) + 1
ListBox1.Items.Add(numbers(i))
Next


Сам попытался сделать, но не получилось - элементы все равно повторяются. То, что получилось - в примечании. Про Вас переделать или написать код для генерирования чисел, чтобы они не повторялись.

Спасибо.

Отправлен: 10.12.2009, 15:11
Вопрос задал: Иванов Андрей Владимирович, 5-й класс
Всего ответов: 4
Страница вопроса »

VERSION 5.00
Begin VB.Form Form1 
   Caption         =   "Form1"
   ClientHeight    =   4092
   ClientLeft      =   48
   ClientTop       =   324
   ClientWidth     =   2520
   LinkTopic 
     =   "Form1"
   ScaleHeight     =   4092
   ScaleWidth      =   2520
   StartUpPosition =   3  'Windows Default
   Begin VB.CommandButton Generate 
      Caption         =   "Generate"
      Height          =   372
      Left            =   240
      TabIndex        =   1
      Top             =   3480
      Width           =   1932
   End
   Begin VB.ListBox List1 
      Height          =   2928
      L
 eft            =   240
      TabIndex        =   0
      Top             =   240
      Width           =   1932
   End
End
Attribute VB_Name = "Form1"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit

Private Sub Form_Load()
    Randomize
End Sub

Private Sub Generate_Click()
Dim i, j As Integer
Dim nums(20) As Integer
Dim found As Boolean
Dim
tmp As Integer

List1.Clear
i = 0
While (i < 20)
again:
    tmp = Int((30000 * Rnd) + 1)
    found = False
    For j = 0 To i - 1
        If nums(j) = tmp Then
            found = True
            Exit For
        End If
    Next j
    If found Then GoTo again
    nums(i) = tmp
    List1.AddItem (tmp)
    i = i + 1
Wend
End Sub

Приложение:
#include <time.h> // для time() #include <iostream> // Ввод-вывод на консоль using namespace std; const int max_count = 15; // заполнение массива псевдослучайными числами // p - указатель на массив // count - число элементов void fill_array( int* p, int count ) { int i = 0; while( i < count ) { int n = rand(); // псевдослучайное число в диапазоне от 0 до RAND_MAX // проверим на совпадение с уже сгенерированными for( int j = 0; j < i; ++j ) { if( p[j] == n ) // совпало break; } if( j < i ) continue; // было совпадение, пытаемся снова // уникальное число, сохраняем p[i++] = n; } } int main() { // инициализируем генератор псевдослучайных чисел текущим временем, // так что числа должны быть различными при каждом запуске программы, // если интервал был не менее секунды (time() возвращает время в секундах) time_t t; srand( (unsigned)time( &t ) ); int numbers[max_count]; fill_array( numbers, max_count ); // выводим на экран для проверки for( int i = 0; i < max_count; ++i ) cout << "numbers[" << i << "] = " << numbers[i] << endl; return 0; }

Ответ отправил: amnick, 6-й класс
Ответ отправлен: 10.12.2009, 15:57

Как сказать этому эксперту "спасибо"?

Отправить SMS #thank 257577 на номер 1151 (Россия) | Еще номера »

Отправить WebMoney: Неплохо (30 руб.) Хорошо (40 руб.) Отлично (55 руб.) БЛЕСТЯЩЕ! (80 руб.)

Вам помогли? Пожалуйста, поблагодарите эксперта за это!

Отвечает Ashotn, 6-й класс :
Здравствуйте, Иванов Андрей Владимирович.
В программировании индекс массива начинается с 0. Цикл надо начинать с 0 или писать i-1. Кроме того, не надо сравнивать значение с самим собой, это у Вас происходит, когда j = i . Переработаннный код программы дан в приложении.

Приложение:
For i = 1 To N mark: repeated = 0 numbers(i - 1) = Int(N * Rnd()) + 1 If i > 1 Then For j = 0 To i - 2 If numbers(i - 1) = numbers(j) Then repeated = 1 End If Next End If If repeated = 1 Then GoTo mark End If ListBox1.Items.Add(numbers(i - 1)) Next
-----
Я ни от чего, ни от кого не завишу.

Ответ отправил: Ashotn, 6-й класс
Ответ отправлен: 10.12.2009, 16:03

Как сказать этому эксперту "спасибо"?

Отправить SMS #thank 257578 на номер 1151 (Россия) | Еще номера »

Отправить WebMoney: Неплохо (30 руб.) Хорошо (40 руб.) Отлично (55 руб.) БЛЕСТЯЩЕ! (80 руб.)

Вам помогли? Пожалуйста, поблагодарите эксперта за это!

Отвечает Лейла, 2-й класс :
В программе amnick может возникнуть ситуация, когда число элементов массива больше RAND_MAX (32767) . Тогда невозможно будет сгенерировать массив из не повторяющихся элементов и программа зависнет.
Привожу свой код ниже.

Приложение:
#include <iostream> #include <ctime> #define dSIZE 200 //здесь определяем максимальный размер массива #define dRand 32767 //максимальное генерируемое число using namespace std; int main(int argc, char *argv[]) { int size; int a,i,j; time_t t; int massiv[dSIZE]; setlocale(LC_ALL, ".1251"); //для правильного вывода русских букв for(i=0;i<dSIZE;i++) massiv[i]=0; //обнуление массива if (argc < 2) { cout << "В качестве аргумента введите размер массива" <<endl; cout <<argv[0]<<" <размер массива>"<<endl; return -1; } else { size=atoi((const char*)argv[1]); //преобразование строки в число if (size>dSIZE) { cout<<size<<" > "<<dSIZE<<endl; return -1; } if (size>dRand) { cout<<size<<" > "<<dRand<<endl; cout<<"Нельзя сгенерировать массив без повторных чисел"<<endl; return -1; } srand((unsigned)time(&t)); // для генерации псевдослучайных чисел for (i=0; i<size; i++) { newRand: a = rand()%dRand; //случайное число от 0 до dRand for (j=0; j<i; j++) { if (massiv[j]==a) goto newRand; //если такое число уже есть в массиве, генерируем другое число } massiv[i]=a; //заносим сгенерированное число в массив } //вывод массива на экран for (i=0;i<size;i++) cout<<massiv[i]<<" "; } }

Ответ отправил: Лейла, 2-й класс
Ответ отправлен: 10.12.2009, 16:36

Как сказать этому эксперту "спасибо"?

Отправить SMS #thank 257580 на номер 1151 (Россия) | Еще номера »

Отправить WebMoney: Неплохо (30 руб.) Хорошо (40 руб.) Отлично (55 руб.) БЛЕСТЯЩЕ! (80 руб.)

Вам помогли? Пожалуйста, поблагодарите эксперта за это!

Отвечает Сандров Алекс, Студент :
Ладно, читаем msdn:

Before calling Rnd, use the Randomize statement without an argument to initialize the random-number generator with a seed based on the system timer.

To produce random integers in a given range, use this formula:

Int((upperbound
- lowerbound + 1) * Rnd + lowerbound)

Ответ отправил: Сандров Алекс, Студент
Ответ отправлен: 11.12.2009, 06:18

Как сказать этому эксперту "спасибо"?

Отправить SMS #thank 257598 на номер 1151 (Россия) | Еще номера »

Отправить WebMoney: Неплохо (30 руб.) Хорошо (40 руб.) Отлично (55 руб.) БЛЕСТЯЩЕ! (80 руб.)

Вам помогли? Пожалуйста, поблагодарите эксперта за это!

Уважаемые эксперты
Высылаю экзешный файл, как с полей формы программы КУЗСП считать данные
Спасибо Эндрю


http://rfpro.ru/upload/1169

Отправлен: 10.12.2009, 17:31
Вопрос задал: Ципихович Эндрю, Посетитель
Всего ответов: 1
Страница вопроса »

Приложение:
Option Explicit Type RECT Left As Long Top As Long Right As Long Bottom As Long End Type Declare Function GetWindowRect Lib "user32" (ByVal hwnd As Long, _ lpRect As RECT) As Long Declare Function MoveWindow Lib "user32" (ByVal hwnd As Long, _ ByVal x As Long, ByVal y As Long, ByVal nWidth As Long, _ ByVal nHeight As Long, ByVal bRepaint As Long) As Long Declare Function GetDesktopWindow Lib "user32" () As Long Declare Function EnumWindows Lib "user32" _ (ByVal lpEnumFunc As Long, ByVal lParam As Long) As Long Declare Function EnumChildWindows Lib "user32" (ByVal hWndParent _ As Long, ByVal lpEnumFunc As Long, ByVal lParam As Long) As Long Declare Function EnumThreadWindows Lib "user32" (ByVal dwThreadId _ As Long, ByVal lpfn As Long, ByVal lParam As Long) As Long Declare Function GetWindowThreadProcessId Lib "user32" _ (ByVal hwnd As Long, lpdwProcessId As Long) As Long Declare Function GetClassName Lib "user32" Alias "GetClassNameA" _ (ByVal hwnd As Long, ByVal lpClassName As String, _ ByVal nMaxCount As Long) As Long Declare Function GetWindowText Lib "user32" Alias "GetWindowTextA" _ (ByVal hwnd As Long, ByVal lpString As String, _ ByVal cch As Long) As Long Public TopCount As Integer \' Number of Top level Windows Public ChildCount As Integer \' Number of Child Windows Public ThreadCount As Integer \' Number of Thread Windows Function EnumWinProc(ByVal lhWnd As Long, ByVal lParam As Long) As Long Dim RetVal As Long, ProcessID As Long, ThreadID As Long Dim WinClassBuf As String * 255, WinTitleBuf As String * 255 Dim WinClass As String, WinTitle As String RetVal = GetClassName(lhWnd, WinClassBuf, 255) WinClass = StripNulls(WinClassBuf) \' remove extra Nulls & spaces RetVal = GetWindowText(lhWnd, WinTitleBuf, 1024) WinTitle = StripNulls(WinTitleBuf) TopCount = TopCount + 1 \' see the Windows Class and Title for each top level Window If Left(WinTitle, 9) = "< ÊÓÇÑÏ >" Then Debug.Print "Top level Class = "; WinClass; ", Title = "; WinTitle RetVal = EnumChildWindows(lhWnd, AddressOf EnumChildProc, lParam) End If EnumWinProc = True End Function Function EnumChildProc(ByVal lhWnd As Long, ByVal lParam As Long) As Long Dim RetVal As Long Dim WinClassBuf As String * 255, WinTitleBuf As String * 255 Dim WinClass As String, WinTitle As String Dim WinRect As RECT Dim WinWidth As Long, WinHeight As Long RetVal = GetClassName(lhWnd, WinClassBuf, 255) WinClass = StripNulls(WinClassBuf) \' remove extra Nulls & spaces RetVal = GetWindowText(lhWnd, WinTitleBuf, 255) WinTitle = StripNulls(WinTitleBuf) ChildCount = ChildCount + 1 \' see the Windows Class and Title for each Child Window enumerated Debug.Print " Child Class = "; WinClass; ", Title = "; WinTitle \' You can find any type of Window by searching for its WinClass If WinClass = "ThunderTextBox" Then \' TextBox Window RetVal = GetWindowRect(lhWnd, WinRect) \' get current size WinWidth = WinRect.Right - WinRect.Left \' keep current width WinHeight = (WinRect.Bottom - WinRect.Top) * 2 \' double height RetVal = MoveWindow(lhWnd, 0, 0, WinWidth, WinHeight, True) EnumChildProc = False Else EnumChildProc = True End If End Function Public Function StripNulls(OriginalStr As String) As String \' This removes the extra Nulls so String comparisons will work If (InStr(OriginalStr, Chr(0)) > 0) Then OriginalStr = Left(OriginalStr, InStr(OriginalStr, Chr(0)) - 1) End If StripNulls = OriginalStr End Function
-----
Я ни от чего, ни от кого не завишу.

Ответ отправил: Ashotn, 6-й класс
Ответ отправлен: 12.12.2009, 14:09

Оценка ответа: 5

Как сказать этому эксперту "спасибо"?

Отправить SMS #thank 257636 на номер 1151 (Россия) | Еще номера »

Отправить WebMoney: Неплохо (30 руб.) Хорошо (40 руб.) Отлично (55 руб.) БЛЕСТЯЩЕ! (80 руб.)

Вам помогли? Пожалуйста, поблагодарите эксперта за это!

Оценить выпуск »
Нам очень важно Ваше мнение об этом выпуске рассылки!

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