Diskuze: VisualBasicNET chyba př spouštění kódu

C# .NET .NET (C# a Visual Basic) VisualBasicNET chyba př spouštění kódu American English version English version

Avatar
Jaroslav Trojan:

Po spuštění programu DESKA1 se stále objevuje error BC2001 file C:\Visual Studio 2015\Projects\DES­KA1\DESKA1\Mo­dule1.vb ' could not be found

Module1 na té adrese je v pořádku , nevím jak tu chybu odstranit?

 
Odpovědět 29. září 9:45
Avatar
HONZ4
Člen
Avatar
Odpovídá na Jaroslav Trojan
HONZ4:

řekl bych, že na konci té cesty máš mezeru

 
Nahoru Odpovědět 30. září 20:28
Avatar
Odpovídá na HONZ4
Jaroslav Trojan:

Ale co s tím mohu udělat?
Díky

 
Nahoru Odpovědět 1. října 7:09
Avatar
HONZ4
Člen
Avatar
Odpovídá na Jaroslav Trojan
HONZ4:

nejlépe najít soubor, ve kterém je cesta uvedena a mezeru odmazat.

Tipuju to a soubor projektu. (Soubor opravit třeba v notepadu a pak se pokusit projekt otevřít ve VS.)

 
Nahoru Odpovědět 1. října 17:42
Avatar
Odpovídá na HONZ4
Jaroslav Trojan:

Ahoj, ale já jsem začátečník a nevím co je notepad. Taky nevím, který je to soubor projektu.
Takže si s tím nevím poradit.

 
Nahoru Odpovědět 6. října 7:50
Avatar
Petr Stastny
Redaktor
Avatar
Odpovídá na Jaroslav Trojan
Petr Stastny:

Notepad je klasicky poznamkovy blok

Soubor projektu je asi mysleno ten, ve kterem mas ten kod, co jsi psal.

 
Nahoru Odpovědět  -1 6. října 8:02
Avatar
Zdeněk Pavlátka
Tým ITnetwork
Avatar
Odpovídá na Jaroslav Trojan
Zdeněk Pavlátka:

notepad = poznámkový blok
Soubor projektu by měl mít příponu .vbproj a jmenovat se stejně jako projekt - takže u tebe asi C:\Visual Studio 2015\Projects\DES­KA1\DESKA1\DES­KA1.vbproj

Nahoru Odpovědět  +1 6. října 8:07
Kolik jazyků umíš, tolikrát jsi programátor.
Avatar
Zdeněk Pavlátka
Tým ITnetwork
Avatar
Odpovídá na Petr Stastny
Zdeněk Pavlátka:

Soubor projektu je xml soubor popisující projekt (a soubory které obsahuje). V souboru s kódem asi nebude nastavená cesta k tomu samému souboru...
Jaroslav Trojan hledej až u konce souboru, ale asi tam ta cesta nebude celá (jen Module1.vb)

Nahoru Odpovědět 6. října 8:12
Kolik jazyků umíš, tolikrát jsi programátor.
Avatar
Odpovídá na Zdeněk Pavlátka
Jaroslav Trojan:

takto vypadá xml soubor , co tam opravím?

<?xml version="1.0"?>
<doc>
<assembly>
<name>
DESKA1
</name>
</assembly>
<members>
<member name="T:DESKA1.My.Resources.Resources">
<summary>
  A strongly-typed resource class, for looking up localized strings, etc.
</summary>
</member>
<member name="P:DESKA1.My.Resources.Resources.ResourceManager">
<summary>
  Returns the cached ResourceManager instance used by this class.
</summary>
</member>
<member name="P:DESKA1.My.Resources.Resources.Culture">
<summary>
  Overrides the current thread's CurrentUICulture property for all
  resource lookups using this strongly typed resource class.
</summary>
</member>
</members>
</doc>
 
Nahoru Odpovědět 6. října 8:48
Avatar
Odpovídá na Zdeněk Pavlátka
Jaroslav Trojan:

a toto je vbproj.user

<?xml version="1.0" encoding="utf-8"?>
<Project ToolsVersion="14.0" xmlns="http://schemas.microsoft.com/developer/msbuild/2003">
  <PropertyGroup>
    <PublishUrlHistory />
    <InstallUrlHistory />
    <SupportUrlHistory />
    <UpdateUrlHistory />
    <BootstrapperUrlHistory />
    <ErrorReportUrlHistory />
    <FallbackCulture>en-US</FallbackCulture>
    <VerifyUploadedFiles>false</VerifyUploadedFiles>
  </PropertyGroup>
</Project>
 
Nahoru Odpovědět 6. října 8:53
Avatar
Zdeněk Pavlátka
Tým ITnetwork
Avatar
Odpovídá na Jaroslav Trojan
Zdeněk Pavlátka:

To je nějaké divné, tohle určitě není soubor projektu. Ten vypadá úplně jinak, neotevřel jsi něco jiného?

Nahoru Odpovědět 6. října 9:00
Kolik jazyků umíš, tolikrát jsi programátor.
Avatar
Zdeněk Pavlátka
Tým ITnetwork
Avatar
Odpovídá na Jaroslav Trojan
Zdeněk Pavlátka:

Založil jsem si nový VB projekt, ale soubor projektu je úplně jiný a žádný vbproj.user tam nemám...

Nahoru Odpovědět 6. října 9:03
Kolik jazyků umíš, tolikrát jsi programátor.
Avatar
Odpovídá na Zdeněk Pavlátka
Jaroslav Trojan:

a to je další DESKA1.XML

DESKA1



A strongly-typed resource class, for looking up localized strings, etc.


Returns the cached ResourceManager instance used by this class.


Overrides the current thread's CurrentUICulture property for all   resource lookups using this strongly typed resource class.
 
Nahoru Odpovědět 6. října 9:05
Avatar
Odpovídá na Zdeněk Pavlátka
Jaroslav Trojan:

Tak jsem to celé prohledal, ale u projektu DESKA1 už žádné další xml soubory nemám.
Nevím co mám dělat.

 
Nahoru Odpovědět 6. října 9:24
Avatar
Zdeněk Pavlátka
Tým ITnetwork
Avatar
Odpovídá na Jaroslav Trojan
Zdeněk Pavlátka:

tím xml souborem jsem nemyslel, že by měl příponu .xml, ale že uvnitř něj je xml kód. Přípona je .vbproj

Nahoru Odpovědět 6. října 9:35
Kolik jazyků umíš, tolikrát jsi programátor.
Avatar
Odpovídá na Zdeněk Pavlátka
Jaroslav Trojan:

No ano, ale příponu .vbproj má zdrojový kód. Ten je strašně velký. Zkusím dát ho na fórum.

 
Nahoru Odpovědět 6. října 10:48
Avatar
Odpovídá na Zdeněk Pavlátka
Jaroslav Trojan:

DESKA1.vbproj je vlastně Module1

Imports System.IO
Module Module1
    'DESKA-   Kirchhofova tenká deska MKP
    'pas=60,12 řad sloupců 66
    Dim D(450), F(1, 2500), La(2500), A(3500), B(3500), A1(3500), B1(3100), A2(3100), x0, z, aa, bb As Double
    Dim B2(3100), A3(95, 95), B3(99, 95), A4(96, 140), B4(96, 140), A5(96, 96), C(96, 96), C1(95, 140), C2(3100), A6(3100), B6(3100), K8(3010) As Double
    Dim I(100), rad, sloupcu, i3, pp, i2, i4, i5, i6, i7, i8, i9, i1, i0, ii, j1, DA, B22, B33, CA, EE, j0 As Integer
    Dim X(500, 500), S(5, 16), MAB(45000), NA(2000), EA(45000), wequ(5000, 300), L(16, 16), T(16, 16), EB(5000, 1) As Double
    Dim D0(5, 16), BX(16, 16), AX(16, 16), K(16, 16), PX(500), cs, hl, f2, f3, f4, P2(5000) As Double
    Dim w1, w2, w3, w4, w5, w6, w7, w8, w9, x1, x5, y7, y6, z4, y, h, d7, z7, z6, z3, z5, z2, d6 As Double
    Dim z8, d5, p4, p5, p6, p3, p1, y0, y9, y8, z1, d1, d2, d3, d4, s7, v, w0, L1, c9, Text, id As Double
    Dim retq(20), retaa(20), retx(20), q11(15), x11ret(15), retq1(20), retp1, retb, rett2 As String
    Dim Ka1(2400), U(100), UA(160000), KA(160000), XA(160000), VA(13000) As Double
    Dim s0, s1, s2, s3, s4, s5, s6, s8, s9, x2, x3, x4, x6, x7, x8, x9, y1, y2, y3, y4, y5, aa1, aa2, aa3, aa4, aa5, aa6 As Double
    Dim cc1, cc, am, div, det, eps, xp, ap, imax, amax, p, ss, q1, xx, xy, u5, q9, L9, r As Double
    Dim k1, e9, u1, j, e, pas, g9, c0, a91, u3, j9, k9, u2, jj, ja, j5, g, k0, ki, mm, nn, iaa, yy, bb9, abc As Integer
    Dim a0, b0, cx, cy, n, dd, prvek, sila, posun, pp2, xnut, h1, Lax, q, pk As Double
    Dim retez(100), zret, aret, bret, yret, reta(150), ret, nazev(100), rett(50), mainip, retq2, retr(100), retp(100) As Char
    Dim m0, m1, m2, m3, k2, k3, L3, L2, g6, g7, g8, q2, u4, u6, u7, u8, k1a, w, u9, z9, c22, c11, m As Integer
    Dim q3, q7, e2, e1, d9, h0, n1, f1, f0, r1, n2, n3, c3, B11, A11 As Double
    Dim r9, IA, g4, g3, c5, ffns, ffns1, ffns2, c6, c7, j7, j4, c8, k4, j2, j8, ib, k81, b9, a12, p22, a13 As Single
    Dim MA8, MYA, MXA, TX, T0, TT, KA8, WW, T1Y, TT8, sigma, tah As Single

    Public Sub typy()
        i1 = 0 : Console.WriteLine("  Fyzikální data:")
780:    Console.Write("   typ prvku ? ano=a ne=n    ")
        zret = Convert.ToChar(Console.ReadLine())
        If zret = "n" Then
            GoTo 1170
        End If
        i1 = i1 + 1 : aret = aret + "," : bret = bret + ","
        Console.Write("   izotropní deska? ano=a ne=n    ")
        zret = Convert.ToChar(Console.ReadLine())
        If zret = "n" Then
            GoTo 860
        End If
        Console.Write("   desková tuhost E*h^3/12[kNm^2] ?,  Poisson.č. ?    ")
        D(1) = Convert.ToSingle(Console.ReadLine())
        D(2) = Convert.ToSingle(Console.ReadLine()) : pk = D(2)
        D(3) = 0 : D(4) = 0 : dd = D(1) : pp = D(2)
        Console.WriteLine("   Desková tuhost E*h^3/12 [kNm^2]=" & D(1) & "   Poisson.č.=" & D(2) & ".") : GoTo 870
860:    Console.Write("   Ortotropní deska: D11,D22,D33,D12= ?     ")
        D(1) = Convert.ToSingle(Console.ReadLine())
        D(2) = Convert.ToSingle(Console.ReadLine())
        D(3) = Convert.ToSingle(Console.ReadLine())
        D(4) = Convert.ToSingle(Console.ReadLine())
        Console.WriteLine("   Ortotropní deska: D11,D22,D33,D12 =" & D(1) & "  " & D(2) & "  " & D(3) & "  " & D(4) & ".")
870:    Console.Write("   Konstanty podloží C1[kN/m^3],  Czx, ?  Czy,[kN/m] ?      ")
        D(5) = Convert.ToSingle(Console.ReadLine())
        D(6) = Convert.ToSingle(Console.ReadLine())
        D(7) = Convert.ToSingle(Console.ReadLine())
        Console.WriteLine("   Konstanty podloží: C1[kN/m^3[=" & D(5) & "   Czx[kN/m]=" & D(6) & "   Czy[kN/m]=" & D(7) & ".")
        cc = D(5) : cx = D(6) : cy = D(7)
        For u1 = 1 To 7
            If D(u1) >= 0 Then
                GoTo 930
            End If
            e = 21 ' gsb5320
            chyba() : GoTo 1260
