Hirdetés
Új hozzászólás Aktív témák
-
Brown ügynök
senior tag
válasz
Brown ügynök
#1478
üzenetére
Az a lényeg, hogy a-t behelyettesítve mindig negatív oldalról közelít a 0-hoz, b-t behelyettesítve pedig pozitív oldalról.
-
Brown ügynök
senior tag
válasz
Brown ügynök
#1476
üzenetére
Itt lesz a megoldás elrejtve: [link] Azt szeretném kérdezni, hogy az első példában mikor helyettesítünk"a"-ba és mikor "b"-be?
-
Brown ügynök
senior tag
Annuitásos módszerrel ki kell számolnom a hitel törlesztőrészletet egy adott futamidőre. Ez excelben a célérték kereséssel könnyen megoldható. Azonban nekem úgy kell megírnom a programot, hogy excel beágyazás ne legyen benne.
Addig sikerült eljutni, hogy ha a kintlévőség a futamidő végére nem nulla akkor case select állapotokkal meghatározom, mennyit korrigáljon (mennyit adjon hozzá / vegyen el) a törlesztőrészleten. Pl:
Select Case kintlévőség
Case 500 To 1000
törlesztő += 0.1
stb.Ez így baromi hosszú programkódot eredményez. Ezt kellene nekem valami matematikai összefüggés segítségével redukálnom. Bármilyen konstruktív ötletet jöhet, pl. segítenétek megérteni, hogyan is működik a goal seek fv. az is nagy segítség lenne (azt hiszem).
-
Brown ügynök
senior tag
válasz
Brown ügynök
#1460
üzenetére
1. Ha a sorszám = 0 akkor kiíródnak az alapadatok.
2. A Next előtt, miután hozzáadtuk az aktuális sort megvizsgáljuk a szükséges cella értékét. Ha nem 0 akkor változtatunk a szükséges értékeken.
3. Me.DataGridView1.Rows.Clear()
-
Brown ügynök
senior tag
Lenne egy problémám, amivel már sokat foglalkoztam de nem akar összejönni a megoldás...
Cél: Azt szeretném elérni, hogy a Do Loop Until ciklus addig futtassa a For Next ciklust, amíg a For Next ciklus végére az egyik cella értéke el nem éri a nullát.
A For Next lefutása esetén annyi történik, hogy a DataGridView-hoz hozzáadódik egy újabb sor, bizonyos számított értékekkel. Ezt egészen addig teszi amíg a futamidő tart (pl. 12 hónap, 12 sor). Igen ám, de a 0. sorban szeretném megjeleníteni a kiinduló értékeket, (tehát összesen 13 sor jelenne meg ) Hogy lehetne ezt megoldani?
Következő kérdés: A Do Loop Until-nak addig kellene futnia, amíg For Next ciklusban a ciklus végére az egyik oszlop értéke 0 nem lesz. Tehát valahogy érték változásokat kellene rögzítenem, mielőtt újból lefut a For Next. Hol változtassam meg az értéket, hogy a For Next a megváltozott értékekkel fusson?
És egy utolsó kérdés. Amikor a For Next lefutott ( 13 sor ), hogyan tudom eltüntetni ezeket a sorokat és a legközelebbi számításnál, újra csak 13 sort megjeleníteni?
Nagy segítség lenne.

-
Brown ügynök
senior tag
válasz
Brown ügynök
#1458
üzenetére
Sikerült így megoldani:
Private Sub Szamolas() Handles btnCalculate.Click
Dim DatumCH As Date
Dim Datum As String
Dim Hitel As Int32
Dim DG As New DataTable()
Dim lRow As New DataGridViewRow
DatumCH = DateTimePicker1.Value
Datum = DatumCH.ToString()
Hitel = NumericUpDown1.Value
Dim Cell1 As New DataGridViewTextBoxCell
Cell1.Value = Hitel
lRow.Cells.Add(Cell1)
Dim Cell2 As New DataGridViewTextBoxCell
Cell2.Value = Datum
lRow.Cells.Add(Cell2)
grdTorlesztesiTerv.Rows.Add(lRow)
End SubNa most így minden cella értékét sorban kell megadni (ahogy a fejléc diktálja). Ez hasonlít kicsit a javascriptre. Van ennél egyszerűbb / jobb megoldás? Vagy egyéb tanács?
-
Brown ügynök
senior tag
Nemrég kezdtem el VB.NET-t tanulni VS 2008 E-n. A feladat egy hiteltörlesztő program elkészítése lenne, ami a megadott paraméterek alapján kiszámítaná a törlesztés összegét havi bontásban és ezt táblázatos formában jelenítené meg.
Egyelőre annyit szeretnék, hogy a megadott adatokat (dátum, futamidő, stb.) kiírassam a táblázat első sorába. Eddig jutottam a dátummal:
Private Sub Szamolas() Handles btnCalculate.Click
Dim Datum As Date
Dim Grid As String
Datum = DateTimePicker1.Text
Grid = Datum
End SubTisztában vagyok vele, hogy a Grid = Datum nem jó de a neten nem tudtam kiszűrni ezt kis részt ami nekem kell.
Új hozzászólás Aktív témák
- Revolut
- One otthoni szolgáltatások (TV, internet, telefon)
- Red Dead Redemption 2 (PC)
- Google Pixel topik
- Milyen okostelefont vegyek?
- Azonnali VGA-s kérdések órája
- Windows 11
- SörcsaPH!
- HiFi műszaki szemmel - sztereó hangrendszerek
- Ez a tágas mikrotorony már faberakással is választható
- További aktív témák...
- Telefon felvásárlás!! iPhone 11/iPhone 11 Pro/iPhone 11 Pro Max
- Samsung Galaxy S23 Ultra Green 120 Hz Dynamic AMOLED 2X, 200 MP kamera, beépített S Pen
- 157 - Lenovo LOQ (15ARP9) - AMD Ryzen 7 7435HS, RTX 4060 (ELKELT)
- HIBÁTLAN iPhone 12 Pro 256GB Graphite - 1 ÉV GARANCIA - Kártyafüggetlen, MS3283
- Lenovo Thinkpad X13 Gen1 Ryzen5 4650U Refurbished
Állásajánlatok
Cég: PCMENTOR SZERVIZ KFT.
Város: Budapest
Cég: NetGo.hu Kft.
Város: Gödöllő




