1 / 13

Informatika I. 10. Változók, MsgBox, Ciklusok

Informatika I. 10. Változók, MsgBox, Ciklusok. Óra anyaga. Változók InputBox MsgBox Ciklusok. http://krea.bke.hu/VB/makro/. Változó típusok. Boolean – true/false Byte – 0-255 Single – 32 bites lebegőpontos szám Double – 64 bites lebegőpontos szám Integer – -32768-32767 egész

geneva
Download Presentation

Informatika I. 10. Változók, MsgBox, 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áltozók, MsgBox, Ciklusok

  2. Óra anyaga • Változók • InputBox • MsgBox • Ciklusok http://krea.bke.hu/VB/makro/

  3. Változó típusok • Boolean – true/false • Byte – 0-255 • Single – 32 bites lebegőpontos szám • Double – 64 bites lebegőpontos szám • Integer – -32768-32767 egész • Long – -2,147,483,648 - 2,147,483,647 egész • String – „Hello”

  4. InputBox, MsgBox • Valtozo = InputBox(szöveg, cím, alapértelmezés) valtozo = MsgBox("Kattints rám!", vbOKOnly, "MsgBox") • MsgBox(szöveg, gombok, cím)

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

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

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

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

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

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

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

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

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

More Related