930:    Next
        If (D(3) = 0) And (D(4) = 0) Then
            If D(1) = 0 Then
                GoTo 1000
            Else
                D(4) = D(2) * D(1) : D(3) = D(1) * 0.5 * (1 - D(2)) : D(2) = D(1)
            End If
        End If
1000:   For u1 = 1 To 7
            F(i1, u1) = D(u1)
        Next
        Console.Write("   geometrie prvku: Lx, Vy, C [m] ?   ")
        D(8) = Convert.ToSingle(Console.ReadLine())
        D(9) = Convert.ToSingle(Console.ReadLine())
        D(10) = Convert.ToSingle(Console.ReadLine())
        For u1 = 8 To 9
            If D(u1) > 0 Then
                GoTo 1090
            End If
            e = 21 'gsb5320
            chyba() : GoTo 1260
1090:   Next
        For u1 = 8 To 9
            F(i1, u1) = D(u1)
        Next
        GoTo 780
1170:   If i1 = I(3) Then
            GoTo 1200
        End If
        e = 23 'gsb 5320
        chyba() : GoTo 1260
1200:   If e9 = 0 Then
            GoTo 1260
        End If
        Using sw As New StreamWriter("C:\temp\mainip.txt", True)
            For u1 = 1 To I(3)
                For u2 = 1 To 10
                    sw.WriteLine(F(u1, u2))
                Next u2
            Next u1
            sw.Flush()
        End Using
1260:
    End Sub
    Public Sub kody()
        Console.WriteLine("   Kodová čísla:")
        Dim F(1, 45000)
        For i0 = 1 To g9
            F(1, i0) = 0
        Next
        a0 = 1 : n = 0
1320:   If n - I(4) < 0 Then
            GoTo 1360
        End If
        If n - I(4) = 0 Then
            GoTo 1810
        End If
        e = 31 'gsb 5320
        chyba() : GoTo 1880
1360:   Console.Write(" 4 kodová čísla po prvcích ? ano=a ne=n      ")
        zret = Convert.ToChar(Console.ReadLine())
        If zret = "a" Then
            GoTo 1430
        End If
        Console.Write("   6 čísel po seriích ? ano=a ne=n       ")
        yret = Convert.ToChar(Console.ReadLine())
        If yret = "a" Then
            GoTo 1460
        End If
        If a0 = 1 Then
            GoTo 1490
        End If
        e = 33 'gsb 5320
        chyba() ' GoTo 1880
        GoTo 1320
1430:   a0 = 0
        'gsb 1890 unit coding
        unitcod()
        GoTo 1320
1460:   a0 = 0
        'gsb 2040 sequence coding
        sequencecod()
        GoTo 1320
1490:   Console.Write("   počet řad M ?  počet sloupců N ?       ")
        aa = Convert.ToSingle(Console.ReadLine()) : rad = aa
        bb = Convert.ToSingle(Console.ReadLine()) : sloupcu = bb
        Console.WriteLine("   automatické generování kodových čísel:počet řad aa=" & aa & "  počet sloupců bb=" & bb & ".")
        If aa > 0 And bb > 0 Then
            GoTo 1560
        End If
        e = 34 : reta = "záporné aa,[bb]"
        'gsb 5320
        chyba() : GoTo 1880
1560:   If aa * bb = I(4) Then
            GoTo 1600
        End If
        e = 34 : reta = "aa=0 nebo bb=0"
        'gsb 5320
        chyba() : GoTo 1880
1600:   k9 = (aa + 1) * (bb + 1)
        If k9 = I(5) Then
            GoTo 1650
        End If
        e = 34 : reta = "k9<>I(5)"
        'gsb 5320
        chyba() : GoTo 1880
1650:   c0 = 0
        a91 = aa + 1
        For u1 = 1 To bb
            For u2 = 1 To aa
                u3 = c0 * 4
                c0 = c0 + 1
                k1 = u2
                j1 = u1
                j1 = j1 * a91 + k1
                k1 = j1 - a91
                F(1, u3 + 4) = k1
                F(1, u3 + 1) = k1 + 1
                F(1, u3 + 3) = j1
                F(1, u3 + 2) = j1 + 1
            Next u2
        Next u1
1810:   If e9 = 0 Then
            GoTo 1880
        End If
        u1 = I(4) * 4
        Using sw As New StreamWriter("C:\temp\mainip.txt", True)
            For u2 = 1 To u1
                sw.WriteLine(F(1, u2))
            Next
            sw.Flush()
        End Using
1880:
    End Sub
    Public Sub unitcod()
        Console.Write("   4 kodová čísla prvku:D(1),D(2),D(3),D(4)      ")
        D(1) = Convert.ToSingle(Console.ReadLine())
        D(2) = Convert.ToSingle(Console.ReadLine())
        D(3) = Convert.ToSingle(Console.ReadLine())
        D(4) = Convert.ToSingle(Console.ReadLine())
        For u1 = 1 To 4
            If D(u1) > 0 Then
                GoTo 1960
            End If
            e = 36 : reta = "záporné nebo 0"
            'gsb 5320
            chyba() : GoTo 1980
1960:   Next
        u1 = n * 4
        n = n + 1
        For u2 = 1 To 4
            u1 = u1 + 1
            F(1, u1) = D(u2)
        Next
1980:
    End Sub
    Public Sub a42()
        ' Console.WriteLine(retp)
        retp = " "
    End Sub
    Public Sub a35()
        For u9 = r9 To g4
            a42()
        Next
    End Sub
    Public Sub a3960()
        a35()
        r9 = 6
        a42()
        ' If IA = 1 Then  'Console.Write(retp1, retp, rett)
        ' If IA = 2 Then Console.Write(retp1, retp, retb)
        a42()
        '    Console.WriteLine()
        a42()
        retp = " "
        a42()
        Console.WriteLine("  VNITŘNÍ SÍLY V UZLECH PRVKU")
        a42()
        retp = " "
        a42()
        Console.WriteLine()
        Console.WriteLine("  UZEL.....Mx............My...........Mxy............Tx............Ty.............Mxdim...........Mydim")
        a42()
        retp = " "
        a42()
    End Sub
    Public Sub a3560()
        a35()
        r9 = 8
        a42()
        ' If IA = 1 Then Console.Write(rett)
        ' If IA = 2 Then Console.Write(retb)
        a42()
        '   Console.WriteLine()
        a42()
        retp = " "
        a42()
        Console.WriteLine("  DEFORMACE V UZLECH: ")
        a42()
        retp = " "
        a42()
        Console.WriteLine("  UZEL..PRUHYB w[mm]...................dw/dx................................dw/dy............................d2w/dxdy")
        a42()
        retp = " "
        a42() : Console.WriteLine()
    End Sub
    Public Sub a3760()
        a35()
        a42()
        r9 = 6
        ' If IA = 1 Then Console.Write(rett)
        ' If IA = 2 Then Console.Write(retb)
        a42()
        ' Console.WriteLine()
        a42()
        retp = " "
        a42()
        Console.WriteLine("  VNITŘNÍ SÍlY V TĚŽIŠTÍCH PRVKU")
        a42()
        retp = " "
        a42()
        Console.WriteLine("  PRVEK....moment x............moment y...........moment xy.............Tx..............Ty.............Mxdim............Mydim")
        a42()
        retp = " "
        Console.WriteLine()
    End Sub
    Public Sub a3350()
        For ii = 1 To 5
            For i1 = 1 To 1
                S(ii, i1) = 0
                For jj = 1 To 16
                    S(ii, i1) = S(ii, i1) + T(ii, jj) * EB(jj, i1)
                Next jj
            Next i1
        Next ii
    End Sub

    Public Sub sequencecod()
        Console.Write("   počet prvků v serii?  přírůstek kod.čísel?  3.4.5.6.číslo prvního prvku serie      ")
        D(1) = Convert.ToSingle(Console.ReadLine())
        D(2) = Convert.ToSingle(Console.ReadLine())
        D(3) = Convert.ToSingle(Console.ReadLine())
        D(4) = Convert.ToSingle(Console.ReadLine())
        D(5) = Convert.ToSingle(Console.ReadLine())
        D(6) = Convert.ToSingle(Console.ReadLine())
        If D(1) > 0 Then
            GoTo 2100
        End If
        e = 37 : reta = "0 nebo záporné"
        'gsb 5320
        chyba() : GoTo 2180
2100:   For u1 = 3 To 6
            If D(u1) > 0 Then
                GoTo 2140
            End If
            e = 38
            'gsb 5320
            chyba() : GoTo 2180
2140:       If D(u1) + (D(1) - 1) * D(2) <= I(5) Then
                GoTo 2170
            End If
            e = 39
            'gsb 5320
            chyba() : GoTo 2180
2170:   Next
        For u1 = 1 To D(1)
            u2 = (u1 - 1) * D(2)
            u3 = n * 4
            n = n + 1
            For u4 = 1 To 4
                F(1, u3 + u4) = D(u4 + 2) + u2
            Next u4
        Next u1
2180:
    End Sub
    Public Sub vazby()
        Console.WriteLine("    Vnější  vazby:")
        x0 = 4 : k9 = 4 * I(5)
        For u1 = 1 To k9
            F(1, u1) = -1
        Next
        n = 0 : jj = 0
2350:   jj = jj + 1 : Console.WriteLine("   Vnější vazby-pokračovat=prázdný znak, ukončit=%")
        'gsb 5390 read sub
        read()
        If retez = "%" Then
            GoTo 2590
        End If
        Console.Write("   číslo uzlu ? ,  parametry ?     ")
        aa = Convert.ToInt32(Console.ReadLine())
        bb = Convert.ToInt32(Console.ReadLine())
        Console.WriteLine("   číslo uzlu=" & aa & "   parametry uzlu=" & bb & ".")
        A(jj) = aa : B(jj) = bb
        If aa > 0 And (aa <= I(5)) Then
            GoTo 2420
        End If
        e = 41
        'gsb 5320
        chyba() : GoTo 2760
2420:   If bb >= 1 And bb <= 1234 Then
            GoTo 2450
        End If
        e = 42
        'gsb 5320
        chyba() : GoTo 2760
2450:   'gsb 2770 decoding
        decoding()
        For u1 = 1 To 4
            If D(u1) <= 4 Then
                GoTo 2500
            End If
            e = 42 : reta = "D(u1)>4"
            'gsb5320
            chyba() : GoTo 2760
2500:   Next u1
        For u1 = 1 To 4
            If D(u1) = 0 Then
                GoTo 2570
            End If
            u2 = (aa - 1) * x0 + D(u1)
            If F(1, u2) = 0 Then
                GoTo 2570
            End If
            n = n + 1
            F(1, u2) = 0
2570:   Next u1
        GoTo 2350
2590:   If n + I(1) = I(5) * x0 Then
            GoTo 2620
        End If
        e = 43 : reta = "n+I(1)<>I(5)"
        'gsb5320
        chyba() : GoTo 2760
2620:   n = 0 : k9 = x0 * I(5)
        For u1 = 1 To k9
            If F(1, u1) = 0 Then
                GoTo 2680
            End If
            n = n + 1
            F(1, u1) = n
2680:   Next u1
        If n = I(1) Then
            GoTo 2720
        End If
        e = 44 : reta = "n<>I(1)"
        'gsb5320
        chyba() : GoTo 2760
2720:   If e9 = 0 Then
            GoTo 2760
        End If
        Using sw As New StreamWriter("C:\temp\mainip.txt", True)
            For u1 = 1 To k9
                sw.WriteLine(F(1, u1))
            Next u1
            sw.Flush()
        End Using

2760:
    End Sub
    Public Sub decoding()
        D(1) = 0 : D(2) = 0 : D(3) = 0 : D(4) = 0
        If bb > 9 Then
            GoTo 2820
        End If
        D(1) = bb
        GoTo 2970
2820:   If bb > 99 Then
            GoTo 2860
        End If
        D(1) = Int(bb / 10) : D(2) = bb - D(1) * 10
        GoTo 2970
2860:   If bb > 999 Then
            GoTo 2920
        End If
        D(1) = Int(bb / 100) : u1 = bb - D(1) * 100 : D(2) = Int(u1 / 10)
        D(3) = u1 - D(2) * 10
        GoTo 2970
