Не могу найти ошибку в программе

@petyavb · Регистрация: 08.10.2024

Студворк — интернет-сервис помощи студентам

Выдаёт эту ошибку

Подробности:

Code
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
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
************** Текст исключения **************
System.InvalidCastException: Conversion from string "test," to type 'Double' is not valid.
 ---> System.FormatException: The input string 'test,' was not in a correct format.
   at Microsoft.VisualBasic.CompilerServices.Conversions.ParseDouble(String Value, NumberFormatInfo NumberFormat)
   at Microsoft.VisualBasic.CompilerServices.Conversions.ToDouble(String Value, NumberFormatInfo NumberFormat)
   --- End of inner exception stack trace ---
   at Microsoft.VisualBasic.CompilerServices.Conversions.ToDouble(String Value, NumberFormatInfo NumberFormat)
   at Много_меня.Form1.WriteData(String url, Byte amount) in C:\Users\petya\source\repos\Много меня\Много меня\Form1.vb:line 38
   at Много_меня.Form1.SaveData(String url, Byte amount) in C:\Users\petya\source\repos\Много меня\Много меня\Form1.vb:line 34
   at Много_меня.Form1.start_button_Click(Object sender, EventArgs e) in C:\Users\petya\source\repos\Много меня\Много меня\Form1.vb:line 17
   at System.Windows.Forms.Button.OnClick(EventArgs e)
   at System.Windows.Forms.Button.OnMouseUp(MouseEventArgs mevent)
   at System.Windows.Forms.Control.WmMouseUp(Message& m, MouseButtons button, Int32 clicks)
   at System.Windows.Forms.Control.WndProc(Message& m)
   at System.Windows.Forms.ButtonBase.WndProc(Message& m)
   at System.Windows.Forms.NativeWindow.Callback(HWND hWnd, MessageId msg, WPARAM wparam, LPARAM lparam)
 
 
************** Загруженные сборки **************
System.Private.CoreLib
    Версия сборки: 8.0.0.0
    Расположение: C:\Program Files\dotnet\shared\Microsoft.NETCore.App\8.0.8\System.Private.CoreLib.dll
----------------------------------------
Много меня
    Версия сборки: 1.0.0.0
    Расположение: C:\Users\petya\source\repos\Много меня\Много меня\bin\Debug\net8.0-windows\Много меня.dll
----------------------------------------
Microsoft.VisualBasic.Forms
    Версия сборки: 8.0.0.0
    Расположение: C:\Program Files\dotnet\shared\Microsoft.WindowsDesktop.App\8.0.8\Microsoft.VisualBasic.Forms.dll
----------------------------------------
System.Runtime
    Версия сборки: 8.0.0.0
    Расположение: C:\Program Files\dotnet\shared\Microsoft.NETCore.App\8.0.8\System.Runtime.dll
----------------------------------------
System.Windows.Forms.Primitives
    Версия сборки: 8.0.0.0
    Расположение: C:\Program Files\dotnet\shared\Microsoft.WindowsDesktop.App\8.0.8\System.Windows.Forms.Primitives.dll
----------------------------------------
Microsoft.Extensions.DotNetDeltaApplier
    Версия сборки: 17.0.0.0
    Расположение: c:\program files\microsoft visual studio\2022\community\common7\ide\commonextensions\microsoft\hotreload\Microsoft.Extensions.DotNetDeltaApplier.dll
----------------------------------------
System.IO.Pipes
    Версия сборки: 8.0.0.0
    Расположение: C:\Program Files\dotnet\shared\Microsoft.NETCore.App\8.0.8\System.IO.Pipes.dll
----------------------------------------
System.Linq
    Версия сборки: 8.0.0.0
    Расположение: C:\Program Files\dotnet\shared\Microsoft.NETCore.App\8.0.8\System.Linq.dll
----------------------------------------
System.Collections
    Версия сборки: 8.0.0.0
    Расположение: C:\Program Files\dotnet\shared\Microsoft.NETCore.App\8.0.8\System.Collections.dll
----------------------------------------
System.Windows.Forms
    Версия сборки: 8.0.0.0
    Расположение: C:\Program Files\dotnet\shared\Microsoft.WindowsDesktop.App\8.0.8\System.Windows.Forms.dll
----------------------------------------
System.Collections.Concurrent
    Версия сборки: 8.0.0.0
    Расположение: C:\Program Files\dotnet\shared\Microsoft.NETCore.App\8.0.8\System.Collections.Concurrent.dll
----------------------------------------
System.Diagnostics.TraceSource
    Версия сборки: 8.0.0.0
    Расположение: C:\Program Files\dotnet\shared\Microsoft.NETCore.App\8.0.8\System.Diagnostics.TraceSource.dll
