Простой расчет hashrate приложение ...

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

Частный d As Double
Частный с As Double
Частный Как Double
Частный б As Double
Частный DNC As Boolean
Частный TMH As Double
Частный ТММ As Double
Частные TMD As Double
Частный indbl As Double
Частный basea
Частный Baser

Private Sub Command1_Click ()
On Error GoTo nosubnoa
д = Text3.Text
а = Text4.Text / Text2.Text
б = D / A
«Text5.Text = Int (б)
«Text6.Text = Int (б / 1000000)
«Text7.Text = Int (б / 1000000000)
Text5.Text = Ь
Text6.Text = Int ((б / 1000000) * 100000) / 10000
Text7.Text = Int ((б / 1000000000) * 100000) / 100000
Exit Sub
nosubnoa:
MsgBox "Введите действительное значение."
End Sub

Private Sub Command2_Click ()
On Error GoTo nosubnob
а = Text3.Text
б = Text14.Text
с = а / б
D = C * Text2.Text
ТММ = д
TMH = d / 60
TMD = d / 60/24
Text15.Text = Int (ТММ)
Text16.Text = Int (TMH)
Text17.Text = Int (TMD)
tmdc = Int (TMD)
tmhc = Int (ТМХ - tmdc * 24)
tmmc = Int (ТММ - tmhc * 60 - tmdc * 60 * 24)
Text18.Text = tmdc & " дней, " & tmhc & " часов, " & tmmc & " минут в блоке."

Text13.Text = Text14.Text / 1 млн
Text12.Text = Text14.Text / +1000000000
«Text18.Text = Цел (д / 60/24) & " дней, " & (Int (д / 60) - Int (д / 60/24) * 60) & " часов, " & _
Цел (д - (Int (д / 60) - Int (д / 60/24) * 60) * 60) & " минут."
Exit Sub
nosubnob:
MsgBox "Введите действительное значение."
End Sub

Private Sub Command3_Click ()
On Error GoTo nosubnoc
а = Text3.Text
б = Text13.Text * 1 млн
с = а / б
D = C * Text2.Text
ТММ = д
TMH = d / 60
TMD = d / 60/24
Text15.Text = Int (ТММ)
Text16.Text = Int (TMH)
Text17.Text = Int (TMD)
tmdc = Int (TMD)
tmhc = Int (ТМХ - tmdc * 24)
tmmc = Int (ТММ - tmhc * 60 - tmdc * 60 * 24)
Text18.Text = tmdc & " дней, " & tmhc & " часов, " & tmmc & " минут в блоке."
Text14.Text = Text13.Text * +1000000
Text12.Text = Text13.Text / 1000
«Text18.Text = Цел (д / 60/24) & " дней, " & (Int (д / 60) - Int (д / 60/24) * 60) & " часов, " & _
Цел (д - (Int (д / 60) - Int (д / 60/24) * 60) * 60) & " минут."
Exit Sub
nosubnoc:
MsgBox "Введите действительное значение."
End Sub

Private Sub Command4_Click ()
On Error GoTo nosubnod
а = Text3.Text
б = Text12.Text * 1000000000
с = а / б
D = C * Text2.Text
ТММ = д
TMH = d / 60
TMD = d / 60/24
Text15.Text = Int (ТММ)
Text16.Text = Int (TMH)
Text17.Text = Int (TMD)
tmdc = Int (TMD)
tmhc = Int (ТМХ - tmdc * 24)
tmmc = Int (ТММ - tmhc * 60 - tmdc * 60 * 24)
Text18.Text = tmdc & " дней, " & tmhc & " часов, " & tmmc & " минут в блоке."
Text14.Text = Text12.Text * 1000000000
Text13.Text = Text12.Text * 1000
«Text18.Text = Цел (д / 60/24) & " дней, " & (Int (д / 60) - Int (д / 60/24) * 60) & " часов, " & _
Цел (д - (Int (д / 60) - Int (д / 60/24) * 60) * 60) & " минут."
Exit Sub
nosubnod:
MsgBox "Введите действительное значение."
End Sub

Private Sub Command5_Click ()
On Error GoTo nolol
Baser = InputBox ("Введите hashrate в хэш / с." & vbNewLine & "Добавить 000 000 000 для ghash / с. Например." & vbNewLine & vbNewLine & "1972 ghash / с = 1972 000 000 000 хэш / с.") / 1000000000
basea = InputBox ("Время в минутах, чтобы найти блок в " & Baser & " ghash / s?")
Text1.Text = Baser / 1000000000
Text8.Text = Baser / 1000000
Text2.Text = basea
Exit Sub
нет лол:
MsgBox "Редактировать отменен."
End Sub

