A-sûnder in macro te brûken




Metoade (mei it brûkersformulier fan UserForm,

1. Run Excel

2. Skep de menu items "Service, Macro, Visual Basic Editor".

3. It redaksje-finster iepene (foto 1), en in VBAProjekt-projekt is makke (boek 1).


Pic.1

4. Yn it bewurkersfinster bliuw de menu's "Insert, UserForm" yn, de brûkerfinster fan UserForm1 ferskynt en dan de ToolBox-arkbalke foar him (figuer 2):

5. Bliuw de taken fan ToolBox apart (3):


Pic.3

Fig. 2

Yn fig.3 binne allinich de ark dat wy foar wurk nedich binne:

Label - om etiketten te meitsjen, TextBox, - foar data ynput / útfier, CommandButton - knop om elke proses te starten (yn ús saak, berekkeningen)

6. Fier de namme fan it formulier yn (yn it eigenskippenfinster fan de foarm dy't wy de titel fan titel feroarje) "Laboratory work No. 5 Task 1". Wy pleatse de folgjende objekten op it formulier UserForm1 (fig.4):


Pic.4

· Fjouwer label-komponinten wêryn't wy labels ynfiere (Caption property) "Initial data", "Result", ensfh.

In tekstBox-komponint om de boarne wearde te jaan (Tekst eigendom): X

In tekstBox-komponint om it resultaat te learen fan it berekkenjen fan de sum S

In knop KommandoButton om de berekkening te fieren. Fier de namme fan 'e knop (Caption eigenskip) yn' Calculation '. Dûbelklik op 'e knop, dan iepenet it finster fan' e mûsklikdateur (ôfbylding):

Pic.5

Yn dit finster ynfolje de folgjende programmekoade:

Dim n as integer

X = Val (TextBox1.Text)

E = 0.0001

N = 0

T = 1

S = 0

Wylst Abs (T)> = E

S = S + T

T = T * (-X ^ 2) / ((2 * N + 2) * (2 * N + 1))

N = N + 1

Wend

TextBox2.Text = Str (S)

Hjir: VAL is in funksje dy't tekst nei in nûmer ferwyt; STR is in funksje dy't in nûmer yn tekst konvertearret.

Wylst - Wend - cycle om te rekkenjen S

Dim N As Integer - de beskriuwing fan de fariabele N fan integer type (echte fariabelen X, T, S, E kinne net beskreaun wurde)

It folsleine finster sjocht dit sa (6):


Pic.6

Dit slút de ûntjouwing fan it programma ôf.

7. Om it programma út te litten fanút it Visual Basic Editor-finster, klikje op de griene knop op de edysje-arkbalke (sjoch ôfbylding 6). Dêrnei ferskynt it folgjende finster (figuer 7):


Pic.7

8. Fier dan de earste wearde fan X yn, klik de knop "Kalkulaasje" en krij it resultaat (fig.8a):


Fig.8a

9. Slút dit finster en bewarje it oprjochte boek ûnder de namme "Boek 1a" ("Triem, bewarje as ...")

10. Stel in flowchart foar dit programma. It flowchart sjocht itselde as foar dit programma yn QBASIC (om't de boarne- en útfiergedaten deselde binne lykas yn it programma foar QBASIC)


border=0







; Datum tafoege: 2015-05-30 ; ; Views: 313 ; Is it publisearre materiaal it urheberrecht? | | Persoanlike data beskerming | ORDER WORK


Hast net fûn wat jo sochten? Brûk it sykjen:

De bêste wurden: Foar in studint is it wichtichste ding net it eksamen te passen, mar om it yn 't tiid te betinken. 9043 - | 6827 - of alles lêze ...

Sjoch ek:

border=0
2019 @ bibinar.info

Sidegegevens oer: 0.002 sek.