Diskuze: Velká část programu je červeně podtržená, hlásí chyby

C# .NET .NET (C# a Visual Basic) Velká část programu je červeně podtržená, hlásí chyby American English version English version

Avatar
Jaroslav Trojan:

Zdravím, jsem začátečník ve Visual Basic. Používám Visual Studio Expres 2015. Napsal jsem dlouhý program a ke konci se mi velká část programu červeně podtrhává a hlásí evidentně neexistující chyby, jako např. chybí End Using , chybí Next , i když tam evidentně tyto nechybí. Co se s tím dá provést? Jak odstranit ten problém?

 
Odpovědět 1. května 7:45
Avatar
Odpovídá na Jaroslav Trojan
Petr Čech (czubehead):

Dej sem kód, určitě je chyba v tobě...

Nahoru Odpovědět  +2 1. května 8:13
Why so serious? -Joker
Avatar
Odpovídá na Jaroslav Trojan
Libor Šimo (libcosenior):

Ak VS hlási "evidentně neexistující chyby", tak tie chyby evidentne existujú.

Nahoru Odpovědět  +4 1. května 8:48
Aj tisícmíľová cesta musí začať jednoduchým krokom.
Avatar
Jan Vargovský
Redaktor
Avatar
Odpovídá na Jan Vargovský
Jan Vargovský:

Tady ještě někdo nekompiloval ve starším VS s Roslyn... To je teprve zábava neco psát a chyby pribyvaj (ten kód je porad zkompilovatelny) :D

Editováno 1. května 10:37
 
Nahoru Odpovědět 1. května 10:37
Avatar
Odpovídá na Petr Čech (czubehead)
Jaroslav Trojan:

Já jsem začátečník a nevím jak program(kód) přiložit k odpovědi. Poraď mi. Díky...J.T.

 
Nahoru Odpovědět 1. května 11:20
Avatar
Odpovídá na Jan Vargovský
Jaroslav Trojan:

Nevím jak ho mám zkompilovat, když jsou tam chyby (35 error) Díky... J.T.

 
Nahoru Odpovědět 1. května 11:24
Avatar
Jan Vargovský
Redaktor
Avatar
Odpovídá na Jaroslav Trojan
Jan Vargovský:

To bylo jen naokraj, tohle určitě nebude tvůj případ. Kód normálně zkopíruj a dej ho mezi tagy code (tlačítko nad příspěvkem ti vygeneruje ten tag).

 
Nahoru Odpovědět 1. května 11:35
Avatar
Nahoru Odpovědět  +1 1. května 12:29
Aj tisícmíľová cesta musí začať jednoduchým krokom.
Avatar
Jaroslav Trojan:

zdravím, pokouším se přiložit zdroj.kód J.T

 
Nahoru Odpovědět 1. května 14:27
Avatar
MadaraCZech
Redaktor
Avatar
Odpovídá na Jaroslav Trojan
MadaraCZech:

WTF ? :D Ty jsi nějakej troll ? :D

Editováno 1. května 14:31
 
Nahoru Odpovědět  +6 1. května 14:31
Avatar
Jaroslav Trojan:

nevím, zda se to povedlo....

 
Nahoru Odpovědět 1. května 14:33
Avatar
Odpovídá na Jan Vargovský
Jaroslav Trojan:

Nenašel jsem tlačítko pro tagy
je tu vložit zdroják, tak jsem ho vložil ale nešel odeslat.
j.T.

 
Nahoru Odpovědět 1. května 15:05
Avatar
pocitac770
Redaktor
Avatar
Odpovídá na Jaroslav Trojan
pocitac770:

Možná ho máš příliš dlouhý, tak použij pastebin: http://pastebin.com/ a sem dej odkaz...

Editováno 1. května 15:19
 
Nahoru Odpovědět 1. května 15:18
Avatar
 
Nahoru Odpovědět 1. května 15:41
Avatar
Odpovídá na Jaroslav Trojan
Michal Štěpánek:

vložit zdroják znamená stisknout druhé tlačítko zleva a mezi ty "tagy" vložit zdrojový kód v textové podobě, tak, jak ho zkopíruješ ze svého visual studia...

Nahoru Odpovědět 1. května 16:14
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:

právě to jsem provedl, zdroják se objevil a dál s tím nešlo nic udělat, jak píše kolega, je asi příliš dlouhý-má 45 stran A4.

 
Nahoru Odpovědět 1. května 17:34
Avatar
Odpovídá na Petr Čech (czubehead)
Jaroslav Trojan:

pošli mi prosím e-mail, já k němu přiložím zdroják, jinak to neumím... Díky! J.T.

...

 
Nahoru Odpovědět 1. května 17:37
Avatar
Adam Ježek
Tým ITnetwork
Avatar
Odpovídá na Jaroslav Trojan
Adam Ježek:

Vlož to sem na dev lighter http://www.itnetwork.cz/dev-lighter nebo na pastebin, jestli jsi zvládnul napsat 45 stran zdrojáku, tak to zvládneš taky někam vložit.

Editováno 1. května 17:40
Nahoru Odpovědět 1. května 17:39
Pokud chceš odpovědět, klikni na odpovědět. Pokud chceš vložit zdroják, klikni na vložit zdroják (</>)
Avatar
Odpovídá na pocitac770
Jaroslav Trojan:

neumím s tím pastebinem pracovat, pošli mi e-mail adresu, já přiložím zdroják.. jinak to nevím udělat.
Moc děkuji... J.T.

 
Nahoru Odpovědět  -1 1. května 17:42
Avatar
Odpovídá na Jaroslav Trojan
Petr Čech (czubehead):

Jestli sem nedokážeš vložit zdroják, docela pochybuju o tvé způsobilosti stát se programátorem ;-)
Nápověda: zkus ctrl+k při psaní komentáře, mezi [ code ] a [ /code ] dej tvůj kód. Pokud to nezvládneš tak opravdu nevím.

Editováno 1. května 17:46
Nahoru Odpovědět  +3 1. května 17:44
Why so serious? -Joker
Avatar
Adam Ježek
Tým ITnetwork
Avatar
Odpovídá na Jaroslav Trojan
Adam Ježek:

Když to pošleš na mail, tak to tu neuvidí všichni. Jdi na http://pastebin.com/, přes celou stránku tam máš okno, do toho to vlož, zadej název, syntax higlight dej na C# a klikni na create new paste. Dostaneš link a ten sem dej.

Nahoru Odpovědět 1. května 17:45
Pokud chceš odpovědět, klikni na odpovědět. Pokud chceš vložit zdroják, klikni na vložit zdroják (</>)
Avatar
Odpovídá na Adam Ježek
Jaroslav Trojan:

Bohužel, po vložení zdrojáku už se tam nic neobjeví, je to asi příliš velké....
nemám možnost kliknou na create new paste, nic tam kromě zdrojáku není
Tak jedině na Úschovnu.cz , jinak nevím co

 
Nahoru Odpovědět 1. května 18:01
Avatar
Odpovídá na Petr Čech (czubehead)
Jaroslav Trojan:

mezi code a code jsem vložil zdroják, nevím co se stalo dále, ale nic s tím už nešlo provést, byl tam jen 45 str, dlouhý kód... J.T.
nevím si s tím rady....

 
Nahoru Odpovědět 1. května 18:07
Avatar
Adam Ježek
Tým ITnetwork
Avatar
Odpovídá na Jaroslav Trojan
Adam Ježek:

Právě sem tam naházel stostránkový dokument, co tu mám a vpohodě mi to prošlo.
To tlačítko tam je už od začátku.Jestli nedokážeš něco někam vložit, tak ti asi nedokážeme pomoct.

Editováno 1. května 18:25
Nahoru Odpovědět 1. května 18:25
Pokud chceš odpovědět, klikni na odpovědět. Pokud chceš vložit zdroják, klikni na vložit zdroják (</>)
Avatar
MadaraCZech
Redaktor
Avatar
Odpovídá na Jaroslav Trojan
MadaraCZech:

Tohle není možný :D Ty to hraješ :D

 
Nahoru Odpovědět  +3 1. května 18:40
Avatar
Lukas C#
Redaktor
Avatar
 
Nahoru Odpovědět 1. května 19:12
Avatar
Odpovídá na MadaraCZech
Jaroslav Trojan:

nic nehraju, prostě mi to nejde vložit, já to přetahuju
myší na Pastebin a vždy je tam jen ten kód

 
Nahoru Odpovědět 1. května 19:12
Avatar
Taskkill
Redaktor
Avatar
Odpovídá na Jaroslav Trojan
Taskkill:

pretahujes soubor na pastebin? jakoze soubor pres jeho ikonu? to asi nebude fungovat ... mel bys tam hodit text jako oznacit zkopirovat a vlozit => ctrl c -> ctrl v

 
Nahoru Odpovědět  +1 1. května 19:20
Avatar
Odpovídá na Petr Čech (czubehead)
Jaroslav Trojan:

Já jsem programoval v ALGOLU a FORTRANU už v roce 1975, takže nepochybuj

 
Nahoru Odpovědět 1. května 20:09
Avatar
Adam Ježek
Tým ITnetwork
Avatar
Odpovídá na Jaroslav Trojan
Adam Ježek:

To je sice hezké, ale pokud nedokážeš vložit někam zdroják, tak pochybovat budeme.

Nahoru Odpovědět  +1 1. května 20:14
Pokud chceš odpovědět, klikni na odpovědět. Pokud chceš vložit zdroják, klikni na vložit zdroják (</>)
Avatar
Odpovídá na Jaroslav Trojan
Petr Čech (czubehead):

Potom by pro tebe neměl být problém používat rozum a dát nám nějakým inteligentím způsobem ten zdroják ;-)

Nahoru Odpovědět 1. května 20:14
Why so serious? -Joker
Avatar
Odpovídá na Taskkill
Jaroslav Trojan:

Jseš frajer! Ty jediný jsi mi poradil správně! Dostal jsem to na Pastebin Moc Děkuji! J.T.

 
Nahoru Odpovědět 1. května 20:28
Avatar
Odpovídá na Jaroslav Trojan
Petr Čech (czubehead):

Jako zkušený programátor bys to měl zvládnout sám...
A co třeba nám dát link?

Nahoru Odpovědět 1. května 20:29
Why so serious? -Joker
Avatar
Adam Ježek
Tým ITnetwork
Avatar
Odpovídá na Jaroslav Trojan
Adam Ježek:

Jestli jsi na to stále nepřišel, na internetu dokonce existují instruktážní videa pro takové jako jsi ty. https://www.youtube.com/watch?…

Nahoru Odpovědět 1. května 20:35
Pokud chceš odpovědět, klikni na odpovědět. Pokud chceš vložit zdroják, klikni na vložit zdroják (</>)
Avatar
Odpovídá na Jaroslav Trojan
sadlomaslox25:

Napsal jsem dlouhý program a ke konci se mi velká část programu červeně podtrhává a hlásí evidentně neexistující chyby

jezis proc ste mu nerekli kde ma chybu :-D ... sak z popisu je jasne ze tam mas navic jednu } pro C# nebo nejaky end v pripade visual basicu.

 
Nahoru Odpovědět  +1 1. května 20:42
Avatar
Odpovídá na sadlomaslox25
Petr Čech (czubehead):

Protože to vypadá jako docela povedený troll a baví mě hrát tuhle hru :P
Schválně, jestli opravdu něco pošle :D

Nahoru Odpovědět  -1 1. května 21:09
Why so serious? -Joker
Avatar
Odpovídá na Taskkill
Jaroslav Trojan:

mám to na Pastebin, jak to dostanu na forum?

 
Nahoru Odpovědět 1. května 23:03
Avatar
Jaroslav Trojan:
Imports System.IO
Module Module1
    'DESKA-   Kirchhofova tenká deska MKP
    'pas=124,28 řad
    Dim D(450), F(1, 2500), La(2500), A(3500), B(3500), A1(3500), B1(3100), A2(3100), x0, m, 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 As Integer
    Dim X(500, 500), S(5, 16), MAB(45000), NA(2000), EA(45000), wequ(5000, 300), L(16, 16) 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) As Char
    Dim Ka1(400), 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 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 As Single

    ' Dim FileName As String = "C:\temp\mainip.txt"
    ' Dim objReader As New System.IO.StreamReader(FileName)
    ' Dim objWriter As New System.IO.StreamWriter(FileName, False)

    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 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
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) = La(j) + 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
        m = m + 1 : n = n + 1 : j = j5 + m
        If j <= 6000 Then
            GoTo 4560
        End If
        e = 86 : reta = "j>6000"
        chyba() : GoTo 4820