2920:   D(1) = 1 : D(2) = 2 : D(3) = 3 : D(4) = 4
2970:
    End Sub
    Public Sub prvky()
        Console.WriteLine("   Typy prvků:")
        For u1 = 1 To I(4)
            F(1, u1) = 1
        Next
        n = 0 : jj = 0
3040:   jj = jj + 1 : Console.WriteLine("   Soubory typů prvků:pokračovat=prázdný znak, ukončit=%")
        'gsb5390
        read()
        If retez = "%" Then
            GoTo 3220
        End If
        Console.Write("   číslo 1.prvku serie ?, typ ?    ")
        aa = Convert.ToInt32(Console.ReadLine())
        bb = Convert.ToInt32(Console.ReadLine())
        Console.WriteLine("   číslo 1.prvku serie:" & aa & "   typ:" & bb & ".")
        A1(1) = aa : B1(1) = bb
        If aa > 0 And bb > 0 Then
            GoTo 3110
        End If
        e = 51 : reta = "0-záporné"
        'gsb5320
        chyba() : GoTo 3260
3110:   If aa - n > 0 Then
            GoTo 3140
        End If
        e = 52 : reta = "0-záporné"
        'gsb5320
        chyba() : GoTo 3260
3140:   n = aa
        If (n <= I(4)) And (bb <= I(3)) Then
            GoTo 3180
        End If
        e = 53
        'gsb5320
        chyba() : GoTo 3260
3180:   For u1 = n To I(4)
            F(1, u1) = bb
        Next u1
        GoTo 3040
3220:   If e9 = 0 Then
            GoTo 3260
        End If
        Using sw As New StreamWriter(" C:\temp\mainip.txt", True)
            For u1 = 1 To I(4)
                sw.WriteLine(F(1, u1))
            Next
            sw.Flush()
        End Using

3260:
    End Sub

    Public Sub pruzne()
        Console.WriteLine("   Pružné zobecněné podpory:")
        n = 0 : j = 0
3300:   j = j + 1 : Console.WriteLine("   pružné zobec.podpory: pokračovat=prázdný znak,  ukončit=%")
        'gsb 5390
        read()
        If retez = "%" Then
            GoTo 3570
        End If
        Console.Write("   číslo uzlu ?,  parametr č.?, pérová konst. ?      ")
        aa = Convert.ToInt32(Console.ReadLine())
        bb = Convert.ToInt32(Console.ReadLine())
        cc = Convert.ToSingle(Console.ReadLine())
        A6(j) = aa : B6(j) = bb : C2(j) = cc
        Console.WriteLine("   č.uzlu:" & aa & "   parametr č." & bb & "   pérová konst.=" & cc & ".")
        If aa > 0 Then
            GoTo 3370
        End If
        e = 62 : reta = "0-záporné"
        'gsb5320
        chyba() : GoTo 3670
3370:   If bb <> 0 Then
            GoTo 3390
        End If
        bb = 1
3390:   If aa <= I(5) Then
            GoTo 3420
        End If
        e = 63 : reta = "aa>I(5)"
        'gsb5320
        chyba() : GoTo 3670
3420:   If bb <= z Then
            GoTo 3450
        End If
        e = 64 : reta = "bb>z"
        'gsb5320
        chyba() : GoTo 3670
3450:   If cc > 0 Then
            GoTo 3480
        End If
        e = 65 : reta = "0-záporné"
        'gsb5320
        chyba() : GoTo 3670
3480:   n = n + 1
        If n - I(9) <= 0 Then
            GoTo 3520
        End If
        e = 66 : reta = "n-I(9)>0"
        'gsb5320
        chyba() : GoTo 3670
3520:   j = n * 2 : KA(j - 1) = aa : La(n) = cc : KA(j) = bb
        GoTo 3300
3570:   If n = I(9) Then
            GoTo 3600
        End If
        e = 61 : reta = "n<>I(9)"
        'gsb5320
        chyba() : GoTo 3670
3600:   If (e9 = 0) Or (n = 0) Then
            GoTo 3670
        End If
        Using sw As New StreamWriter("C:\temp\mainip.txt", True)
            For i1 = 1 To j Step 1
                sw.WriteLine(KA(i1))
            Next i1

            For i1 = 1 To I(9)
                sw.WriteLine(La(i1))
            Next i1
            sw.Flush()
        End Using
3670:
    End Sub
    Public Sub zobec()
        Console.WriteLine("   Zobecnělé podpory s daným posunutím:")
        n = 0 : j = 0
3710:   j = j + 1 : Console.WriteLine("   podpory s danými posuny:pokračovat=prázdný znak,  ukončit= % ")
        read()
        If retez = "%" Then
            GoTo 3960
        End If
        Console.Write("   č.uzlu ? , parametry ?    ")
        aa = Convert.ToInt32(Console.ReadLine())
        bb = Convert.ToInt32(Console.ReadLine())
        A2(j) = aa : B2(j) = bb
        Console.WriteLine("   číslo uzlu:" & aa & "   parametry číslo:" & bb & ".")
        If aa > 0 Then
            GoTo 3780
        End If
        e = 72 : reta = "0-záporné"
        chyba() : GoTo 4030
3780:   If aa - I(5) <= 0 Then
            GoTo 3810
        End If
        e = 73 : reta = "aa-I(5)>0"
        chyba() : GoTo 4030
3810:   If (bb < 1234) And (bb > 0) Then
            GoTo 3840
        End If
        e = 74 : reta = "bb nesplňuje"
        chyba() : GoTo 4030
3840:   decoding()
        For u1 = 1 To 4
            If D(u1) = 0 Then
                GoTo 3940
            End If
            If D(u1) <= z Then
                GoTo 3900
            End If
            e = 75 : reta = "D(u1)>z"
            chyba() : GoTo 4030
3900:       n = n + 1 : j = n * 2
            KA(j - 1) = aa : KA(j) = D(u1)
3940:   Next u1
        GoTo 3710
3960:   If n = I(8) Then
            GoTo 3990
        End If
        e = 71 : reta = "n<>I(8)"
        chyba() : GoTo 4030
3990:   If (e9 = 0) Or (n = 0) Then
            GoTo 4030
        End If
        Using sw As New StreamWriter("C:\temp\mainip.txt", True)
            For i1 = 1 To j
                sw.WriteLine(KA(i1))
            Next i1
            sw.Flush()
        End Using

4030:
    End Sub
    Public Sub chyba()
        e9 = 0
        Console.WriteLine("   číslo chyby:" & e & "   číslo vstupu:" & pp & "  " & reta & ".")
        Console.WriteLine("   KONEC-chyba")
        '     GoTo 5430
    End Sub
    Public Sub read()
        Console.Write("  retez=% ?     ")
        retez = (Console.ReadLine())
        Console.WriteLine("  " & retez & ".")
    End Sub
    Public Sub zatiz()
        k0 = 1
        Console.WriteLine("   Název zatěžovacího stavu..80 znaků /ihned piš/ ")
        read()
        Using sw As New StreamWriter("C:\temp\mainip.txt", True)
            sw.WriteLine(retez)
            sw.Flush()
        End Using
        k1 = k0 - 1
        k1 = k1 * I(4)
        n = 0 : ja = 0 : m0 = 0
4130:   ja = ja + 1 : Console.WriteLine("   ronoměrné zatížení: pokračovat=prázdný znak, ukončit= %")
        read()
        Console.WriteLine("   rovnoměrné zatížení [kN/m^2] :") : If retez = "%" Then
            GoTo 4340
        End If
        Console.Write("   1.prvek ?, poslední prvek ? v serii stejného zat.,  intensita zatížení[kN/m^2]?         ")
        aa = Convert.ToInt32(Console.ReadLine())
        prvek = K8(k0)
        bb = Convert.ToInt32(Console.ReadLine())
        cc = Convert.ToSingle(Console.ReadLine())
        Console.WriteLine("   1.prvek=" & aa & "   poslední prvek v serii=" & bb & "   intensita zatížení[kN/m^2]=" & cc & ".")
        A3(K8(k0), ja) = aa : B3(K8(k0), ja) = bb : C(K8(k0), ja) = cc
        If aa <= 0 Then
            GoTo 4320
        End If
        If bb <= 0 Then
            GoTo 4320
        End If
        If aa - bb <= 0 Then
            GoTo 4240
        End If
        e = 82 : reta = "kladné"
        chyba() : GoTo 4820
4240:   If bb - I(4) > 0 Then
            GoTo 4320
        End If
        u1 = k1 + aa : bb = k1 + bb : Console.WriteLine("   bb=" & bb & ".")
        For j = u1 To bb Step 1
            n = n + 1
            La(j + (i9 - 1) * bb) = cc
        Next j
        GoTo 4130
4320:   e = 83 : reta = "kladné"
        chyba() : GoTo 4820
4340:   If n - I(4) <= 0 Then
            GoTo 4370
        End If
        e = 84 : reta = "kladné"
        chyba() : GoTo 4820
4370:   'síly
        n = 0 : j5 = I(8) * I(6) + x0
        Console.WriteLine("   Osamělé síly [kN] :") : ja = 0
4410:   ja = ja + 1 : Console.WriteLine("   osamělá síla[kN]: pokračovat=prázdný znak,   ukončit= %   ")
        read()
        If retez = "%" Then
            GoTo 4660
        End If
        Console.Write("   uzel ?,  parametr číslo ?,  síla[kN] ?      ")
        aa = Convert.ToInt32(Console.ReadLine())
        sila = K8(k0)
        bb = Convert.ToInt32(Console.ReadLine())
        cc = Convert.ToSingle(Console.ReadLine())
        A4(K8(k0), ja) = aa : B4(K8(k0), ja) = bb : C1(K8(k0), ja) = cc
        Console.WriteLine("   uzel=" & aa & "   parametr číslo=" & bb & "   Síla[kN]=" & cc & ".")
        If aa <= 0 Then
            GoTo 4640
        End If
        If aa - I(5) > 0 Then
            GoTo 4640
        End If
        If bb <> 0 Then
            GoTo 4490
        End If
        bb = 1
4490:   If bb > z Then
            GoTo 4640
        End If
        m0 = m0 + 1 : n = n + 1 : j = j5 + m0
        If j <= 6000 Then
            GoTo 4560
        End If
        e = 86 : reta = "j>6000"
        chyba() : GoTo 4820
4560:   La(j) = cc : Console.Write("La(" & j & ")=" & La(j) & ".")
        j = m0 * 2 + I(6)
        If j <= 2000 Then
            GoTo 4610
        End If
        e = 86 : reta = "j>2000"
        chyba() : GoTo 4820
4610:   KA(j) = bb : KA(j - 1) = aa
        GoTo 4410
4640:   e = 87 : reta = "bb,aa nesplňují"
        chyba() : GoTo 4820
4660:   If I(7) - n >= 0 Then
            GoTo 4690
        End If
        e = 88 : reta = "0-záporné"
        chyba() : GoTo 4820
4690:   KA(k0) = n
        ' zatížení danými posuny
        n = 0 : ja = 0
4720:   ja = ja + 1 : Console.WriteLine("   Zatížení danými posuny v pořadí uzlů a parametrů:pokračovat=prázdný znak,")
        Console.WriteLine("   ukončit= %") : read()
        If retez = "%" Then
            GoTo 4790
        End If
        Console.Write("   velikost posunu[m] ?     ")
        aa = Convert.ToSingle(Console.ReadLine()) : posun = K8(k0)
        Console.WriteLine("   Dané posunutí[m]=" & aa & ".")
        A5(K8(k0), ja) = aa : n = n + 1 : bb = x0 + n + (k0 - 1) * I(8) : La(bb) = aa
        GoTo 4720
4790:   If n <= I(8) Then
            GoTo 4820
        End If
        e = 89 : reta = "n>I(8)"
        chyba() : GoTo 4820
