Vezérlő Sub adatbazis_click () On Error GoTo hiba: dde = Shell(CurDir$ + "\adatbaz.exe", 1) On Error GoTo 0 GoTo tovabb:

Szállítószalag tervező program

Melléklet I.

Vezérlő

Sub adatbazis_Click () On Error GoTo hiba: dde = Shell(CurDir$ + "\adatbaz.exe", 1) On Error GoTo 0 GoTo tovabb: hiba: MsgBox "Ez a program nincs telepítve !", MB_OK, "Figyelem !" Exit Sub tovabb: nagyfonok.WindowState = 1 Exit Sub End Sub Sub alapertek () erdes = 0 gg = 9.81 'gravitációs gyorsulás valtoztat = 0 e.anyagnev = "" 'Szállítandó anyag neve e.Dg = 89 'Kezdő görgőátmérő e.typ = "Nincs megfelelő" e.bet = 0 Vajanl = .001

'e.Dg * PI / 180

e.v = Vajanl 'Szalagsebesség e.haj = 0 'hajtási mód egydobos első e.nagy = 1 'nagyitás módja e.szak = 3 'szakaszok száma e.ft = .25 'Gépelhejezési tényező e.mghjt = .02 'Meghajtási szorzó e.mu = .25 'Surlódási tényező e.fisz = 0 'Anyag halmazolási szöge e.suruseg = 0 'Sürüség e.Q = 1000 'Szállítandó anyagmennyiség e.kia = 1 'kialakitas háromgörgős azonos e.mu = .25 krny = "Száraz" e.mghjt = .02 gepelh = "Átlagos" e.ft = .25 meghjt = "Aszinkron motor" e.x(1) = 0 e.x(2) = 100 e.x(3) = 200

'pontok koordinátái

1


Melléklet I.

e.x(4) = 300 e.y(1) = 0 e.y(2) = 20 e.y(3) = 20 e.y(4) = 30 kp.kx = 1500 kp.ky = 500 End Sub Sub anyagtomeg_Click () mennyiseg.Show End Sub Sub anyagvallasztas_Click () anyagjellemzo.Show End Sub Sub beolvas_Click () 'olvasas.Show 1 End Sub Sub edi_Click () dde = Shell(CurDir$ + "\EDIT.EXE EREDMENY.TXT", 1) End Sub Sub gepkornyezet_Click () megkotes.Show End Sub Sub hajthely_Click () hajtas.Show End Sub Sub hiba () End Sub Sub hid_Click () hidprogram End Sub Sub hidprogram () On Error GoTo hiba6: dde = Shell(CurDir$ + "\hid.exe", 1) On Error GoTo 0 GoTo tovabb6: hiba6: MsgBox "Ez a program nincs telepítve !", MB_OK, "Figyelem !" Exit Sub

2


Melléklet I.

tovabb6: mentes End Exit Sub End Sub Sub kilep_Click () kilepjek.Show 1 End Sub Sub leiras_Click () On Error GoTo hiba3: dde = Shell(CurDir$ + "\leiras.exe", 1) On Error GoTo 0 GoTo tovabb3: hiba3: MsgBox "Ez a program nincs telepítve !", MB_OK, "Figyelem !" Exit Sub tovabb3: Exit Sub End Sub Sub MDIForm_Load () curpath = CurDir$ If ujra = 0 Then alapertek elsokep.Show Else anyagjellemzo.Show kialakitas.Show mennyiseg.Show megkotes.Show e.nagy = 1 End If nagyfonok.Width = 9350 nagyfonok.Height = 6500 End Sub Sub ment_Click () 'mentes.Show End Sub Sub mentes () 'itt kellene lementeni End Sub

3


Melléklet I.

Sub nevjegy_Click () keszitette.Show End Sub Sub palyavonal_Click () palyavonala.Show End Sub Sub Picture2_Click () anyagjellemzo.Show End Sub Sub Picture3_Click () megkotes.Show End Sub Sub Picture4_Click () mennyiseg.Show End Sub Sub Picture5_Click () kialakitas.Show End Sub Sub Picture6_Click () palyavonala.Show End Sub Sub Picture7_Click () picture7.Left = 45 picture7.Top = 60 picture2.visible picture3.visible picture4.visible picture5.visible picture6.visible

= = = = =

0 0 0 0 0

anyagvallasztas.visible = 0 gepkornyezet.visible = 0 anyagtomeg.visible = 0 szalagvalyu.visible = 0 palyavonal.visible = 0 anyagvallasztas.Enabled = 0 gepkornyezet.Enabled = 0 anyagtomeg.Enabled = 0 szalagvalyu.Enabled = 0 palyavonal.Enabled = 0 rdb(6) = 1

4


Melléklet I.

nagyfonok.MousePointer = 11 hajtas.Show End Sub Sub Picture8_Click () hidprogram End Sub Sub szalagvalyu_Click () kialakitas.Show End Sub Sub Timer1_Timer () If rdb(1) > 0 And rdb(2) > 0 And rdb(3) > 0 And rdb(4) > 0 Then If rdb(5) > 0 Then hajthely.Enabled = -1 hajthely.visible = -1 picture7.visible = -1 End If If rdb(6) < 1 Then picture6.visible = -1 palyavonal.Enabled = -1 palyavonal.visible = -1 End If End If If rdb(5) > 0 Then picture6.visible = 0 palyavonal.Enabled = 0 End If If picture7.visible = -1 Then picture2.visible = 0 picture3.visible = 0 picture4.visible = 0 picture5.visible = 0 picture6.visible = 0 End If End Sub Sub Timer2_Timer () label1.Caption = Time End Sub

5


Melléklet I.

Bejelentkező

Sub Form_Load () screen.MousePointer = 11 ujra = 0 End Sub Sub Form_Unload (Cancel As Integer) screen.MousePointer = 1 End Sub Sub Timer1_Timer () Dim grgs As grgtom Dim sztp As szaldat Dim megnevAs anyagn Dim grg As grgldat Open CurDir$ + "\adatbaz1.dat" For Random Access Read As #1 Len = Len(grgs) Get #1, 1, grgs Open CurDir$ + "\adatbaz2.dat" For Random Access Read As #2 Len = Len(sztp) Get #2, 1, sztp Open CurDir$+"\adatbaz3.dat"For Random Access Read As #3 Len = Len(megnev) Get #3, 1, megnev Open CurDir$ + "\adatbaz4.dat" For Random Access Read As #4 Len = Len(grg) Get #4, 1, grg Close #1 Close #2 Close #3 Close #4 If grgs.atm <= 0 Or sztp.fon <= 0 Or megnev.suru <= 0 Or grg.B <= 0 Then Unload bejelentkezo MsgBox "Hiányoznak a szükséges adatfájlok, a program nem futtatható. Telepítsen újra, vagy futtassa az Adatbázis kezelőt !", MB_OK, "Figyelem !" Else Unload bejelentkezo nagyfonok.Show End If End Sub

