Textbox

[Max!]

На форме одна кнопка и один текстбокс , в текст боксе число дапустим 1 ,
затем мы нажимаем на кнопку и в текст боксе пребовляется +1 . Вопрос как сделать шоб через каждые 2 и 4 числа по очериди выскочил мсг бокс(ЧИСЛА ЧёТНЫЕ) , затем через каждых 2 и 4 числа по ечереди (НЕ ЧЁТНЫХ) выскочил мсгбкс, затем через каждых 6 ЧЁТНЫХ чисел и 6НЕ ЧЁТНЫХ чисел тоже выскочил мсгбокс!!!!
Это срочно!!!!!

[Sergey-13]

Тебе что надо выводить бок по ряду 2, 4, 6, ... i+2?
Если да то ставь счетчи нажатий
если условие = ряду, тогда делай еще условие на чет и не чет.
Поставь флаг который будет следить за выводом "ЧЕТ" "НЕЧЕТ" и все.

[Tamahawk]

Сначала надо разработать алгоритм шоб тя понять
Извини грубо но верно

[EvilCoder]

<DELETE>

[mefestofele]

Проверь условие оператором If
Подсчитывая ко-во символов в тексте
И в чем проблема?
Глупый вопрос
_________________
Да поможет тебе F1, Да сохранит тебя F2. Во имяя ALT'a, SHIFT'a и свяятого DEL'a, ESC.

[kazah_]

как-то задавался вопросом как узнать четное число или нет. Не помню функцию которая это делает поэтому придумал собственный метод:

On error resume next

a:=inputbox("ENTER TNE NUM")
if round(a/2)=a/2 then msgbox("CHETNOE")
else: msgbox("NECHETNOE") ]

[Tamahawk]

на те ерунду

Код: Выделить всё

if (-1)^(Text1.Text) > 0 Then
Msgbox MUZHIK ETO CHETNOE
else
Msgbox MUZHIK ETO ne CHETNOE
end if

[skiperski]

Код: Выделить всё

Public Functon IsEven(ByVal Value As Long) As Boolean
    IsEven = (Value Mod 2 = 0)
End Function

[Andrew Sherd]

Каждый извращается как может...ну нате вам еще один вариант проверки четности:

if iChislo \ 2 = iChislo / 2 Then MsgBox "Четное енто число, а Вы чё думали!"

[Гость]

Хватит уже над человеком издеваться, вот мой алгоритм:

if (Value mod 2) = "Eto celoe chislo, brat" then f = inputbox("Nifiga ne celoe, bratan")

[A.A.Z.]

Если Value Mod 2 = "Eto celoe chislo, brat", то InputBox("Nifiga ne celoe, bratan")
Послушайте skiperski!

[A.A.Z.]

Код: Выделить всё

Sub Command1_Click()
     Text1.Text = Val(Text1.Text) + 1
     If IsEven(CLng(Text1.Text)) Then MsgBox "Целое число!", vbInformation Else MsgBox "Нецелое число!", vbInformation
End Sub

Functon IsEven(ByVal Value As Long) As Boolean
    IsEven = (Value Mod 2 = 0)
End Function

[alibek]

Как-то на одном форуме (вроде бы не этом) было обсуждение, как правильно определять четность числа, сошлись на том, что использовать MOD правильнее (и быстрее).

[Ennor]

Если подумать, то любое четное число должно иметь в младшем значащем бите (LSB) значение 0. Может, тогда так:

Код: Выделить всё

...
Dim Odd As Boolean
Odd = (Numb And 1)
MsgBox Not Odd
...


Интересно, это быстрее, чем модуль двойки, или нет?..

[alibek]

Вот к тому дискуссия и свелась, что быстрее, MOD или AND. И несмотря на то, что MOD это фактически деление, он почему-то был быстрее.

З.Ы. К тому же AND неприменим к дробным числам

[A.A.Z.]

Народ! ИМХО, афтар не просил скорость выяснить, он просил пример кинуть!
Да, кстати, где афтар-то?