4820:  ' Console.ReadKey()
    End Sub
    Public Sub mainipe()
        FileClose()
        Using sr As New StreamReader("C:\temp\mainip.txt")
            While Not sr.EndOfStream
                Dim rett As String = sr.ReadLine()
                Dim i1 As Double = CDbl(sr.ReadLine())
                Dim i2 As Double = CDbl(sr.ReadLine())
                Dim i3 As Double = CDbl(sr.ReadLine())
                Dim i4 As Double = CDbl(sr.ReadLine())
                Dim i5 As Double = CDbl(sr.ReadLine())
                Dim i6 As Double = CDbl(sr.ReadLine())
                Dim i7 As Double = CDbl(sr.ReadLine())
                Dim i8 As Double = CDbl(sr.ReadLine())
                Dim i9 As Double = CDbl(sr.ReadLine())
                Dim i0 As Double = CDbl(sr.ReadLine())
                For j = 1 To 850
                    sr.ReadLine()
                Next
            End While
        End Using
        ' Console.WriteLine("  i1=" & i1 & "  i2=" & i2 & "  i3=" & i3 & " i4=" & i4 & " i5=" & i5 & " i6=" & i6 & " i7=" & i7 & " i8=" & i8 & " i9=" & i9 & " i0=" & i0 & ".")
        i1 = I(1) : i2 = I(2) : i3 = I(3) : i4 = I(4) : i5 = I(5) : i6 = I(6) : i7 = I(7) : i8 = I(8) : i9 = I(9) : i0 = I(10)
        Console.WriteLine("  i1=" & i1 & " i2=" & i2 & " i3=" & i3 & " i4=" & i4 & " i5=" & i5 & " i6=" & i6 & " i7=" & i7 & " i8=" & i8 & " i9=" & i9 & " i0=" & i0 & ".")
        m0 = 153 : m1 = i9 + m0 : m2 = i4 * i6 + m1
        m3 = m2 + i8 * i6 : x0 = 4 : x1 = i2 + i6
        k2 = 4 * i4 + 1
        k3 = k2 + x0 * i5
        L1 = k3 + i4 - 1 + 1
        L2 = L1 + 2 * i8 + 2 * i9
        L3 = L2 + i6
        h1 = i2 - 2
        FileClose()
    End Sub

    Public Sub tisk()
        'Tisk výpočtu desky
        Console.WriteLine("                    ") : Console.WriteLine("                 ")
        Console.WriteLine("   D E S K A     **MKP** p r o g r a m")
        Console.WriteLine("             ")
        Console.WriteLine("   Řešení izotropní nebo ortotropní tenké desky [Kirchhof] i na pružném podloží")
        Console.WriteLine("   Počet rovnic=" & I(1) & "  polopas šíře:" & I(2) & "  typů prvků:" & I(3) & "  prvků=" & I(4) & ".")
        Console.WriteLine("   počet uzlů=" & I(5) & "  zatěžovacích stavů:" & I(6) & "  osaměl.zatížení=" & I(7) & "  parametrů deform.=" & I(8) & ".")
        Console.WriteLine("   pružných podpor=" & I(9) & ".")
        Console.WriteLine("   Automatické generování kodových čísel:počet řad=" & rad & "  sloupců=" & sloupcu & ".")
        Console.WriteLine("   Fyzikální data:  desková tuhost E*h^3/12[kNm^2]= " & dd & "  Poisson.konst.=" & pk & ".")
        Console.WriteLine("   Konstanty podloží: C1[kN/m^3]=" & D(5) & "  Czx[kN/m]=" & D(6) & "   Czy[kN/m]=" & D(7) & ".")
        Console.WriteLine("   Geometrie prvku: délka Lx[m]=" & D(8) & "   výška Vy[m]=" & D(9) & "  zkosení C[m]=" & D(10) & ".")
        j = 0
4960:   j = j + 1 : If A1(j) = 0 Then
            GoTo 4990
        End If
        Console.WriteLine("   Typy prvků:")
        Console.WriteLine("   číslo prvního prvku v serii:" & A1(j) & "   typ prvku:" & B1(j) & ".")
        GoTo 4960
4990:   Console.WriteLine("   Vnější vazby:")
        jj = 0
5010:   jj = jj + 1 : If A(jj) = 0 Then
            GoTo 5030
        End If
        Console.WriteLine("   číslo uzlu:" & A(jj) & "   parametry uzlu:" & B(jj) & ".") : GoTo 5010
5030:   Console.WriteLine("   Podpory se zadaným posunem:")
        j = 0
5050:   j = j + 1
        If A2(j) = 0 Then
            GoTo 5080
        End If
        Console.WriteLine("   číslo uzlu:" & A2(j) & "   parametry uzlu:" & B2(j) & ".")
        GoTo 5050
5080:   j = 0
5090:   j = j + 1 : If C2(j) = 0 Then
            GoTo 5110
        End If
        Console.WriteLine("   Pružné podpory")
        Console.WriteLine("   uzel číslo:" & A6(j) & "   parametr:" & B6(j) & "   pérová konst.:" & C2(j) & ".")
        GoTo 5090
5110:   jj = 0
5120:   jj = jj + 1 : If K8(jj) = 0 Then
            GoTo 5310
        End If
        Console.WriteLine("                ")
        Console.WriteLine("   Zatěžovací stav:" & K8(jj) & ".") : Console.WriteLine("       ")
        Console.WriteLine("   Rovnoměrné zatížení [kN/m^2]:")
        j = 0
5160:   j = j + 1 : If C(prvek, j) = 0 And A3(prvek, j) = 0 Then
            GoTo 5200
        End If
        Console.WriteLine("   1.prvek:" & A3(prvek, j) & "   poslední prvek stejného zatížení:" & B3(prvek, j) & "  velikost zatíž.[kN/m^2]=" & C(prvek, j) & ".")
        GoTo 5160
5200:   Console.WriteLine("   Osamělé síly[kN]:")
        j = 0
5220:   j = j + 1 : If C1(sila, j) = 0 Then
            GoTo 5250
        End If
        Console.WriteLine("   uzel:" & A4(sila, j) & "  parametr č:" & B4(sila, j) & "   síla [kN]=" & C1(sila, j) & ".")
        GoTo 5220
5250:   Console.WriteLine("   Zatížení danými posuny:")
        j = 0
5270:   j = j + 1 : If A5(posun, j) = 0 Then
            GoTo 5300
        End If
        Console.WriteLine("   uzel číslo:" & A2(j) & "   parametry:" & B2(j) & "   dané posunutí[m]=" & A5(posun, j) & ".")
        GoTo 5270
5300:   GoTo 5120
5310:
    End Sub
    Public Sub Singul()
        'matice AX(16,16)
        eps = 0.000001
        For i1 = 1 To 16
            For j = 1 To 16
                If i1 = j Then
                    X(i1, j) = 1
                Else
                    X(i1, j) = 0
                End If
            Next j
        Next i1
        det = 1
        For k1 = 1 To 16  'vedoucí prvek  mat. AX()
            If (k1 - 17) < 0 Then
                imax = k1 : GoTo 3180
            Else
                GoTo 3290
            End If
3180:       amax = Math.Abs(AX(k1, k1)) : ki = k1 + 1
            For i1 = ki To 16
                If (amax - Math.Abs(AX(i1, k1))) >= 0 Then
                    GoTo 3220
                End If
                imax = i1 : amax = Math.Abs(AX(i1, k1))
3220:       Next i1
            'výměna řádků mat AX(),X()
            If (imax - k1) = 0 Then
                GoTo 3290
            End If
            For j = 1 To 16
                ap = AX(imax, j) : AX(imax, j) = AX(k1, j)
                AX(k1, j) = ap : xp = X(imax, j) : X(imax, j) = X(k1, j)
                X(k1, j) = xp
            Next j
            det = -det 'test singularity
3290:       If (Math.Abs(AX(k1, k1)) - eps) <= 0 Then
                Console.WriteLine("   matice je singulární pro k=" & k1 & ".")
                GoTo 3400
            End If
            det = AX(k1, k1) * det 'dělení řádku mat.A(),X() ved.prvkem
            div = AX(k1, k1)
            For j = 1 To 16
                AX(k1, j) = AX(k1, j) / div
                X(k1, j) = X(k1, j) / div
            Next j
            'úprava řádku matic AX(), X()
            For i1 = 1 To 16
                am = AX(i1, k1)
                If i1 = k1 Then
                    GoTo 3390
                End If
                For j = 1 To 16
                    AX(i1, j) = AX(i1, j) - am * AX(k1, j)
                    X(i1, j) = X(i1, j) - am * X(k1, j)
                Next j
3390:       Next i1
        Next k1
        For i1 = 1 To 16
            For j = 1 To 16
                AX(i1, j) = X(i1, j)
            Next j
        Next i1
        Console.WriteLine("  matice AX() je v pořádku...dále je AX() inversní")
