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

Hirdetés

Legfrissebb anyagok

PROHARDVER! témák

Mobilarena témák

IT café témák

GAMEPOD témák

LOGOUT témák

Keresés

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

T_bee aktív tag

#2460
#2456 mariann71
2014-06-17 23:37:59

Ú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

T_bee

aktív tag

#2456 mariann71

#2456 mariann71
Sziasztok!
A segítségeteket szeretném kérni. Hogyan tudok egy több ezer soros oszlopból transzponálni 5 sorosáva? példa:
1
2
3
4
5
6
7
8
9
10
Eredmény:
12345
678910
Nagyon köszönöm ha válaszoltok!

Szia,
Nézd meg ezt a kódot, szerintem azt csinálja, ami neked kell:
Sub transzponal() Dim inp, res As Variant Dim r As Range Dim n As Integer inp = Range(Cells(1, 1), Cells(22, 1)) 'itt olvassa be a program az induló adatokat n = Int(UBound(inp) / 5) 'itt nézi meg, hogy hány sor lesz az új tömb If UBound(inp) Mod 5 <> 0 Then n = n + 1 ReDim res(1 To n, 1 To 5) For i = 1 To n For j = 1 To 5 If (i - 1) * 5 + j > UBound(inp) Then Exit For res(i, j) = inp((i - 1) * 5 + j, 1) Next j Next i Set r = Range(Cells(1, 2), Cells(n, 6)) 'itt lehet megadni hogy hova outputolja az eredményt r = res End Sub
Üdv
T_bee
T_bee aktív tag

#220
#217 Victorius
2005-05-10 20:21:42

Ú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

T_bee

aktív tag

#217 Victorius

#217 Victorius
Próbáltad már a VAL függvényt?

számváltozó=VAL(füzér)

Azt hiszem, tud oktálist és hexadecimálist is értelmezni. Úgy tudom, megáll az első jegynél, ami nem szám. Ha ennél összetettebb dolog kell (mint mondjuk amit leírtál), akkor azt magadnak kell ''megprogramoznod''.

köszi, erre volt szükségem
T_bee aktív tag

#216 2005-05-09 21:05:21

Ú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

T_bee

aktív tag

Hali
Az lenne a kérdésem. hogyan lehet VB-ben egy szöveges változóban tárolt számot áttenni számváltozóba úgy, hogy ha a szöveges változóban nem szám van, akkor ne fagyjon meg a progi, hanem mondjuk egy harmadik változóba eltárolja hogy a szöveges változó hanyadik karaktere nem számjegy
remélem érthető voltam, köszi a választ
T_bee
T_bee aktív tag

#81 2004-11-19 19:22:27

Ú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

T_bee

aktív tag

hülyeséget kérdeztem?
T_bee aktív tag

#80 2004-11-18 20:03:59

Ú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

T_bee

aktív tag

Hello

lenne pár kérdésem:
1. ha csinálok valami dhtml oldalt VBvel akkor azt ki lehet menteni index.html nek?
ha igen hogy?
2. meg lehet-e csinálni olyat, hogy vannak regisztrált felhasználók, és ők a saját jelszavukkal tudnak csak bejelentkezni? tehát el lehet-e menteni a felhasználó-jelszó tömböt valami külső fájlba, amiben később tudok keresgélni?

köszi
T_bee aktív tag

#61
#60 T_bee
2004-06-12 18:59:29

Ú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

T_bee

aktív tag

#60 T_bee

#60 T_bee
köszi...

megin nem akar menni a kivonás a listából, de rájöttem hogy a számok hosszával van kapcsolatban a probléma. valakinek ötlete hogy lehetne megoldani? jelenleg így néz ki a programsor: Private Sub szamit_Click()
'Számítás
Dim p900 As Double
If ossz <> 0 And tabhosssz <> 0 And tabbszel <> 0 And tabch = False And tebch = False Then
table = tabhossz * tabszel
tabter.Text = table
szam = ossz / table
proba = Int(szam)
p900 = szam - proba
If p900 = 0 Then tabszam.Text = szam
If p900 <> 0 Then tabszam.Text = proba + 1

Else
Dim c As Integer
c = MsgBox(''Add meg az adatokat'', vbInformation, ''Hiba'')
End If
End Sub

köszi

hoppá... most olvasom és rájöttem hogy ez nem a kivonnó eljárás...

Private Sub Command4_Click()

