slide1 n.
Download
Skip this Video
Loading SlideShow in 5 Seconds..
Informatika I. 10. Véletlen, Ciklusok PowerPoint Presentation
Download Presentation
Informatika I. 10. Véletlen, Ciklusok

Loading in 2 Seconds...

play fullscreen
1 / 15

Informatika I. 10. Véletlen, Ciklusok - PowerPoint PPT Presentation


  • 74 Views
  • Uploaded on

Informatika I. 10. Véletlen, Ciklusok. Óra anyaga. Véletlen Ciklusok IF FOR DO Form alapok. http://krea.bke.hu/VB/makro/. Véletlen szám generálása. Rnd (0 <= x < 1) -10 - +10 közötti páros számok (Int(Rnd*11)-5)*2 Randomize kulcsszó. Feladat.

loader
I am the owner, or an agent authorized to act on behalf of the owner, of the copyrighted work described.
capcha
Download Presentation

PowerPoint Slideshow about 'Informatika I. 10. Véletlen, Ciklusok' - gerek


An Image/Link below is provided (as is) to download presentation

Download Policy: Content on the Website is provided to you AS IS for your information and personal use and may not be sold / licensed / shared on other websites without getting consent from its author.While downloading, if for some reason you are not able to download a presentation, the publisher may have deleted the file from their server.


- - - - - - - - - - - - - - - - - - - - - - - - - - E N D - - - - - - - - - - - - - - - - - - - - - - - - - -
Presentation Transcript
slide1

Informatika I.

10. Véletlen, Ciklusok

ra anyaga
Óra anyaga
  • Véletlen
  • Ciklusok
    • IF
    • FOR
    • DO
  • Form alapok

http://krea.bke.hu/VB/makro/

v letlen sz m gener l sa
Véletlen szám generálása
  • Rnd (0 <= x < 1)
  • -10 - +10 közötti páros számok
    • (Int(Rnd*11)-5)*2
  • Randomize kulcsszó
feladat
Feladat
  • Készítsünk makrót, amely –6 és +7 közötti véletlen egész számokkal feltölti az A oszlopot a 2.-tól a 18. Sorig, majd a páros számok betűszínét kékre, a páratlanok háttérszínét pedig sárgára változtatja!
if ciklus
IF ciklus
  • If feltétel Then
  • Else
  • End If
for ciklus
FOR ciklus
  • For ciklusváltozó = kezdőérték To végérték Step_ lépésköz

ciklusmag

Next

do ciklus
DO ciklus
  • Do While feltétel

ciklusmag

Loop

  • Do

ciklusmag

Loop Until feltétel

p ld k i
Példák I.

ossz = 0

For i = 1 To 10

ossz = ossz + i

Next

ossz = 0

i = 1

Do While i <= 10

ossz = ossz + i

i = i + 1

Loop

p ld k ii
Példák II.

ossz = 0

i = 1

Do

ossz = ossz + i

i = i + 1

Loop Until i > 10

p ld k iii
Példák III.

For i = 1 To 10

Cells(i,1).Interior.Color = vbBlue

Next

Range(Cells(1,1),Cells(10,1)).Interior.Color = vbBlue

feladatok
Feladatok
  • Készíts egy makrót, amely InputBoxban bekéri a felhasználó nevét, aztán egy MsgBoxban köszönti a felhasználót!
  • Egészítsük ki az előző feladatot úgy, hogy ismételje addig a név bekérését, ha a felhasználó a Cancel gombot nyomta!
megold s
Megoldás

Sub udvozlet()

Do

nev = InputBox(”Hogy hívnak?”, ”Kérdés”)

Loop Until nev <> Empty

valtozo = MsgBox(”Hello ”&nev, 0, ”Üdvözlet”)

End Sub

esem nyek kezel se
Események kezelése
  • Szerkesztő üzemmódban
esem nyek
Események
  • SelectionChange – ha a munkalapon mást jelölünk ki
  • Change – cella tartalma vagy értéke változik
  • BeforeDoubleClick – szerkesztő üzemmód előtt
  • Calculate – ha a munkalapon számítás történik
  • Click - kattintás
  • DblClick – dupla kattintás
  • MouseMove – egérkurzor az elem fölé kerül
formok
Formok
  • Adatbeviteli eszköz
  • Visual Basic -> beszúrás -> UserForm
  • Parancsok
    • userForm.Show
    • Unload Me