Форум программистов, компьютерный форум, киберфорум
Наши страницы
Visual Basic
Войти
Регистрация
Восстановить пароль
 
TYM
46 / 8 / 1
Регистрация: 20.08.2010
Сообщений: 53
#1

Функции

30.09.2010, 15:04. Просмотров 637. Ответов 0
Метки нет (Все метки)

Как сделать так, чтобы была форма, поле (Text1.text) и кнопка, при нажатии на которую проверялась бы контрольная сумма ИНН. Вот функции, как правильно их оформить ?? (связать с кнопкой и text1.text)

Пример ф-ции:

Visual Basic
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
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
Function CheckINN(sInn As String) As Boolean
 
' Ф-ция проверки количества символов и вывод соответствующей подфункции:
    sInn = Trim$(sInn)
 
    Select Case Len(sInn)
 
    Case 10: Check = CheckINN10(sInn)
    Case 12: Check = CheckINN12(sInn)
 
    End Select
    
    If Check = False Then MsgBox ("Не корректный ИНН")
    
End Function
 
 
Function CheckINN10(sInn As String) As Boolean
' Функция проверки 10 значного ИНН
    
    Dim i As Integer, s As String, j As Integer
    Dim v(1 To 10) As Integer
    
    v(1) = 2
    v(2) = 4
    v(3) = 10
    v(4) = 3
    v(5) = 5
    v(6) = 9
    v(7) = 4
    v(8) = 6
    v(9) = 8
    v(10) = 0
    
    For i = 1 To 10
 
        s = Mid$(sInn, i, 1)
 
        If Not IsNumeric(s) Then Exit Function
 
        j = j + CInt(v(i)) * CInt(s)
 
    Next i
 
    j = j Mod 11
 
    If j > 9 Then j = j Mod 10
 
    CheckINN10 = (j = CInt(s))
 
End Function
 
 
Function CheckINN12(sInn As String) As Boolean
 
' Функция проверки 12 значного ИНН
    
    Dim i As Integer, s As String, j As Integer
    Dim v(1 To 12) As Integer
    
    v(1) = 3
    v(2) = 7
    v(3) = 2
    v(4) = 4
    v(5) = 10
    v(6) = 3
    v(7) = 5
    v(8) = 9
    v(9) = 4
    v(10) = 6
    v(11) = 8
    v(12) = 0
    
    'j = 0
    
    For i = 1 To 12
        
        s = Mid$(sInn, i, 1)
 
        If Not IsNumeric(s) Then Exit Function
        
        j = j + CInt(v(i)) * CInt(s)
        
    Next i
    
    j = j Mod 11
    
    If j > 9 Then j = j Mod 10
    
    If j <> CInt(s) Then Exit Function
    
    j = 0
    
    For i = 1 To 11
        
        j = j + CInt(v(i)) * CInt(Mid$(sInn, i, 1))
        
    Next i
    
    j = j Mod 11
    
    If j > 9 Then j = j Mod 10
    
    CheckINN12 = (j = CInt(s))
    
End Function
 
[size="1"][color="grey"][I]Добавлено через 23 часа 54 минуты[/I][/color][/size]
мда...
 
То что выше, добавить в модуль..
а решение вот оно:
 
Private Sub Command1_Click()
   CheckINN Text1.Text
End Sub
Я гений.. всем спасибо за помощь!!
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
30.09.2010, 15:04
Ответы с готовыми решениями:

Функции. Как после одного возвратного значения функции отталкиваться от возврата другой функции
Написал код, в котором 2 функции одна возвращает стринговое значение, вторая...

excel. создать таблицу значение кусочно-непрерывной функции y на интервале [xmin; xmax] с шагом h, для расчета функции y используя логические функции

Табулирование заданной функции и определение максимального и минимального значения функции в таблице
Ребята, помогите пожалуйста решить последнюю задача, прямо совсем не как! ...

Вызов функции внутри другой функции с передачей локальной переменной по ссылке
Столкнулся с очень с интересной проблемой. Можно ли так делать? #include...

Различные функции, для которых можно создать массив указателей на функции
Придумайте не менее 3-х различных функций, для которых можно создать массив...

0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
30.09.2010, 15:04

Добавление функции, чтобы ее можно было вызывать с функции загрузки формы
Здравствуйте! Подскажите как правильно добавить функцию, чтоб ее можно было...

Изобразить схематически график функции на интервале, зная знаки функции и 1 и 2 производной
Пожалуйста, проверте моё решение этих примеров: Изобразите схематически график...

Для функции y=f(x) получить таблицу значений и график этой функции на отрезке
Для функции y=f(x) получить таблицу значений и график этой функции на отрезке....


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
1
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2018, vBulletin Solutions, Inc.
Рейтинг@Mail.ru