6


Melléklet I.

Anyagjellemző

Dim keresoAs anyagn Dim megnevAs anyagn Dim i As Integer Sub anyagneve_Click () If anyagneve.ListIndex <> -1 Then For i = 1 To LOF(1) / Len(kereso) Get #1, i, kereso If kereso.nev = anyagneve.Text Then label2(0).Caption = kereso.suru label2(1).Caption = kereso.fisz label2(2).Caption = kereso.nev label2(3).Caption = kereso.seb e.suruseg = kereso.suru e.fisz = kereso.fisz e.anyagnev = kereso.nev vajanl = kereso.seb Exit For End If Next i End If End Sub Sub Command1_Click () If e.suruseg >= 0 And e.fisz >= 0 Then Close #1 rdb(1) = 1 nagyfonok.Picture2.BorderStyle = 1 s = nagyfonok.anyagvallasztas.Caption If Left$(s, 2) <> "+ " Then nagyfonok.anyagvallasztas.Caption = "+ " + nagyfonok.anyagvallasztas.Caption End If Unload anyagjellemzo End If End Sub Sub Form_Load () anyagjellemzo.Top = 50 anyagjellemzo.Left = 50 anyagjellemzo.Height = 2400 anyagjellemzo.Width = 4800 label2(0).Caption label2(1).Caption label2(2).Caption label2(3).Caption

= = = =

7

e.suruseg e.fisz e.anyagnev vajanl


Melléklet I.

ng = 3 Open CurDir$ + "\adatbaz3.dat" For Random Access Read As #1 Len = Len(kereso) Get #1, 1, megnev If megnev.suru = 0 Then Beep MsgBox "Nincs meg a szükséges adatbázis! Indítsa újra a telepítőt vagy az Adatbázis vezérlőt!", MB_OK, "Figyelem !" Exit Sub Else For i = 1 To LOF(1) / Len(megnev) Get #1, i, megnev anyagneve.AddItem megnev.nev Next i End If End Sub Sub Timer1_Timer () If e.suruseg > 0 And e.fisz > 0 And e.anyagnev <> "" And vajanl > 0 Then command1.Enabled = 1 End If End Sub

8


Melléklet I.

Anyagmennyiség

Dim mertegys(1 To 3)

As String * 9

Sub Form_Load () mennyiseg.Top = 2500 mennyiseg.Left = 50 mennyiseg.Height = 2100 mennyiseg.Width = 3300 mertegys(1) = "tonna/óra" mertegys(2) = "m3/óra" mertegys(3) = "kg/sec" combo1.AddItem mertegys(1) combo1.AddItem mertegys(2) combo1.AddItem mertegys(3) combo1.Text = mertegys(1) ertek.Text = e.Q End Sub Sub rendben_Click () Dim i As Integer Dim a As Double Qmax = 30000 'max. szállítható ag. mennyisé t/ó a = Val(LTrim$(RTrim$(ertek.Text))) If a < 32767 Then Select Case LTrim$(RTrim$(combo1.Text)) Case "tonna/óra" e.Q = Int(a) Case "m3/óra" e.Q = Int(a * e.suruseg) Case "kg/sec" e.Q = Int(a / 3.6) End Select If e.Q > 0 Or e.Q < Qmax Then rdb(3) = 1 nagyfonok.Picture4.BorderStyle = 1 s = nagyfonok.anyagtomeg.Caption If Left$(s, 2) <> "+ " Then nagyfonok.anyagtomeg.Caption = "+ " + nagyfonok.anyagtomeg.Caption End If If rdb(4) = 1 Then rdb(4) = 0 kialakitas.Show Unload mennyiseg Else Unload mennyiseg

9


Melléklet I.

End If Else MsgBox "Valamelyik adat a megengedett intervallumon kívül esik !", MB_OK, "Figyelem !" End If Else MsgBox "Valamelyik adat a megengedett intervallumon kívül esik !", MB_OK, "Figyelem !" End If End Sub

10


Kialakítás Dim Dim Dim Dim Dim Dim

i szeles valyusz lambdad DDg(1 To 5) szakasz

Melléklet I.

As Integer As Integer As Integer As Integer As Integer As Integer

Dim Vszam Dim lambda Dim terulet Dim terulet2 Dim k Dim d Dim L1 Dim L2 Dim Bs hevederszélesség Dim la1 Dim la2 Dim la3 Dim la4 Dim l1szam Dim l2szam Dim ngh 1/min)

As As As As As As

Dim grg

As grgldat

As As As As As As As

Single Single Single Single Single Single As Single As Single As Single Single Single Single Single Single Single Single

'görgőhossz 'görgőhossz 'Nedvesített

'határfordulatszám görgőre (600

Sub ellen_Click () ellenoriz If terulet < e.Q Then elszurtad.Show 1 Else eltalaltad.Show 1 End If End Sub Sub ellenoriz () d = .01 Bs = k * Val(RTrim$(LTrim$(combo2.Text))) / 1000 - .05 lambda = Val(RTrim$(LTrim$(combo3.Text))) * (PI / 180) Select Case valtoztat Case 0 'háromgörgős egyenlő görgöhossz terulet = (L1 + (Bs - L1) * Cos(lambda) / 2) * Sin(lambda) * (Bs - L1) / 2 + (((L1 + (Bs - L1) * Cos(lambda)) / 2) ^ 2) * Tan(e.fisz * (PI / 180)) terulet = terulet * 3600 * .81 * e.suruseg * Val(RTrim$(LTrim$(combo1.Text)))

11


Melléklet I.