3400:
    End Sub
    Public Sub matk()
        ' Console.Write("matice K(16,16)")
        For i1 = 1 To 16
            '  Dim K(16, 16), BX(16, 16), AX(16, 16)
            For k1 = 1 To 16
                K(i1, k1) = 0
                For j = 1 To 16
                    K(i1, k1) = K(i1, k1) + BX(i1, j) * AX(j, k1)
                Next j
            Next k1
        Next i1
    End Sub
    Public Sub ffnsa()
        b9 = 1 : a12 = Math.Abs(p1) + Math.Abs(p22)
        If p22 >= 0 Then
            ffns = a12 * b9
        Else
            b9 = -1 : ffns = a12 * b9
        End If
    End Sub
    Public Sub matp()
        '  Dim L(16, 16), AX(16, 16)
        ' Console.Write("matice L(16,16):")
        For i1 = 1 To 16
            ii = i1 + 1 : L(i1, i1) = AX(i1, i1)
            For j = ii To 16
                p = AX(i1, j)
                L(i1, j) = AX(j, i1)
                L(j, i1) = p
                ' Console.Write(" " & L(i1, j) & ".")
                If j = 16 Then
                    '    Console.WriteLine()
                End If
            Next j
        Next i1
    End Sub
    Public Sub matb()
        ' Dim BX(16, 16), L(16, 16), K(16, 16)
        ' Console.Write("matice B(16,16)")
        For i1 = 1 To 16
            For k1 = 1 To 16
                BX(i1, k1) = 0
                For j = 1 To 16
                    BX(i1, k1) = BX(i1, k1) + L(i1, j) * K(j, k1)
                Next j
            Next k1
        Next i1
    End Sub
    Public Sub matsi()
        '  Dim D0(5, 16), AX(16, 16), S(5, 16)
        For i1 = 1 To 5
            '    Console.WriteLine(" určení matice S(5,16):")
            For k1 = 1 To 16
                S(i1, k1) = 0
                For j = 1 To 16
                    S(i1, k1) = S(i1, k1) + D0(i1, j) * AX(j, k1)
                    ' Console.Write(" " & S(i1, k1) & ".")
                    If j = 16 Then
                        ' Console.WriteLine("  ")
                    End If
                Next j
            Next k1
        Next i1
    End Sub
    Public Sub mata()
        ' Dim AX(16, 16), xx As Single  ' xx=w7  y=w8  i1=1,5,9,13
        b9 = xx ^ 2
        c9 = y ^ 2 : d1 = xx * y : j = i1 + 1 : k1 = i1 + 2 : L1 = i1 + 3
        AX(i1, 1) = 1
        AX(j, 2) = 1
        AX(k1, 3) = 1 : AX(L1, 4) = 1
        AX(i1, 2) = xx : AX(k1, 4) = xx
        AX(i1, 3) = y : AX(j, 4) = y
        AX(j, 5) = 2 * xx : AX(L1, 7) = 2 * xx
        AX(k1, 6) = 2 * y
        AX(L1, 8) = 2 * y : AX(i1, 4) = d1
        AX(j, 7) = 2 * d1 : AX(k1, 8) = 2 * d1
        AX(L1, 9) = 4 * d1 : AX(i1, 5) = b9
        AX(k1, 7) = b9 : AX(i1, 6) = c9
        AX(j, 8) = c9 : AX(i1, 7) = b9 * y
        AX(i1, 8) = c9 * xx : AX(j, 10) = 3 * b9
        AX(L1, 12) = 3 * b9 : AX(k1, 11) = 3 * c9
        AX(L1, 13) = 3 * c9 : AX(i1, 9) = b9 * c9
        AX(j, 9) = 2 * c9 * xx : AX(k1, 9) = 2 * b9 * y
        AX(i1, 10) = b9 * xx : AX(k1, 12) = b9 * xx
        AX(i1, 11) = c9 * y : AX(j, 13) = c9 * y
        AX(i1, 12) = b9 * d1 : AX(i1, 13) = c9 * d1
        AX(j, 12) = 3 * b9 * y : AX(k1, 13) = 3 * c9 * xx
        AX(i1, 14) = b9 * c9 * xx : AX(i1, 15) = b9 * c9 * y
        AX(i1, 16) = b9 * c9 * d1 : AX(j, 14) = 3 * b9 * c9
        AX(k1, 15) = 3 * b9 * c9 : AX(j, 15) = 2 * c9 * d1
        AX(j, 16) = 3 * b9 * c9 * y : AX(k1, 14) = 2 * b9 * d1
        AX(k1, 16) = 3 * b9 * c9 * xx : AX(L1, 14) = 6 * b9 * y
        AX(L1, 15) = 6 * c9 * xx : AX(L1, 16) = 9 * b9 * c9

        ' Console.WriteLine("   b9=" & b9 & "   c9=" & c9 & "   d1=" & d1 & "  matice AX(16,16)")
        For j = 1 To 16
            For jj = 1 To 16
                ' Console.Write(" " & AX(j, jj) & ".")
                If jj = 16 Then
                    '    Console.WriteLine("  ")
                End If
            Next
        Next
    End Sub
    Public Sub mats5()
        '  Console.WriteLine("   zápis matice S15(5,16) typ=" & q1 & "  max=" & I(3) & ".")
        x1 = j7 : y = j8 : matd()
        matsi()
        ' Console.WriteLine("   Matice S15(5,16) : ")
        Using sw As New StreamWriter("C:\temp\wmats15.txt", True)
            For u5 = 1 To 5
                For u6 = 1 To 16
                    ss = S(u5, u6)
                    sw.WriteLine(ss)
                    '  Console.Write(" " & S(u5, u6) &  ".")
                    If u6 = 16 Then
                        ' Console.WriteLine("  ")
                    End If
                Next
            Next
            sw.Flush()
        End Using
    End Sub
    Public Sub mats1()
        x1 = j7 : y = j8 : matd() : matsi()
        ' Console.WriteLine("  zápis Matice S(5,16):wmats1, typ=" & q1 & " max=" & I(3) & ".")
        Using sw As New StreamWriter("C:\temp\wmats1.txt", True)
            For u5 = 1 To 5
                For u6 = 1 To 16
                    ss = S(u5, u6)
                    sw.WriteLine(ss)
                Next
            Next
            sw.Flush()
        End Using
    End Sub
    Public Sub matd()
        ' Dim D0(20, 20)  'vstupuje x1=u3,y=u4
        x1 = j7 : y = j8
        '  Console.WriteLine("y1,y2,y3,y4,y5,y=" & y1 & "," & y2 & "," & y3 & "," & y4 & "," & y5 & "," & y & ".")
        '  Console.WriteLine("x0,x7,x8,x9,x1=" & x0 & "," & x7 & "," & x8 & "," & x9 & "," & x1 & ".")
        '  Console.WriteLine("d2,d3,d4=" & d2 & "," & d3 & "," & d4 & ".")
        b9 = x1 ^ 2 : c9 = y ^ 2 : d1 = x1 * y
        D0(1, 4) = -2 * y1 * d4 : D0(1, 5) = -2 * y2
        D0(1, 6) = -2 * x0 * d4 : D0(1, 7) = -2 * y * y2 - 4 * x1 * y1 * d4
        D0(1, 8) = -2 * x1 * x0 * d4 - 4 * y * y1 * d4
        D0(1, 9) = -2 * c9 * y2 - 2 * b9 * x0 * d4 - 8 * d1 * y1 * d4
        D0(1, 10) = -6 * x1 * y2 : D0(1, 11) = -6 * y * x0 * d4
        D0(1, 12) = -6 * d1 * y2 - 6 * b9 * y1 * d4
        D0(1, 13) = -6 * d1 * x0 * d4 - 6 * c9 * y1 * d4
        D0(1, 14) = -6 * x1 * c9 * y2 - 2 * b9 * x1 * x0 * d4 - 12 * b9 * y * y1 * d4
        D0(1, 15) = -2 * c9 * y * y2 - 6 * b9 * y * x0 * d4 - 12 * x1 * c9 * y1 * d4
        D0(1, 16) = -6 * d1 * c9 * y2 - 6 * b9 * d1 * x0 * d4 - 18 * b9 * c9 * y1 * d4
        D0(2, 4) = -2 * y1 * d2 : D0(2, 5) = -2 * y3
        D0(2, 6) = -2 * x0 * d2 : D0(2, 7) = -2 * y * y3 - 4 * x1 * y1 * d2
        D0(2, 8) = -2 * x1 * x0 * d2 - 4 * y * y1 * d2
        D0(2, 9) = -2 * c9 * y3 - 2 * b9 * x0 * d2 - 8 * d1 * y1 * d2
        D0(2, 10) = -6 * x1 * y3 : D0(2, 11) = -6 * y * x0 * d2
        D0(2, 12) = -6 * d1 * y3 - 6 * b9 * y1 * d2 : D0(2, 13) = -6 * c9 * y1 * d2 - 6 * d1 * x0 * d2
        D0(2, 14) = -6 * c9 * x1 * y3 - 2 * b9 * x1 * x0 * d2 - 12 * b9 * y * y1 * d2
        D0(2, 15) = -2 * c9 * y * y3 - 6 * b9 * y * x0 * d2 - 12 * x1 * c9 * y1 * d2
        D0(2, 16) = -6 * d1 * c9 * y3 - 6 * b9 * d1 * x0 * d2 - 18 * b9 * c9 * y1 * d2
        D0(3, 4) = -2 * x8 * d3 : D0(3, 5) = -4 * x7 * d3
        D0(3, 7) = -4 * x7 * y * d3 - 4 * x8 * x1 * d3 : D0(3, 8) = -4 * y * x8 * d3
        D0(3, 9) = -4 * x7 * y * y * d3 - 8 * x8 * x1 * y * d3 : D0(3, 10) = -12 * x7 * x1 * d3
        D0(3, 13) = -6 * y * y * x8 * d3 : D0(3, 12) = -12 * x1 * y * x7 * d3 - 6 * x1 * x1 * x8 * d3
        D0(3, 14) = -12 * d3 * (x1 * y * y * x7 + x1 * x1 * y * x8)
        D0(3, 15) = -4 * y * y * y * x7 * d3 - 12 * x8 * x1 * y * y * d3
        D0(3, 16) = -12 * x7 * x1 * y * y * y * d3 - 18 * x8 * x1 * x1 * y * y * d3
        D0(4, 7) = -4 * y1 * y4 : D0(4, 8) = -2 * x0 * y4
        D0(4, 9) = -8 * y1 * y * y4 - 4 * x0 * x1 * y4 : D0(4, 10) = -6 * y2 - 12 * x9 * d3
        D0(4, 12) = -6 * y2 * y - 12 * x9 * y * d3 - 12 * y1 * x1 * y4
        D0(4, 13) = -6 * x0 * y * y4 : D0(4, 14) = -6 * y2 * c9 - 24 * d1 * y1 * y4 - 6 * b9 * x0 * y4 - 12 * c9 * d3 * x9
        D0(4, 15) = -12 * c9 * y1 * y4 - 12 * d1 * x0 * y4
        D0(4, 16) = -6 * c9 * y * y2 - 12 * c9 * y * x9 * d3 - 18 * b9 * y * x0 * y4 - 36 * c9 * x1 * y1 * y4
        D0(5, 7) = -4 * x9 * x8 * d2 - 2 * x8 * y5 : D0(5, 8) = -6 * x7 * x0 * d2
        D0(5, 9) = -12 * x1 * x8 * y1 * d2 - 8 * y * x7 * y1 * d2 - 4 * y * x8 * y5
        D0(5, 10) = -6 * x7 * y5 : D0(5, 11) = -6 * x0 * x8 * d2
        D0(5, 12) = -12 * x1 * x9 * x8 * d2 - (y * x7 + x1 * x8) * 6 * y5
        D0(5, 13) = -(18 * y * x7 + 6 * x1 * x8) * x0 * d2
        D0(5, 14) = -(18 * b9 * x8 + 24 * d1 * x7) * y1 * d2 - (6 * c9 * x7 + 12 * d1 * x8) * y5
        D0(5, 15) = -(36 * d1 * y1 + 12 * c9 * x9 + 6 * b9 * x0) * x8 * d2 - 6 * c9 * x8 * y5
        D0(5, 16) = -(54 * d1 * y1 + 36 * c9 * x9 + 6 * b9 * x0) * x8 * x1 * d2 - (6 * y * x7 + 18 * x1 * x8) * c9 * y5
        D0(3, 6) = 0 : D0(3, 11) = 0 : D0(4, 11) = 0
        ' Console.WriteLine("  matice D0(5,16): ")
        For i1 = 1 To 5
            For j = 1 To 16
                '    Console.Write(" " & D0(i1, j) & ".")
                If j = 16 Then
                    '       Console.WriteLine("   ")
                End If
            Next
        Next
    End Sub
    Public Sub gauss4()
        Console.WriteLine("  Gauss4 čte wequ od w4=" & w4 & " do w5=" & w5 & ".") : pas = I(2)
        DA = w4 - A11 - 2
        For A9 = w4 To w5 Step 1
            z9 = A9 - w4
            If w6 <> 0 Then
                GoTo SA1260
            End If
            If d9 <= 0 Then
                GoTo SA1140
            End If
            Console.WriteLine("  čte alfa:" & (q3 - 1) * z1 * g9 + 1 & " rovnice q3=" & q3 & ".")
            Using sr As New StreamReader("C:\temp\alfa.txt", True)
                While Not sr.EndOfStream
                    For j = 1 To z1 Step 1
                        Dim ss As Double = CDbl(sr.ReadLine())
                        UA(j) = ss             'načtení UA() z temp\alfa.txt na disku c:\
                        ' Console.Write("  UA(" & j & ")=")
                        ' Console.Write(ss)
                    Next j
                    '  Console.WriteLine()
                End While
            End Using
            q3 = q3 + 1
SA1140:     If d9 >= 0 Then
                GoTo SA1350
            End If
            Console.WriteLine("  čte beta:" & (q7 - 1) * z1 * g9 + 1 & " rovnice q7=" & q7 & ".")
            Using sr As New StreamReader("c:\temp\beta.txt", True)
                While Not sr.EndOfStream
                    For j = 1 To z1 Step 1
                        Dim ss As Double = CDbl(sr.ReadLine())
                        UA(j) = ss          ' načtení UA() z temp\beta.txt na disku c:\
                        '  Console.Write(" UA(" & j & ")=")
                        ' Console.WriteLine(UA(j))
                    Next j
                    ' Console.WriteLine()
                End While
            End Using
            q7 = q7 + 1
SA1250:     GoTo SA1350
SA1260:     If w6 <= 5 Then
                Console.WriteLine(" čte wequ " & z1 & " čísel, rovnice " & q1 & ".")
            Else
                z9 = z9 + c22 - c11 + 1
                Console.WriteLine("  čte wequ   " & z1 & " čísel, rovnice  " & q1 & ".")
            End If
            Using sr As New StreamReader("c:\temp\wequ.txt", True)
                ' While Not sr.EndOfStream
                For j = 1 To z1 Step 1  ' přiřazení wequ( , ) do UA()
                    Dim ss As Double = CDbl(sr.ReadLine())
                    '  UA(j) = wequ(q1, j)
                    UA(j) = ss        'čtení vektoru UA() ze souboru temp\wequ.txt na disku c:\
                    ' Console.Write("  UAwequ(" & j & ")=")
                    ' Console.Write(UA(j))
                    '  Console.WriteLine(" wequ(" & q1 & "," & j & ")=" & wequ(q1, j) & ".")
                Next j
                q1 = q1 + 1
                ' End While
            End Using