Private Sub Command6_Click ()
Конец
End Sub

Private Sub Form_Load ()
basea = 78
Baser = 1 972
End Sub

Private Sub insmnubut_Click ()
MsgBox "Биткойн ссылок на основе известково, 1,0" & vbNewLine & vbNewLine & _
"Этот калькулятор не пытается приблизить время " & vbNewLine & _
"до завершения через трудности. Скорее всего, вы можете ввести " & vbNewLine & _
"Известно множество значений - например, hashrate и " & vbNewLine & _
"средняя findrate данного майнинг - и высчитывает " & vbNewLine & _
"Ваше выступление на его основе." & vbNewLine & vbNewLine & _
"Обратите внимание на соотношение времени по умолчанию имеет значение от 24/6/11." & vbNewLine & _
"Программа не делает никаких попыток исправить это соотношение с помощью " & vbNewLine & _
"трудности, и поэтому вам нужно вручную установить его " & vbNewLine & _
"САМ. Это само-explanitory. Введите hashrate в хэш / с," & vbNewLine & _
"не хаш, Mhash или ghash / с." & vbNewLine & vbNewLine & _
"Известково временем, просто введите время в минутах вы " & vbNewLine & _
"хотите предпринять, чтобы сгенерировать блок в силе " & vbNewLine & _
"ссылки на шахтера, и нажмите кнопку Вычислить, чтобы увидеть требуемый" & vbNewLine & _
"hashrate. Дважды время потребует половину мощности." & vbNewLine & vbNewLine & _
"Известково по hashrate достаточно самостоятельной explanitory. Введите ваш" & vbNewLine & _
"Желательная скорость в соответствующем поле и нажмите на кнопку рядом " & vbNewLine & _
"к нему. Результаты появляются непосредственно внизу - минуты, " & vbNewLine & _
"часы и дни каждые итоги." & vbNewLine & vbNewLine & _
"Привлечены к вам Руски."

End Sub

Private Sub mnuabt_Click ()
MsgBox "Привлечены к вам Руски." & vbNewLine & vbNewLine & _
"Я знаю, что вы понятия не имеете, о которых Руска может быть." & vbNewLine & vbNewLine & _
"Я также довольно хорошо с этим." & vbNewLine & vbNewLine & _
"Наслаждайтесь ответственно."
End Sub

Private Sub mnuexit_Click ()
Конец
End Sub

Private Sub Text1_Change ()
On Error GoTo nochangea
Если DNC = True Then Exit Sub
DNC = True
Text3.Text = Text1.Text * 1000000000
Text8.Text = Text1.Text * 1000
indbl = basea * (Baser / Text1.Text)
Text2.Text = Int (indbl)
DNC = False
nochangea:
DNC = False
Exit Sub
End Sub

Private Sub Text3_Change ()
On Error GoTo nochangeb
Если DNC = True Then Exit Sub
DNC = True
Text1.Text = Text3.Text / +1000000000
Text8.Text = Text3.Text / 1000000
DNC = False
indbl = basea * (Baser / Text1.Text)
Text2.Text = Int (indbl)
Exit Sub
nochangeb:
DNC = False
Exit Sub
End Sub

Private Sub Text8_Change ()
On Error GoTo nochangec
Если DNC = True Then Exit Sub
DNC = True
Text3.Text = Text8.Text * +1000000
Text1.Text = Text8.Text / 1000
DNC = False
indbl = basea * (Baser / Text1.Text)
Text2.Text = Int (indbl)
nochangec:
DNC = False
Exit Sub
End Sub

