Hirdetés
- Eldugott helyek Párizsban, amiket jó eséllyel még nem láttál... 2. rész.
- ASUS Maximus VIII Ranger Z170 6-7-8-9-10 gen támogatás (Coffeetime mod)
- DFI és DFI Lanparty gyűjteményem
- Möbelix Milan íróasztal - a tapasztalatok összeszerelés után
- Keychron V6 Max (HU) Mechanikus vezetéknélküli billentyűzet (Bluetooth, RF, USB)
- Luck Dragon: Asszociációs játék. :)
- laskr99: DFI és DFI Lanparty gyűjteményem
- GoodSpeed: Reklámmentesítés HyperOS-ben Xiaomi/POCO/Redmi
- Brogyi: CTEK akkumulátor töltő és másolatai
- sziku69: Fűzzük össze a szavakat :)
- sziku69: Szólánc.
- GoodSpeed: Egy bihari a Hajdúságban
- Meggyi001: Eldugott helyek Párizsban, amiket jó eséllyel még nem láttál... 2. rész.
- Real Racing 3 - Freemium csoda
- Elektromos rásegítésű kerékpárok
Új hozzászólás Aktív témák
-
dani850430
csendes tag
Sziasztok! VB6-tal kapcsolatban lenne kérdésem. Szeretnék számokat sorba rendezni. Van egy listám(list1), amihez egy gomb segítségével véletlen számokat adok. Egy másik gombbal pedig szeretném növekvő sorrendbe rendezni őket. Arra gondoltam, hogy páronként összehasonlítom az elemeket és az elem indexét kicserélem. Az elméleti megoldásom, hogy egy változóba eltárolom a lista elemek értékét, és ezt egy ciklussal léptetem a listavégig. Egy másik változó lenne az indexek, ami szintén egy ciklusban futna. Ha a k-dik elem kisebb, mint a k+1-dik, akkor a k-dik elem indexe legyen 0. A problémám az, hogy nem tudom összekapcsolni az elem értékét és az indexét. De vhogy sehogy sem akar működni. Tudna vki küldeni programkódot, vagy van vmi egyszerűbb megoldás? Előre is köszönöm.
-
dani850430
csendes tag
Sziasztok!
VB6.0-t használok. Adatbázisok tárgy keretében irtam egy progit, ami egy access adatbázisból szed ki adatok, és helyez el textboxokban, hogy aztán ezekkel számításokat végezzen a program.(tengely méretező program.) Ez igy néz ki:
Dim cn As New ADODB.Connection
Dim Qy As New ADODB.Command
Dim rs As New ADODB.Recordset
Dim Ta As New BindingCollection
Dim Tav As New BindingCollection
Dim Szija As New BindingCollection
Dim Tt As New BindingCollection
Dim Szt As New BindingCollectionPrivate Sub Command1_Click()
cn.Close
End SubPrivate Sub Form_Load()
cn.ConnectionString = "provider=Microsoft.Jet.OLEDB.4.0 ;User ID=;Data Source=" + App.Path + "\anyagok.mdb;"
cn.Open
Set Qy.ActiveConnection = cn
Qy.CommandText = "SELECT * FROM tengely"
rs.CursorLocation = adUseClient
rs.Open Qy, , adOpenDynamic, adLockBatchOptimistic
Set DataGrid1.DataSource = rs
DataGrid1.Refresh
Set Ta.DataSource = rs
Ta.Add Form1.Text6, "Text", "Tengely atmero"
Set Tav.DataSource = rs
Tav.Add Form1.Text7, "Text", "Tavolsag"
Set Szija.DataSource = rs
Szija.Add Form1.Text5, "Text", "Szijtarcsa atmero"
Set Tt.DataSource = rs
Tt.Add Form1.Text4, "Text", "Tengely tomeg"
Set Szt.DataSource = rs
Szt.Add Form1.Text3, "Text", "Szijtarcsa tomeg"
End SubAz lenne a kérdésem, hogy működik e dolog visszafele? Arra gondolok, hogy textboxok tartalmát kiirja egy adatbázisba. Mondjuk van 3 textboxom, amikbe a program futása során végzett számítások eredménye van. És ezeket szeretném egy adatbázis megfelelő oszlopaiba beirni. Illetve, ha ez megvan, hogyan tudom elérni, hogy az adatbázis sorait léptesse, illetve, hogy mentse el?
Előre is köszönöm a segítséget
-
dani850430
csendes tag
Sziasztok! Kerestem a VB6 súgójában meg neten is, hogyan tudok faktoriálist számolni. Eddig mindenhol azt láttam, hogy egy ciklust kell irni rá, és azzal meg lehet oldani. Az lenne a kérdésem, hogy valóban nem létezik rá operátor közvetelnül, mint ahogy matek órán megszokta az ember a felkiáltójelet.
-
dani850430
csendes tag
Igen Vb6-ot nyúzom. Tuldképpen nem vagyok annyira kezdő, csak az történt, hogy a múlt héten elveszett egy pár mappám, és volt egy programom, amit nyár elején irtam, és elveszett. És most újra kellett irnom. De végre kész van és még talán jobb is lett mint az első. BMEre járok, gépészmérnök szakra; és előző félévben az egyik tárgyam kapcsán újra elő kellett ásnom VBt
Akkor sikerült irnom egy egész pofás kis tengely méretező progit, ami access adatbázisből szedett adatokat. El vagyok VB6tal, egyenlőre elég. Amire nekem kell arra tökéletesen megfele. Nem tudom, hogy akarok e komolyabban programozni... Ez amolyan hasznos időtöltés. -
dani850430
csendes tag
Sziasztok! Azt hiszem egy nagyon primitív kérdésem van, de csak nem régen kezdtem bele a progaromzgatásba. Szóval a problémám: van két változom (x,y) és köztük van egy matematikai függvény kapcsalat (pl x=y^2). Az x értékem egy adott intervallumban mozog (1től 20). Egy parancsgomba hatására a két változom bekerül egy egy listába. Azt szeretném elérni, hogy ha a list1en klikkelek, kijelölök egy elemet, akkor a list2ben ugyanaz indexű elem is jelölödjön ki.
-
dani850430
csendes tag
martonx: Köszönöm, sikerült megoldani kerekítéssel. Bár erről sem tudtam, hogy létezik ilyen... Az ember mindig tanul vmit
-
dani850430
csendes tag
Sziasztok! Az lenne a kérdésem, hogy van e lehetősége arra, hogy egy single típusú változónak a pontosságát korlátozzam? Vb6-ot használok, és azt szeretném elérni, hogy ha elosztok két számot, akkor az eredményt csak 3 vagy 4 tizedes pontossággal irja ki, és ne 7 vagy 8-cal. Előre is köszönöm!
Új hozzászólás Aktív témák
- Apple iPhone 17 Pro 512GB Kék Színben Kártya-független,12 Hónap Garancia,Bontatlan 0 Perces Készülék
- Apple iPhone 17 Pro Max 256GB Narancssárga Színben Kártya-független,36 Hónap Garancia,Bontatlan
- Lenovo ThinkPad P14s Ryzen 5 PRO5650u 32GB RAM 512GB SSD 4GB dedikált VGA Érintőkijelző
- Apple iPhone 15 Pro, 128Gb, független, fekete, 1 év garancia
- AMD Ryzen 5 5600X 6-Core 3.7GHz AM4
- Apple iPhone XR / 128GB / Kártyafüggetlen / 12Hó Garancia / 95% akku
- ÁRGARANCIA! Épített KomPhone i5 13400F 16/32/64GB RAM RTX 5060 8GB GAMER PC termékbeszámítással
- Logitech G513 Carbon Tactile DE (3) (ELKELT)
- ÁRGARANCIA! Épített KomPhone Ultra 7 265KF 32/64GB RAM RTX 5070 12GB GAMER PC termékbeszámítással
- BESZÁMÍTÁS! ASROCK B650M R5 7600X 32GB DDR5 1TB SSD RX 6900XT OCF 16GB Zalman Z1 PLUS CM 1200W
Állásajánlatok
Cég: Promenade Publishing House Kft.
Város: Budapest
Cég: NetGo.hu Kft.
Város: Gödöllő