SA1350:     DA = DA + 1
            B33 = B22 - z9
            u1 = I(2) - DA - 1
            If u1 > B33 Then
                GoTo SA1570
            End If
            If u1 >= 0 Then
                d4 = z1 * (u1 - I(2) + DA) + 1
            Else
                u1 = 0 : d4 = z1 * (u1 - I(2) + DA) + 1
            End If
            For j = u1 To B33 Step f1
                d4 = d4 + z1
                d5 = d4 + I(2)
                d3 = d5 - j - f1
                If KA(d3) = f0 Then
                    GoTo SA1560
                End If
                m = -KA(d3) / KA(d4)
                r1 = d3 - f1
                For j1 = n1 + f1 To j + f1 Step f1
                    UA(j1) = UA(j1) + m * KA(r1 + j1)
                Next j1
                For j9 = n1 To p1 Step f1
                    n2 = s1 + j9
                    UA(n2) = UA(n2) + m * KA(d5 + j9)
                Next j9
SA1560:     Next j
SA1570:     If d9 <= 0 Then
                GoTo SA1690
            End If
            FileClose()
            Using sw As New StreamWriter("C:\temp\beta.txt", True)
                Console.WriteLine("  zápis Beta rovnice:" & q7 & ".")
                For j = 1 To z1
                    ' Console.Write("UAbeta(" & j & ")=")
                    sw.WriteLine(UA(j))
                    ' Console.Write(UA(j))
                Next j
                ' Console.WriteLine()
                sw.Flush()
            End Using
            q7 = q7 + 1
SA1690:     If d9 >= 0 Then
                GoTo SA1810
            End If
            Using sw As New StreamWriter("c:\temp\alfa.txt", True)
                Console.WriteLine("  zápis Alfa rovnice:" & q3 & ".")
                For j = 1 To z1
                    '  Console.Write("UAalfa(" & j & ")=")
                    sw.WriteLine(UA(j)) ' Console.Write(UA(j))
                Next j
                ' Console.WriteLine()
                sw.Flush()
            End Using
            q3 = q3 + 1
SA1810: Next A9
        Console.WriteLine("  konec gauss4")
    End Sub
    Private Sub gauss5()
        i0 = i0 + 1
        d2 = (w1 - A11 - 2) * z1 : pas = I(2)
        For A9 = w1 To w2
            d2 = d2 + z1
            n2 = d2 + 1
            n3 = d2 + z1
            If w3 = 0 Then
                GoTo SA1990
            End If
            Console.WriteLine(" Gauss5 čte wequ od" & n2 & " Do" & n3 & " rovnice:" & q1 & ".")
            Using sr As New StreamReader("c:\temp\wequ.txt", True)
                '  While Not sr.EndOfStream
                For j = n2 To n3
                    Dim ss As Double = CDbl(sr.ReadLine())
                    KA(j) = ss   'načtení KA() z temp\wequ.txt na disku c:\
                Next j
                ii = 0
                For j = n2 To n3 'přiřazení wequ(q1,ii) do KA(j)
                    ii = ii + 1
                    '  KA(j) = wequ(q1, ii)
                    '   Console.Write("  KAwequ(" & j & ")=")
                    '  Console.Write( KA(j))     'kontrolní tisk  KA() !!
                    '  Console.WriteLine(" wequ(" & q1 & "," & ii & ")=" & wequ(q1, ii) & ".")  'kontrolní tisk wequ( , )
                Next j
                q1 = q1 + 1
                ' End While
            End Using
SA1990:     If w3 <> 0 Then
                GoTo SA2240
            End If
            If d9 <= 0 Then
                GoTo SA2120
            End If
            Using sr As New StreamReader("c:\temp\alfa.txt", True)
                ' While Not sr.EndOfStream
                Console.WriteLine(" čte alfa-rovnice  " & q3 & ".")
                For j = n2 To n3
                    Dim ss As Double = CDbl(sr.ReadLine())
                    KA(j) = ss
                    ' Console.Write("  KAalfa(" & j & ")=")  ' KA() načteno z temp\alfa.txt na disku c:\
                    ' Console.Write( KA(j))
                Next j
                ' Console.WriteLine()
                '   End While
            End Using
            ' Using sr As New StreamReader("c:\temp\alfb.txt")
            ' For j = n2 To n3
            ' Dim ss As Double = CDbl(sr.ReadLine())
            ' KA(j) = ss : Console.WriteLine("  KA(" & j & ")=" & KA(j) & ".")
            ' Next j
            ' End Using
            q3 = q3 + 1
SA2120:     If d9 >= 0 Then
                GoTo SA2240
            End If
            Using sr As New StreamReader("c:\temp\beta.txt")
                '  While Not sr.EndOfStream
                n2 = Math.Abs(n2) : n3 = Math.Abs(n3) : If n2 > n3 Then
                    n2 = n3
                Else
                    n2 = n2
                End If
                Console.WriteLine("  čte beta-rovnice  " & q7 & " n2=" & n2 & " n3=" & n3 & ".")
                For j = n2 To n3
                    Dim ss As Double = CDbl(sr.ReadLine())
                    KA(j) = ss
                    '   Console.Write(" KAbeta(" & j & ")=") ' KA() načteno z temp\beta.txt na disku c:\
                    '  Console.Write(KA(j))
                Next j
                ' Console.WriteLine()
                '  End While
            End Using
            ' Using SR As New StreamReader("c:\temp\betb.txt", True)
            ' For j = n2 To n3
            ' Dim ss As Double = CDbl(sr.ReadLine())
            ' KA(j) = ss : Console.WriteLine("  KA(" & j & ")=" & KA(j) & ".")
            ' Next j
            q7 = q7 + 1
SA2240: Next A9
        DA = w1 - A11 - 2
        CA = DA * z1 + 1
        EE = 8 * z1

        Using sw As New StreamWriter("c:\temp\wwork.txt", True)
            Console.WriteLine("  zápis souboru wwork:   " & w1 & "------->" & w2 & ".")
            For n = w1 To w2 Step f1        'eliminace Gauss... vektoru KA()
                DA = DA + f1
                CA = CA + z1
                c3 = CA + i2
                u1 = i2 - DA - f1
                If u1 > B22 Then
                    GoTo SA2600
                End If
                If u1 >= 0 Then
                    d4 = z1 * (u1 - I(2) + DA) + f1
                Else
                    u1 = f0 : d4 = z1 * (u1 - I(2) + DA) + f1
                End If
                For j = u1 To B22 Step f1
                    d4 = d4 + z1
                    d5 = d4 + I(2)
                    d3 = d5 - j - f1
                    If KA(d3) = f0 Then
                        GoTo SA2580
                    End If
                    If KA(d4) = 0 Then
                        KA(d4) = 1
                    End If
                    m = -KA(d3) / KA(d4)
                    r1 = d3 - CA
                    For j1 = n1 + CA To j + CA Step f1
                        KA(j1) = KA(j1) + m * KA(r1 + j1)
                    Next j1
                    For j9 = n1 To p1 Step f1
                        n2 = c3 + j9
                        n3 = d5 + j9
                        KA(n2) = KA(n2) + m * KA(n3)
                    Next j9
