Segítség kéne

[HAnonymus]

Ellenben ez szintén úgyérzem hogy támadhatatlan, úgyhogy hagyom a fenébe az egészet, mennem kell haza. Mire hazaérek titeket már leosztályoznak, majd írd meg mi lett a vége. A cuccot meg majd megtárgyaljuk ha nem lesz ekkora a hajtás. Na báj.

[HAnonymus]

Hú bmeg ezzel megizzadtam...

Felül label1, mellette text1
alattuk egymás mellett command1 és command2
alatta label2

A form pedig:
Option Explicit
Dim A As Integer, B As Integer

Private Sub Command1_Click()
If Val(Text1.Text) = Abs(A - B) Then
Label2.Caption = "ügyes kisiskolás!"
Else
Label2.Caption = "buta kisiskolás!"
End If
End Sub

Private Sub Command2_Click()
Form_Load
End Sub

Private Sub Form_Load()
Randomize
A = Rnd * 100
B = Rnd * 100
Command1.Caption = "Ellenőrizz!"
Text1.Text = "0"
Label2.Caption = ""
Command2.Caption = "új számot kérek!"
If A >= B Then
Label1.Caption = CStr(A) + "-" + CStr(B) + "="
Else
Label1.Caption = CStr(B) + "-" + CStr(A) + "="
End If
End Sub

[Drigo]

Itt lenne meg egy:

Ha meglesz, akkor fix 10 sor mindenkepp na?

keszitsunk max ketjegyu szamokhoz kivonast gyakoroltato programot, kisiskolasoknak A program kitalal (rnd) egy nagyobb es egy kisebb szamot majd kiirja egy labelre a muveletett(pl 99-43=) A label utani textboxba beirja a kisiskolas a szerinte helyes eredmenyt amit a parancsgombra ellenorizunk.Kimenet: dicseret vagz ejnye-bejnye(lkabelben)

nagy kapacitasnal tenyleg jo az enyem koszonom szepen

a masik sztem nehezebb

[HAnonymus]

Ja, az meg hogy vannak terabyte-os háttértárak, az arra utal hogy az
Option Explicit után
Dim BY As Double (eddig single volt, javíts!)

[HAnonymus]

Azért olyan Elton nagy az összeg mert nem mersz beírni rengeteg nullát a kapacitáshoz. A progi jó csak a byte túl kicsi mértékegység... 15 pont minimum van.

[Drigo]

Isten kiraly vagy, de az osszeg nekem soknak tunik mindig marha nagy osszeget ad ki, szerintem ugy kene, hogy ay osszeget elosztani a bevitt byte ertek atszamitott megabytos dormajaval nem de ez is marha jo...

[HAnonymus]

Végleges:
A kinézet (gombok meg ilyesmi) ugyanez, csak a form kicsit más:

Option Explicit
Dim AR As Single, BY As Single

Private Sub Command1_Click()
AR = Val(Text1.Text)
BY = Val(Text2.Text)
If BY = 0 Then
End If
If AR <= 0 Then
Label4.Caption = "ingyen nem adnak háttértárat..."
Else
If BY <= 0 Then
Label4.Caption = "adj meg valós kapacitást!"
Else
Label3.Caption = "Fajlagos költség:"
Label4.Caption = CStr((1024 ^ 2) * AR / BY) + " Ft"
End If
End If
End Sub

Private Sub Form_Load()
Label1.Caption = "háttértároló ára (Ft):"
Label2.Caption = "háttértároló kapacitása (byte):"
Command1.Caption = "számolj fajlagos költséget!"
Label3.Caption = ""
Label4.Caption = ""
End Sub

[HAnonymus]

Hú várjál még gigszer lesz, dolgozom a cuccon...

[HAnonymus]

Felraksz:
label1 meg text1 egymás mellé
label2 meg text2 egymás mellé, az előző alá
label3 meg label4 egymás mellé, az előző alá
command1 az előző alá

és a code-ba a következő kerül:

Option Explicit
Dim AR As Single, BY As Single

Private Sub Command1_Click()
AR = Val(Text1.Text)
BY = Val(Text2.Text)
If AR <= 0 Then
Label4.Caption = "ingyen nem adnak háttértárat..."
Else
Label3.Caption = "Fajlagos költség:"
Label4.Caption = CStr((1024 ^ 2) * AR / BY) + " Ft"
End If
End Sub

Private Sub Form_Load()
Label1.Caption = "háttértároló ára (Ft):"
Label2.Caption = "háttértároló kapacitása (byte):"
Command1.Caption = "számolj fajlagos költséget!"
Label3.Caption = ""
Label4.Caption = ""
End Sub

[Drigo]

Na Lanyok, fiuk!