If List1.Text <> '''' Then
If mag >= 10 And szele >= 10 Then
s1 = Left(List1.Text, InStr(List1.Text, ''x'') - 1)
s2 = Right(List1.Text, InStr(List1.Text, ''x'') - 1)
listitem = Val(s1) * Val(s2)
List1.RemoveItem List1.ListIndex
ossz = ossz - listitem
mem.Text = ossz
i = i - 1
ElseIf mag >= 10 And szele <= 10 Then
s1 = Left(List1.Text, InStr(List1.Text, ''x'') - 1)
s2 = Right(List1.Text, InStr(List1.Text, ''x'') - 2)
listitem = Val(s1) * Val(s2)
List1.RemoveItem List1.ListIndex
ossz = ossz - listitem
mem.Text = ossz
i = i - 1
ElseIf mag <= 10 And szele >= 10 Then
s1 = Left(List1.Text, InStr(List1.Text, ''x'') - 1)
s2 = Right(List1.Text, InStr(List1.Text, ''x''))
listitem = Val(s1) * Val(s2)
List1.RemoveItem List1.ListIndex
ossz = ossz - listitem
mem.Text = ossz
i = i - 1
End If
Else
d = MsgBox(''Nincs kijelölt adat!'', vbInformation, ''Hiba'')
End If

End Sub

na ez lenne az, ha valaki rájön hogy mi benne a hiba annak megköszönném.
T_bee aktív tag

#60
#58 blemidon
2004-06-12 13:13:35

Ú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

T_bee

aktív tag

#58 blemidon

#58 blemidon
ActiveX controlok vannak emailezésre, MAPISession és MAPIMessages néven, azokat kéne megnézned.
Baloldalt ToolBaron jobbgomb, Components, és a Controls fülön beixeled a Microsoft MAPI Controls 6.0-t, akkor meg fognak jelenni ezek is.

köszi...

megin nem akar menni a kivonás a listából, de rájöttem hogy a számok hosszával van kapcsolatban a probléma. valakinek ötlete hogy lehetne megoldani? jelenleg így néz ki a programsor: Private Sub szamit_Click()
'Számítás
Dim p900 As Double
If ossz <> 0 And tabhosssz <> 0 And tabbszel <> 0 And tabch = False And tebch = False Then
table = tabhossz * tabszel
tabter.Text = table
szam = ossz / table
proba = Int(szam)
p900 = szam - proba
If p900 = 0 Then tabszam.Text = szam
If p900 <> 0 Then tabszam.Text = proba + 1

Else
Dim c As Integer
c = MsgBox(''Add meg az adatokat'', vbInformation, ''Hiba'')
End If
End Sub

köszi
T_bee aktív tag

#57 2004-06-11 11:56:55

Ú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

T_bee

aktív tag

Na, sekerült az előző problémát is megoldani, úgyhogy most jöhet a következő:
van-e a VBben olyasmi parancs mint mondjuk a htmlben a mailto: parancs? tehát lehetr-e emailprogram emailüldő ablakát behívni adott címzéssel?
T_bee aktív tag

#56 2004-06-10 08:37:28

Ú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

T_bee

aktív tag

Hi

szerintetek mi a hibaa ebben a kódban?

Private Sub vesz_Click()
If List1.Text <> '''' Then
s1 = Left(List1.Text, InStr(List1.Text, ''*'') - 1)
s2 = Right(List1.Text, InStr(List1.Text, ''*'') - 1)
listitem = Val(s1) * Val(s2)
List1.RemoveItem List1.ListIndex
index = index - listitem
ered.Text = index
i = i - 1
Else
d = MsgBox(''Nincs adat!'', vbInformation, ''Hiba'')
End If
End Sub

mer csak a list1.list utolsó elemét vonja ki rendesen

köszi
T_bee aktív tag

#51 2004-06-09 16:52:00

Ú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

T_bee

aktív tag

senki?
T_bee aktív tag

#50 2004-06-09 10:16:23

Ú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

T_bee

aktív tag

valaki?

[Szerkesztve]
T_bee aktív tag

#49 2004-06-08 20:13:33

Ú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

T_bee

aktív tag

meg még 1 kérdés: Linuxok alatt működik a microsoft visual studio 6, meg a VB?
T_bee aktív tag

#48 2004-06-08 18:43:29

Ú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

T_bee

aktív tag

hi

mi a hiba atz alábbi kóddal? mer nekem sajna nem fogadja el

pivate sub command1_click

