[12-1]
Jellngyzet, vlasztgomb
private sub opt kak_click() /az sszesnl le kell rni
chkcitrom.Value=0
chkcukor.value=0 /ki0-zs
chktej.value=0
chkcitrom.enabled=false /engedlyezs
chkcukor.enabled=true
lblfizet.Caption = " " /ki0-za az rat is
-------------------
Private sub optkak_click()
lblfizet.caption = - optkv.Value * 50 - opttea.Value * 40 - optkak.Value * 50 + chktejszn.Value * 20
------------------
|
Feladat:
Gombcok szma : .......
Tlcsr
norml
des
Fizetend: .... Ft
j Kilps
norml tlcsrben 120ft
des tlcsrben 150ft
Private Sub cmdkilp_Click()
Unload Me
End
End Sub
Private Sub cmdszmol_Click()
lblfizet.Caption = 120 * txtgombc.Text + optdes.Value * 30
End Sub
Private Sub cmdj_Click()
txtgombc.Text = ""
lblfizet.Caption = ""
optdes.Value = fales
optnorml.Value = fales
End Sub |
Private Sub cmdkilp_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
lbltglalap.Caption = a * b
lblngyzet.Caption = a * b * c
If a * b > a * b * c Then
lblmegllapt.Caption = "A tglalap a nagyobb."
End If
If a * b * c > a * b Then
lblmegllapt.Caption = "A ngyzet a nagyobb."
End If
If a * b = a * b * c Then
lblmegllapt.Caption = "A ngyzet s a tglalap egyenlk."
End If
End Sub |
Az elz feladat folytatsa
Kzben kiderlt, h az elznl rtak nem jk. Miutn a tanr rjtt a hibra bemsolom. :D
Szval az eljn 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)
|
Feladat:
3szg szerkeszthet-e, s rja ki, h 1enl oldal, szablyos, v derkszg
a=...... b=..... c=...... /txt a,b,c
Szerkeszthet a 3szg? ......... /cmkk lbl1
1el oldal .......... /lbl2
1enl szr ........ /lbl3
dergszg: .......... /lbl4
Ok Trl Kilp /cmd
Kilphez: 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
|
1. feladat
szlessg: 7000
magassg: 5000
Krek 1 nevet:.......
Hny ves:............
.............IDE............
OK VGE
ok-ra kattints: kirja, h hny ves (IDE)
objektum pirossal
cmke kkkel
textbox srga
|
folytatsa....
"Szmolj!" gombnl:
Private Sub cmdszmolj_Click(Index As Integer)
Dim a, b As Integer
a = txta.Text
b = txtb.Text
lblkerlet.Caption = a * 2 + b * 2
lblterlet.Caption= a * b
End Sub
2. Feladat:
Krjen 2 szmot, sszegk, klnbsgk, szorzatuk,hnyadosuk. Figyeljen, h 0-val nem lehet osztani!
cm: Alapmveletek
|a=...(txta).... b=..(txtb).......
|a+b=....... /lblsszeg
|a-b=........ /lblklnb
|a*b=....... /lblszor
|a/b=........ /lblper
|Szmolj! (cmdszmol) Trlj! (cmdtrl) Kilps! (cmdkilp)
Kilpshez:
Private Sub cmdkilp_Click()
Unload Me
End
End Sub
Szmolhoz:
|
Hell!!!
W nem brtam ki :) 
muszj volt,h rjak ide....
s most trlheted ki xD
|
1. Feladat: 
A program krdezze meg a tglalap oldalainak hosszt, s rja ki a kerlett s terlett!
1. lps: megtervezs
cm: Kerlet s terlet szmts / cmke
| a=....... b=........ | / cmke+ txt a; txt b (textbox)
| Kerlet:.... Terlet..... | / cmke (lblkerlet; lblterlet)
| szmolj! vge! | /parancsgomb (cmbszmolj; cmbvge)
2. lps: mreteinek, szneinek belltsa
3. lps: a form-ra rpakoljuk a szksges dolgokat
4. lps: a programozs rsze
Kilpshez: Unload me
End
Szmolshoz: lblkerlet.Caption=txta.Text*2+txtb.Text*2
|
zenet doboznl: msgbox ("szveg")
Kilpsnl: unload me
end
Kp beraksa: picture /tallzni |
Top: fentrl mrt tv.
Left: balrl mrt tv.
Szvegdoboz tulajdonsgai:
Label: cmke felttele
neve: lbl....
caption (felirata): .....
mretei: width(szlessg), height(magassg)
backcolor: httr szne
fore color: eltr szne
alignment: center/left/right
|
Pozcik: top, left
Mretek: height, width
Sznek: backcolor: httrszn
Caption: a szveget lehet vltoztatni
Font: bettpus +mret
Fore color: betszne
Alignment: igaztsa
|
[12-1]
|
AJÁNLOM AZ OLDALT
j bejegyzs
Frissts