Case 1 'háromgörgős különböző görgőhossz terulet = (L1 + (Bs - L1) * Cos(lambda) / 2) * Sin(lambda) * (Bs - L1) / 2 + (((L1 + (Bs - L1) * Cos(lambda)) / 2) ^ 2) * Tan(e.fisz * (PI / 180)) terulet = terulet * 3600 * .81 * e.suruseg * Val(RTrim$(LTrim$(combo1.Text))) Case 2 'kétgörgős terulet = ((Bs / 2) ^ 2) * Cos(lambda) * Sin(lambda) + (((Bs / 2) * Cos(lambda)) ^ 2) * Tan(e.fisz * (PI / 180)) terulet = terulet * 3600 * .81 * e.suruseg * Val(RTrim$(LTrim$(combo1.Text))) Case 3 'ötgörgős If Val(RTrim$(LTrim$(combo2.Text))) > 2000 Then d = .015 End If If lambdad = 30 Then la3 = 60 ElseIf lambdad = 25 Then la3 = 55 Else Beep combo3.Text = "25" lambdad = 25 la3 = 55 End If la1 = lambdad * PI / 180 la2 = la3 * PI / 180 l1szam = L1 + 2 * (d * Cos(la1 / 2) - d * Sin(la1 / 2) / Tan(la1 / 2)) l2szam = L1 + 2 * d * Sin(la1 / 2) / Sin(la1) terulet = (l1szam + l2szam * Cos(la1)) * l2szam * Sin(la1) + ((l1szam / 2 + l2szam * Cos(la1) + Cos(la2) * (Bs - l1szam-2* l2szam) / 2) ^ 2) * Tan(e.fisz * PI / 180) terulet = terulet + (l1szam + 2 * l2szam * Cos(la1) + Cos(la2) * (Bs - l1szam - 2 * l2szam) / 2) * (Bs - l1szam - 2 * l2szam) * Sin(la2) / 2 terulet = terulet * 3600 * .81 * e.suruseg * Val(RTrim$(LTrim$(combo1.Text))) label1.Caption = "L=" + Format$(L1 * 1000, "0") End Select End Sub Sub feltolt ()

12


Melléklet I.

combo2.AddItem "400" combo2.AddItem "500" combo2.AddItem "650" combo2.AddItem "800" combo2.AddItem "1000" combo2.AddItem "1200" combo2.AddItem "1400" combo2.AddItem "1600" combo2.AddItem "1800" combo2.AddItem "2000" combo2.AddItem "2200" combo2.AddItem "2400" combo2.AddItem "2600" combo2.AddItem "2800" combo2.AddItem "3000" combo1.AddItem "0.42" combo1.AddItem "0.52" combo1.AddItem "0.66" combo1.AddItem "0.84" combo1.AddItem "1.05" combo1.AddItem "1.31" combo1.AddItem "1.68" combo1.AddItem "2.09" combo1.AddItem "2.62" combo1.AddItem "3.35" combo1.AddItem "4.19" combo1.AddItem "5.20" combo1.AddItem "6.60" combo1.AddItem "8.40" For i = 20 To 45 Step 5 combo3.AddItem Str$(i) Next i End Sub Sub Form_Load () DDg(1) = 89 DDg(2) = 108 DDg(3) = 133 DDg(4) = 159 DDg(5) = 194 Open LTrim$(RTrim$(curpath)) + "\adatbaz4.dat" For Random Access Read As #4 Len = Len(grg) kialakitas.Top = 2500 kialakitas.Left = 3400 kialakitas.Height = 2100 kialakitas.Width = 5700 k = .9 If e.alf > 0 And e.v > 0 And e.B > 0 Then Vszam = e.v

13


Melléklet I.

valyusz = e.alf szeles = e.B Else lambdakeres End If feltolt picture1(valtoztat).Visible = -1 If valtoztat = 1 Then label1.Caption = "L1=" + Format$(L1 * 1000, "0") + "; L2=" + Format$(L2 * 1000, "0") Else label1.Caption = "L=" + Format$(L1 * 1000, "0") End If combo1.Text = Forma(Vszam) combo3.Text = valyusz combo2.Text = szeles End Sub Sub Form_Unload (Cancel As Integer) e.v = Val(combo1.Text) For i = 1 To 5 ngh = 60 * e.v / (PI * (DDg(i) / 1000)) If ngh >= 550 And ngh <= 650 Then e.Dg = DDg(i) Exit For End If Next i Close #4 End Sub Sub kialakit_Click () If valtoztat < 3 Then valtoztat = valtoztat + 1 Else valtoztat = 0 End If lambdakeres Select Case valtoztat Case 0 e.kia = 1 Case 1 e.kia = 2 Case 2 e.kia = 0 Case 3 e.kia = 3 End Select For i = 0 To 3

14


Melléklet I.

picture1(i).Visible = 0 Next i picture1(valtoztat).Visible = -1 combo1.Text = Forma(Vszam) combo3.Text = valyusz combo2.Text = szeles End Sub Sub lambdakeres () i=2 Get #4, 1, grg valyusz = 20 'Kezdő vályuszög szeles = grg.B 'Kezdő szalagszélesség lambda = valyusz * (PI / 180) Bs = k * szeles / 1000 - .05 'Nedvesített szélesség Select Case valtoztat Case 0 'háromgörgős egyenlő görgőhossz terulet = (grg.hl / 1000 + (Bs - grg.hl / 1000) * Cos(lambda) / 2) * Sin(lambda) * (Bs grg.hl / 1000) / 2 + (((grg.hl / 1000 + (Bs - grg.hl / 1000) * Cos(lambda)) / 2) ^ 2) * Tan(e.fisz * (PI / 180)) terulet = terulet - e.Q / (3600 * .81 * e.suruseg * Vajanl) L1 = grg.hl / 1000 L2 = 0 Do Get #4, i, grg If grg.hl > 0 Then Bs = k * grg.B / 1000 - .05 For lambdad = 25 To 45 Step 5 lambda = lambdad * (PI / 180) terulet2 = (grg.hl / 1000 + (Bs - grg.hl / 1000) * Cos(lambda) / 2) * Bs -grg.hl / 1000)

Sin(lambda) * / 2 + (((grg.hl /

1000 + (Bs - grg.hl / 1000) * Cos(lambda)) / 2) ^ 2) * Tan(e.fisz * (PI / 180)) terulet2 = terulet2 - e.Q / .81 * e.suruseg *

(3600 * Vajanl)

If Abs(terulet2) < Abs(terulet) Then terulet = terulet2 valyusz = lambdad szeles = grg.B

15


Melléklet I. L1 = grg.hl / 1000 End If Next lambdad

End If i=i+1 Loop While (grg.B > 0) i=1 e.Tl = L1 * 1000 Bs = k * szeles / 1000 - .05 lambda = valyusz * (PI / 180)

'fokból ->

