- iPhone topik
- Samsung Galaxy A36 5G - a középső testvér
- Vivo X200 Pro - a kétszázát!
- Samsung Galaxy S23 Ultra - non plus ultra
- Apple iPhone 16 Pro - rutinvizsga
- Hammer 6 LTE - ne butáskodj!
- Honor 400 Pro - gép a képben
- Galaxy Z Fold6-hoz viszonyítva mutatják, mennyivel lesz vékonyabb a Z Fold7
- MIUI / HyperOS topik
- Okosóra és okoskiegészítő topik
Ú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
Hirdetés
- Nintendo Switch 2
- Mielőbb díjat rakatnának a görögök az olcsó csomagokra az EU-ban
- Telekom otthoni szolgáltatások (TV, internet, telefon)
- iPhone topik
- Beszántaná a marketingért felelős részlegét az Intel
- sziku69: Szólánc.
- Formula-1
- CURVE - "All your cards in one." Minden bankkártyád egyben.
- Milyen asztali (teljes vagy fél-) gépet vegyek?
- Óvodások homokozója
- További aktív témák...
- AMD Ryzen 7 5700X processzor eladó /Garanciás/
- Xbox Series S + 2 kontroller
- Dell laptop eladó i5 11. gen, 8GB RAM, 512GB SSD, újszerű állapotban!
- Bomba ár! HP EliteBook Folio 1040 G1 - i5-G4 I 8GB I 256GB SSD I 14" HD+ I Cam I W10 I Garancia!
- Bomba ár! HP Elitebook Folio 9470M - i5-3GEN I 8GB I 256GB SSD I 14" I DP I Cam I W10 I Garancia!
- LG 65QNED86T / 65" - 164 cm QNED / 4K UHD / 120Hz & 3ms / HDR 10 Pro / FreeSync Premium / HDMI 2.1
- BESZÁMÍTÁS! Gamer számítógép Asus B150M i3 6100 16GB DDR4 240GB SSD GTX 1050 Ti 4GB Sharkoon 500W
- Bomba ár! Lenovo ThinkPad L480 - i5-8GEN I 8-16GB I 256GB SSD I 14" FHD I HDMI I Cam I W11 I Gari!
- Eladó ÚJ, BONTATLAN Samsung Galaxy A05s 4/64GB ezüst / 12 hónap jótállással!
- Új Apple iPhone 16e 128GB, Kártyafüggetlen, 3 Év Garanciával
Állásajánlatok
Cég: Promenade Publishing House Kft.
Város: Budapest
Cég: PC Trade Systems Kft.
Város: Szeged