Visual Basic nulla

Változókat. Option Explicit.

Minden, ideje, hogy beszéljünk változókat. Anélkül, hogy bármit már nem tudunk. Nem leszek hosszú és unalmas, hogy a hajó akkor az elmélet. De legalább meg kell tudni.

Nagyon kívánatos, hogy a program kezdődött Option Explicit nyilatkozatot. Szükség lesz kifejezetten kijelentik változókat. Azaz, ha írsz a változó nevét egy hiba, akkor ez az a hely, hogy megtalálja és piszkálni az orrát, mert a változó nevét nem ugyanazt a hibát a nevét a bejelentett változó VB program elindul. Változót kell nyilvánítani kifejezetten a Dim utasítással.

Azt kell most magyarázza ezt a példát az üledék, különben nem értem, mi van írva.

„Bejelentése kifejezetten mindkét változó MyStroka string (azaz szöveg)

Dim MyStroka As String

„Aztán hozzárendeli a»változó«, hanem a változó neve” van írva,

Amikor elkezdjük VB program azonnal megtalálja a helyét, mint egy hiba, és osztja azt. Ha nem mondják ki utasításokat Option Explicit. akkor a hibás változó lesz felvette az új. De fontos a megfelelő változó MyStroka még nem rendelt, mert kapott egy új változót egy hiba a nevét. Majd később, ha azt akarjuk, hogy a helyes érték a változó, akkor nem csak nem fog.

Ez egyértelműnek tűnik.

Így minden jellel, kivéve VB fenntartott szavak változó lehet. De a nevét kell kezdődnie betűvel. Például Peremenaia, IMA1, X, LastNumber, Z001. Nem szükséges, hogy a matematikai operátorok a neveket. És akkor nem nyilvánítja két változó azonos nevű. Elvileg a kód olvashatóságát és szilárdságát, vannak bizonyos szabályok, az írás változó nevét. De nem fogok ragaszkodni. Ha a vadászat, nézd az interneten semmit magyar megállapodást.

Mi is érdekel a következő típusú változók

Hosszú hosszú egész szám -2147483648 a 2147483647

Integer „egész szám -32.768-32.767

String „karaktersorozatot

Logikai „logikai kap két érték vagy az»igazi«(igaz) vagy»false«(hamis)

Amíg van elég ebből. Ha érdekelt, annál több részlet az adattípusok által támogatott VB itt lehet megtekinteni.

Dim MyStream As String
Dim K14 As Long
Dim Flag néven logikai
Dim Numder As Integer

Private Sub Form_Load ()
Dim flag2 Ahogy logikai
Dim l99little As String
End Sub

Timer. „Egy óra” program.

Most az időmérőt. A bal oldalon, ahol a komponensek a forma, de olyan eszközök is, elemek, festett ébresztőóra. Ez az idő. Ő mindig láthatatlan, de a kívánt elemet. Mindegyikük egyszerre, akkor körülbelül 30 darab. De van olyan sok a srácok nem. Rakjuk egy űrlapot. Alapján azt csinálunk most kicsit nézni. Az ingatlan az időzítő beállítása a következő:

Enabled - Hamis (alapértelmezett True) azt jelenti, hogy az időzítő ki van kapcsolva

Interval - 1000 (az az idő ezredmásodpercben, ami után az időzítő lejár, kivéve természetesen tartalmazza). Az időzítő fog működni 1000 MSK, azaz minden második, mint a normál óra.

Ezen kívül szükség van a három címke: Label1 másodpercig, a perc, Label2 Label3 - lehet kitalálni, hogy miért. Jobb, illetve megjeleníteni az óra, perc, másodperc. Minden.

Tedd címkéket a tulajdonságok ilyen létesítmények:

Alignment - a 2-Alignment (Ez azért van így, hogy a számok voltak a központban a címkék)
BorderStyle - 1-Fix (lehetetlen volt, így átméretezés)
Képaláírás - 00 (minden esetben, azaz az érték a címkéket kezdetben „00”)

Kattintson betűtípus, és válassza ki a betűméretet 14, és a védjegy - merész. Ezt követően kiválaszthatja a megfelelő méretű ablak címke kitalálni azok meg szebb.

Úgy kell kinéznie 8. ábra.

Rutinszerű Form_Load.

Private Sub Form1_Load ()

Ezután a szervezetben az eljárás, mint bármely tisztességes programot az űrlap fejlécében.

Továbbá annak érdekében, hogy nézni a műsort, ha az aktuális időt, meg kell, hogy vegye ki a számítógépből. Ahhoz, hogy a rendszer az idő az idő függvényében (Label1.Caption = Time). De ez ad egy teljes munkaidős egy vonal (16:23:42). Meg kell választani azt a másodperc, perc, óra és raspihat a címkén. Ehhez veszünk kész funkció, amely biztosítja számunkra, hogy mindezt részben:

Label1.Caption = Második (Time) „Ezért másodperc
Label2.Caption = Perc (Time) „jól perc
Label3.Caption = Óra (Time)”, és az óra

Ha most a program futtatásához, akkor megjelenik a pontos idő, de ez csak egy órát ér valamit.

Itt van egy logikai algebra. Ez Timer1.Enabled egyaránt lehet engedélyezni (True), vagy le van tiltva (hamis).

Ahhoz, hogy legalább néhány előnye a futó timer, hozzon létre egy eljárást, amely végre, amikor egy esemény bekövetkezik, akkor az időzítő

Magán SubTimer1_Timer ()

A második kell növelni egy-egy művelet időmérőt. Ezért levelet számláló

Label1.Caption = Label1.Caption + 1

És itt jön közel a kérdés feltételes Ha. vagy ha nyilatkozatot. Ennek lényege az állítás, hogy lehetővé teszi egy bizonyos, hogy megteremtse a feltételeket, hogy a változás a programban.

Az orosz Amennyiben az állítás az alábbiak szerint:

Ha John szereti Masha T tyúk
Masha hűvös

Ellenkező esetben, ha John szereti Petya T tyúk „, ha nem hajtja végre csúcsformában
Bob kecske

És ha nem, „ha nem elégedett semmilyen körülmények között
Vasya bolond
End If

Darab az if kék színnel van kiemelve. Ha írunk a program, a

Ha Vasia + Masha = "Love" Akkor
Masha = "Jó"

ElseIf Vasia + Petia = "Love" Akkor
Vasia = "Kozel"

Ha az üzemeltető ellenőrzi az első feltétel, hogy (igaz) igazi kifejezést Vasia + Masha = „Love”. Ha ez igaz, a nyilatkozatok a háta mögött, de ElseIf ágak. Ha a kifejezés nem igaz (hamis), majd az azt követő első sorban a gazdasági szereplők nem teljesülnek, és a VB megy a következő rész az üzemeltető ElseIf és így amíg check minden körülmények között. Ha nem teszünk semmit, feldolgozza az üzemeltető az ágak Else.

Ez nagyon egyszerű. Ez általában a kedvenc operátor. Enélkül - bárhol.

Ha nem kell, hogy ellenőrizze a további feltételeket, és például ha a szükség úgy teljesül, akkor tegyen valamit, és ha nem, akkor a másik, az üzemeltető a következő formában:

Ha Vasia + Masha = "Love" Akkor
Masha = "Jó"
más
Vasia = "Durak"
End If

Ez az úgynevezett blokk alakú Amennyiben az üzemeltető, a leghosszabb. Akkor tudja használni, hogy egyetlen vonalon, azaz a ha a feltétel, hogy van valami:
Ha Vasia + Masha = "Love" Akkor Masha = "Jó" Else Vasia = "Durak"
vagy
Ha Vasia + Masha = "Love" Akkor Masha = "Jó"

Most kell alkalmazni a tudás az üzemeltető a gyakorlatban. Ahhoz, hogy időnk van bizonyíték a program, „egy óra”, hogy a több tucat a lábujj 01, 02, 03, ahelyett, hogy az 1, 2, 3, ellenőrizzük a feltételt, hogy a szám kevesebb, mint a hossza rögzített két címkét. Ha igen, adja hozzá az első lábujj. Ehhez használjuk a Len függvény ( „string”). amely meghatározza a karakterek számát soronként. Ha egy sorban, például 5 karakter, Len majd 5-ös szám Szándékunkban áll:

Ha Len (Label1.Caption) <2 Then Label1.Caption = "0" & Label1.Caption‘для первого лейбла

De akkor, amikor a rendszer indításakor a szubrutin Form1_Load is szükségünk van egy véleményt. nem fogunk átírni ugyanazt két különböző eljárásokat. Mi fog tenni saját eljárását, és arra utal, hogy ez szükséges. Hívjuk, például Zero. Végén a program az üres teret a típus:

Private Sub Zero ()
Ha Len (Label1.Caption) <2 Then Label1.Caption = "0" & Label1.Caption
Ha Len (Label2.Caption) <2 Then Label2.Caption = "0" & Label2.Caption
Ha Len (Label3.Caption)<2 Then Label3.Caption = "0" & Label3.Caption
End Sub

Így most már a saját rutin, amely az úgynevezett Zero. Nincs esemény annak végrehajtása nem, és hogy ő dolgozik a megfelelő helyen, csak annyit írj a Zero nevet. És szükségünk van ezeken a helyeken az utolsó sort portsedurah Form1_Load () és Timer1_Timer () jobbra (mielőtt az End Sub).