radiánba terulet = (L1 + (Bs - L1) * Cos(lambda) / 2) * Sin(lambda) * (Bs - L1) / 2 + (((L1 + (Bs - L1) * Cos(lambda)) / 2) ^ 2) * Tan(e.fisz * (PI / 180)) e.ter = terulet Vszam = e.Q / (3600 * .81 * e.suruseg * terulet) + .1 label1.Caption = "L=" + Format$(L1 * 1000, "0") Case 1 'háromgörgős nem egyenlő görgőhossz terulet = (grg.hl1 / 1000 + (Bs - grg.hl1 / 1000) * Cos(lambda) / 2) * Sin(lambda) * (Bs - grg.hl1 / 1000) / 2 + (((grg.hl1 / 1000 + (Bs - grg.hl1 / 1000) * Coss(lambda)) / 2) ^ 2) *Tan(e.fisz * (PI / 180)) terulet = terulet - e.Q / (3600 * .81 * e.suruseg * Vajanl) L1 = grg.hl1 / 1000 L2 = grg.hl2 / 1000 Do Get #4, i, grg If grg.hl1 > 0 Then Bs = k * grg.B / 1000 - .05 For lambdad = 25 To 45 Step 5 lambda = lambdad * (PI / 180) terulet2 = (grg.hl1 / 1000 + (Bs - grg.hl1 / 1000) * Cos(lambda) / 2) * Sin(lambda) * (Bs - grg.hl1 / 1000) / 2 + (((grg.hl1 / 1000 + (Bs grg.hl1 / 1000) * Cos(lambda)) / 2) ^ 2) * Tan(e.fisz * (PI / 180)) terulet2 = terulet2 - e.Q / (3600 * .81 * e.suruseg * Vajanl) If Abs(terulet2) < Abs(terulet) Then

16


Melléklet I. terulet = terulet2 valyusz = lambdad szeles = grg.B L1 = grg.hl1 / 1000 L2 = grg.hl2 / 1000 End If Next lambdad

End If i=i+1 Loop While (grg.B > 0) i=1 e.Tl = L2 * 1000 Bs = k * szeles / 1000 - .05 lambda = valyusz * (PI / 180) terulet = (L1 + (Bs - L1) * Cos(lambda) / 2) * Sin(lambda) * (Bs - L1) / 2 + (((L1 + (Bs - L1) * Cos(lambda)) / 2) ^ 2) * Tan(e.fisz * (PI / 180)) e.ter = terulet Vszam = e.Q / (3600 * .81 * e.suruseg * terulet) + .1 label1.Caption = "L1=" + Format$(L1 * 1000, "0") + "; L2=" + Format$(L2 * 1000, "0") Case 2 'kétgörgős terulet = ((Bs / 2) ^ 2) * Cos(lambda) * Sin(lambda) + (((Bs / 2) * Cos(lambda)) ^ 2) * Tan(e.fisz * (PI / 180)) terulet = terulet - e.Q / (3600 * .81 * e.suruseg * Vajanl) L1 = grg.kl / 1000 L2 = 0 Do Get #4, i, grg If grg.kl > 0 Then Bs = k * grg.B / 1000 - .05 For lambdad = 25 To 45 Step 5 lambda = lambdad * (PI / 180) terulet2 = ((Bs / 2) ^ 2) * Cos(lambda) * Sin(lambda) + (((Bs / 2) * Cos(lambda)) ^ 2) * Tan(e.fisz * (PI / 180)) terulet2 = terulet2 - e.Q / (3600 * .81 * e.suruseg * Vajanl) If Abs(terulet2) < Abs(terulet) Then terulet = terulet2

17


Melléklet I. valyusz = lambdad szeles = grg.B L1 = grg.kl / 1000 End If Next lambdad

End If i=i+1 Loop While (grg.B > 0) i=1 e.Tl = L1 * 1000 Bs = k * szeles / 1000 - .05 lambda = valyusz * (PI / 180)

'fokból ->

radiánba terulet = ((Bs / 2) ^ 2) * Cos(lambda) * Sin(lambda) + (((Bs / 2) * Cos(lambda)) ^ 2) * Tan(e.fisz * (PI / 180)) e.ter = terulet Vszam = e.Q / (3600 * .81 * e.suruseg * terulet) + .1 label1.Caption = "L=" + Format$(L1 * 1000, "0") Case 3 'ötgörgős d = .01 la1 = 25 * PI / 180 la2 = 55 * PI / 180 l1szam = grg.ol / 1000 + 2 * (d * Cos(la1 / 2) - d * Sin(la1 / 2) / Tan(la1 / 2)) l2szam = grg.ol / 1000 + 2 * d * Sin(la1 / 2) / Sin(la1) terulet = (l1szam + l2szam * Cos(la1)) * l2szam * Sin(la1) + ((l1szam / 2 + l2szam * Cos(la1) + Cos(la2) * (Bs - l1szam - 2 * l2szam)/2)^2) * Tan(e.fisz * PI / 180) terulet = terulet + (l1szam + 2 * l2szam * Cos(la1) + Cos(la2) * (Bs - l1szam - 2 * l2szam) / 2) * (Bs l1szam - 2 * l2szam) * Sin(la2) / 2 terulet = terulet - e.Q / (3600 * .81 * e.suruseg * Vajanl) L1 = grg.ol / 1000 L2 = 0 valyusz = 25 la4 = 55 Do Get #4, i, grg If grg.ol > 0 Then Bs = k * grg.B / 1000 - .05

18


Melléklet I. If grg.B > 2000 Then d = .015 End If For lambdad = 25 To 30 Step 5 If lambdad = 30 Then la3 = 60 Else la3 = 55 End If la1 = lambdad * PI / 180 la2 = la3 * PI / 180 l1szam = grg.ol / 1000 + 2 *

(d * Cos(la1 / 2) - d * Sin(la1 / 2) / Tan(la1 / 2)) l2szam = grg.ol / 1000 + 2 * d * Sin(la1 / 2) / Sin(la1) terulet2 = (l1szam + l2szam * Cos(la1)) * l2szam * Sin(la1) + ((l1szam / 2 + l2szam * (la1) + Cos(la2) * (Bs - l1szam - 2 * l2szam)/2)^2)*Tan(e.fisz*PI/180) terulet2 = terulet2 + (l1szam +2 * l2szam * Cos(la1) + Cos(la2) * (Bs - l1szam - 2 * am) / 2) * (Bs l1szam - 2 * l2szam) * Sin(la2) /2 terulet2 = terulet2 - e.Q / (3600 * .81 * e.suruseg * Vajanl) If Abs(terulet2) < Abs(terulet) Then terulet = terulet2 valyusz = lambdad szeles = grg.B la4 = la3 L1 = grg.ol / 1000 End If Next lambdad End If i=i+1 Loop While (grg.B > 0) i=1 Bs = k * szeles / 1000 - .05

