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

• #6787 4ron senior tag

  Új Válasz 2013-03-03 18:23:59 #6787

  Ú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

  Privát üzenet küldése

  

  4ron

  senior tag

  Valaki meg tudna nekem oldani 3 feladatot és leírná a programkódot? A Visual Basic topikban írtam ki a kérdést...

  ⭐ Revolut meghívó ajándék 7500 Ft bónusszal | Raiffeisen Bank meghívó változó ajánlói bónusszal ⭐ Kérd privát üzenetben tőlem!

• #6826 4ron senior tag

  Új Válasz 2013-03-09 22:58:43 #6826

  Ú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

  Privát üzenet küldése

  

  4ron

  senior tag

  Adott a következő kód:
  Dim i, j As Integer
  
  For i = 1 To 3
  For j = 1 To 2
  Console.WriteLine("i=" & i & " j=" & j)
  Next
  Next
  
  Console.ReadLine()

  Valaki el tudná nekem magyarázni, hogy az eredmény miért lesz:
  i=1 j=1
  i=1 j=2
  i=2 j=1
  i=2 j=2
  i=3 j=1
  i=3 j=2

  Tudom, hogy alap, de szerbül tanulom és nem értem.

  ⭐ Revolut meghívó ajándék 7500 Ft bónusszal | Raiffeisen Bank meghívó változó ajánlói bónusszal ⭐ Kérd privát üzenetben tőlem!

• #6828 4ron senior tag Jim-Y #6827

  Új Válasz 2013-03-09 23:10:26 #6828

  Ú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

  Privát üzenet küldése

  

  4ron

  senior tag

  válasz Jim-Y #6827 üzenetére

  köszi, így már érthető

  ⭐ Revolut meghívó ajándék 7500 Ft bónusszal | Raiffeisen Bank meghívó változó ajánlói bónusszal ⭐ Kérd privát üzenetben tőlem!

• #6863 4ron senior tag

  Új Válasz 2013-03-27 10:40:58 #6863

  Ú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

  Privát üzenet küldése

  

  4ron

  senior tag

  Üdv.

  Az egyetemen van programozás tantárgyam és Basic-ben dolgozunk. A probléma csak az, hogy a könyv szerbül van és a parancsok működési elvének megértése néha igen nagy gondot okoz.

  Valaki tudna ajánlani egy jegyzetet, e-bookot vagy bármit, ahonnan az alapokat elsajátíthatom?
  Előre is köszönöm.

  ⭐ Revolut meghívó ajándék 7500 Ft bónusszal | Raiffeisen Bank meghívó változó ajánlói bónusszal ⭐ Kérd privát üzenetben tőlem!

• #7384 4ron senior tag

  Új Válasz 2013-09-23 22:19:39 #7384

  Ú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

  Privát üzenet küldése

  

  4ron

  senior tag

  Üdv.

  Elnézést, hogy ide is bemásolom, de 9-kor holnap már jön az akasztás, tehát sürgős a dolog
  Holnap lesz programozásból vizsgám, egyáltalán nem vagyok felkészülve (megint). Visual Basic, Console Application. Egy próbát tennék azért tennék, ugyanis megszereztem a júniusi feladatokat, ami a 6-osért volt (Szerbia) és ha hasonlót adna, akár szerencsével is járhatnék. A feladat így hangzik, DIY fordítással.
  1. Írj egy programot, amely fogad két paramétert és a két megadott paraméterben levő számjegyek számát kiírja a későbbiekben.
  Például: ha a megadott két paraméter "Újvidék 5" és "Szabadka 1960", akkor az alprogram vissza kell, hogy adja az 5-öt, mivel a két megadott paraméterben összesen 5 számjegy szerepel.
  2. Vezetéknév/Név/Év/Éves jövedelem/Munkáltatói azonosító/Munkáltató neve
  Írj egy programot, amely az EvesJovedelem.txt datotékát fogja használni és ez alapján készít egy jelentést. A felhasználó megadja a kritériumokat, melyek a következők: év, minimális és maximális kereset.
  A jelentésnek a következő oszlopokat kell tartalmaznia: sorszám/vezetéknév/név/év/éves jövedelem.
  A jelentést Console.SetCursorPosition() segítségével formázd meg.
  A jelentés végén ki kell írni a megadott eredményekből (tehát amik megfelelnek a megadott kritériumoknak), hogy összesen hány sor van megjelenítve, valamint az átlag keresetet a kilistázottaknak.
  A sorokat, amelyek megfelelnek a megadott kritériumoknak, be kell másolni az EvesJovedelemJelentes.txt datotékába.
  Elég gyenge magyar fordítás, de igazából nem is nagyon értem a 2. feladatot. Egyiket sem tudom konkrétan megcsinálni. Egyszer már kaptam itt PH!-n segítséget Bobrooney-tól, most gondoltam újra próbát teszek. Egy köszönömön kívül sajnos nem tudom máshogy meghálálni, tehát ha valaki segíteni tudna, ennyit tudnék csak visszaadni

  ⭐ Revolut meghívó ajándék 7500 Ft bónusszal | Raiffeisen Bank meghívó változó ajánlói bónusszal ⭐ Kérd privát üzenetben tőlem!

