1 / 15

Informatika I. 10. Véletlen, Ciklusok

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.

gerek
Download Presentation

Informatika I. 10. Véletlen, Ciklusok

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. Content is provided to you AS IS for your information and personal use only. Download presentation by click this link. While downloading, if for some reason you are not able to download a presentation, the publisher may have deleted the file from their server. During download, if you can't get a presentation, the file might be deleted by the publisher.

E N D

Presentation Transcript

  1. Informatika I. 10. Véletlen, Ciklusok

  2. Óra anyaga • Véletlen • Ciklusok • IF • FOR • DO • Form alapok http://krea.bke.hu/VB/makro/

  3. 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ó

  4. 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!

  5. IF ciklus • If feltétel Then • … • Else • … • End If

  6. FOR ciklus • For ciklusváltozó = kezdőérték To végérték Step_ lépésköz ciklusmag Next

  7. DO ciklus • Do While feltétel ciklusmag Loop • Do ciklusmag Loop Until feltétel

  8. 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

  9. Példák II. ossz = 0 i = 1 Do ossz = ossz + i i = i + 1 Loop Until i > 10

  10. 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

  11. 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!

  12. 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

  13. Események kezelése • Szerkesztő üzemmódban

  14. 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

  15. Formok • Adatbeviteli eszköz • Visual Basic -> beszúrás -> UserForm • Parancsok • userForm.Show • Unload Me

More Related