19


Melléklet I.

If szeles > 2000 Then d = .015 Else d = .01 End If la1 = lambdad * PI / 180 la2 = la4 * PI / 180 l1szam = L1 + 2 * (d * Cos(la1 / 2) - d * Sin(la1 / 2) / Tan(la1 / 2)) l2szam = L1 + 2 * d * Sin(la1 / 2) / Sin(la1) terulet = (l1szam + l2szam * Cos(la1)) * l2szam * Sin(la1) + ((l1szam / 2 + l2szam * Cos(la1) + s(la2) * (Bs - l1szam-2*l2szam) / 2) ^ 2) * Tan(e.fisz * PI / 180) terulet = terulet + (l1szam + 2 * l2szam * Cos(la1) + Cos(la2) * (Bs - l1szam - 2 * l2szam) / 2) *s l1szam - 2 * l2szam) * Sin(la2) / 2 e.ter = terulet Vszam = e.Q / (3600 * .81 * e.suruseg * terulet) + .1 label1.Caption = "L=" + Format$(L1 * 1000, "0") e.Tl = L1 * 1000 End Select End Sub Sub tovabb_Click () ellenoriz If terulet < e.Q Then elszurtad.Show 1 Else rdb(4) = 1 nagyfonok.Picture5.BorderStyle = 1 s = nagyfonok.szalagvalyu.Caption If Left$(s, 2) <> "+ " Then nagyfonok.szalagvalyu.Caption = "+ " + nagyfonok.szalagvalyu.Caption End If e.v = Val(RTrim$(LTrim$(combo1.Text))) e.B = Val(RTrim$(LTrim$(combo2.Text))) e.alf = Val(RTrim$(LTrim$(combo3.Text))) Qa = 1 Unload kialakitas End If End Sub

20


Melléklet I.

Megkötés

Sub Command1_Click () olvas rdb(2) = 1 nagyfonok.Picture3.BorderStyle = 1 s = nagyfonok.gepkornyezet.Caption If Left$(s, 2) <> "+ " Then nagyfonok.gepkornyezet.Caption = "+ " + nagyfonok.gepkornyezet.Caption End If Unload megkotes End Sub Sub Form_Load () megkotes.Top = 50 megkotes.Left = 4900 megkotes.Height = 2400 megkotes.Width = 4200 check1.Value = erdes combo1.Text = krny combo2.Text = gepelh combo3.Text = meghjt combo1.AddItem "Száraz" combo1.AddItem "Enyhén nedves" combo1.AddItem "Igen nedves" combo2.AddItem "Jó" combo2.AddItem "Átlagos" combo2.AddItem "Rossz" combo3.AddItem "Aszinkron motor [AM]" combo3.AddItem "AM + surlódó tgk." combo3.AddItem "Csúszógyűrüs motor" End Sub Sub olvas () If check1.Value = 0 Then erdes = 0 If combo1.Text = "Száraz" Then e.mu = .25 krny = "Száraz" ElseIf combo1.Text = "Enyhén nedves" Then e.mu = .15 krny = "Enyhén nedves" ElseIf combo1.Text = "Igen nedves" Then e.mu = .1 krny = "Igen nedves" End If Else erdes = 1

21


Melléklet I.

If combo1.Text = "Száraz" Then e.mu = .35 krny = "Száraz" ElseIf combo1.Text = "Enyhén nedves" Then e.mu = .3 krny = "Enyhén nedves" ElseIf combo1.Text = "Igen nedves" Then e.mu = .25 krny = "Igen nedves" End If End If If combo2.Text = "Jó" Then e.mghjt = .018 gepelh = "Jó" ElseIf combo2.Text = "Átlagos" Then e.mghjt = .02 gepelh = "Átlagos" ElseIf combo2.Text = "Rossz" Then e.mghjt = .03 gepelh = "Rossz" End If If combo3.Text = "Aszinkron motor [AM]" Then e.ft = .25 meghjt = "Aszinkron motor [AM]" ElseIf combo3.Text = "AM + surlódó tgk." Then e.ft = .15 meghjt = "AM + surlódó tgk." ElseIf combo3.Text = "Csúszógyűrüs motor" Then e.ft = .1 meghjt = "Csúszógyűrüs motor" End If End Sub

22


Pályavonal Dim Dim Dim Dim Dim Dim Dim Dim Dim Dim

aa bb Xa Ya xx yy J vedett nagyit elso

As As As As

Melléklet I.

As Integer As Integer As Integer As Integer As Integer As Integer Integer Integer Integer Integer

'koordinátapont (pályavonal) 'koordinátapont (pályavonal)

Sub feltolt () elso = 0 aa = 2480 bb = 600 combo2.Text = e.szak combo1.Text = e.nagy End Sub Sub Form_DblClick () If elso <= 1 And vedett > 0 Then elso = elso + 1 J=1 currentX = xx currentY = yy kp.kx = xx + bb kp.ky = aa - yy e.x(J) = 0 e.y(J) = 0 list1.AddItem Format(e.x(J), "###0") list2.AddItem Format(e.y(J), "###0") aa = aa - Ya bb = bb + Xa kord.Caption = "0 |0" fillstyle = 0 Circle (xx, yy), 50, , , , 1 fillstyle = 1 End If End Sub Sub Form_Load () palyavonala.Top = 50 palyavonala.Left = 50 vedett = 0 For i = 1 To 10 combo1.AddItem Str$(i) combo2.AddItem Str$(i) Next i

23


Melléklet I.

nagyit = e.nagy * 10 szakasz = e.szak combo2.Text = e.szak combo1.Text = e.nagy elso = 0 aa = 2620 bb = 600 J=1 rajzol End Sub Sub Form_MouseDown (button As Integer, Shift As Integer, x As Single, y As Single) xx = x yy = y Xa = x - bb Ya = aa - y If Xa > 0 Then If vedett >= 1 And Xa > e.x(J) And Abs((Ya / nagyit e.y(J)) / (Xa / nagyit - e.x(J))) <= .34 Then If elso >= 1 And elso < Val(RTrim$(LTrim$(combo2.Text))) + 1) Then J=J+1 elso = elso + 1 Line -(xx, yy) fillstyle = 0 Circle (xx, yy), 50, , , , 1 fillstyle = 1 e.x(J) = Xa / nagyit e.y(J) = Ya / nagyit list1.AddItem Format$(e.x(J), "###0") list2.AddItem Format$(e.y(J), "###0") End If Else z = "Hibás pont" End If End If End Sub Sub Form_MouseMove (button As Integer, Shift As Integer, x As Single, y As Single) Xa = x - bb Ya = aa - y If y > 900 And y <= 2620 And x < 7115 And x >= 600 Then kord.Left = x - 850 kord.Top = y - 350 kord.Caption = Format$(Xa / nagyit, "0") + "" + Format$(Ya /

24


Melléklet I. nagyit, "0")

