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.