----------------------------------------
System.ComponentModel.Primitives
    Версия сборки: 8.0.0.0
    Расположение: C:\Program Files\dotnet\shared\Microsoft.NETCore.App\8.0.8\System.ComponentModel.Primitives.dll
----------------------------------------
System.Console
    Версия сборки: 8.0.0.0
    Расположение: C:\Program Files\dotnet\shared\Microsoft.NETCore.App\8.0.8\System.Console.dll
----------------------------------------
System.Drawing.Primitives
    Версия сборки: 8.0.0.0
    Расположение: C:\Program Files\dotnet\shared\Microsoft.NETCore.App\8.0.8\System.Drawing.Primitives.dll
----------------------------------------
System.Threading
    Версия сборки: 8.0.0.0
    Расположение: C:\Program Files\dotnet\shared\Microsoft.NETCore.App\8.0.8\System.Threading.dll
----------------------------------------
System.Runtime.InteropServices
    Версия сборки: 8.0.0.0
    Расположение: C:\Program Files\dotnet\shared\Microsoft.NETCore.App\8.0.8\System.Runtime.InteropServices.dll
----------------------------------------
System.Threading.Overlapped
    Версия сборки: 8.0.0.0
    Расположение: C:\Program Files\dotnet\shared\Microsoft.NETCore.App\8.0.8\System.Threading.Overlapped.dll
----------------------------------------
System.Security.AccessControl
    Версия сборки: 8.0.0.0
    Расположение: C:\Program Files\dotnet\shared\Microsoft.NETCore.App\8.0.8\System.Security.AccessControl.dll
----------------------------------------
System.Collections.Specialized
    Версия сборки: 8.0.0.0
    Расположение: C:\Program Files\dotnet\shared\Microsoft.NETCore.App\8.0.8\System.Collections.Specialized.dll
----------------------------------------
System.Security.Principal.Windows
    Версия сборки: 8.0.0.0
    Расположение: C:\Program Files\dotnet\shared\Microsoft.NETCore.App\8.0.8\System.Security.Principal.Windows.dll
----------------------------------------
System.Security.Claims
    Версия сборки: 8.0.0.0
    Расположение: C:\Program Files\dotnet\shared\Microsoft.NETCore.App\8.0.8\System.Security.Claims.dll
----------------------------------------
System.Threading.Thread
    Версия сборки: 8.0.0.0
    Расположение: C:\Program Files\dotnet\shared\Microsoft.NETCore.App\8.0.8\System.Threading.Thread.dll
----------------------------------------
System.Runtime.Loader
    Версия сборки: 8.0.0.0
    Расположение: C:\Program Files\dotnet\shared\Microsoft.NETCore.App\8.0.8\System.Runtime.Loader.dll
----------------------------------------
System.ComponentModel.EventBasedAsync
    Версия сборки: 8.0.0.0
    Расположение: C:\Program Files\dotnet\shared\Microsoft.NETCore.App\8.0.8\System.ComponentModel.EventBasedAsync.dll
----------------------------------------
System.ComponentModel
    Версия сборки: 8.0.0.0
    Расположение: C:\Program Files\dotnet\shared\Microsoft.NETCore.App\8.0.8\System.ComponentModel.dll
----------------------------------------
System.Drawing.Common
    Версия сборки: 8.0.0.0
    Расположение: C:\Program Files\dotnet\shared\Microsoft.WindowsDesktop.App\8.0.8\System.Drawing.Common.dll
----------------------------------------
Microsoft.Win32.Primitives
    Версия сборки: 8.0.0.0
    Расположение: C:\Program Files\dotnet\shared\Microsoft.NETCore.App\8.0.8\Microsoft.Win32.Primitives.dll
----------------------------------------
Accessibility
    Версия сборки: 4.0.0.0
    Расположение: C:\Program Files\dotnet\shared\Microsoft.WindowsDesktop.App\8.0.8\Accessibility.dll
----------------------------------------
System.ComponentModel.TypeConverter
    Версия сборки: 8.0.0.0
    Расположение: C:\Program Files\dotnet\shared\Microsoft.NETCore.App\8.0.8\System.ComponentModel.TypeConverter.dll
----------------------------------------
Microsoft.VisualBasic.Core
    Версия сборки: 13.0.0.0
    Расположение: C:\Program Files\dotnet\shared\Microsoft.NETCore.App\8.0.8\Microsoft.VisualBasic.Core.dll
----------------------------------------
System.Numerics.Vectors
    Версия сборки: 8.0.0.0
    Расположение: C:\Program Files\dotnet\shared\Microsoft.NETCore.App\8.0.8\System.Numerics.Vectors.dll