Else kord.Caption = "Határon kívül" End If End Sub Sub rajzol () currentX = kp.kx currentY = kp.ky fillstyle = 0 Circle (kp.kx - bb, aa - kp.ky), 50, , , , 1 fillstyle = 1 list1.AddItem Format(e.x(1), "###0") list2.AddItem Format(e.y(1), "###0") For i = 1 To 11 If e.x(i) > 0 Or e.y(i) > 0 Then list1.AddItem Format(e.x(i), "###0") list2.AddItem Format(e.y(i), "###0") End If If e.x(i) > 0 Then fillstyle = 0 Circle (e.x(i) * nagyit + kp.kx - bb, aa - e.y(i) * nagyit kp.ky), 50, , , , 1 fillstyle = 1 Line (e.x(i - 1) * nagyit - bb + kp.kx, aa - e.y(i - 1) * nagyit - kp.ky)-(e.x(i) * nagyit - bb + kp.kx, e.y(i) * nagyit - kp.ky) End If Next i End Sub Sub rendben_Click () e.nagy = nagyit e.szak = szakasz rdb(5) = 1 nagyfonok.Picture6.BorderStyle = 1 s = nagyfonok.palyavonal.Caption If Left$(s, 2) <> "+ " Then nagyfonok.palyavonal.Caption = "+ " + nagyfonok.palyavonal.Caption End If nagyfonok.Picture6.Visible = 0 nagyfonok.palyavonal.Enabled = 0 Unload palyavonala End Sub

25


Melléklet I.

Sub Timer1_Timer () szakasz = Val(RTrim$(LTrim$(combo2.Text))) If szakasz > 10 Then szakasz = 10 combo2.Text = szakasz ElseIf szakasz < 1 Then szakasz = 1 combo2.Text = szakasz End If nagyit = Val(RTrim$(LTrim$(combo1.Text))) * 10 If nagyit < 10 Then nagyit = 10 combo1.Text = "1" ElseIf nagyit > 10 Then nagyit = 100 combo1.Text = "10" End If End Sub Sub torles_Click () list1.Clear list2.Clear palyavonala.Cls feltolt kp.kx = 0 kp.ky = 0 kord.Caption = "0 vedett = 1 End Sub

26

|0"


Melléklet I.

Hajtáselrendezés

Sub Form_Load () picture1(e.haj).BorderStyle = 1 hajtas.Top = 50 hajtas.Left = 50 nagyfonok.MousePointer = 1 gorgosuly 'görgő kiválasztása adatbázisból 'pl. a hevederszélesség fügvénye. End Sub Sub gorgosuly () Dim grgs As grgtom i=0 Open CurDir$ + "\adatbaz1.DAT" For Random Access Read As #7 Len = 18 For i = 1 To LOF(7) / Len(grgs) Get #7, i, grgs If (e.kia = grgs.kia And e.Dg = grgs.atm And e.B <= grgs.sel) Then Exit For End If Next i e.Tg = grgs.tom Close #7 End Sub Sub kilepes () nagyfonok.Picture7.BorderStyle = 1 s = nagyfonok.hajthely.Caption If Left$(s, 2) <> "+ " Then nagyfonok.hajthely.Caption = "+ " + nagyfonok.hajthely.Caption End If nagyfonok.Picture7.Visible = 0 optimal.Show Unload hajtas End Sub Sub Picture1_Click (Index As Integer) Dim i As Integer For i = 0 To 4 picture1(i).BorderStyle = 0 Next i Select Case Index Case 0

27


Melléklet I.

e.haj = 0 picture1(Index).BorderStyle Case 2 e.haj = 2 picture1(Index).BorderStyle Case 3 e.haj = 4 picture1(Index).BorderStyle Case 4 e.haj = 3 picture1(Index).BorderStyle End Select End Sub Sub Picture1_DblClick (Index As Integer) Select Case Index Case 0 e.haj = 0 Smn = Fker * (1 + 1 / 180))) Case 2 e.haj = 2 Smn = Fker * (1 + 1 / 180))) Case 3 e.haj = 4 Smn = Fker * (1 + 1 / 180))) Case 4 e.haj = 3 Smn = Fker * (1 + 1 / 180))) End Select nagyfonok.Timer1.Enabled = 0 kilepes End Sub

28

=1 =1 =1 =1

