Конференция VBStreets

**Павлуша** » 01.05.2005 (Вс) 13:59

Дано:TextBox в который вводятся символы (Цифры и буквы),
Label на который выводится контрольная сумма того что написано в TextBox,
CommandButton при нажатии на который на Label'е показывается контрольная сумма того что написано в TextBox.
Вопрос: Подскажите как реализовать контрольную сумму из того что написано в TextBox??
Подскажите пожалуйста, а то курсовик стынет!!!javascript:emoticon(':?')
Confused

**ANDLL** » 01.05.2005 (Вс) 14:12

Гм. Мне или кажеться, или контрольная сумма - понятие общее, т.е. общей формулы на все случаи жизни для ее нахождения нет. Ты сам придумываешь в зависимости от ситуации. Начнем с того, сколько бьайт должна эта сумма занимать?

**Павлуша** » 01.05.2005 (Вс) 14:14

предположим что 1килограмм в смысле килобайт. такой объем возможен?

**RayShade** » 01.05.2005 (Вс) 15:01

Сначала я бы с алгоритмом определился, на основании которого сумм считать. А потом бы уже все остальное смотрел.

**_Мика_** » 01.05.2005 (Вс) 15:30

Вот, могу свой способ предложить

Код: Выделить всё: Dim s As Currency Dim sum As Currency Private Sub Command1_Click() sum = 0 For i = 1 To Len(Text1) s = Asc(Mid(Text1, i, 1)) / i sum = sum + s Next i label1 = Str(sum) End Sub :wink:

**ANDLL** » 01.05.2005 (Вс) 16:40

Только смысла использовать currency нету. Я бы заменил на Long. Кстати, а зачем делить на i?

**kirrun** » 01.05.2005 (Вс) 21:19

Сори за оффтоп...

Павлуша писал(а):javascript:emoticon(':?')
Confused

это у меня глюки, на форуме глюки, или аффтор глючный?

**tyomitch** » 01.05.2005 (Вс) 22:22

kirrun, у тебя.

**A.A.Z.** » 01.05.2005 (Вс) 22:23

Значит, и у меня тоже :roll:

**kirrun** » 01.05.2005 (Вс) 23:00

У него эти чтуки перед и после смайлов в каждом посте...
Лана... Раз великий Темыч сказал что у меня - пойду лечицца... и Максончика лечить...

**kirrun** » 01.05.2005 (Вс) 23:01

ANDLL писал(а):Только смысла использовать currency нету. Я бы заменил на Long. Кстати, а зачем делить на i?

А шоб было...

**Павлуша** » 02.05.2005 (Пн) 12:07

Спасибо что подсказали!!
Если кто ссылки знает по контрольной сумме - подскажите!
плизз!javascript:emoticon(':arrow:')
arrow

**kirrun** » 02.05.2005 (Пн) 13:23

Блин.. вот проблема! Я вчера вечером от нефиг делать написал мега-прогу для вычисления контрольной суммы... За 15 минут... Но не выложу ибо буду использовать в своих прогах

**Amed** » 02.05.2005 (Пн) 13:34

Ух ты... Мега-прога? Дай, ну пожаааалуйста!

**_Мика_** » 02.05.2005 (Пн) 16:02

Вот CRC16 и CRC32

http://www.planetsourcecode.com/upload_ ... 182000.zip

**Павлуша** » 02.05.2005 (Пн) 16:53

Спасибо за ссылку!!

-------------------------------
Если бы строители строили бы дома так, как программисты пишут программы, то первый залетевший жук разрушил бы цивилизацию!

**_Мика_** » 02.05.2005 (Пн) 16:57

_Мика_ писал(а):Вот CRC16 и CRC32
http://www.planetsourcecode.com/upload_ ... 182000.zip

Вопрос!

Кто может сделать из этого класса, Native DLL?? :roll:

**tyomitch** » 02.05.2005 (Пн) 19:18

_Мика_ писал(а):Вопрос!

Кто может сделать из этого класса, Native DLL??

Я не только могу, но и сделал. Жаль, она осталась на работе :-(

Блин, куча моих прог там осталась... Щас всё заново писать :-(

**kirrun** » 02.05.2005 (Пн) 20:28

tyomitch писал(а):
_Мика_ писал(а):Вопрос!

Кто может сделать из этого класса, Native DLL??

Я не только могу, но и сделал. Жаль, она осталась на работе
Блин, куча моих прог там осталась... Щас всё заново писать

Уволили что ли? =)

**_Мика_** » 02.05.2005 (Пн) 20:29

kirrun писал(а):
tyomitch писал(а):
_Мика_ писал(а):Вопрос!

Кто может сделать из этого класса, Native DLL??

Я не только могу, но и сделал. Жаль, она осталась на работе
Блин, куча моих прог там осталась... Щас всё заново писать

Уволили что ли? =)

Мне тоже показалось.....Блин..хотел же спросить.. :roll:

**kirrun** » 02.05.2005 (Пн) 20:29

Amed

Неа! А если я буду юзать свой мега-алгоритм в своих прогах? Тада у всего VBStreets (да и инета) появится кейген =)

Конференция VBStreets

Контрольная сумма!

Контрольная сумма!

Re: Контрольная сумма!

Кто сейчас на конференции