VBNet - Форум

Вопрос: NovichKy Добавлено: 24.01.04 02:05

Автор вопроса: Woolfik

Андрей, тут меня одна девушка просит, чтобы ты выслал мне на ящик для нее тест.

Ты не забыл? Извини, что потревожил.

Ответить

Ответы Всего ответов: 8

Номер ответа: 1
Автор ответа:

Woolfik

Вопросов: 22
Ответов: 25

Профиль | | #1

Добавлено: 24.01.04 02:15

Девушка очень просит.

Ответить

Номер ответа: 2
Автор ответа:

NovichoK

Вопросов: 72
Ответов: 147

Профиль | | #2

Добавлено: 24.01.04 13:23

Я отправляю письма, а MailDeliverySystem возвращает - пишет что ткаих емейлов нет?!?!? У меня что-то с почтой не в порядке, не знаю я тебе щас сюда код скину..

Ответить

Номер ответа: 3
Автор ответа:

NovichoK

Вопросов: 72
Ответов: 147

Профиль | | #3

Добавлено: 24.01.04 13:24

Option Explicit
'есть один не понятный мне баг - программа иногда тупо зависает ?!?!?!Все это я ссылаю на то что надо пользоваться ДАТА1
'лутше пользоваться объктами ДАО, но так как вы проосили я сделал на ДАТА
Const max = 7
Dim Vopros(1 To max)   As String
Private Sub Command1_Click()
Dim i As Integer, k As Integer, number As Integer, z As Integer, Indicator As Boolean
'Data1.Connect = "Access" 'не знаю почему но вот так с этими 4-мя строками работать не хочет ??!??!?!?!!?
'Data1.DatabaseName = App.Path + "\db1.mdb"
'Data1.RecordsetType = 0
'Data1.RecordSource = "Test"
For i = 1 To max
   number = Int((30) * Rnd + 1) 'Вот это код при котором счетчик выдает случайное число от 1 до 30
   Data1.Recordset.MoveFirst
   For k = 1 To number
        If k = number Then 'Мы мысленно нумеруем каждую запись и двигаемся до полученной счетчиком
             If i = 1 Then 'если массив еще пустой то добавляем без всяких проверок
                 Vopros(i) = Data1.Recordset.Fields(0)
             Else 'Если же нет то перебираем все элементы массива и смотрим нет ли у нас такого же числа, если есть - индикатор=правда
                  For z = 1 To i - 1
                        If Vopros(z) = Data1.Recordset.Fields(0) Then Indicator = True
                  Next z
                  Vopros(i) = Data1.Recordset.Fields(0)
                  If Indicator = True Then 'если индиктор =правда тогда мы присваем индексу значение на единицу меньше тем самым заставлем еще раз пройти массив по тому же индексу
                  i = i - 1
                  End If
             End If
        End If
        Data1.Recordset.MoveNext
   Next k
Next i

For i = 1 To max
List1.AddItem Vopros(i)
Next i
End Sub

Private Sub Form_Load()
Randomize
End Sub

Ответить

Номер ответа: 4
Автор ответа:

Woolfik

Вопросов: 22
Ответов: 25

Профиль | | #4

Добавлено: 24.01.04 14:28

Передаю тебе от нее большое спасибо.

Я ей уже сам переслал. К ней оно должно дойти.

Ответить

Номер ответа: 5
Автор ответа:

Svetlana

ICQ: 262385618

Вопросов: 43
Ответов: 205

Профиль | | #5

Добавлено: 24.01.04 15:10

Что же это за девушка, раз столько суеты и беспокойства за нее..

Ответить

Номер ответа: 6
Автор ответа:

Александр

Разработчик Offline Client

ICQ: 204034

Вопросов: 106
Ответов: 1919

Профиль | | #6

Добавлено: 24.01.04 15:20

Да, что же это за девушка?

Ответить

Номер ответа: 7 Автор ответа: NovichoK Вопросов: 72 Ответов: 147	Профиль \| \| #7	Добавлено: 24.01.04 20:07
	She is a devil-girl Ответить

Номер ответа: 8
Автор ответа:

Woolfik

Вопросов: 22
Ответов: 25

Профиль | | #8

Добавлено: 24.01.04 20:25

NovichoK, ты все-таки уматный.....парень.

Правдивый Приколист одним словом

Ответить

Страница: 1 |