(Exp(e.mu * 230 * PI /

(Exp(e.mu * 230 * PI /

(Exp(2 * e.mu * 210 * PI /

(Exp(2 * e.mu * 210 * PI /


Melléklet I.

Heveder kivállasztás Dim Dim Dim Dim Dim

li hi sztp j PP

As Single'szakasz hossza As Single'szakasz emelkedése As szaldat'heveder adatbázis As Integer'Smax nyílvántartója As Integer'potenciális eredmények nyílvántartása

Const nb = 4

'bizt. tény.

Sub Command1_Click () Unload optimal Unload nagyfonok ujra = 1 nagyfonok.Show nagyfonok.Picture2.Visible nagyfonok.Picture3.Visible nagyfonok.Picture4.Visible nagyfonok.Picture5.Visible nagyfonok.Picture6.Visible nagyfonok.Picture7.Visible For i = 1 To 6 rdb(i) = 0 Next i End Sub

= = = = = =

1 1 1 1 0 0

Sub elfogad_Click () e.h = epo(1 + list1.ListIndex).h e.typ = epo(1 + list1.ListIndex).typ e.tip = epo(1 + list1.ListIndex).tip e.bet = epo(1 + list1.ListIndex).bet e.faj = epo(1 + list1.ListIndex).faj hajtero mentes Unload optimal nagyfonok.Picture8.Visible = -1 nagyfonok.hid.Enabled = -1 nagyfonok.szerk.Enabled = 0 szoveg nagyfonok.edi.Enabled = 1 'nagyfonok.Height = 1150 End Sub Sub Form_Load () optimal.Top = 150 optimal.Left = 1500 qh = e.B / 45 (induló) N/m

29

'Heveder folyómétertömege


Melléklet I.

Open CurDir$ + "\adatbaz2.dat" For Random Access Read As #9 Len = Len(sztp) keres End Sub Sub Form_Unload (Cancel As Integer) Close #9 End Sub Sub hajtero () 'a hajtasnal ebredő erő kerül majd ide End Sub Sub keres () Dim iAs Integer Dim iiAs Integer Dim iii As Integer Dim jAs Integer Call kiindulo(qh) PP = 0 For i = 1 To LOF(9) / Len(sztp) Get #9, i, sztp If (Smx * nb / e.B) <= (sztp.lan * sztp.fon) And (Smx * nb / e.B) >= (sztp.lan * sztp.fon * .9) Then PP = PP + 1 epot(PP).h = sztp.tom * e.B * .001 list2.AddItem sztp.typ+Format$(sztp.tip, "####")+Format$(sztp.fon, "##")+ sztp.faj End If Next i ii = 0 For i = 1 To PP Call kiindulo(epot(i).h) epot(i).h = 0 For j = 1 To LOF(9) / Len(sztp) Get #9, j, sztp If (Smx * nb / e.B) <= (sztp.lan * sztp.fon) And (Smx * nb / e.B) >= (sztp.lan * sztp.fon * .9) Then ii = ii + 1 ep(ii).h = sztp.tom * e.B * .001 ep(ii).typ = sztp.typ ep(ii).tip = sztp.tip ep(ii).bet = sztp.fon ep(ii).faj = sztp.faj End If

30


Melléklet I.

Next j Next i Call kivalaszt(ii) End Sub Sub kiindulo (qqh As Single) e.lom = 1 e.lum = 3 * e.lom

'görgőosztás felül 'görgőosztás alul

qa = gg * e.Q / (3.6 * e.v)

'Anyag folyómétertömege

N/m qfo = e.Tg * gg / e.lom folyómétertömege felül qfu = e.Tg * gg / e.lum folyómétertömege alul qo = qqh + qfo qu = qqh + qfu

'görgő

e.qq = qo + qu + qfu + qfo + qa terhelés

'átadódó megoszló

'görgő

Fo = 0 Fu = 0 Smn = 0 Smx = 0 For i = 1 To e.szak li = e.x(i + 1) - e.x(i) hi = e.y(i + 1) - e.y(i) Fu = Fu + (e.mu * li + hi) * qu

'alsóági

erő If hi < 0 Then Fo = Fo + (e.mu * li + hi) * qo

'felsőági

erő lejtő Else Fo = Fo + (e.mu * li + hi) * (qo + qa)

'felsőági

erő emelkedő End If Next i Fker = Fo + Fu Smn = (qa + qqh) * e.lom ^ 2 Smn = Smn / (8 * .15) 1.5%3.16 Smx = Smn + Fker End Sub

31

'relativ belógás = 'Max húzóerő, a hevedert erre kell kiválasztani ld:3.4-6


Melléklet I.

Sub kivalaszt (ii As Integer) Dim iAs Integer Dim jAs Integer Dim kAs Integer Dim aa As Integer k=1 epo(1) = ep(1) list1.AddItem Mid$(epo(1).typ, 1, 7) + " " + epo(1).faj For i = 1 To ii aa = 0 For j = 1 To k If ep(i).tip + ep(i).bet = epo(j).tip + epo(j).bet And ep(i).faj = epo(j).faj Then aa = 1 End If Next j If aa = 0 Then k=k+1 epo(k) = ep(i) list1.AddItem Mid$(epo(k).typ, 1, 7) + " " + epo(k).faj End If Next i End Sub Sub List1_Click () If list1.ListIndex >= 0 Then label2(0).Caption = epo(1 label2(1).Caption = epo(1 label2(2).Caption = epo(1 label2(3).Caption = epo(1 End If elfogad.Enabled = True End Sub

+ + + +

list1.ListIndex).tip list1.ListIndex).faj list1.ListIndex).bet list1.ListIndex).h

Sub mentes () Open CurDir$ + "\eredmeny.dat" For Random Access Write As #3 Len = Len(e) Put #3, 1, e Close #3 clipboard.SetText "SZALAG", CF_TEXT End Sub Sub szoveg () Open CurDir$ + "\eredmeny.txt" For Output As #20 Print #20, "Szállítandó anyag jellemzői:" Print #20, Print #20, Spc(16); "Szállítandó anyag neve:"; e.anyagnev

32


Melléklet I.

Print #20, Spc(16); "Anyagterület :"; e.ter, , " m^2" Print #20, Spc(16); "Halmazolhatósági szög:";(e.fisz,), " fok" Print #20, Spc(16); "Sűrüség:"; Format$(e.suruseg, "##,##"), " t/m^3" Print #20, Spc(16); "Anyagmennyiség:"; Format$(e.Q, "#"), " t/h" Print #20, Print #20, Print #20, "A kiválasztott heveder jellemzői:" Print #20, Print #20, Spc(16); "Hevederszélesség :"; Format$(e.B, "#"), " mm" Print #20, Spc(16); "Heveder név :"; e.typ Print #20, Spc(16); "Heveder tipusszám:"; Format$(e.tip, "####") Print #20, Spc(16); "Heveder betétszám:"; Format$(e.bet, "####") Print #20, Spc(16); "Heveder folyómétertömeg:"; e.h, ""), " kg/m" Print #20, Spc(16); "Heveder kivitele :"; e.faj Print #20, Print #20, Print #20, "Vályúkialakításra vonatkozó jellemzők:" Print #20, " " Print #20, Spc(16); "Görgőátmérő:"; Format$(e.Dg, "####"), " mm" Print #20, Spc(16); "Görgőhossz:"; Format$(e.Tl, "####"), " mm" Print #20, Spc(16); "Görgőtömeg:"; Format$(e.Tg, "###,#"), " kg" Print #20, Spc(16); "Görgőosztás felül:"; Format$(e.lom, "####"), " m" Print #20, Spc(16); "Görgőosztás alul :"; Format$(e.lum, "####"), " m" Print #20, Spc(16); "Vályúszög:"; Format$(e.alf, "####"), " fok" Print #20, Print #20, Print #20, "Terhelési jellemzők:" Print #20, Spc(16); "Sebesség :"; Format$(e.v, "####"), " m/s" Print #20, Spc(16); "Átadódó megoszló terhelés:"; e.qq, " kg/m" Print #20, Spc(16); "Teljesítmény igény:"; e.P,, " kW" Print #20, Print #20, Print #20, "Pályaszakasz pontjainak koordinátái:" Print #20, Spc(16); "1.töréspont :[0, 0]m" For i = 2 To e.szak + 1 Print #20, Spc(16); Format$(i, ""); ".töréspont :[";

33


Melléklet I.

Format$(e.x(i), "####"); ","; Format$(e.y(i), "####"); "]", " m" Next i Close #20 End Sub

34


Melléklet I.

Elsőkép

Sub Form_Load () elsokep.Top = 100 elsokep.Left = (nagyfonok.width / 2) - 3600 End Sub Sub Timer1_Timer () Unload elsokep End Sub

Kilépés megerősítő Sub Form_Load () Beep End Sub Sub igen_Click () End End Sub Sub nem_Click () Unload kilepjek End Sub

Névjegy

Sub Timer1_Timer () Unload keszitette End Sub

Figyelmeztető 1

Sub Timer1_Timer () Unload elszurtad End Sub

Figyelmeztető 2

Sub Timer1_Timer () Unload eltalaltad End Sub

35


Melléklet I.

Változók

Type szaldat typ As String * 8 tip As Integer lan As Integer vet As Integer fon As Integer tom As Single faj As String * 9 End Type

'szalag adatbazas 'név 'tipszám 'hosszirányu teherbírás 'keresztirányu teherbírás 'betétszám 'tömeg 'fajta

Type grgldat B As Integer kl As Integer hl As Integer hl1 As Integer hl2 As Integer ol As Integer End Type

'Görgőhosszak a kialakítás 'és a szalagszélesség fgv-jében

Type grgtom sel atm tom kia End Type

'Tartógörgő súlytáblázat 'Szélesség 'Átmérő 'Tömeg 'Kialakítás :Vályus, Lapos

As As As As

Integer Integer Single Integer

Type anyagn nev As String * 20 suru As Single fisz As Single seb As Single End Type

'Anyagnév és sűrüség tárolása 'Anyagnév 'Sűrüség 'Fi "halmazolhatósági" szög 'Ajánlott sebesség

Type kezdopont kx As Integer ky As Integer End Type

'Pályavonal

36


Melléklet I.

Type eredmeny P As Single ter As Single Dg As Integer Tl As Integer Tg As Single lom As Single lum As Single ft As Single mghjt As Single mu As Single fisz As Single surusegAs Single v As Single alf As Integer Q As Integer B As Integer kia As Integer typ As String * 16 tip As Integer bet As Integer h As Single faj As String * 9 haj As Integer anyagnev As String * 20 nagy As Integer szak As Integer x(1 To 11) As Integer y(1 To 11) As Integer qq As Single End Type

37

'teljesítmény igény kW 'anyagterület m^2 'Görgőátmérő 'Görgőhossz 'Görgőtömeg 'görgőosztás felül 'görgőosztás alul 'Gépelhejezési tényező 'Meghajtási szorzó 'Surlódási tényező 'Anyag halmazolási szöge 'Sürüség 'Sebesség 'Vályuszög 'Szállítandó anyagmennyiség 'Kiválasztott szalag szélesség 'kialakítas 'Heveder név 'Heveder tipusszám 'Heveder betétszám 'Heveder folyómétertömeg 'Heveder kivitele 'hajtáshely 'Szállítandó anyag neve 'Nagyitási tányező pályavonalnál 'Pályaszakaszok száma 'X koordináták ' Y koordináták 'megoszló terhelés

Szállítószalag tervező program Global Global Global Global Global Global Global Global

i Qmax valtoztat szakasz erdes ng rdb(1 To 6) ujra

As As As As As As As As

Melléklet I. Integer Integer Integer Integer Integer Integer Integer Integer

'Általános számláló 'Maximális szállítható mennyiség 'figyelö (kialakítás) 'figyelö (erdesség) 'Görgőszám 'Újraindítás

Global gg As Single Global Fo As Single 'Felsőági erő Global Fu As Single 'Alsóági erő Global Fker As Single 'Kerületi erő Global qh As Single 'heveder fm. súly Global qo As Single 'heveder+görgő fm. súly felül Global qu As Single 'heveder+görgő fm. súly alul Global qfo As Single 'görgő fm. súly felül Global qfu As Single 'görgő fm. súly alul Global qa As Single 'anyag f. súly Global Vajanl As Single 'Ajánlott sebesség Global Smn As Single 'vonóelemben ébredő minimális húzóerő Global Smx As Single 'vonóelemben ébredő maximális húzóerő Fker+Smn Global Global Global Global Global

kp As kezdopont 'pályavonal kezdőpont e As eredmeny 'Eredmény rekord epot(1 To 100)As eredmeny 'Potenciális eredmények epo(1 To 100) As eredmeny ep(1 To 100) As eredmeny 'Potenciális eredmények

Global meghjt kiválasztásához Global krny Global gepelh kiválasztásához Global adatnev megjegyzése Global curpath

As String * 20'Meghajtási mód As String * 20'Környezet kiválasztásához As String * 10'Gépelhelyezés As String * 30'Az eredményfile nevének As String * 30'Az aktuális elérési utvonal

38

Szállítószalag tervező program Global Const Global Const Global Const Global Const Global Const Global Const Global Const Global Const Global Const Global Const buttons Global Const Global Const Global Const

Melléklet I.

PI = 3.14159265359 CF_LINK = &HBF00 CF_TEXT = 1 CF_BITMAP = 2 CF_METAFILE = 3 CF_DIB = 8 CF_PALETTE = 9 MB_OK = 0 ' OK button only MB_OKCANCEL = 1 ' OK and Cancel buttons MB_ABORTRETRYIGNORE = 2' Abort, Retry, and Ignore MB_YESNOCANCEL = 3 MB_YESNO = 4 MB_RETRYCANCEL = 5

39

' Yes, No, and Cancel buttons ' Yes and No buttons ' Retry and Cancel buttons


Melléklet I.

Függfények

Function forma (be As Single) As String Dim ttt As Integer Dim kkk As Single If be >= 0 Then ttt = Int(be) kkk = Int(1000 * (be - ttt)) Else ttt = Int(be) + 1 kkk = Int(1000 * (be - ttt)) End If

'egészrész 'törtrész 'egészrész 'törtrész

If ttt <> 0 Then If kkk > 0 Then forma = LTrim$(Str$(ttt)) + "." + LTrim$(Str$ (kkk)) Else forma = LTrim$(Str$(ttt)) + ".000" End If Else If kkk <> 0 Then forma = "0." + LTrim$(Str$(kkk)) ElseIf kkk = 0 Then forma = "0.000" End If End If End Function

40

Vezérlő Sub adatbazis_click () On Error GoTo hiba: dde = Shell(CurDir$ + "\adatbaz.exe", 1) On Error GoTo 0 GoTo tovabb:

Recommend Documents