24 июня 2011, 1:31:14 PM	# 1
Руски Сообщения: 196 Цитировать по имени цитировать ответ	Re: Простое приложение расчета hashrate ... Взлом Биткоин адресов. 500 Биткоинов взломаны в "мозговом кошельке" с паролем "bitcoin is awesome" Адрес кошелька: 14NWDXkQwcGN1Pd9fboL8npVynD5SfyJAE Приватный ключ: 5J64pq77XjeacCezwmAr2V1s7snvvJkuAz8sENxw7xCkikceV6e подробнее... Всем кто хочет заработать Биткоины без вложений - рекомендую сайт http://bitcoin-zarabotat.ru Для тех из вас, кто не любит медленный, неудобный и, как правило DDoSed онлайн Bitcoin горнодобывающий Calcs - я сделал один из моих собственных. Читать все заявления об отказе, и т.д., это не очень точно, но это удобно. Сделано только для моей ссылки. Сделано в VB6, я отправил форму источника вместе с архивным файлом EXE. SHA-160 хешей в http://www.hashemall.com/ так что вы знаете, что вы скачиваете: Unzipped EXE: 0F9125916018B8632338EE0C942EF9360D7279F2 Форма: 1224F7DC8CCCA4C9B3262374CC7E77DCC9632A73 Exe застежка-молния: http://www.mediafire.com/?4jdz7o4075m83in Источник "код": http://www.mediafire.com/?5577rffodv59hd7 Наслаждайтесь! EDIT - забыл сделать скриншот. Это могло бы помочь. http://www.mediafire.com/?cdct7oq6469dd0m