• #7385 4ron senior tag 4ron #7384

  Új Válasz 2013-09-23 23:36:20 #7385

  Ú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

  Privát üzenet küldése

  

  4ron

  senior tag

  válasz 4ron #7384 üzenetére

  Nagy nehézségek árán, de megküzdöttem az első feladattal Íme a kód, ha valakit érdekelne:
  Module Module1
  
  Sub Main()
  Dim strSzoveg1, strSzoveg2 As String
  Dim intEredmeny As Integer
  
  Console.WriteLine("Első szöveg:")
  strSzoveg1 = Console.ReadLine
  Console.WriteLine("Második szöveg:")
  strSzoveg2 = Console.ReadLine
  
  intEredmeny = Ellenorzes(strSzoveg1, strSzoveg2)
  
  Console.WriteLine(vbCrLf & "A megadott szövegben a számok mennyisége: " & intEredmeny)
  
  Console.ReadLine()
  End Sub
  
  Function Ellenorzes(ByRef strElso As String, ByRef strMasodik As String) As Integer
  
  Dim intCifre As Integer
  Dim chrKarakter, chrKarakter2 As Char
  Dim i, j As Integer
  
  For i = 1 To Len(strElso)
  chrKarakter = Mid(strElso, i, 1)
  
  If Asc(chrKarakter) <= Asc("9") And Asc(chrKarakter) >= Asc("0") Then
  intCifre += 1
  End If
  
  Next
  
  For j = 1 To Len(strMasodik)
  chrKarakter2 = Mid(strMasodik, j, 1)
  
  If Asc(chrKarakter2) <= Asc("9") And Asc(chrKarakter2) >= Asc("0") Then
  intCifre += 1
  End If
  Next
  
  Return (intCifre)
  
  End Function
  
  End Module

  ⭐ Revolut meghívó ajándék 7500 Ft bónusszal | Raiffeisen Bank meghívó változó ajánlói bónusszal ⭐ Kérd privát üzenetben tőlem!

• #17469 4ron senior tag

  Új Válasz 2022-05-05 12:22:40 #17469

  Ú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

  Privát üzenet küldése

  

  4ron

  senior tag

  Sziasztok,

  Valakinek van tapasztalata vagy ismerete az ITM által szervezett Újratervezési Programról? Most láttam, hogy holnap zárul a jelentkezés.

  Meló mellett nem lenne időm arra, hogy mondjuk egy GreenFoxnál a későbbiekben beiratkozzak képzésre, ha esetleg továbbjutok, de hátha adna ez valami olyan alapot, aminek hasznát veszem.

  ⭐ Revolut meghívó ajándék 7500 Ft bónusszal | Raiffeisen Bank meghívó változó ajánlói bónusszal ⭐ Kérd privát üzenetben tőlem!

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