4560:   La(j) = cc : j = m * 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: End Sub
    Private Sub FileOpen(v As Integer)
        '   Throw New NotImplementedException()
    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 - 16) < 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")

3400: End Sub
    Public Sub matk()
        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)
        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
            Next j
        Next i1
    End Sub
    Public Sub matb()
        ' Dim BX(16, 16), L(16, 16), K(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()
        'určení matice S(5,16)
        '  Dim D0(5, 16), AX(16, 16), S(5, 16)
        For i1 = 1 To 5
            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.WriteLine("   S(i1,k1)=" & 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
        AX(5, 5) = 0.01
        '  Console.WriteLine("   b9=" & b9 & "   c9=" & c9 & "   d1=" & d1 & "  matice AX(16,16)")
        For j = 1 To 16
            For jj = 1 To 16
                '  Console.WriteLine("  AX(j,jj)=" & 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 = u1 : y = u2 : matd()
        matsi() : Console.WriteLine("   Matice S15(5,16) : ")
        Using sw As New StreamWriter("C:\temp\wmats15.txt",True)
            For u3 = 1 To 5
                For u4 = 1 To 16
                    ss = S(u3, u4)
                    sw.WriteLine(ss)
                    '  Console.WriteLine(" matice S15(5,16)=" & S(u3, u4) &  ";")
                    If u4 = 16 Then
                        ' Console.WriteLine("  ")
                    End If
                Next u4
            Next u3
            sw.Flush()
        End Using
    End Sub
    Public Sub mats1()
        x1 = u1 : y = u2 : matd() : matsi() : Console.WriteLine("  zápis Matice S1(5,16):wmats1")
        Using sw As New StreamWriter("C:\temp\wmats1.txt",True)
            For u3 = 1 To 5
                For u4 = 1 To 16
                    ss = S(u3, u4)
                    sw.WriteLine(ss)
                Next u4
            Next u3
            sw.Flush()
        End Using
    End Sub
    Public Sub matd()
        ' Dim D0(20, 20)  'vstupuje x1=u1,y=u2
        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.WriteLine("  " & 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 ' DA = Math.Abs(DA)
        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("(0) ", 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("(0) ", 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("(0) ", 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("(0) ", 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("(0) ", 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) ' d2 = Math.Abs(d2)
        For A9 = w1 To w2
            d2 = d2 + z1
            n2 = d2 + 1
            n3 = d2 + z1
            ' n2 = Math.Abs(n2) :' n3 = Math.Abs(n3)
            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)
                '      For jj = 1 To (i0 - 1) * (I(2) + I(6))
                '     sr.ReadLine()
                ' Next jj
                '  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("(0) ", KA(j))     'kontrolní tisk  KA() !!
                    '  Console.WriteLine(" wequ(" & q1 & "," & ii & ")=" & wequ(q1, ii) & ".")  'kontrolní tisk wequ( , )
                Next j
                ' For j = 1 To (I(1) - i0) * (I(2) + I(6)) - 1
                ' sr.ReadLine()
                ' 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("(0) ", 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
                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("(0) ", 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 ' Stop
        DA = w1 - A11 - 2     ' DA = Math.Abs(DA)
        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             ' n2 = Math.Abs(n2)
                        n3 = d5 + j9             ' n3 = Math.Abs(n3)
                        KA(n2) = KA(n2) + m * KA(n3)
                    Next j9
SA2580:         Next j
SA2600:         n3 = (CA + B11)
                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("(0) ", KA(j))
                Next j
                Console.WriteLine()
                sw.Flush()
                q2 = q2 + 1
            Next n
        End Using
        Console.WriteLine("  konec gauss5")
    End Sub
    Public Sub Main1()
        Dim rdr As System.IO.StreamReader
        Dim s As String
        rdr = My.Computer.FileSystem.OpenTextFileReader("C:\testfile.txt")
        While Not rdr.EndOfStream
            s = rdr.ReadLine()
            MsgBox(s)
        End While
    End Sub

    Sub Main()
        g9 = 45000 : pp = 1 : e9 = 1 : z = 4 : k0 = 2
        ' Dim path As String = "C:\temp\mainip.txt"
        ' Dim fs As FileStream = File.Create(path)
        Dim q12(15), q11(15) As Char
        FileClose()
        Using sw As New StreamWriter("C:\temp\mainip.txt")
            q11 = "wmatk" : q12 = "wmats"
            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.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 : m1 = 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
            zatiz()
        Next g
        Using sw As New StreamWriter("C:\temp\mainip.txt", True)
            If e9 = 0 Then
                GoTo 710
            End If
            If I(7) = 0 Then
                GoTo 640
            End If
            For i1 = 1 To I(6)
                sw.WriteLine(KA(i1))
            Next i1
            If m1 = 0 Then
                GoTo 640
            End If
            u1 = I(6) + 1 : u2 = I(6) + m1 * 2
            For i1 = u1 To u2
                sw.WriteLine(KA(i1))
            Next
640:        'cont
            u1 = x0 + I(8) * I(6) + m1
            For i1 = 1 To u1 Step 1
                sw.WriteLine(La(i1))
            Next
            GoTo 720
710:        Console.WriteLine("   not O.K.") : GoTo 750
720:        Console.WriteLine(" je to O.K. ")
            sw.Flush()
        End Using
750:    FileClose()
        'gsb 4830
        tisk()
        '                                                   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
                'sr.ReadLine(s1, s2, s3, s4, s5, s6, s7, s8, s9, s0)
                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

        'konkretní deska 2 prvky
        ' s2 = 2150 : s3 = 913.75 : s4 = 322.5 : s5 = 0 : s6 = 0 : s7 = 0
        ' s8 = 1 : s9 = 1 : s0 = 0
        ' s1 = 2150 'konkretní deska 2 prvky

        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!
        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.WriteLine("  " & 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
        K(9, 9) = w1 : K(10, 10) = w2 : K(10, 14) = z7
        K(11, 11) = w3 : K(11, 15) = z8 : K(12, 12) = z7
        K(12, 13) = w1 : K(12, 16) = w4 : K(13, 13) = z8
        K(13, 16) = w5 : K(14, 14) = w4 : K(15, 15) = w5
        K(16, 16) = w6 : Console.WriteLine("  matice K(16,16) ")
        For i1 = 1 To 16
            For j = 1 To 16
                '  Console.WriteLine("  " & K(i1, j) & ";" )
                If j = 16 Then
                    '    Console.WriteLine("   ")
                End If
            Next j
        Next i1
        d5 = d5 / 4
        For u1 = 1 To 16
            For u2 = u1 To 16
                BX(u1, u2) = K(u1, u2) * d5 + BX(u1, u2)
            Next u2
        Next u1
        Console.WriteLine("   d6=" & d6 & ".")
Q1650:  Console.WriteLine("   d6=" & d6 & ".")
        If d6 = 0 Then
            GoTo Q2040
        End If
        For u1 = 1 To 16
            For u2 = u1 To 16
                K(u1, u2) = 0  'nulování matice K(,)
            Next
        Next
        'assignes matrix K2()
        K(2, 2) = x1 : K(2, 8) = y6 : K(2, 10) = 3 * y7 : K(2, 14) = 3 * z4
        K(4, 4) = y6 : K(4, 12) = 3 * z4 : K(4, 13) = z3 : K(4, 16) = 3 * z6
        K(5, 5) = 4 * y7 : K(5, 9) = 4 * z4 : K(7, 7) = 4 * z4 : K(7, 15) = 4 * z6
        K(8, 8) = z3 : K(8, 10) = 3 * z4 : K(8, 14) = 3 * z6 : K(9, 9) = 4 * z6
        K(10, 10) = 9 * z2 : K(10, 14) = 9 * z5 : K(12, 12) = 9 * z5 : K(12, 13) = 3 * z6
        K(12, 16) = 9 * z5 : K(13, 13) = w3 : K(13, 16) = 3 * z8 : K(14, 14) = 9 * w1
        K(15, 15) = 4 * z8 : K(16, 16) = 9 * w5
        Console.WriteLine("   matice K(16,16) ")
        For i1 = 1 To 16
            For j = 1 To 16
                '  Console.WriteLine(" " & K(i1, j) & ";" )
                If j = 16 Then
                    '     Console.WriteLine("   ")
                End If
            Next j
        Next i1
        d6 = d6 / 4
        For u1 = 1 To 16
            For u2 = u1 To 16
                BX(u1, u2) = K(u1, u2) * d6 + BX(u1, u2)
            Next u2
        Next u1
Q2040:  Console.WriteLine("   d7=" & d7 & ".")
        If d7 = 0 Then
            GoTo Q2430
        End If
        For u1 = 1 To 16
            For u2 = u1 To 16
                K(u1, u2) = 0
            Next
        Next
        'assignes matrix K3()
        K(3, 3) = x1 : K(3,
 
Nahoru Odpovědět 1. května 23:07
Avatar
Jaroslav Trojan:

nevešlo se to celé, škoda

 
Nahoru Odpovědět 1. května 23:27
Avatar
Adam Ježek
Tým ITnetwork
Avatar
Odpovídá na Jaroslav Trojan
Adam Ježek:

Tak sem dej ten link na pastebin, kam se ti to povedlo vložit, takhle ti poradit nedokážeme.

Nahoru Odpovědět 1. května 23:31
Pokud chceš odpovědět, klikni na odpovědět. Pokud chceš vložit zdroják, klikni na vložit zdroják (</>)
Avatar
Jan Vargovský
Redaktor
Avatar
Jan Vargovský:

Když už jsme u toho...

 
Nahoru Odpovědět 1. května 23:46
Avatar
Adam Ježek
Tým ITnetwork
Avatar
Odpovídá na Jan Vargovský
Adam Ježek:

Dev lighter už sme mu radili...

Nahoru Odpovědět 2. května 0:24
Pokud chceš odpovědět, klikni na odpovědět. Pokud chceš vložit zdroják, klikni na vložit zdroják (</>)
Avatar
Jaroslav Trojan:

Zdravím, mám program na Pastebin, jak ho dostanu na forum? J.T.

 
Nahoru Odpovědět 2. května 8:01
Avatar
Odpovídá na sadlomaslox25
Jaroslav Trojan:

Poraď mi prosím, jak to dostanu z Pastebin na forum.
Díky... J.T.

 
Nahoru Odpovědět 2. května 8:05
Avatar
Adam Ježek
Tým ITnetwork
Avatar
Nahoru Odpovědět 2. května 8:18
Pokud chceš odpovědět, klikni na odpovědět. Pokud chceš vložit zdroják, klikni na vložit zdroják (</>)
Avatar
Jaroslav Trojan:

adresa:http://pastebin.com/Fc

stačí to ? J.T.

 
Nahoru Odpovědět 2. května 9:51
Avatar
Jaroslav Trojan:

/pastebin.com/Fc12JU­Of

tak je to celé Díky J.T.

 
Nahoru Odpovědět 2. května 9:56
Avatar
Jaroslav Trojan:

Zdravím, tak má už někdo ten můj program/kód/?
Jestli ano , tak zatím děkuji!
J.T.

 
Nahoru Odpovědět 2. května 10:03
Avatar
Jaroslav Trojan:

ještě jednou celá adresa:
http://pastebin.com/Fc12JUOf

 
Nahoru Odpovědět 2. května 10:25
Avatar
 
Nahoru Odpovědět 2. května 10:31
Avatar
Jaroslav Trojan:

Zdravím,
jsou v kódu nějaké chyby? Jaké
Děkuji za pomoc !!
J.T.

 
Nahoru Odpovědět 2. května 11:06
Avatar
Adam Ježek
Tým ITnetwork
Avatar
Odpovídá na Jaroslav Trojan
Adam Ježek:

Žádný kód není, paste na adrese je smazaný nebo mu vypršela platnost.

Nahoru Odpovědět 2. května 13:53
Pokud chceš odpovědět, klikni na odpovědět. Pokud chceš vložit zdroják, klikni na vložit zdroják (</>)
Avatar
Petr Nymsa
Redaktor
Avatar
Odpovídá na Jaroslav Trojan
Petr Nymsa:

Upřímně, když vidím jen část toho kódu, plná návěst,í, goto, nic neříkající názvy proměnných, tak se stejně na to nikdo víc nepodívá. Doporočuju projet aspoň nějaké základy VB, protože tohle mi přijde jako komplet špatný, neudržitelný a nečitelný ḱód

Nahoru Odpovědět  +1 2. května 14:35
Pokrok nezastavíš, neusni a jdi s ním vpřed
Avatar
Jaroslav Trojan:

Teď jsem to zkoušel a na Pastebin je celý kód !
Adresa je výše a taky tady :http://pastebin.com/Fc12JUOf
Zkus to znovu

 
Nahoru Odpovědět 2. května 14:36
Avatar
Slavomir
Redaktor
Avatar
Slavomir:

Dobre sme sa pobavili, už by to bolo na čase zmazať... podľa mňa je to troll.

 
Nahoru Odpovědět  +1 2. května 14:36
Avatar
Jaroslav Trojan:

Musíš potom klepnout vpravo na DESKA !!

 
Nahoru Odpovědět 2. května 14:39
Avatar
Jaroslav Trojan:

Nechci abyste hodnotili můj program, já bych chtěl vědět proč jsou ty řádky červeně podtržené, protože ještě
před 2ma dny mi program běžel a dával mi uspokojivé výsledky. Ten problém nastal až v části označené
STREMX2O téměř na konci programu , po vložení několika příkazů ke čtení a zápisu souborů.txt .
Díky za pochopení J.T.

 
Nahoru Odpovědět 2. května 14:51
Avatar
Adam Ježek
Tým ITnetwork
Avatar
Nahoru Odpovědět 2. května 14:59
Pokud chceš odpovědět, klikni na odpovědět. Pokud chceš vložit zdroják, klikni na vložit zdroják (</>)
Avatar
Jaroslav Trojan:

Já tvrdím, že tam kód je, hodnotil ho Petr Nymsa. Stačí klepmout na tu uvedenou adresu v komentáři a potom ještě vpravo je paste a tam je DESKA a na ni klepni.

 
Nahoru Odpovědět 2. května 15:06
Avatar
Odpovídá na Adam Ježek
Jaroslav Trojan:

Je tam dokonce 3krát - 2krát je z 1.5.2016 a jednou ze 2.5.2016 a má 2982 řádků.

 
Nahoru Odpovědět 2. května 15:11
Avatar
Petr Nymsa
Redaktor
Avatar
Petr Nymsa:

Jaroslav Trojan doufám, že to je vtip. Na pastebin nic není. Kód je hroznej a v tomhle se stejně nic nenajde. V první řadě - tohle není ASM aby se všude používalo návěstí (ještě k tomu tak nesmyslně pojmenované).

Diskutujte si dle libosti dále, každopádně vlákno je ztlumeno

Nahoru Odpovědět 2. května 15:19
Pokrok nezastavíš, neusni a jdi s ním vpřed
Avatar
Odpovídá na Jaroslav Trojan
Petr Čech (czubehead):

Jakože troll je to povedený, to se musí nechat :D

Nahoru Odpovědět 2. května 15:20
Why so serious? -Joker
Avatar
Odpovídá na Jaroslav Trojan
Petr Čech (czubehead):

Víš, co? tady je můj mail: petr.cech.robot[za­vináč]gmail.com
Pošli mi to a já to zveřejním, když to jinak nezvládáš ;-)
Ale nevěřím tomu, že to myslíš vážně, normální člověk by šel jinam po tom, co ho celé fórum vyhejtilo.

Editováno 2. května 15:24
Nahoru Odpovědět 2. května 15:23
Why so serious? -Joker
Avatar
Adam Ježek
Tým ITnetwork
Avatar
Odpovídá na Jaroslav Trojan
Adam Ježek:

Ta tvoje deska o ktere mluvis neni verejne pristupna, to bude pravdepodobne lokalni funkce.

Nahoru Odpovědět 2. května 15:26
Pokud chceš odpovědět, klikni na odpovědět. Pokud chceš vložit zdroják, klikni na vložit zdroják (</>)
Avatar
Jaroslav Trojan:

Všem se omlouvám, protože kód je uveřejněn v části Pastebindeska­kirchhof v dílu My Pastes a není
proto v Pastebin Public Pastes. Při přihlášení do Pastebin jsem musel uvést název a tak jsem uvedl
deskakirchhof. Nevím jak to označení zrušit, jestli novým přihlášením do Pastebin? J.T.

 
Nahoru Odpovědět 2. května 19:25
Avatar
Odpovídá na Petr Čech (czubehead)
Jaroslav Trojan:

Zdravím, ten kód jsem poslal na tvůj mail.
Snad to bude k něčemu dobré.
J.T.

 
Nahoru Odpovědět 2. května 19:31
Avatar
Jaroslav Trojan:

Nastavil jsem privat Pastebin, aby byl přístupný i jiným. Měl by být na URL:
http://pastebin.com/…akirchhof/1/?…

zkuste to

 
Nahoru Odpovědět 2. května 19:45
Avatar
JK CZ
Člen
Avatar
Odpovídá na Jaroslav Trojan
JK CZ:

V radku

Using sr As New StreamReader("c:\tem­p\wworky9.txt)

ti chybi pred zavorkou "

Melo by vypadat takto:
Using sr As New StreamReader("c:\tem­p\wworky9.txt")

Akceptované řešení
+20 Zkušeností
+1 bodů
Řešení problému
 
Nahoru Odpovědět  +1 2. května 20:09
Avatar
Odpovídá na JK CZ
Jaroslav Trojan:

Díky JK CZ , přehlédl jsem to, asi to bude příčina chyb. Hned to zkusím.
J.T.

 
Nahoru Odpovědět 2. května 22:02
Avatar
Odpovídá na JK CZ
Jaroslav Trojan:

Výborně JK CZ, jsi pašák , jako první a jediný jsi odstranil chyby v kódu.
Program normálně běží. Jsem potěšen.
J.T. Dávám ti +1 víc to nejde

 
Nahoru Odpovědět 2. května 22:37
Avatar
Odpovídá na Jaroslav Trojan
Jakub Šárník:

Jen tak mimochodem... Bez urážky, ale ten kód vypadá opravdu jako z roku 1975. Dnes už se programuje jinak...

 
Nahoru Odpovědět  +1 3. května 1:27
Avatar
Odpovídá na Jakub Šárník
Jaroslav Trojan:

To uznávám, ten kód je opravdu z roku 1980, ale jako začátečník ve VB NET jsem rád, že jsem to vůbec dal dohromady( má to skoro 3000 řádků) a že jsem vytvořil binární strojokód. Exe programu je stejně jedno jak
vznikl, to nikdo na něm nepozná. Nejsem taky profesní programátor , jsem inženýr -statik. A jsem šťasten , že to pracuje.

Díky...... J.T.

 
Nahoru Odpovědět 3. května 9:25
Avatar
Odpovídá na Petr Nymsa
Jaroslav Trojan:

To si jen myslíš, já ti názor neberu, hlavně že vznikne binární strojový kód. Já jako neprofesionální programátor - inženýr, obor statika a dynamika staveb si to mohu dovolit.
Nazdar.....

 
Nahoru Odpovědět 3. května 11:44
Avatar
Petr Nymsa
Redaktor
Avatar
Odpovídá na Jaroslav Trojan
Petr Nymsa:

Názor také neberu, ale chtít pak pomoct v takovémto kódu. Nevím přesně co to má dělat, ale vsadím se, že při správném postupu, návrhu alespoň pár podpůrných funkcí 100% goto zmizí a počet řádků se sníží minimálně na polovinu - to je ten důvod proč vůbec kdysi vznikly funkce a dále se to rozvinulo do OOP...

Nahoru Odpovědět 3. května 15:06
Pokrok nezastavíš, neusni a jdi s ním vpřed
Avatar
Odpovídá na Petr Nymsa
Jaroslav Trojan:

To je dobré pro profesní programátory, já na to nemám čas, potřebuji rychle navrhovat nosné konstrukce
staveb. A ten program mi dává dobré výsledky. Ahoj!

 
Nahoru Odpovědět 4. května 9:56
Avatar
Petr Nymsa
Redaktor
Avatar
Odpovídá na Jaroslav Trojan
Petr Nymsa:

Ano a schválně jak dlouho zabralo tohle napsat a najít chybu. Při použití alespoň funkcí, by se chyba našla rychleji a případné vylepšení a úpravy by šly také snadněji :)

Nahoru Odpovědět 4. května 11:39
Pokrok nezastavíš, neusni a jdi s ním vpřed
Avatar
Petr Nymsa
Redaktor
Avatar
Odpovídá na Jaroslav Trojan
Petr Nymsa:

Kdybych kecal a měl potřebu si dělat srandu, nepsal bych sem a neztrácel čas :) Každopádně, pokud už progrm funguje, vše je ok. Snad nebude potřeba ho moc upravovat

Nahoru Odpovědět  +1 4. května 18:53
Pokrok nezastavíš, neusni a jdi s ním vpřed
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 79 zpráv z 79.