A kovetkezo lenne a feladat:

Irjunk fajlagos adattarolasi koltseg szamolo programot!Bemeno adatok:

textboxban: hattertarolo ara (ft), kapacitasa (byteban) kimenet: fajlagos koltseg FT/Mbyteban labelben. vigyazat!vannak terrabyteos hattertarolok is es a mega =1024^2


Basicben kene most 6.0 es a gyotztesnek jar a 10 sor!

Aki regelve van barmilyen forumon kerem terjessze!

[Frank Rijkaard]

Nagyon megköszönném, ha be tudnátok bökni ide pár oldalt, ahonnan lehet új Barca mezt rendelni. Nekem egy Deco-s kellene.
Előre is kössz

[VIII.Henrik]

A jó kapusnak is szerencséje van, ne keress kifogásokat! Grat a 109ért!

[HAnonymus]

Vigyázzál uramkirályom, 109%kal teljesítettem a meglehetősen komolytalan Informatikai rendszerek tárgyat, azért nem piskóta... Más kérdés hogy kifogtam a leginkább vajszívű gyakvezért, meg iszonyatos mákom volt... De hogy 10 sörrel mit csinálnék ha összejönne...

[VIII.Henrik]

Nyugodtan írjátok ide, legalább elhisszük, hogy vannak ilyen emberek a világon. Azért látom nem igazán tartoztok az enter-fejűek közé (ezt örömmel látjuk, de drukkolunk Nektek a zh-kon, vizsgákon), én meg nem is okoskodok itt továb, mert a programozás és én az aztán . . . az ég és a Föld esete.

Azé' hajrá!

[HAnonymus]

Jó, ha megkaptad tedd fel ebbe a topikba (mert úgy láttam a privát nem ment el), nem igérek semmit, ha épp gépközelben leszek és meg is tudom csinálni akkor segítek. Na báj!

[Drigo]

Húúú Dzsó az para... Nem tudom hogy kéne, félek hogy bemondom itt neked a tutit aztán kakiban maradsz mert nem tudom megoldani a cuccot. Eleve nem tudom hogy gondolod hogy majd elküldöd a cuccot....

Hát igen Dzsó...Gondoltam tolok egy mailt vagy valami esetleg itt egy pü.

Ja ha írsz vissza pü-ben, mert gondolom a többieket nem nagyon érdekli a mi diskurzusunk

[HAnonymus]

Húúú Dzsó az para... Nem tudom hogy kéne, félek hogy bemondom itt neked a tutit aztán kakiban maradsz mert nem tudom megoldani a cuccot. Eleve nem tudom hogy gondolod hogy majd elküldöd a cuccot....

[Drigo]

Hát ez meleg... Nem tudom akkor gépközelben leszek e, regelnem kéne az egyetemi wireless cuccon és vinni egy laptopot mert a hszkban nem lehet msnezni. Ki a gyakvezed? mert a bonyolultabbakat tutkó nem tudnám, és van aki szivatósat ad. Elsős vagyok egyébként és ma írtam prog zht.

(Asszem)Molnár József, vagyis Joe benn volt zh-n is ő írta fel a pót zh időpontokat.Tipikus kocka és sajnos a zh bukónak néz ki...

[HAnonymus]

Hát ez meleg... Nem tudom akkor gépközelben leszek e, regelnem kéne az egyetemi wireless cuccon és vinni egy laptopot mert a hszkban nem lehet msnezni. Ki a gyakvezed? mert a bonyolultabbakat tutkó nem tudnám, és van aki szivatósat ad. Elsős vagyok egyébként és ma írtam prog zht.

[Drigo]

10 üveg sörért én tudok Drigo, főleg hogy én is a gépészkarra járok csak eddig lusta voltam bebökni. Mi a téma? Aztán nem bizti hogy meg tudom csinálni.

Na végre valaki (Talán)... A helyzet a következő:

Holnap írunk programozásból ZH-t Neked akkor kéne gépközelbe lenned én elküldeném a megirandó programot Te összedobnád és vissza Nekem, ez így megoldható?(A sörért szenvedni kell) A ZH Negyed 4kor kezdődik.Na?Hányad éves vagy?

[HAnonymus]

10 üveg sörért én tudok Drigo, főleg hogy én is a gépészkarra járok csak eddig lusta voltam bebökni. Mi a téma? Aztán nem bizti hogy meg tudom csinálni.

[Chris0527]

samsung sgh e250es. köszi

én még nem találtam élő embert aki tudott volna samsungra játékot rakni énis probáltam de sehogy nem jött össze pedig elv direkt samsung játékot szedtem le szal ha vki tudna neki segíteni az rajtam is segítene

[Kralo]

ÉS PIChez ki ért egy láda sörért?