Nos, az orr rendben, de az óra nem működik. A Timer1_Timer () szubrutin már csak egy operátor. Nézni dolgozott, mint a valódi, meg kell, ha több, mint 59 másodperc lett, ők nullázni a perc lenne eggyel nőtt. Használata Ha ez egy jelentéktelen kérdés:

Ha Label1.Caption> Ezután 59
Label1.Caption = "0"
Label2.Caption = Label2.Caption + 1
End If
„Ugyanez vonatkozik Leybla2:
Ha Label2.Caption> Ezután 59
Label2.Caption = "0"
Label3.Caption = Label3.Caption + 1
End If

Nos, Leybla3 általános szemetet. Szükség van arra, hogy ha több, mint 23 órán át nem mutatott a 24 és 00:

Ha Label3.Caption> 23 Akkor Label3.Caption = "0"

Most tegye a hivatkozást a noughts ellenőrző Zero:

Srácok, bocs, a program csak 27 sor. Azt megrágta, ahogy csak tudott. Kód regisztrált és alulról. Ki akarja letöltheti a forráskódját a program felső szélén.

Private Sub Form_Load ()
Form1.Caption = „egy óra”
Label1.Caption = Második (Time)
Label2.Caption = Perc (Time)
Label3.Caption = Óra (Time)
Timer1.Enabled = True
zéró
End Sub

Private Sub Timer1_Timer ()
Label1.Caption = Label1.Caption + 1
Ha Label1.Caption> Ezután 59
Label1.Caption = "0"
Label2.Caption = Label2.Caption + 1
End If
Ha Label2.Caption> Ezután 59
Label2.Caption = "0"
Label3.Caption = Label3.Caption + 1
End If
Ha Label3.Caption> 23 Akkor Label3.Caption = "0"
zéró
End Sub

Private Sub Zero ()
Ha Len (Label1.Caption) <2 Then Label1.Caption = "0" & Label1.Caption
Ha Len (Label2.Caption) <2 Then Label2.Caption = "0" & Label2.Caption
Ha Len (Label3.Caption) <2 Then Label3.Caption = "0" & Label3.Caption
End Sub

„A félkarú rabló” - utánzata a híres gép szerencsejáték. Hogy mit jelent a program a következő. Három címkék jelennek meg különböző számok 1-től 7 dolgozni velük három változó száma. Változásuk vezérli három időzítő. Kezdetben intervallum időzítő azonos - 10 MSK. A három változó Zamedlenie generált véletlen számok.

Zamedlenie1 = Int (Rnd * 20) + 10

Úgy működik, mint ez. Rnd generál egy véletlen számot 0 és 1 között A huszonegyedik többszörösen hogy egész részét (lehet szorozni semmit, de nem kevesebb, mint 10, de ez nem derül ki, az egész rész). Int függvény eldobja a törtrész. Hozzáadjuk a végén a 10, hogy kizárják a 0 értéket, és az időzítő leáll. Ie ha Rnd generál, például a száma 0,156, majd

Kerekítés Zamedlenie1 = (0,156 * 20) + 10 = 3 + 10 = 13. Nagyon egyszerű.

Minden alkalommal, amikor az időzítő intervallum növeli a lassulási érték, amíg az időköz nagyobb, mint 300 (ez a megadott szoftver: Timer1.Interval> 300

Ezt követően, az időzítő ki van kapcsolva. Annak kiderítésére, hogy mind időzítő ki van kapcsolva, azt használja a változó ez a zászló, amely felhalmozódik számos kikapcsolási időzítő. Amikor Flag = 3, úgy véljük, hogy mind a három időzítő befejezte (és az is), és indítsa el az eredményeket feldolgozva (Raschet rutin ()). Az induló tőke a játékos változóban tárolt Summa, és amikor ő nyer különböző mennyiségének változását három változó bónusz, és veszteséges a változó BonusMinus. Miért negatív? Úgy éreztem, mintha azt, bár ez természetesen a perverzió. Címkék 4. és az 5. hűvös címkék, attól függően, hogy a játék kimenetelét. Nos, amellett, hogy közben az időzítő gomb nincs lenyomva, akkor a változó FlagClick vagy lehetővé teszi, hogy futtatni időzítő, vagy megváltoztatja jel.

Miután a főváros egy játékos kimerül, akkor jön a megszüntetését rutin játék EndOfGame (). amikor a gomb le van tiltva. Tovább játszani egy időben lehetetlen.

Ebben a programban, először állapítsa változókat. Az ebben a bonyolult. A lényeg az, hogy milyen típusú változó körülbelül együtt igényünk. Csak hogyan Delyan.

Nos, szinte minden. A többit meg kell gondolni, ki magát. Sok szerencsét.

Kapcsolódó cikkek