Keresés: - Visual Basic - Fototrend Hozzászólások

LOGOUT témák

PROHARDVER! témák

Mobilarena témák

IT café témák

GAMEPOD témák

Keresés

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

dani850430 csendes tag

#1366
#1365 #90999040
2011-03-29 14:32:06

Ú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

dani850430

csendes tag

#1365 #90999040

#1365 #90999040
Ha csak 1-szerű sorbarendezést szeretnél:
Private Sub Command2_Click() Dim rendezendoe As Boolean Dim szamlalo As Integer Dim temp As String Do rendezendoe = False For szamlalo = 0 To List1.ListCount - 2 If (List1.List(szamlalo) > List1.List(szamlalo + 1)) Then rendezendoe = True temp = List1.List(szamlalo) List1.List(szamlalo) = List1.List(szamlalo + 1) List1.List(szamlalo + 1) = temp End If Next Loop Until rendezendoe = False End Sub

Köszönöm szépen
dani850430 csendes tag

#1364 2011-03-29 12:01:57

Ú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

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

#1332 2010-12-18 16:12: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

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 BindingCollection
Private Sub Command1_Click()
cn.Close
End Sub
Private 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 Sub
Az 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

#1238 2010-08-16 15:14:14

Ú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

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

#1232 2010-08-12 21:14:06

Ú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

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

#1230 2010-08-11 18:59:52

Ú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

dani850430

csendes tag

Közben sikerült megoldanom. Minden az ábrán....
dani850430 csendes tag

#1228 2010-08-11 11:04:19

Ú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

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

#1212 2010-07-03 12:53:16

Ú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

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

#1210 2010-07-03 09:07:49

Ú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

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!