----------------------------------------
System.Memory
    Версия сборки: 8.0.0.0
    Расположение: C:\Program Files\dotnet\shared\Microsoft.NETCore.App\8.0.8\System.Memory.dll
----------------------------------------
Microsoft.Win32.SystemEvents
    Версия сборки: 8.0.0.0
    Расположение: C:\Program Files\dotnet\shared\Microsoft.WindowsDesktop.App\8.0.8\Microsoft.Win32.SystemEvents.dll
----------------------------------------
System.Collections.NonGeneric
    Версия сборки: 8.0.0.0
    Расположение: C:\Program Files\dotnet\shared\Microsoft.NETCore.App\8.0.8\System.Collections.NonGeneric.dll
----------------------------------------
System.Linq.Expressions
    Версия сборки: 8.0.0.0
    Расположение: C:\Program Files\dotnet\shared\Microsoft.NETCore.App\8.0.8\System.Linq.Expressions.dll
----------------------------------------
System.Windows.Forms.resources
    Версия сборки: 8.0.0.0
    Расположение: C:\Program Files\dotnet\shared\Microsoft.WindowsDesktop.App\8.0.8\ru\System.Windows.Forms.resources.dll
----------------------------------------
System.Diagnostics.StackTrace
    Версия сборки: 8.0.0.0
    Расположение: C:\Program Files\dotnet\shared\Microsoft.NETCore.App\8.0.8\System.Diagnostics.StackTrace.dll
----------------------------------------
System.Reflection.Metadata
    Версия сборки: 8.0.0.0
    Расположение: C:\Program Files\dotnet\shared\Microsoft.NETCore.App\8.0.8\System.Reflection.Metadata.dll
----------------------------------------
System.Collections.Immutable
    Версия сборки: 8.0.0.0
    Расположение: C:\Program Files\dotnet\shared\Microsoft.NETCore.App\8.0.8\System.Collections.Immutable.dll
----------------------------------------
System.Text.Encoding.Extensions
    Версия сборки: 8.0.0.0
    Расположение: C:\Program Files\dotnet\shared\Microsoft.NETCore.App\8.0.8\System.Text.Encoding.Extensions.dll
----------------------------------------
 
************** Оперативная отладка (JIT) **************

Код:

VB.NET
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
Imports System.Linq.Expressions
Imports System.Reflection.Emit
 
Public Class Form1
    Dim amount_cnv As Byte
    Dim url As String
    Dim full_data_file As String
    Dim temp_directory As String
    Private Sub start_button_Click(sender As Object, e As EventArgs) Handles start_button.Click
        amount_cnv = amount_textBox.Text
        url = url_textBox.Text
        Convert.ToByte(amount_cnv)
        Convert.ToString(url)
        If amount_cnv > 15 Then
            Select Case MsgBox("Больше 15 может вызывать сильные лаги, продолжить?", MsgBoxStyle.Exclamation + MsgBoxStyle.YesNo, "Много меня")
                Case Is = MsgBoxResult.Yes
                    SaveData(url, amount_cnv)
                Case Is = MsgBoxResult.No
                    Exit Sub
            End Select
        Else
            SaveData(url, amount_cnv)
        End If
    End Sub
    Private Sub SaveData(url As String, amount As Byte)
 
        Try
            Dim data_file As String = System.IO.Path.GetTempFileName
            temp_directory = System.IO.Path.GetTempPath
            My.Computer.FileSystem.RenameFile(data_file, "data_manyMe.INFO")
            full_data_file = IO.Directory.GetFiles(temp_directory, "data_manyMe.INFO", IO.SearchOption.AllDirectories)(0)
            WriteData(url, amount)
        Catch ex As Exception
            WriteData(url, amount)
        End Try
    End Sub
    Private Sub WriteData(url As String, amount As Byte)
        IO.File.WriteAllText(full_data_file, url + "," + amount_cnv)
        FileOpen(1, full_data_file, OpenMode.Output)
        Print(1, url + "," + amount_cnv)
        FileClose(1)
    End Sub
End Class

@Hell666 · 08.10.2024, 22:10

OwenGlendower,

Последний вариант (с Move) не содержит, а вариант с Delete/Rename содержит.

VB.NET
1
2
3
4
Или сперва удалить файл как в моем полном коде выше, проверив его наличие.
VB.NETВыделить код
1
File.Exists

Буду иметь в виду.

Насрать.

Компилятор тут ни при чем т.к. речь о исключениях.

Еще как при чем.

VB.NET
1
2
3
4
5
6
7
8
9
Dim r As String = ""
Dim b As Byte = 15
Dim s As String = "bnvhh"
 
r = s + b 'Ошибка string to double
r = s & b 'Нет ошибки
 
