Форум программистов, компьютерный форум, киберфорум
Наши страницы
Visual Basic .NET
Войти
Регистрация
Восстановить пароль
 
 
Рейтинг 4.67/6: Рейтинг темы: голосов - 6, средняя оценка - 4.67
Polyana1997
1 / 1 / 0
Регистрация: 25.04.2017
Сообщений: 76
1

Как считать интеграл и сохранять его в "таблицу"?

01.05.2017, 13:34. Просмотров 1068. Ответов 39
Метки нет (Все метки)

Ситуация такая: есть функция рисования графиков на оси координат, есть функция подсчета интеграла (код прикреплен). У нас есть t(можно считать как x) от 0 до 2*пи с шагом 0,1. Есть w1 = 2*пи/T, T=Пи, и есть k = от 0 до 60 (это максимум). Нужно посчитать интеграл при k = 1, t раз(формула будет прикреплена). После чего нужно как - то построить график при первом k, при втором k и т.д. (там будет синусоида). Как это сделать? И в конце концов нам нужно будет выполнить одно выражение (формула тоже прикреплена). Кто может помочь? Я не могу понять как это реализовать и как потом выводить эти коэффициенты на экран и графики. Буду рад любым советам и ответам!
Код программы
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
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
Public Class Form1
    Private xmin, xmax, ymin, ymax, w, h As Integer
    Private bmp As Bitmap
    Private g As Graphics
    Private pnAxis, pnGraphics As Pen
    Private pnt As List(Of PointF), pp As PointF
    Private isDraw As Boolean
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        xmin = -7 : xmax = 7 : ymin = -2 : ymax = 2
        w = PictureBox1.Width
        h = PictureBox1.Height
        bmp = New Bitmap(w, h, PictureBox1.CreateGraphics())
        PictureBox1.Enabled = False
        pnAxis = New Pen(Brushes.Blue, -1)
        pnGraphics = New Pen(Brushes.Red, 2)
        Button1.Enabled = False
        Label2.Text = "min = " & xmin.ToString
        Label3.Text = "max = " & xmax.ToString
        Label5.Text = "min = " & ymin.ToString
        Label4.Text = "max = " & ymax.ToString
        Label1.Text = "X"
        Label6.Text = "Y"
        Label7.Text = "Интегралл"
        Label8.Text = ""
    End Sub
    Private Sub CreateGraphics_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
        PictureBox1.Enabled = True
        gettingStartedCanvas()
        Button1.Enabled = True
        Label8.Text = ""
    End Sub
    Private Sub GetIntegral_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim kx As Double = w / 2 / xmax
        Dim ky As Double = h / 2 / ymax
        Dim p As PointF
        For i = 0 To pnt.Count - 1
            p = pnt(i)
            p.X -= w / 2
            p.Y -= h / 2
            p.Y = -p.Y
            p.X /= kx
            p.Y /= ky
            pnt(i) = p
        Next
        'вычисляем приближенно по методу трапеций
        Dim sum As Double = 0.0
        For i = 1 To pnt.Count - 1
            sum += (pnt(i - 1).Y + pnt(i).Y) / 2 * (pnt(i).X - pnt(i - 1).X)
        Next
        Label8.Text = sum.ToString
        Button1.Enabled = False
        PictureBox1.Enabled = False
    End Sub
    Private Sub gettingStartedCanvas()
        g = Graphics.FromImage(bmp)
        g.Clear(PictureBox1.BackColor)
        g.DrawLine(pnAxis, New Point(w / 2, 0), New Point(w / 2, h))
        g.DrawLine(pnAxis, New Point(0, h / 2), New Point(w, h / 2))
        PictureBox1.Image = bmp
        g.Dispose()
    End Sub
    Private Sub PictureBox1_MouseDown(ByVal sender As System.Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles PictureBox1.MouseDown
        Dim x As Integer = e.Location.X
        Dim y As Integer = e.Location.Y
        If x <> 0 Then x = 0
        pnt = New List(Of PointF)
        pp = New PointF(x, y)
        pnt.Add(pp)
        isDraw = True
        g = Graphics.FromImage(bmp)
    End Sub
    Private Sub PictureBox1_MouseUp(ByVal sender As System.Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles PictureBox1.MouseUp
        If Not isDraw Then Exit Sub
        Dim x As Integer = e.Location.X
        Dim y As Integer = e.Location.Y
        If x <> w Then x = w
        pnt.Add(New PointF(x, y))
        g.DrawLine(pnGraphics, pp, pnt(pnt.Count - 1))
        isDraw = False
        g.Dispose()
        PictureBox1.Image = bmp
    End Sub
    Private Sub PictureBox1_MouseMove(ByVal sender As System.Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles PictureBox1.MouseMove
        If isDraw Then
            Dim x As Integer = e.Location.X
            Dim y As Integer = e.Location.Y
            If x <= pp.X Then Exit Sub
            Dim p As PointF = New PointF(x, y)
            g.DrawLine(pnGraphics, pp, p)
            pnt.Add(p)
            pp = p
            PictureBox1.Image = bmp
        End If
    End Sub
End Class
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
01.05.2017, 13:34
Ответы с готовыми решениями:

Как исправить ошибку "Приведение строки "" к типу "Double" является недопустимым"?
Выдает ошибку в строке nasel(n).mat = Int(line(2)). Приведение строки &quot;&quot; к типу...

Обработка "null" в MS Access "Приведение типа "|DBNull" к типу "String" является недопустимым"
Здравствуйте. Работаю с базой MS Access Вывожу в DataGridView таблицу...

Timer: как бороться с его "задержками", подвешивающими форму
Таймер по факту прерывание, но можно чтоб он выполнял весь код асинхронно? А...

Поиск в DGW вылетает с ошибкой "Приведение типа "|DBNull" к типу "String" является недопустимым."
В общем такой вопрос. Код рабочий. Только у меня не работает. For i = 0...

Ошибка "Приведение строки "explorer.exe" к типу "Double" является недопустимым" при записи в реестр
Помогите, хочу получить доступ к winlogon, что бы изменять любое другое...

39
ovva
2433 / 2058 / 505
Регистрация: 02.02.2013
Сообщений: 1,930
Записей в блоге: 2
08.05.2017, 13:30 21
Цитата Сообщение от Polyana1997 Посмотреть сообщение
Это единственный минус проги
Это конечно не единственный минус, если покопаться здесь много чего не хватает. Но нужно ведь понимать, что это не готовый продукт для внешнего пользования, это лишь пример программного решения.
Цитата Сообщение от Polyana1997 Посмотреть сообщение
а это можно сохранять в блокнот? (Ak,Bk)
Мне кажется, что вы бы и сами могли это сделать.
Добавьте кнопку на главную форму. И по нажатию этой кнопки сохраняйте массивы ak, bk в текстовый файл (который по необходимости можно открыть в любом редакторе, в том числе и в "Блокноте"). Естественно сохранять нужно после выполнения этапа Approximate.
0
Polyana1997
1 / 1 / 0
Регистрация: 25.04.2017
Сообщений: 76
08.05.2017, 15:20  [ТС] 22
ovva, Ну это я понял, с сохранением разберусь как - нибудь, а чтобы оси добавить такое пойдет?
vb.net
1
2
3
4
5
6
7
For x = 0 To 2*PI Step 0,1
          PictureBox1.DrawString(X, font1, brush1, X + 2*Pi, 2)
        Next X
        'По оcи Y
        For Y = -2 To 2 Step 0,1
            PictureBox1.DrawString(Y / 2, font1, brush1, 2*Pi, 2 - Y)
        Next Y
0
Polyana1997
1 / 1 / 0
Регистрация: 25.04.2017
Сообщений: 76
08.05.2017, 21:27  [ТС] 23
Сидели с преподавателем, нашли ошибки, пока думаем как исправить, когда считаешь 30 гармоник, график точно повторяет график, а после начинает расти (где то на 33 гармонике и дальше). В теории график должен точно повторять наш график (линии). А на практике он как - то завышает где то, а где то занижает, ovva, Вы знаете с чем это может быть связано? Думали в переменных, я проверял раньше всё нормально (все double), округления нет. Что может быть? (1я картинка 30 гармонрик, вроде нормально, 2я картинка 36 пошло увеличение, 3я картинка 60 гармоник завышение и занижение)
0
Миниатюры
Как считать интеграл и сохранять его в "таблицу"?   Как считать интеграл и сохранять его в "таблицу"?   Как считать интеграл и сохранять его в "таблицу"?  

ovva
2433 / 2058 / 505
Регистрация: 02.02.2013
Сообщений: 1,930
Записей в блоге: 2
09.05.2017, 00:27 24
Polyana1997,
Необходимое число узлов функции определяют как 2^k (2^5=32, 2^6=64, …). В программе шаг определен как 0.1, т.е. N=2PI/0.1+1=32. Если принять шаг 0.05 то N=64. Теперь проделайте простой опыт: измените в программе (процедура Form_Load) значение dt с 0.1 на 0.05 и выполните ваш пример. Думаю, что результат должен вас порадовать.
2
Polyana1997
1 / 1 / 0
Регистрация: 25.04.2017
Сообщений: 76
09.05.2017, 16:18  [ТС] 25
ovva, хм... Вот это фокусы новые)

Добавлено через 7 часов 15 минут
ovva,
vb.net
1
2
3
IO.File.WriteAllLines("Ak", ak.[Select](Function(x) x.ToString()).ToArray())
        IO.File.WriteAllLines("Bk", bk.[Select](Function(x) x.ToString()).ToArray())
        IO.File.WriteAllLines("Fi", q.[Select](Function(x) x.ToString()).ToArray())
, это все я сделал, а вот как можно это сделать чтобы в одном блокноте, и вверху было подписано что это? (т.е.: bk 0,001,0,017; другой столбик fi 65,7, -19,2; третий Ffur(0.025 ) или можно как то сделать в savefiledialog, я тут крутился, вертелся, почти закончил, но оно сохраняет по отдельности, можно в один?
0
ovva
2433 / 2058 / 505
Регистрация: 02.02.2013
Сообщений: 1,930
Записей в блоге: 2
09.05.2017, 20:05 26
Вариантов сохранения данных м.б. множество. Например, можно так
vb.net
1
2
3
4
5
6
7
8
9
10
Me.Cursor = Cursors.WaitCursor
Dim pth As String = IO.Path.Combine(Application.StartupPath, "report.txt")
Dim rows(ak.Length) As String
Dim delim As String = vbTab
rows(0) = "Ak" & delim & "Bk" & delim & "Fi"
For i = 0 To ak.Length - 1
    rows(i + 1) = ak(i).ToString & delim & bk(i).ToString & delim & q(i).ToString
Next
IO.File.WriteAllLines(pth, rows)
Me.Cursor = Cursors.Default
Полученный файл можно открыть в Блокноте, Excel, Word и т.д.
1
Polyana1997
1 / 1 / 0
Регистрация: 25.04.2017
Сообщений: 76
19.05.2017, 16:45  [ТС] 27
ovva, Спасибо огромное Вам за помощь, но можете ещё помочь с одним моментом. Я пытаюсь сделать ввод данных вручную (либо в Textbox и от туда в массив, или в Richtextbox) и после ввода в Chart (строим график по точкам) и считаем (функции подсчета стандартные), можно как - то это сделать? У меня проблемы начались с вводом данных. Я сделал число данных (k), Textbox1, Textbox2, RichTextbox1, Button1, Button2. Т.е. все идет к тому, как ввести и нарисовать, можете посоветовать или идею подбросить?
0
ovva
2433 / 2058 / 505
Регистрация: 02.02.2013
Сообщений: 1,930
Записей в блоге: 2
19.05.2017, 20:35 28
Polyana1997,
Как понял вы хотите вводить данные в табличном виде вручную. Правда вводить руками 60 пар "xy" как не очень привлекательно. Я бы сделал так:
На форму byHand добавить кнопку, по нажатию на которую открывается новая форма gridData. Назад (от gridData) возвращаются данные для рисовки графика на byHand и с этого графика (как уже запрограммировано) получаются данные для последующей обработки.
На форме gridData разместить DataGridView в который и будут вводится данные. Этих данных м.б. всего несколько строк (независимо от числа узлов результата).
0
Polyana1997
1 / 1 / 0
Регистрация: 25.04.2017
Сообщений: 76
19.05.2017, 21:55  [ТС] 29
ovva, моя идея была следующая: мне даны напряжения в какие - то моменты времени, мне нужно их как то вбить (в виде таблицы можно), не обязательно 60, можно и 10 точек или 15, думал это количество регулировать чем - то (NumericUpDown), но что - то пошло не так. Далее мы ввели, нажимаем "Далее" и в Chart уже график построен, нажимаем результат и вуаля. Вот только, что - то идёт не так не понимаю.

Добавлено через 1 час 5 минут
ovva, а как взаимодействовать с таблицей?
vb.net
1
2
3
4
5
6
7
8
9
10
Dim kx As Double = w / xmax
        Dim ky As Double = h / ymax / 2
        Dim p As PointF
        For i = 0 To pnt.Count - 1
            p = pnt(i)
            p.Y -= h / 2
            p.Y = -p.Y
            p.X /= kx
            p.Y /= ky
            pnt(i) = p
Это нужно как к ней привязать точки?
0
ovva
2433 / 2058 / 505
Регистрация: 02.02.2013
Сообщений: 1,930
Записей в блоге: 2
20.05.2017, 12:29 30
Реализация описанного выше предложения.
Новая форма:
Кликните здесь для просмотра всего текста
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
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
Public Class gridData
    Private xmin, xmax, ymin, ymax As Double
    Dim nRows As Integer
    Private Sub gridData_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
        xmin = tmin : xmax = tmax : ymin = -2 : ymax = 2
        NumericUpDown1.Maximum = 70
        NumericUpDown1.Minimum = 5
        NumericUpDown1.Value = NumericUpDown1.Minimum
        nRows = NumericUpDown1.Value
        dgvInitialSetup()
    End Sub
    Private Sub Ok_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
        Dim pntF(nRows - 1) As PointF
        For i = 0 To nRows - 1
            pntF(i) = New PointF(DataGridView1.Rows(i).Cells(0).Value, DataGridView1.Rows(i).Cells(1).Value)
        Next
        Me.Tag = pntF
        Me.Close()
    End Sub
    Private Sub NumericUpDown1_ValueChanged(sender As System.Object, e As System.EventArgs) Handles NumericUpDown1.ValueChanged
        nRows = NumericUpDown1.Value
        dgvInitialSetup()
    End Sub
    Private Sub DataGridView1_CellValidating(sender As System.Object, e As System.Windows.Forms.DataGridViewCellValidatingEventArgs) Handles DataGridView1.CellValidating
        If e.ColumnIndex = 0 Then
            If e.RowIndex = 0 Then
                DataGridView1.Rows(0).Cells(0).Value = xmin
                Exit Sub
            End If
            If e.RowIndex = nRows - 1 Then
                DataGridView1.Rows(nRows - 1).Cells(0).Value = xmax
                Exit Sub
            End If
            Dim xx As Double = DataGridView1.Rows(e.RowIndex - 1).Cells(0).Value
            Dim x As Double = e.FormattedValue
            If xx >= x OrElse x >= xmax Then
                DataGridView1.Rows(e.RowIndex).ErrorText = "Значение x(i) должно быть больше x(i-1) и меньше xmax!"
                e.Cancel = True
            End If
        Else
            Dim y As Double = e.FormattedValue
            If y > 2 OrElse y < -2 Then
                DataGridView1.Rows(e.RowIndex).ErrorText = "Значение y(i) должно быть в интервале [2,-2]!"
                e.Cancel = True
            End If
        End If
    End Sub
    Private Sub DataGridView1_CellEndEdit(sender As System.Object, e As System.Windows.Forms.DataGridViewCellEventArgs) Handles DataGridView1.CellEndEdit
        DataGridView1.Rows(e.RowIndex).ErrorText = String.Empty
    End Sub
    Private Sub dgvInitialSetup()
        With Me.DataGridView1
            .Rows.Clear()
            .Columns.Clear()
            .AllowUserToDeleteRows = False
            .AllowUserToAddRows = False
            .AllowUserToOrderColumns = False
            .SelectionMode = DataGridViewSelectionMode.FullRowSelect
            .AutoSizeColumnsMode = DataGridViewAutoSizeColumnsMode.AllCells
            .ColumnCount = 2
            .RowCount = nRows
            .Columns(0).HeaderText = "X"
            .Columns(1).HeaderText = "F(X)"
            .Columns(0).ValueType = GetType(Double)
            .Columns(1).ValueType = GetType(Double)
            .Rows(0).Cells(0).Value = xmin
            .Rows(nRows - 1).Cells(0).Value = xmax
        End With
    End Sub
End Class

Дополнения в форме byHand
Кликните здесь для просмотра всего текста
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
44
45
46
47
48
49
50
51
52
53
54
55
56
57
Public Class byHand
    Private Sub Form1_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
'…
        Button4.Enabled = False
    End Sub
'…
    Private Sub fromGrid_Click(sender As System.Object, e As System.EventArgs) Handles Button2.Click
        gridData.ShowDialog()
        If gridData.Tag Is Nothing Then Exit Sub
        Dim pntF() As PointF = gridData.Tag
        For i = 0 To pntF.Length - 1
            pntF(i).X = pntF(i).X * w / xmax
            pntF(i).Y = -pntF(i).Y * h / 4 + (h / 2)
        Next
        g = Graphics.FromImage(bmp)
        g.Clear(PictureBox1.BackColor)
        g.DrawLine(pnAxis, New Point(0, 0), New Point(0, h))
        g.DrawLine(pnAxis, New Point(0, h / 2), New Point(w, h / 2))
        g.DrawLines(pnGraphics, pntF)
        pnt = New List(Of PointF)
        pnt.AddRange(pntF)
        PictureBox1.Image = bmp
        g.Dispose()
        Button4.Enabled = True
    End Sub
    Private Sub getGridData_Click(sender As System.Object, e As System.EventArgs) Handles Button4.Click
        If pnt Is Nothing Then
            MsgBox("Нет данных!")
            Exit Sub
        End If
        Dim kx As Double = w / xmax
        Dim ky As Double = h / ymax / 2
        Dim p As PointF
        For i = 0 To pnt.Count - 1
            p = pnt(i)
            p.Y -= h / 2
            p.Y = -p.Y
            p.X /= kx
            p.Y /= ky
            pnt(i) = p
        Next
        n = (tmax - tmin) / dt + 1
        ReDim ft(n - 1)
        ft(0) = pnt(0).Y
        ft(n - 1) = pnt(pnt.Count - 1).Y
        Dim tt As Double
        Dim i1, i2 As Integer
        For i = 1 To n - 2
            tt = tt + dt
            Dim pp = From t As PointF In pnt Where tt < t.X Select dx = t.X - tt, xx = t.X, yy = t.Y
            i2 = pnt.IndexOf(New PointF(pp(0).xx, pp(0).yy))
            i1 = i2 - 1
            ft(i) = pnt(i1).Y + ((pnt(i2).Y - pnt(i1).Y) / (pnt(i2).X - pnt(i1).X) * (tt - pnt(i1).X))
        Next
        Me.Close()
    End Sub
End Class
1
Миниатюры
Как считать интеграл и сохранять его в "таблицу"?   Как считать интеграл и сохранять его в "таблицу"?   Как считать интеграл и сохранять его в "таблицу"?  

Polyana1997
1 / 1 / 0
Регистрация: 25.04.2017
Сообщений: 76
20.05.2017, 15:07  [ТС] 31
ovva, спасибо огромное ещё раз, как Вы вводили данные? У меня ошибок гора, ввести в таблицу не могу, сразу либо ошибка Double либо x(i) меньше предыдущего. Подскажите, я уже и так ввёл (английским шрифтом и русским) и с вашего примера, не получается, что - то...

Добавлено через 38 минут
ovva, всё, извините, я разобрался с ошибками, это были глюки компа и моего мозга. Я написал код, можете посмотреть на него?
Я задал отдельно X,Y
vb.net
1
2
3
4
5
6
7
8
'По оси X
        For X = 0 To 2*PI Step 1
            g.DrawLine(Black, X,?? )
        Next X
        'По оси Y
        For Y = -2 To 2 Step 0,5
            g.DrawLine(Black, Y, ??? тут не понимаю что )
        Next Y
0
Polyana1997
1 / 1 / 0
Регистрация: 25.04.2017
Сообщений: 76
07.10.2017, 17:25  [ТС] 32
ovva, здравствуйте ovva, можете подсказать пожалуй... Последний раз я так думаю, можно как то ваш метод таблицы изменить, а именно сделать чтобы можно было вводить много раз, я тут ковырялся ковырялся и ничего не получается всё стер. Т.е. ввожу данные в таблицу, и возможность их изменить, а не выводить ошибку и закрывать программу. Я не могу разобраться(
0
Polyana1997
1 / 1 / 0
Регистрация: 25.04.2017
Сообщений: 76
14.10.2017, 17:19  [ТС] 33
ovva, на самом деле я всё исправил, я прост хотел обратится с вопросом о БПФ, какой должен быть X и y, а всё остальное я сам
0
ovva
2433 / 2058 / 505
Регистрация: 02.02.2013
Сообщений: 1,930
Записей в блоге: 2
14.10.2017, 18:38 34
Polyana1997, с момента вашего первого обращения по этой теме прошло достаточно времени и у меня все это как-то уже позатерлось в памяти, а восстанавливать все с самого начала нет никакого желания.
Ответы на вопросы о БПФ лучше искать в учебниках или на этом форуме в разделе "Математика" (/Мат. Анализ; /Численные методы). Только нужно правильно сформулировать вопрос.
0
Polyana1997
1 / 1 / 0
Регистрация: 25.04.2017
Сообщений: 76
14.10.2017, 19:58  [ТС] 35
ovva, ну получается чуть чуть программу преобразовал, кое - что добавил, дизайн и т.д.
Вот хочу сделать БПФ, скопировал код с showdiagram, убрал интервалы, заменил функцию (y) на akk(j)=sqrt(ak(j)^2+bk(j)^2), получается вот это
Я так понял по X должна быть частота, а по Y вот то, но чет пошло не так...
по x у меня tmin + dt*i
Я понимаю, что тяжело и лень, я лишь спросил, спасибо за ответ!
0
Миниатюры
Как считать интеграл и сохранять его в "таблицу"?  
Polyana1997
1 / 1 / 0
Регистрация: 25.04.2017
Сообщений: 76
14.10.2017, 21:51  [ТС] 36
ovva, примерно такое хочется сделать
0
Миниатюры
Как считать интеграл и сохранять его в "таблицу"?  
Polyana1997
1 / 1 / 0
Регистрация: 25.04.2017
Сообщений: 76
14.10.2017, 22:16  [ТС] 37
ovva, вот что имеем
по x = k (номер этой синусоиды, хотя говорят, что по x должна быть частота)
по y = Am (значение am каждой синусоиды)
0
Миниатюры
Как считать интеграл и сохранять его в "таблицу"?  
ovva
2433 / 2058 / 505
Регистрация: 02.02.2013
Сообщений: 1,930
Записей в блоге: 2
14.10.2017, 22:21 38
Polyana1997, советую обратиться к разделу форума Электроника и радиотехника/Цифровая обработка сигналов.
0
Polyana1997
1 / 1 / 0
Регистрация: 25.04.2017
Сообщений: 76
14.10.2017, 22:30  [ТС] 39
ovva, о Боже( этого я и боялся
0
Polyana1997
1 / 1 / 0
Регистрация: 25.04.2017
Сообщений: 76
16.10.2017, 19:51  [ТС] 40
ovva, и там никто не знает, печалька
0
16.10.2017, 19:51
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
16.10.2017, 19:51

Как исправить ошибку: "MsoShapeType" в пространстве имен "Microsoft.Office.Core" является неоднозначным.
Перевожу код программы из VBA worda на VB 2010 вот код (из темы в разделе VBA...

Как бороться с ошибкой "Тип "WindowsApplication1.Win32Api.POINT" не имеет конструкторов."?
Здравствуйте. Помогите избежать ошибки! В моем коде программы Label1...

Ошибка при запуске .exe файла из debug: "Приведение строки "Июнь" к типу "Double" является недопустимым"
Если запускать из самого проекта(F5), то все нормально, а если скомпилированный...


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

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

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