Új hozzászólás Aktív témák

• RexpecT addikt

  #1547

  #1544 martonx

  2011-12-04 14:54:30

  Új Válasz

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  

  RexpecT

  addikt

  #1544 martonx

  #1544 martonx

  Itt ma senki nem tud értelmesen beszélni? Az előbb egy emberke betett ide egy rakás kódot, de nem kért semmit, aztán meg írta, hogy tárgytalan, sosem fogjuk megtudni mit szeretett volna.
  Most jössz te, beömlesztesz ide egy rakás információt, csak éppen az nem derül ki, hogy mit is akarsz.
  Tanuljunk már meg kérdezni, és válasszuk már el a lényeget a lényegtelentől. Első körben csak erre válaszolj 1-2 mondatban:
  MI A FELADAT? Mit akarsz csinálni?
  Nem érdekel a listview-d, nem érdekelnek a collection-ök rokoni kapcsolatai. Azt mondd meg, hogy mi az alap felállás, mit szeretnél megoldani a programoddal?

  Ha Neked ennyi nem elég a feladat megértéséhez, az nem az én bajom . Prog.hu-n egyből kaptam választ pedig az itteni HSZ-emet írtam oda is be.

• RexpecT addikt

  #1542

  #1541 martonx

  2011-12-03 13:51:00

  Új Válasz

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  

  RexpecT

  addikt

  #1541 martonx

  #1541 martonx

  Amúgy se derült ki, hogy mit szeretnél.

  Ott volt a leírásban, a függvény megkap egy sztringet amiben számok állnak vesszővel elválasztva ezek közül adja vissza a két legnagyobb szám összegét:

  Function osszead(param As String)
  Dim szoveg() As String, szam1 As Integer, szam2 As Integer, i As Integer
  szoveg = Split(param)
  For i = LBound(szoveg) To UBound(szoveg)
  If szam1 < szoveg(i) Then
  If szam2 < szoveg(i) Then
  szam1 = szam2
  szam2 = szoveg(i)
  Else
  szam1 = szoveg(i)
  End If
  End If
  Next i
  osszead = szam1 + szam2
  End Function
  
  Sub main()
  Dim szamok As String
  szamok = "1 2 3 20 5 6 8 9 8"
  MsgBox osszead(szamok)
  End Sub

• RexpecT addikt

  #1540

  #1539 RexpecT

  2011-12-03 13:21:22

  Új Válasz

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  

  RexpecT

  addikt

  #1539 RexpecT

  #1539 RexpecT

  Lenne egy feladatom:
  Készítsen olyan függvényt, ami a paraméterként egyetlen sztringet kap, ami egész számokat tartalmaz szóközzel elválasztva. A függvény adja vissza a két legnagyobb szám összegét. A sztring legalább két számot tartalmaz.

  Function osszead(param As String)
  
  Dim szoveg() As String
  Dim szam1 As Integer
  Dim szam2 As Integer
  szoveg = Split(param)
  
  
  First = LBound(szoveg)
  Last = UBound(szoveg)
  For i = First To Last - 1
  For j = i + 1 To Last
  If szoveg(i) > szoveg(j) Then
  Temp = szoveg(j)
  szoveg(j) = szoveg(i)
  szoveg(i) = Temp
  End If
  Next j
  Next i
  
  szam1 = szoveg(i)
  szam2 = szoveg(j)
  
  osszead = szam1 + szam2
  
  End Function
  
  Sub main()
  Dim szamok As String
  szamok = "1 2 3 20 5 6 8 9 8"
  MsgBox osszead(szamok)
  End Sub

  Már tárgytalan .

• RexpecT addikt

  #1539 2011-12-03 11:51:45

  Új Válasz

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  

  RexpecT

  addikt

  Lenne egy feladatom:
  Készítsen olyan függvényt, ami a paraméterként egyetlen sztringet kap, ami egész számokat tartalmaz szóközzel elválasztva. A függvény adja vissza a két legnagyobb szám összegét. A sztring legalább két számot tartalmaz.

  Function osszead(param As String)
  
  Dim szoveg() As String
  Dim szam1 As Integer
  Dim szam2 As Integer
  szoveg = Split(param)
  
  
  First = LBound(szoveg)
  Last = UBound(szoveg)
  For i = First To Last - 1
  For j = i + 1 To Last
  If szoveg(i) > szoveg(j) Then
  Temp = szoveg(j)
  szoveg(j) = szoveg(i)
  szoveg(i) = Temp
  End If
  Next j
  Next i
  
  szam1 = szoveg(i)
  szam2 = szoveg(j)
  
  osszead = szam1 + szam2
  
  End Function
  
  Sub main()
  Dim szamok As String
  szamok = "1 2 3 20 5 6 8 9 8"
  MsgBox osszead(szamok)
  End Sub

• RexpecT addikt

  #1455 2011-09-21 18:47:39

  Új Válasz

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  

  RexpecT

  addikt

  Értem, köszi a válaszokat.Ezen kívül még lesz Progab1 illetve Proglab2 tárgyam is majd a következő és a rákövetkező félévben.Eddig ott vagy C# vagy JAVA vagy PHP volt, ha jól tudom, de most lehet változtatnak.De a lényeg, hogy hasznát lehet venni a munkaerőpiacon .

• RexpecT addikt

  #1452 2011-09-20 22:33:15

  Új Válasz

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  

  RexpecT

  addikt

  Előző félévben C++ -ot tanultam az egyetemen, ebben a félévben VB lesz.Mennyire piacképes a nyelv?Szerintem a C++ -ot érdemesebb lett volna folytatni, szélesebb felhasználást biztosít.Vagy rosszul gondolom, jöhetnek a Pro és Kontra érvek .Egyébként Gazdaság Informatika szakra járok.

Új hozzászólás Aktív témák