Diskuze: VisualBasicNET chyba př spouštění kódu
V předchozím kvízu, Test znalostí C# .NET online, jsme si ověřili nabyté zkušenosti z kurzu.
Tvůrce
Odpovídá na Jaroslav Trojan
HONZ4:1.10.2016 17:42
HONZ4:1.10.2016 17:42
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.)
Odpovídá na HONZ4
Jaroslav Trojan:6.10.2016 7:50
Jaroslav Trojan:6.10.2016 7:50
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.
Odpovídá na Jaroslav Trojan
Petr Šťastný:6.10.2016 8:02
Petr Šťastný:6.10.2016 8:02
Notepad je klasicky poznamkovy blok
Soubor projektu je asi mysleno ten, ve kterem mas ten kod, co jsi psal.
Odpovídá na Jaroslav Trojan
Zdeněk Pavlátka:6.10.2016 8:07
Zdeněk Pavlátka:6.10.2016 8:07
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\DESKA1\DESKA1\DESKA1.vbproj
Odpovídá na Petr Šťastný
Zdeněk Pavlátka:6.10.2016 8:12
Zdeněk Pavlátka:6.10.2016 8:12
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)
Odpovídá na Zdeněk Pavlátka
Jaroslav Trojan:6.10.2016 8:48
Jaroslav Trojan:6.10.2016 8:48
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>
Odpovídá na Zdeněk Pavlátka
Jaroslav Trojan:6.10.2016 8:53
Jaroslav Trojan:6.10.2016 8:53
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>
Odpovídá na Jaroslav Trojan
Zdeněk Pavlátka:6.10.2016 9:00
Zdeněk Pavlátka:6.10.2016 9:00
To je nějaké divné, tohle určitě není soubor projektu. Ten vypadá úplně jinak, neotevřel jsi něco jiného?
Odpovídá na Jaroslav Trojan
Zdeněk Pavlátka:6.10.2016 9:03
Zdeněk Pavlátka:6.10.2016 9:03
Založil jsem si nový VB projekt, ale soubor projektu je úplně jiný a žádný vbproj.user tam nemám...
Odpovídá na Zdeněk Pavlátka
Jaroslav Trojan:6.10.2016 9:05
Jaroslav Trojan:6.10.2016 9:05
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.
Odpovídá na Zdeněk Pavlátka
Jaroslav Trojan:6.10.2016 9:24
Jaroslav Trojan:6.10.2016 9:24
Tak jsem to celé prohledal, ale u projektu DESKA1 už žádné další xml
soubory nemám.
Nevím co mám dělat.
Odpovídá na Jaroslav Trojan
Zdeněk Pavlátka:6.10.2016 9:35
Zdeněk Pavlátka:6.10.2016 9:35
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
Odpovídá na Zdeněk Pavlátka
Jaroslav Trojan:6.10.2016 10:48
Jaroslav Trojan:6.10.2016 10:48
No ano, ale příponu .vbproj má zdrojový kód. Ten je strašně velký. Zkusím dát ho na fórum.
Odpovídá na Zdeněk Pavlátka
Jaroslav Trojan:6.10.2016 11:01
Jaroslav Trojan:6.10.2016 11:01
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
Odpovídá na Jaroslav Trojan
Zdeněk Pavlátka:6.10.2016 12:21
Zdeněk Pavlátka:6.10.2016 12:21
- Na dlouhé kódy je tu tlačítko
- 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
Odpovídá na Zdeněk Pavlátka
Jaroslav Trojan:6.10.2016 14:32
Jaroslav Trojan:6.10.2016 14:32
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.
Odpovídá na Jaroslav Trojan
Zdeněk Pavlátka:6.10.2016 14:57
Zdeněk Pavlátka:6.10.2016 14:57
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.
Jaroslav Trojan:6.10.2016 15:19
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>
Jaroslav Trojan:6.10.2016 15:24
Spustil jsem, ale chyba je stále tatáž, nejde to. Celý kód Module 1 je na Pastebin.
Odpovídá na Jaroslav Trojan
HONZ4:7.10.2016 15:07
HONZ4:7.10.2016 15:07
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?
Odpovídá na HONZ4
Jaroslav Trojan:8.10.2016 8:47
Jaroslav Trojan:8.10.2016 8:47
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.
Odpovídá na Jaroslav Trojan
Michal Štěpánek:8.10.2016 8:59
Michal Štěpánek:8.10.2016 8:59
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?
Odpovídá na Michal Štěpánek
Jaroslav Trojan:8.10.2016 9:07
Jaroslav Trojan:8.10.2016 9:07
To asi není ono, protože tam mám ještě 10 dalších programů a ty fungují bezvadně.
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.