r = s + CStr(b) 'Нет ошибки
r = s & CStr(b) 'Нет ошибки

И **** от меня. Ты клина словил.

@OwenGlendower · 08.10.2024, 22:27

Сообщение от Hell666

Или сперва удалить файл как в моем полном коде выше, проверив его наличие.

Так себе отмазка.

Сообщение от Hell666

И *** от меня. Ты клина словил.

Пациент не понимает как себя вести. Продолжаем лечение.

@OwenGlendower · 09.10.2024, 09:25

petyavb, извините что ваша тема превратилась в арену выяснения отношений. Вернемся к теме.

1. Первую ошибку мы уже исправили, но вам нужно запомнить что в VB.NET склейку строк можно выполнить с помощью операторов + и &. Но + это также и оператор сложения и поэтому в некоторых случаях он может приводить к неожиданным ошибкам. Поэтому мой совет всегда использовать &.

2. Для второй ошибки я уже предложил исправление. Повторю его еще раз:

VB.NET
1
2
3
4
5
6
    Private Sub SaveData(url As String, amount As Byte)
 
        full_data_file = System.IO.Path.Combine(System.IO.Path.GetTempPath(), "data_manyMe.INFO")
        WriteData(url, amount)
        
    End Sub

Главная идея что манипуляции с путями которые делает ваш код они лишние. Плюс там есть как минимум два бага. Первый это что full_data_file может остаться не инициализированной, а вызов WriteData все равно будет произведен. Второй кроется в вызове RenameFile. Если файл уже существует, то Rename выдаст исключение. Можно конечно заменить его на MoveFile c overwrite = True, но по моему это лишние действия.

3. Ваш метод WriteData записывает в файл два раза. Советую оставить только вызов File.WriteAllText. Также знайте что этот метод сам создаст файл если он не существует. На этом основан мой предыдущий совет, что достаточно присвоить путь.

@January29 · 09.10.2024, 17:56

Сообщение от OwenGlendower

Также знайте что этот метод сам создаст файл если он не существует.

Так добавлю. А это File.WriteAllText ведь может и переписать уже существующий файл. Если файл существует, он перезаписывается. Если файл не существует, он создается.

Новые блоги и статьи Все статьи Все блоги /
Запустил конкурс "тем и промптов для текстовых квестов созданных почти чисто ИИ" Adler 06.10.2026 Всем привет! За последние три-четыре дня я создал более 16 текстовых квестовых игр используя преимущественно по одному запросу к ИИ на игру. Мне так понравилось смотреть все ветки/ сцены во всех. . .	ИИ не может найти нужный язык в списке Supersumestria 05.10.2026 Я ему даю вот такое изображение и прошу найти и подчеркнуть немецкий язык. Возвращает он вот это: https:/ / i. **********/ vqBWLe2. png Нужную строчку в 3й колонке просто выдумал. . Это. . .	Новая последняя моя музыка в SUNO zorxor 05.10.2026 Здравствуйте, дорогие мои друзья! С большой радостью я хотел бы представить вам свою новую последнею музыку, которую сгенерировала мне по моей просьбе нейросеть SUNO. С уважением, zorxor. Это. . .	Программный домашний кинотеатр russiannick 27.09.2026 Сподобился на программный домашний кинотеатр. В качестве ЯВУ по традиции выбрал js. В помощники взял Яндекс-Алису. Было создано три зала на разные интересы. исторические и ретро сериал Хичкок. . .
Беседа с ИИ о программистах, недопускающих к созданию и правке кода генеративные ИИ и причины этого zorxor 21.09.2026 Раньше я радовался или получал некоторые эмоции, пусть небольшие, но всё же, от самого процесса написания кода, рекомпиляции и запуска, видя постепенное развитие программы и прочее. А теперь лень. . .	Мобильное приложение ColorStep pavlinmavlin 17.09.2026 Реализовал приложение Красный, Зеленый, Синий в Unity3d + c#. Название изменил на ColorStep. Приложение прошло модерацию и теперь доступно для скачивания. Делал его сам, шаг за шагом — и вот,. . .	Запрет дублирования строк в табличной части Maks 13.09.2026 Реализация из решения ниже выполнена на нетиповом справочнике "Нормы ТО" с табличной часть "Виды ТО", разработанного в КА2, со следующими реквизитами: - ВидТО (СправочникСсылка. ВидыТО); - ВидГСМ. . .	Скрипты Tampermonkey для CyberForum, ChatGPT, Claude и пр. Jin X 06.09.2026 Скрипты Tampermonkey для CyberForum, ChatGPT, Claude и пр. Работая с форумом и нейросетями в браузере часто хочется что-то подкорректировать или добавить какого-то функционала. Ниже прикреплён. . .