Új bejegyzés Frissítés

2008.05.19. 13:19

Jelölőnégyzet, választógomb private sub opt kakó_click()   /az összesnél le kell írni chkcitrom.Value=0 chkcukor.value=0    /ki0-zás chktej.value=0 chkcitrom.enabled=false      /engedélyezés chkcukor.enabled=true lblfizet.Caption = " "     /ki0-za az árat is ------------------- Private sub optkakó_click() lblfizet.caption = - optkávé.Value * 50 - opttea.Value * 40 - optkakó.Value * 50 + chktejszín.Value * 20 ------------------

2008.04.28. 13:22

Feladat: Gombócok száma : .......  Tölcsér    normál    édes Fizetendő: .... Ft Új   Kilépés normál tölcsérben 120ft édes tölcsérben 150ft Private Sub cmdkilép_Click() Unload Me End End Sub Private Sub cmdszámol_Click() lblfizet.Caption = 120 * txtgombóc.Text + optédes.Value * 30 End Sub Private Sub cmdúj_Click() txtgombóc.Text = "" lblfizet.Caption = "" optédes.Value = fales optnormál.Value = fales End Sub

2008.04.07. 13:07

Private Sub cmdkilép_Click() Unload Me End End Sub Private Sub cmdmutat_Click() Dim a, b, c As Integer a = txta.Text b = txtb.Text c = txtc.Text lbltéglalap.Caption = a * b lblnégyzet.Caption = a * b * c If a * b > a * b * c Then lblmegállapít.Caption = "A téglalap a nagyobb." End If If a * b * c > a * b Then lblmegállapít.Caption = "A négyzet a nagyobb." End If If a * b = a * b * c Then lblmegállapít.Caption = "A négyzet és a téglalap egyenlők." End If End Sub

2008.04.03. 11:26

Az előző feladat folytatása Közben kiderült, h az előzőnél írtak nem jók. Miután a tanár rájött a hibára bemásolom. :D Szóval az eljén volt a hiba: Private Sub cmd1_Click() Dim a, b, c As Integer a = Val(txta.Text) b = Val(txtb.Text) c = Val(txtc.Text)

2008.03.27. 11:32

Feladat:  3szög szerkeszthető-e, és írja ki, h 1enlő oldalú, szabályos, v derékszög a=...... b=..... c=......  /txt a,b,c Szerkeszthető a 3szög? .........  /címkék lbl1 1elő oldalú ..........  /lbl2 1enlő szárú ........ /lbl3 derégszögű: .......... /lbl4 Ok  Töröl   Kilép  /cmd Kiléphez: unload me end OK-hoz: Private Sub cmd1_Click() Dim a, b, c As Integer a = txta.Text b = txtb.Text c = txtc.Text If a + b > c And a + c > b And b + c > a Then    lbl1.Caption = "Igen"    If a = b And b = c Then       lbl2.Caption = "Igen"    Else       lbl2.Caption = "Nem" End If If a = b Or a = c Or b = c Then    lbl3.Caption = "Igen"    Else     lbl3.Caption = "Nem" End If If a * a = b * b + c * c Or b * b = a * a + c * c Or c * c = a * a + b * b Then    lbl4.Caption = "Igen"    Else    lbl4.Caption = "Nem"    End If Else lbl1.Caption = "Nem" End If    End Sub

2008.03.17. 13:18

1. feladat szélesség: 7000 magasság: 5000 Kérek 1 nevet:....... Hány éves:............ .............IDE............ OK    VÉGE ok-ra kattintás: kiírja, h hány éves (IDE) objektum pirossal címke kékkel textbox sárga

2008.03.13. 11:36

folytatása.... "Számolj!" gombnál: Private Sub cmdszámolj_Click(Index As Integer) Dim a, b As Integer a = txta.Text b = txtb.Text lblkerület.Caption = a * 2 + b * 2 lblterület.Caption= a * b End Sub 2. Feladat: Kérjen 2 számot, összegük, különbségük, szorzatuk,hányadosuk. Figyeljen, h 0-val nem lehet osztani! cím: Alapműveletek |a=...(txta)....   b=..(txtb)....... |a+b=....... /lblösszeg |a-b=........  /lblkülönb |a*b=....... /lblszor |a/b=........  /lblper |Számolj! (cmdszámol)  Törölj!  (cmdtöröl) Kilépés! (cmdkilép) Kilépéshez:  Private Sub cmdkilép_Click() Unload Me End End Sub Számolhoz:

2008.03.10. 18:30

Hell!!! WÁÁÁÁÁÁÁ nem bírtam ki :) muszáj volt,h írjak ide.... és most törölheted ki xD

2008.03.10. 13:24

1. Feladat:  A program kérdezze meg a téglalap oldalainak hosszát, és írja ki a kerületét és területét! 1. lépés: megtervezés cím: Kerület és terület számítás / címke  | a=.......       b=........        |   / címke+ txt a; txt b (textbox)  | Kerület:.... Terület.....  |   / címke (lblkerület; lblterület)  | számolj!    vége!          |   /parancsgomb (cmbszámolj; cmbvége) 2. lépés: méreteinek, színeinek beállítása 3. lépés: a form-ra rápakoljuk a szükséges dolgokat 4. lépés: a programozás része Kilépéshez: Unload me                        End Számoláshoz: lblkerület.Caption=txta.Text*2+txtb.Text*2

2008.03.06. 11:30

Üzenet doboznál: msgbox ("szöveg") Kilépésnél: unload me                      end Kép berakása:  picture /tallózni

2008.03.03. 13:23

Top: fentről mért táv. Left: balról mért táv. Szövegdoboz tulajdonságai: Label: címke feltétele     neve: lbl....     caption (felirata): .....     méretei: width(szélesség), height(magasság)     backcolor: háttér színe     fore color: előtér színe     alignment: center/left/right

2008.02.25. 13:19

Pozíciók: top, left Méretek:  height, width Színek: backcolor: háttérszín Caption: a szöveget lehet változtatni Font: betűtípus +méret Fore color: betűszíne Alignment: igazítása

[12-1]