dim szam as string
dim i as byte
i=i+1
list1.additem szam,i

end sub

na ez nem akar mennni, és nagyon zavar, hogy nem tudok az elemeknek külön indexet adni

köszi
T_bee aktív tag

#46
#45 blemidon
2004-06-03 19:07:32

Ú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

T_bee

aktív tag

#45 blemidon

#45 blemidon
A listboxban 5*6 stb formátumban vannak az elemek.
A következő függvény egy ilyen stringet alakít vissza az eredménnyé:

Private Function ListItemFromText(s As String) As Integer

Dim x As Integer
Dim s1 As String, s2 As String

s1 = Left(s, InStr(s, ''*'') - 1)
s2 = Right(s, InStr(s, ''*'') - 1)
ListItemFromText = Val(s1) * Val(s2)

End Function

Meghyvod az épp törölni kívánt listelemmel, és visszaadja hogy mennyi annak a számértéke, ezt már ki tdod vonni a q-ból.

köszi, de ez csak az utolsó beírás értékének törlésére jó jó
olyan kéne, hogy az éppen kiválaszott elemének az értékét lehessen törölni
T_bee aktív tag

#44
#43 T_bee
2004-06-03 11:23:41

Ú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

T_bee

aktív tag

#43 T_bee

#43 T_bee
ok.
tehát a list1.list listán vannak elemek: a 120 indexxel, b 240 indexxel. el szeretném távolítani a elemet a listáról. ezt hogy lehet?

na. már rájöttem erre is
DE.
van egy progi, ami bekér két számot text1 és text2 vezérlőben, a és b változóba.

Private Sub Command1_Click()
If i = False And j = False Then
c = a
c = c + ''*''
c = c + b
o = a * b
index = a * b
List1.AddItem = c
q = q + o
Text3.Text = q
End If
End Sub

és ha a lista egyik elemét törlöm akkor hogy lehet annak az értékét( tehát az elem c változójának értékét) törölni egy másik Q változóból?
T_bee aktív tag

#43
#42 blemidon
2004-06-03 10:42:29

Ú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

T_bee

aktív tag

#42 blemidon

#42 blemidon
Milyen lista? Milyen elemek? Milyen beírás? Milyen indexek?
Légyszíves próbálj meg konkrétabban kérdezni, akkor talán válaszolni is tudunk
(Már az előző listcontrolos kérdésed sem volt vmi egyértelmű

ok.
tehát a list1.list listán vannak elemek: a 120 indexxel, b 240 indexxel. el szeretném távolítani a elemet a listáról. ezt hogy lehet?
T_bee aktív tag

#40
#39 Sopi
2004-06-02 21:08:51

Ú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

T_bee

aktív tag

#39 Sopi

#39 Sopi
THX D!!!!
Ugyan nem ez lett a vége, de hála neked megtudtam, hogy kell írni, mivel én mindenre gondoltam, csak arra nem, hogy simán Index

Private Sub imgTaska_Click(Index As Integer)
n = Index
End Sub

Ennyi
KIRÁLYSÁG!

tudod... A jó űttörő ott segít ahol tud
na nekem is van kérdésem, hogy lehet a listáról kiválasztott elemeket törölni?
meg hogy lehet a listán a beírásokhoz tartozó indexeket összeadni?
T_bee aktív tag

#38
#36 Sopi
2004-06-02 20:39:01

Ú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

T_bee

aktív tag

#36 Sopi

#36 Sopi
Helló!

Nem rég kezdtem el VB-ben programozni.
De kéne egy kis segítség.
Van 21objektum(kép). Nevük tömbben van.
Taska(0), Taska(1), Taska(2), ... Taska(20)
Így ugye ugyanaz a Clicked esemény fog tartozni mind, a tömbben lévő képre.
Hogy tudnám megoldani, hogy annak az elemnek az Indexét olvassam ki, amelyik képre kattintok.
PL.:
ha a Taska(5) nevűre kattintok n legyen egyenlő 5-el.

(Remélem érthető, mit akarok)

asszem
private sub taska.click (index as integer)
if case index
case 0 then
.
.
.
case 1 then
.
.
.
end selectt
T_bee aktív tag

#31 2004-05-17 20:19:26

Ú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

T_bee

aktív tag

hi

az lenne a kérdésem, VB6ban hogyan lehet a list vezérlőnek különböző elemeket értéknek megadni, meg hogy hogy lehet az egyes elemekre való kattintást érzékelni

kösz

T_bee