SA2580:         Next j
SA2600:         n3 = (CA + B11) : n3 = Math.Abs(n3) : CA = Math.Abs(CA) : If CA > n3 Then
                    CA = n3
                Else
                    CA = CA
                End If
                Console.WriteLine("  rovnice eliminovaná:" & n & "  CA=:" & CA & "  n3=:" & n3 & ".")
                For j = CA To n3 Step f1
                    sw.WriteLine(KA(j)) 'zápis eliminované rovnice...vektoru KA() do souboru temp\wwork.txt na disk c:\
                    '  Console.Write("  KAelim(" & j & ")=")
                    ' Console.Write( KA(j))
                Next j
                ' Console.WriteLine()
                sw.Flush()
                q2 = q2 + 1
            Next n
        End Using
        Console.WriteLine("  konec gauss5")
    End Sub
    ''' <summary>
    '''
    ''' </summary>
    Sub Main()
        g9 = 45000 : pp = 1 : e9 = 1 : z = 4 : k0 = 2 : i9 = 0
        Using sw As New StreamWriter("C:\temp\mainip.txt")
            Console.WriteLine("                 ") : Console.WriteLine("                  ")
            Console.WriteLine("   DESKA - program MKP..řešení izotropní nebo ortotropní tenké desky[Kirchhof]")
            Console.WriteLine("   i na pružném podloží")
            Console.ReadKey()
            Console.Write("   zadej název úlohy  ?      ")
            nazev = (Console.ReadLine())
            sw.WriteLine(nazev)
            Console.WriteLine("   " & nazev & ".")
            Console.Write("   počet rovnic ?, šíře pasu ?, počet typů prvků ?     ")
            I(1) = Convert.ToSingle(Console.ReadLine())
            I(2) = Convert.ToSingle(Console.ReadLine())
            I(3) = Convert.ToSingle(Console.ReadLine())
            Console.Write("   počet prvků ?, počet uzlů ?, zat.stavů ?     ")
            I(4) = Convert.ToSingle(Console.ReadLine())
            I(5) = Convert.ToSingle(Console.ReadLine())
            I(6) = Convert.ToSingle(Console.ReadLine())
            Console.Write("   počet osaměl.zatíž. ?, daných param.deform. ?, počet pruž.podpor ?       ")
            I(7) = Convert.ToSingle(Console.ReadLine())
            I(8) = Convert.ToSingle(Console.ReadLine())
            I(9) = Convert.ToSingle(Console.ReadLine())
            p1 = I(2) : pas = p1 : I(10) = 1
            For u1 = 1 To 6  'kontrola chyb v zadání
                If I(u1) > 0 Then
                    GoTo 210
                End If
                e1 = 3 'záporné číslo
                ' gsb5320
                chyba() : GoTo 5430
210:        Next
            For u1 = 7 To 10
                If I(u1) >= 0 Then
                    GoTo 260
                End If
                e1 = 4  'záporné číslo
                'gsb5320
                chyba() : GoTo 5430
260:        Next
            'testy na hraniční hodnoty a vztahy a omezení
            If e9 = 0 Then
                GoTo 320
            End If
            Console.WriteLine("   počet rovnic=" & I(1) & "  počet typů prvků=" & I(3) & "  šířka pasu=" & I(2) & "  počet prvků=" & I(4) & "  počet uzlů=" & I(5) & "  zat.stavů=" & I(6) & ".")
            Console.WriteLine("   počet osaměl.zat.=" & I(7) & "   počet daných param.def.=" & I(8) & "   pružných podpor=" & I(9) & "   PAS=" & p1 & ".")
            j = 0
            sw.WriteLine(I(1))
            sw.WriteLine(I(2)) : sw.WriteLine(I(3)) : sw.WriteLine(I(4)) : sw.WriteLine(I(5)) : sw.WriteLine(I(6))
            sw.WriteLine(I(7)) : sw.WriteLine(I(8)) : sw.WriteLine(I(9)) : sw.WriteLine(I(10))
            For ii = 1 To 10
            Next : g9 = 45000
            sw.Flush()
        End Using
320:    pp = 3 'gsb750
        typy()
        pp = 4  'gsb1270
        kody()
        pp = 5   'gsb2270
        vazby()
        pp = 6    'gsb 2980
        prvky()
        pp = 7    'gsb 3270
        pruzne()
        pp = 8    'gsb 3680
        zobec()
        pp = 9 : m0 = 0 : k0 = 1
        x0 = I(4) * I(6)
        u1 = x0 + I(8) * I(6)
        For i1 = 1 To u1
            La(i1) = 0
        Next i1
        For g = 1 To I(6) : Console.WriteLine("   I(6) = " & I(6) & ".")
            Console.WriteLine("   Zatěžovací stav : " & g & ".") : K8(g) = g
            'gsb 4040
            i9 = i9 + 1
            zatiz()
        Next g
        Using sw As New StreamWriter("C:\temp\mainip.txt", True)
            If e9 = 0 Then
                ' GoTo 710
            End If
            ' If i7 = 0 Then
            ' GoTo 640
            ' End If
            For i1 = 1 To I(6)
                sw.WriteLine(KA(i1))
            Next i1
            If m0 = 0 Then
                GoTo 640
            End If
            u1 = I(6) + 1 : u2 = I(6) + m0 * 2
            Console.WriteLine(" u1=" & u1 & " u2=" & u2 & ".")
            For i1 = u1 To u2
                sw.WriteLine(KA(i1))
            Next
640:        'cont
            Console.Write(" x0=" & x0 & " m=" & m0 & ".")
            u1 = x0 + I(8) * I(6) + m0 : Console.Write(" u1=" & u1 & ".")
            For i1 = 1 To u1 Step 1
                Console.Write(" LA(" & i1 & ")=" & La(i1) & ".")
                sw.WriteLine(La(i1))
            Next
            GoTo 720
710:        Console.WriteLine("   not O.K.") : GoTo 750
720:        Console.WriteLine(" je to O.K. ")
750:        sw.Flush()
        End Using
        FileClose()
        tisk()
        Console.ReadKey()
        '                                                   segment programu     "qatrix"
        Console.WriteLine("   QATRIX is running")
        w0 = 1 : q1 = 1 : FileClose()
        Using sr As New StreamReader("C:\temp\mainip.txt")
            ' Dim D0(5, 16), BX(16, 16), AX(16, 16), K(16, 16), PX(1000), S(5, 16), L(16, 16), X(16, 16), xx As Single
            While Not sr.EndOfStream
                Dim rett As String = sr.ReadLine()
                Dim i1 As Integer = CInt(sr.ReadLine())
                Dim i2 As Integer = CInt(sr.ReadLine())
                Dim i3 As Integer = CInt(sr.ReadLine())
                Dim i4 As Integer = CInt(sr.ReadLine())
                Dim i5 As Integer = CInt(sr.ReadLine())
                Dim i6 As Integer = CInt(sr.ReadLine())
                Dim i7 As Integer = CInt(sr.ReadLine())
                Dim i8 As Integer = CInt(sr.ReadLine())
                Dim i9 As Integer = CInt(sr.ReadLine())
                Dim i0 As Integer = CInt(sr.ReadLine())

                ' Console.WriteLine("  " & rett & ".")
                ' Console.WriteLine("  i1=" & i1 & " i2=" & i2 & " i3=" & i3 & " i4=" & i4 & " i5=" & i5 & " i6=" & i6 & " i7=" & i7 & " i8=" & i8 & " i9=" & i9 & " i0=" & i0 & ".")
                i1 = I(1) : i2 = I(2) : i3 = I(3) : i4 = I(4) : i5 = I(5) : i6 = I(6) : i7 = I(7) : i8 = I(8) : i9 = I(9) : i0 = I(10)
                i0 = i3 * 5
                For i1 = 1 To 5
                    For j = 1 To 16
                        D0(i1, j) = 0
                    Next
                Next
                w0 = 1
                ' For q1 = w0 To i(3)   'začátek cyklu q1 pro typy prvků
                ' Console.WriteLine("   zápis matice WMATK-typ:" & q1 & "  max:" & I(3) & ".")
                Dim s1 As Single = CDbl(sr.ReadLine())
                Dim s2 As Single = CDbl(sr.ReadLine())
                Dim s3 As Single = CDbl(sr.ReadLine())
                Dim s4 As Single = CDbl(sr.ReadLine())
                Dim s5 As Single = CDbl(sr.ReadLine())
                Dim s6 As Single = CDbl(sr.ReadLine())
                Dim s7 As Single = CDbl(sr.ReadLine())
                Dim s8 As Single = CDbl(sr.ReadLine())
                Dim s9 As Single = CDbl(sr.ReadLine())
                Dim s0 As Single = CDbl(sr.ReadLine())
                For j = 1 To 250
                    sr.ReadLine()
                Next
                ' Console.WriteLine("  s1,s2,s3,s4,s5,s6,s7,s8,s9,s0=" & s1 & " " & s2 & "," & s3 & "," & s4 & "," & s5 & "," & s6 & "," & s7 & "," & s8 & "," & s9 & "," & s0 & ".")
                I(11) = s1 : I(12) = s2 : I(13) = s3 : I(14) = s4 : I(15) = s5 : I(16) = s6 : I(17) = s7 : I(18) = s8 : I(19) = s9 : I(20) = s0
            End While
        End Using
        d1 = s1 : d2 = s2 : d3 = s3 : d4 = s4 : d5 = s5 : d6 = s6
        d7 = s7 : h = s8 : v = s9 : c9 = s0
        d1 = I(11) : d2 = I(12) : d3 = I(13) : d4 = I(14) : d5 = I(15) : d6 = I(16) : d7 = I(17) : h = I(18) : v = I(19) : c9 = I(20)
        x1 = h * v * 4 : x2 = h * h : x3 = v * v : x4 = c9 * c9
        x5 = Math.Sqrt(x3 + x4) : x6 = x5 * x5
        x7 = -c9 / v : x8 = x5 / v : x9 = x7 * x7 : x0 = x8 ^ 2
        '  Console.WriteLine("   x1,x2,x3,x4,x5,x6,x7,x8,x9,x0=" & x1 & "," & x2 & "," & x3 & "," & x4 & "," & x5 & "," & x6 & "," & x7 & ".")
        ' Console.WriteLine("   " & x8 & "," & x9 & "," & x0 & ".")
        y1 = x7 * x8 : y2 = d1 + x9 * d4 : y3 = x9 * d2 + d4
        y4 = 2 * d3 + d4 : y5 = 2 * d3 + y3 : p1 = y2 + x9 * y3 + 4 * x9 * d3
        pp2 = (y3 + 2 * d3) * y1 : p3 = y1 * x0 * d2
        p4 = x0 * y3 : p5 = x0 ^ 2 * d2 : p6 = (d3 + x9 * d2) * x0 : y6 = x6 * x1 / 12
        y7 = x2 * x1 / 12
        y8 = x2 ^ 2 : y9 = y8 * x2 : y0 = x6 * x6 : z1 = y0 * x6
        ' Console.WriteLine("   y1,y2,y3,y4,y5,y6,y7,y8,y9,y0=" & y1 & "," & y2 & "," & y3 & "," & y4 & "," & y5 & "," & y6 & "," & y7 & "," & y8 & "," & y9 & "," & y0 & ".")
        aa1 = x1 / 80 : aa2 = x1 / 960 : aa3 = x1 / 5376
        ' Console.WriteLine("   p1,pp2,p3,p4,p5,p6=" & p1 & "." & pp2 & "," & p3 & "," & p4 & "," & p5 & "," & p6 & ".")
        xnut = x1
        aa4 = x1 / 448 : aa5 = x1 / 35840 : z2 = y8 * aa1 : z3 = y0 * aa1
        z4 = x2 * x6 * x1 / 144
        z5 = y8 * x6 * aa2 : z6 = x2 * y0 * aa2 : z7 = y9 * x6 * aa3
        z8 = x2 * z1 * aa3 : w1 = y8 * y0 * x1 / 6400 : w2 = y9 * aa4 : w3 = z1 * aa4
        w4 = y9 * y0 * aa5 : w5 = y8 * z1 * aa5 : w6 = y9 * z1 * x1 / 200704.0!
        x3 = w2
        ' Console.WriteLine("x3=" & x3 & ".")

        ' Console.WriteLine("   w1,w2,w3,w4,w5,w6=" & w1 & "," & w2 & "," & w3 & "," & w4 & "," & w5 & "," & w6 & ".")
        ' Console.WriteLine("   z1,z2,z3,z4,z5,z6,z7,z8=" & z1 & "," & z2 & "," & z3 & "," & z4 & "," & z5 & "," & z6 & "," & z7 & "," & z8 & ".")
        For i1 = 1 To 16
            For j = 1 To 16
                AX(i1, j) = 0 'nulování matice AX()
            Next
        Next
        For i1 = 1 To 16
            For j = 1 To 16
                BX(i1, j) = 0 'nulování matice BX()
            Next
        Next
        For i1 = 1 To 16
            For j = 1 To 16
                K(i1, j) = 0  'nulování matice K()
            Next
        Next
        'assings matrix BX()
        BX(4, 4) = p6 * x1
        BX(4, 5) = pp2 * x1
        BX(4, 6) = p3 * x1
        BX(4, 9) = pp2 * y6 + p3 * y7
        BX(4, 12) = 3 * p6 * y7
        BX(4, 13) = 3 * p6 * y6
        BX(4, 16) = 9 * p6 * z4
        BX(5, 5) = p1 * x1
        BX(5, 6) = p4 * x1
        BX(5, 9) = p1 * y6 + p4 * y7
        BX(5, 12) = 3 * pp2 * y7
        BX(5, 13) = 3 * pp2 * y6
        BX(5, 16) = 9 * pp2 * z4
        BX(6, 6) = p5 * x1
        BX(6, 9) = p4 * y6 + p5 * y7
        BX(6, 12) = 3 * p3 * y7
        BX(6, 13) = 3 * p3 * y6
        BX(6, 16) = 9 * p3 * z4
        BX(7, 7) = p1 * y6 + 4 * p6 * y7
        BX(7, 8) = 2 * pp2 * y6 + 2 * p3 * y7
        BX(7, 10) = 6 * pp2 * y7
        BX(7, 11) = 3 * p4 * y6
        BX(7, 14) = 12 * pp2 * z4 + 2 * p3 * z2
        BX(7, 15) = p1 * z3 + 3 * p4 * z4 + 12 * p6 * z4
        BX(8, 8) = p5 * y7 + 4 * p6 * y6
        BX(8, 10) = 3 * p4 * y7
        BX(8, 11) = 6 * p3 * y6
        BX(8, 14) = p5 * z2 + 3 * p4 * z4 + 12 * p6 * z4
        BX(8, 15) = 12 * p3 * z4 + 2 * pp2 * z3
        BX(9, 9) = p1 * z3 + 2 * p4 * z4 + 16 * p6 * z4 + p5 * z2
        BX(9, 12) = 15 * pp2 * z4 + 3 * p3 * z2
        BX(9, 13) = 3 * pp2 * z3 + 15 * p3 * z4
        BX(9, 16) = 21 * pp2 * z6 + 21 * p3 * z5
        BX(10, 10) = 9 * p1 * y7
        BX(10, 14) = 9 * p1 * z4 + 3 * p4 * z2
        BX(10, 15) = 18 * pp2 * z4
        BX(11, 11) = 9 * p5 * y6
        BX(11, 14) = 18 * p3 * z4
        BX(11, 15) = 3 * p4 * z3 + 9 * p5 * z4
        BX(12, 12) = (p1 * z4 + p6 * z2) * 9
        BX(12, 13) = (p4 + p6) * z4 * 9
        BX(12, 16) = (p1 * z6 + p4 * z5 + 3 * p6 * z5) * 9
        BX(13, 13) = (p5 * z4 + p6 * z3) * 9
        BX(13, 16) = (p4 * z6 + 3 * p6 * z6 + p5 * z5) * 9
        BX(14, 14) = 9 * p1 * z6 + 6 * p4 * z5 + 36 * p6 * z5 + p5 * w2
        BX(14, 15) = 24 * pp2 * z6 + 24 * p3 * z5
        BX(15, 15) = p1 * w3 + 6 * p4 * z6 + 36 * p6 * z6 + 9 * p5 * z5
        BX(16, 16) = 9 * p1 * z8 + 18 * p4 * w1 + 81 * p6 * w1 + 9 * p5 * z7
        ' Console.WriteLine("  d5=" & d5 & "  matice BX(16,16): ")
        For i1 = 1 To 16
            For j = 1 To 16
                ' Console.Write(" " & BX(i1, j) & ".")
                If j = 16 Then
                    '    Console.WriteLine("    ")
                End If
            Next j
        Next i1
        If d5 = 0 Then
            GoTo Q1650
        End If
        K(1, 1) = x1
        K(1, 5) = y7
        K(1, 6) = y6
        K(1, 9) = z4
        K(2, 2) = y7
        K(2, 8) = z4
        K(2, 10) = z2
        K(2, 14) = z5
        K(3, 3) = y6
        K(3, 7) = z4
        K(3, 11) = z3
        K(3, 15) = z6
        K(4, 4) = z4 : K(4, 12) = z5 : K(4, 13) = z6
        K(4, 16) = w1 : K(5, 5) = z2 : K(5, 6) = z4
        K(5, 9) = z5 : K(6, 6) = z3 : K(6, 9) = z6
        K(7, 7) = z5 : K(7, 11) = z6 : K(7, 15) = w1
        K(8, 8) = z6 : K(8, 10) = z5 : K(8, 14) = w1
 
Nahoru Odpovědět  -1 6. října 11:01
Avatar
Jaroslav Trojan:

Ono se to tam ani celé nevešlo

 
Nahoru Odpovědět  -1 6. října 11:03
Avatar
Zdeněk Pavlátka
Tým ITnetwork
Avatar
Odpovídá na Jaroslav Trojan
Zdeněk Pavlátka:
  1. Na dlouhé kódy je tu tlačítko
  2. Kód má být v souboru Module1.vb, přípona vbproj je pro soubor popisující projekt

Takže v DESKA1.vbproj má být xml kód popisující projekt a v Module1.vb má být kód

Nahoru Odpovědět 6. října 12:21
Kolik jazyků umíš, tolikrát jsi programátor.
Avatar
Odpovídá na Zdeněk Pavlátka
Jaroslav Trojan:

Bohužel, když otevřu DESKA1.vbproj , objeví se mi to co jsem uveřejnil, tedy vlastní kód Module1
Já jsem to nijak neovlivnil, tak to sestavilo Visual Studio 2015. Žádný jiný soubor s příponou .vbproj
tam nemám.

 
Nahoru Odpovědět 6. října 14:32
Avatar
Zdeněk Pavlátka
Tým ITnetwork
Avatar
Odpovídá na Jaroslav Trojan
Zdeněk Pavlátka:

Jenže ty ho nemáš otevřít ve visual studiu, protože tím otevřeš celý projekt. Ty ho máš otevřít v poznámkovém bloku (pravé tlačítko myši -> otevřít v programu, nebo tak nějak -> vybereš poznámkový blok)
Ale pokud se ti kód normálně načte ve VS, tady asi problém nebude, zkus to znovu spustit.

Nahoru Odpovědět 6. října 14:57
Kolik jazyků umíš, tolikrát jsi programátor.
Avatar
Jaroslav Trojan:
tak to je ten DESKA1.vbproj
?xml version="1.0" encoding="utf-8"?>
<Project ToolsVersion="14.0" DefaultTargets="Build" xmlns="http://schemas.microsoft.com/developer/msbuild/2003">
  <Import Project="$(MSBuildExtensionsPath)\$(MSBuildToolsVersion)\Microsoft.Common.props" Condition="Exists('$(MSBuildExtensionsPath)\$(MSBuildToolsVersion)\Microsoft.Common.props')" />
  <PropertyGroup>
    <Configuration Condition=" '$(Configuration)' == '' ">Debug</Configuration>
    <Platform Condition=" '$(Platform)' == '' ">AnyCPU</Platform>
    <ProjectGuid>{9FB6AAD9-42E9-44F2-A1AB-709CA9112E3B}</ProjectGuid>
    <OutputType>Exe</OutputType>
    <StartupObject>DESKA1.Module1</StartupObject>
    <RootNamespace>DESKA1</RootNamespace>
    <AssemblyName>DESKA1</AssemblyName>
    <FileAlignment>512</FileAlignment>
    <MyType>Console</MyType>
    <TargetFrameworkVersion>v4.5</TargetFrameworkVersion>
    <IsWebBootstrapper>false</IsWebBootstrapper>
    <PublishUrl>publish\</PublishUrl>
    <Install>true</Install>
    <InstallFrom>Disk</InstallFrom>
    <UpdateEnabled>false</UpdateEnabled>
    <UpdateMode>Foreground</UpdateMode>
    <UpdateInterval>7</UpdateInterval>
    <UpdateIntervalUnits>Days</UpdateIntervalUnits>
    <UpdatePeriodically>false</UpdatePeriodically>
    <UpdateRequired>false</UpdateRequired>
    <MapFileExtensions>true</MapFileExtensions>
    <ApplicationRevision>0</ApplicationRevision>
    <ApplicationVersion>1.0.0.%2a</ApplicationVersion>
    <UseApplicationTrust>false</UseApplicationTrust>
    <PublishWizardCompleted>true</PublishWizardCompleted>
    <BootstrapperEnabled>true</BootstrapperEnabled>
  </PropertyGroup>
  <PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Debug|AnyCPU' ">
    <PlatformTarget>AnyCPU</PlatformTarget>
    <DebugSymbols>true</DebugSymbols>
    <DebugType>full</DebugType>
    <DefineDebug>true</DefineDebug>
    <DefineTrace>true</DefineTrace>
    <OutputPath>bin\Debug\</OutputPath>
    <DocumentationFile>DESKA1.xml</DocumentationFile>
    <NoWarn>42016,41999,42017,42018,42019,42032,42036,42020,42021,42022</NoWarn>
  </PropertyGroup>
  <PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Release|AnyCPU' ">
    <PlatformTarget>AnyCPU</PlatformTarget>
    <DebugType>pdbonly</DebugType>
    <DefineDebug>false</DefineDebug>
    <DefineTrace>true</DefineTrace>
    <Optimize>true</Optimize>
    <OutputPath>bin\Release\</OutputPath>
    <DocumentationFile>DESKA1.xml</DocumentationFile>
    <NoWarn>42016,41999,42017,42018,42019,42032,42036,42020,42021,42022</NoWarn>
  </PropertyGroup>
  <PropertyGroup>
    <OptionExplicit>On</OptionExplicit>
  </PropertyGroup>
  <PropertyGroup>
    <OptionCompare>Binary</OptionCompare>
  </PropertyGroup>
  <PropertyGroup>
    <OptionStrict>Off</OptionStrict>
  </PropertyGroup>
  <PropertyGroup>
    <OptionInfer>On</OptionInfer>
  </PropertyGroup>
  <PropertyGroup>
    <ManifestCertificateThumbprint>B1FF46E28306ADF9AF254C37DE312E582A497EE5</ManifestCertificateThumbprint>
  </PropertyGroup>
  <PropertyGroup>
    <ManifestKeyFile>DESKA1_TemporaryKey.pfx</ManifestKeyFile>
  </PropertyGroup>
  <PropertyGroup>
    <GenerateManifests>true</GenerateManifests>
  </PropertyGroup>
  <PropertyGroup>
    <SignManifests>true</SignManifests>
  </PropertyGroup>
  <ItemGroup>
    <Reference Include="System" />
    <Reference Include="System.Data" />
    <Reference Include="System.Deployment" />
    <Reference Include="System.Xml" />
    <Reference Include="System.Core" />
    <Reference Include="System.Xml.Linq" />
    <Reference Include="System.Data.DataSetExtensions" />
    <Reference Include="System.Net.Http" />
  </ItemGroup>
  <ItemGroup>
    <Import Include="Microsoft.VisualBasic" />
    <Import Include="System" />
    <Import Include="System.Collections" />
    <Import Include="System.Collections.Generic" />
    <Import Include="System.Data" />
    <Import Include="System.Diagnostics" />
    <Import Include="System.Linq" />
    <Import Include="System.Xml.Linq" />
    <Import Include="System.Threading.Tasks" />
  </ItemGroup>
  <ItemGroup>
    <Compile Include="..\..\..\..\..\OneDrive\Dokumenty\Visual Studio 2015\Projects\DESKA1\DESKA1\Module1.vb">
      <Link>Module1.vb</Link>
    </Compile>
    <Compile Include="My Project\AssemblyInfo.vb" />
    <Compile Include="My Project\Application.Designer.vb">
      <AutoGen>True</AutoGen>
      <DependentUpon>Application.myapp</DependentUpon>
    </Compile>
    <Compile Include="My Project\Resources.Designer.vb">
      <AutoGen>True</AutoGen>
      <DesignTime>True</DesignTime>
      <DependentUpon>Resources.resx</DependentUpon>
    </Compile>
    <Compile Include="My Project\Settings.Designer.vb">
      <AutoGen>True</AutoGen>
      <DependentUpon>Settings.settings</DependentUpon>
      <DesignTimeSharedInput>True</DesignTimeSharedInput>
    </Compile>
  </ItemGroup>
  <ItemGroup>
    <EmbeddedResource Include="My Project\Resources.resx">
      <Generator>VbMyResourcesResXFileCodeGenerator</Generator>
      <LastGenOutput>Resources.Designer.vb</LastGenOutput>
      <CustomToolNamespace>My.Resources</CustomToolNamespace>
      <SubType>Designer</SubType>
    </EmbeddedResource>
  </ItemGroup>
  <ItemGroup>
    <None Include="DESKA1_TemporaryKey.pfx" />
    <None Include="My Project\Application.myapp">
      <Generator>MyApplicationCodeGenerator</Generator>
      <LastGenOutput>Application.Designer.vb</LastGenOutput>
    </None>
    <None Include="My Project\Settings.settings">
      <Generator>SettingsSingleFileGenerator</Generator>
      <CustomToolNamespace>My</CustomToolNamespace>
      <LastGenOutput>Settings.Designer.vb</LastGenOutput>
    </None>
    <None Include="App.config" />
  </ItemGroup>
  <ItemGroup>
    <BootstrapperPackage Include=".NETFramework,Version=v4.5">
      <Visible>False</Visible>
      <ProductName>Microsoft .NET Framework 4.5 %28x86 and x64%29</ProductName>
      <Install>true</Install>
    </BootstrapperPackage>
    <BootstrapperPackage Include="Microsoft.Net.Framework.3.5.SP1">
      <Visible>False</Visible>
      <ProductName>.NET Framework 3.5 SP1</ProductName>
      <Install>false</Install>
    </BootstrapperPackage>
  </ItemGroup>
  <Import Project="$(MSBuildToolsPath)\Microsoft.VisualBasic.targets" />
  <!-- To modify your build process, add your task inside one of the targets below and uncomment it.
       Other similar extension points exist, see Microsoft.Common.targets.
  <Target Name="BeforeBuild">
  </Target>
  <Target Name="AfterBuild">
  </Target>
  -->
</Project>
 
Nahoru Odpovědět 6. října 15:19
Avatar
Jaroslav Trojan:

Spustil jsem, ale chyba je stále tatáž, nejde to. Celý kód Module 1 je na Pastebin.

 
Nahoru Odpovědět 6. října 15:24
Avatar
HONZ4
Člen
Avatar
Odpovídá na Jaroslav Trojan
HONZ4:

Teď začínám váhat, že jsem asi nepochopil moment, kdy se ta chyba objevuje.

1 - je to při otevírání projektu?
2 - při sestavení?
3 - sestavení proběhne v pořádku, ale chyba se objeví při spuštění aplikace?

 
Nahoru Odpovědět 7. října 15:07
Avatar
HONZ4
Člen
Avatar
HONZ4:

Pokud je to třetí možnost. Tak je jasné, že cesta k souboru je chybně uvedena v kódu, nebo je cesta chybně generována a nebo je načítána z místa, kde je chybně uložena.

 
Nahoru Odpovědět 7. října 15:16
Avatar
Odpovídá na HONZ4
Jaroslav Trojan:

máš tam výše soubor DESKA1.vbproj, což je xml soubor , kde je cesta uvedena.
Chyba se objeví jak při Build , tak při ctrl+F5 , v tom není rozdíl.

 
Nahoru Odpovědět 8. října 8:47
Avatar
Odpovídá na Jaroslav Trojan
Michal Štěpánek:

ty máš ten "Module1" na OneDrive?

<Compile Include="..\..\..\..\..\OneDrive\Dokumenty\Visual Studio 2015\Projects\DESKA1\DESKA1\Module1.vb">

Nemůže být problém v tom, že k němu program nemá přístup?

Nahoru Odpovědět 8. října 8:59
Nikdy neříkej nahlas, že to nejde. Vždycky se totiž najde blbec, který to neví a udělá to...
Avatar
Odpovídá na Michal Štěpánek
Jaroslav Trojan:

To asi není ono, protože tam mám ještě 10 dalších programů a ty fungují bezvadně.

 
Nahoru Odpovědět 8. října 9:07
Děláme co je v našich silách, aby byly zdejší diskuze co nejkvalitnější. Proto do nich také mohou přispívat pouze registrovaní členové. Pro zapojení do diskuze se přihlas. Pokud ještě nemáš účet, zaregistruj se, je to zdarma.

Zobrazeno 28 zpráv z 28.