24 июня 2011, 1:39:39 PM	# 2
Руски Сообщения: 196 Цитировать по имени цитировать ответ	Re: Простое приложение расчета hashrate ... Получил 1806 Биткоинов Реальная история. На самом деле, код настолько прост, что я мог бы также разместить его здесь. Содержание формы, минус раздел свойств. Частный d As Double Частный с As Double Частный Как Double Частный б As Double Частный DNC As Boolean Частный TMH As Double Частный ТММ As Double Частные TMD As Double Частный indbl As Double Частный basea Частный Baser Private Sub Command1_Click () On Error GoTo nosubnoa д = Text3.Text а = Text4.Text / Text2.Text б = D / A «Text5.Text = Int (б) «Text6.Text = Int (б / 1000000) «Text7.Text = Int (б / 1000000000) Text5.Text = Ь Text6.Text = Int ((б / 1000000) * 100000) / 10000 Text7.Text = Int ((б / 1000000000) * 100000) / 100000 Exit Sub nosubnoa: MsgBox "Введите действительное значение." End Sub Private Sub Command2_Click () On Error GoTo nosubnob а = Text3.Text б = Text14.Text с = а / б D = C * Text2.Text ТММ = д TMH = d / 60 TMD = d / 60/24 Text15.Text = Int (ТММ) Text16.Text = Int (TMH) Text17.Text = Int (TMD) tmdc = Int (TMD) tmhc = Int (ТМХ - tmdc * 24) tmmc = Int (ТММ - tmhc * 60 - tmdc * 60 * 24) Text18.Text = tmdc & " дней, " & tmhc & " часов, " & tmmc & " минут в блоке." Text13.Text = Text14.Text / 1 млн Text12.Text = Text14.Text / +1000000000 «Text18.Text = Цел (д / 60/24) & " дней, " & (Int (д / 60) - Int (д / 60/24) * 60) & " часов, " & _ Цел (д - (Int (д / 60) - Int (д / 60/24) * 60) * 60) & " минут." Exit Sub nosubnob: MsgBox "Введите действительное значение." End Sub Private Sub Command3_Click () On Error GoTo nosubnoc а = Text3.Text б = Text13.Text * 1 млн с = а / б D = C * Text2.Text ТММ = д TMH = d / 60 TMD = d / 60/24 Text15.Text = Int (ТММ) Text16.Text = Int (TMH) Text17.Text = Int (TMD) tmdc = Int (TMD) tmhc = Int (ТМХ - tmdc * 24) tmmc = Int (ТММ - tmhc * 60 - tmdc * 60 * 24) Text18.Text = tmdc & " дней, " & tmhc & " часов, " & tmmc & " минут в блоке." Text14.Text = Text13.Text * +1000000 Text12.Text = Text13.Text / 1000 «Text18.Text = Цел (д / 60/24) & " дней, " & (Int (д / 60) - Int (д / 60/24) * 60) & " часов, " & _ Цел (д - (Int (д / 60) - Int (д / 60/24) * 60) * 60) & " минут." Exit Sub nosubnoc: MsgBox "Введите действительное значение." End Sub Private Sub Command4_Click () On Error GoTo nosubnod а = Text3.Text б = Text12.Text * 1000000000 с = а / б D = C * Text2.Text ТММ = д TMH = d / 60 TMD = d / 60/24 Text15.Text = Int (ТММ) Text16.Text = Int (TMH) Text17.Text = Int (TMD) tmdc = Int (TMD) tmhc = Int (ТМХ - tmdc * 24) tmmc = Int (ТММ - tmhc * 60 - tmdc * 60 * 24) Text18.Text = tmdc & " дней, " & tmhc & " часов, " & tmmc & " минут в блоке." Text14.Text = Text12.Text * 1000000000 Text13.Text = Text12.Text * 1000 «Text18.Text = Цел (д / 60/24) & " дней, " & (Int (д / 60) - Int (д / 60/24) * 60) & " часов, " & _ Цел (д - (Int (д / 60) - Int (д / 60/24) * 60) * 60) & " минут." Exit Sub nosubnod: MsgBox "Введите действительное значение." End Sub Private Sub Command5_Click () On Error GoTo nolol Baser = InputBox ("Введите hashrate в хэш / с." & vbNewLine & "Добавить 000 000 000 для ghash / с. Например." & vbNewLine & vbNewLine & "1972 ghash / с = 1972 000 000 000 хэш / с.") / 1000000000 basea = InputBox ("Время в минутах, чтобы найти блок в " & Baser & " ghash / s?") Text1.Text = Baser / 1000000000 Text8.Text = Baser / 1000000 Text2.Text = basea Exit Sub нет лол: MsgBox "Редактировать отменен." End Sub Private Sub Command6_Click () Конец End Sub Private Sub Form_Load () basea = 78 Baser = 1 972 End Sub Private Sub insmnubut_Click () MsgBox "Биткойн ссылок на основе известково, 1,0" & vbNewLine & vbNewLine & _ "Этот калькулятор не пытается приблизить время " & vbNewLine & _ "до завершения через трудности. Скорее всего, вы можете ввести " & vbNewLine & _ "Известно множество значений - например, hashrate и " & vbNewLine & _ "средняя findrate данного майнинг - и высчитывает " & vbNewLine & _ "Ваше выступление на его основе." & vbNewLine & vbNewLine & _ "Обратите внимание на соотношение времени по умолчанию имеет значение от 24/6/11." & vbNewLine & _ "Программа не делает никаких попыток исправить это соотношение с помощью " & vbNewLine & _ "трудности, и поэтому вам нужно вручную установить его " & vbNewLine & _ "САМ. Это само-explanitory. Введите hashrate в хэш / с," & vbNewLine & _ "не хаш, Mhash или ghash / с." & vbNewLine & vbNewLine & _ "Известково временем, просто введите время в минутах вы " & vbNewLine & _ "хотите предпринять, чтобы сгенерировать блок в силе " & vbNewLine & _ "ссылки на шахтера, и нажмите кнопку Вычислить, чтобы увидеть требуемый" & vbNewLine & _ "hashrate. Дважды время потребует половину мощности." & vbNewLine & vbNewLine & _ "Известково по hashrate достаточно самостоятельной explanitory. Введите ваш" & vbNewLine & _ "Желательная скорость в соответствующем поле и нажмите на кнопку рядом " & vbNewLine & _ "к нему. Результаты появляются непосредственно внизу - минуты, " & vbNewLine & _ "часы и дни каждые итоги." & vbNewLine & vbNewLine & _ "Привлечены к вам Руски." End Sub Private Sub mnuabt_Click () MsgBox "Привлечены к вам Руски." & vbNewLine & vbNewLine & _ "Я знаю, что вы понятия не имеете, о которых Руска может быть." & vbNewLine & vbNewLine & _ "Я также довольно хорошо с этим." & vbNewLine & vbNewLine & _ "Наслаждайтесь ответственно." End Sub Private Sub mnuexit_Click () Конец End Sub Private Sub Text1_Change () On Error GoTo nochangea Если DNC = True Then Exit Sub DNC = True Text3.Text = Text1.Text * 1000000000 Text8.Text = Text1.Text * 1000 indbl = basea * (Baser / Text1.Text) Text2.Text = Int (indbl) DNC = False nochangea: DNC = False Exit Sub End Sub Private Sub Text3_Change () On Error GoTo nochangeb Если DNC = True Then Exit Sub DNC = True Text1.Text = Text3.Text / +1000000000 Text8.Text = Text3.Text / 1000000 DNC = False indbl = basea * (Baser / Text1.Text) Text2.Text = Int (indbl) Exit Sub nochangeb: DNC = False Exit Sub End Sub Private Sub Text8_Change () On Error GoTo nochangec Если DNC = True Then Exit Sub DNC = True Text3.Text = Text8.Text * +1000000 Text1.Text = Text8.Text / 1000 DNC = False indbl = basea * (Baser / Text1.Text) Text2.Text = Int (indbl) nochangec: DNC = False Exit Sub End Sub

Заголовок