- sziku69: Fűzzük össze a szavakat :)
- sziku69: Szólánc.
- Luck Dragon: Asszociációs játék. :)
- D1Rect: Nagy "hülyétkapokazapróktól" topik
- lezso6: Nem látszik a kurzor Chrome alatt a beviteli mezőkben?
- vrob: Az IBM PC és a játékok a 80-as években
- eBay-es kütyük kis pénzért
- hdanesz: Elektromos autózás - első élmények
- Lalikiraly: SÜNI energiaital.
- zebra_hun: Hűthető e kulturáltan a Raptor Lake léghűtővel a kánikulában?
Új hozzászólás Aktív témák
-
#10382336
törölt tag
válasz
martonx
#1198
üzenetére
Az elején írtam, hogy DOS-ban írtam már egy programot.
Azt szeretném megvalósítani XP-n.
A program 2 db 12 V-os szirénát vezérel.A következő változói vannak:
Hálózatbekapcsolási idő
Hálozatkikapcsolási idő
Eggyes szünet
Eggyes be idő
Kettes szünet
Kettes be idő
SorrendA program a következőt csinálja:
A Hálozatkikapcsolási idő és a Hálózatbekapcsolási idő között az LPT kimenete 0.
A Hálózatbekapcsolási idő és a Hálozatkikapcsolási idő között olyan astabil
multivibrátorként működik amelynek állítható minden periódusideje.
Tehát napközben jelenleg:
180 mp szünet, majd
13 mp-ig szól az 1-es sziréna, majd
180 mp szünet, majd
13 mp-ig szól a 2-es szirénaA LPT porthoz készítettem egy panelt, amely a porton lévő jeleknek megfelelően
vezérli a megfelelő szirénát, vmint a hangerőket is tudom állítani.Jelenleg madárriasztóként használom, de megfelelő átalakítással bármilyen
gép, berendezés vezérelhető lenne vele.Ha tudsz más egyszerübb és modernebb megoldást erre a feladatra, és ennek
a lényegét leírod, azt köszönettel venném. -
martonx
veterán
válasz
#10382336
#1197
üzenetére
Ez szép, meg jó, de mit csinálsz az LPT-vel? Nekem az új gépemen már nincs is LPT port.
Előre bocsátom az alábbi sorokat viccnek szánom, nem sértésnek:
Azért biztos hasznos, és jó a programod, ha valaki a nagypapa padlásán talált elektronikai eszközöket akarja, az évekkel ezelőtt a szüleinek adományozott ősrégi, LPT portos gépvel programozni
Respekt!
-
#10382336
törölt tag
válasz
#10382336
#1196
üzenetére
Az LPT port programozására sikerült készítettem egy egyszerü kis
példaprogramot VB.NET - re. A lefordított program 16.5 Kbyte. CPU - használata
közel 0%.
A program XP-n tökéletesen működik!
Ha valaki kipróbálja VISTA-n megírhatná, hogy működik-e?
Ha valaki egyszerűbb megoldást tud azt is megírhatja.A program készítésének lépései:
1: "IO.DLL" letöltése. Pl. [innen]
2: "IO.DLL" bemásolása a C:\WINDOWS\SYSTEM mappéba. (NEM a system32 -be!!!)
3: Start menu futtatás parancsba beírni:
Regsvr32.exe C:\WINDOWS\SYSTEM\io.dll
Erre a parancsra a "REGSVR32.EXE" valószínűleg kiabálni fog,
hogy a fájl betöltése sikerült, de regisztrálni nem lehet.
Ezzel nem kell foglalkozni, "OK" oszt jó napot!4: "PARMON.EXE" letöltése. Pl. [innen]
A program 446 Kbyte. CPU használata 50-80%.5: Most jöhet a VB.NET indítása.
File menü - New project - Windowsapplication létrehozása6: Project menü - add class - "konzol.vb" osztály létrehozása.
A konzol tartalma:Public Class Konzol
Private Declare Sub PortOut Lib "io.dll" _
(ByVal Port As Integer, ByVal Value As Byte)
Private Declare Function PortIn Lib "io.dll" _
(ByVal Port As Integer) As Byte
Private esemeny As New System.Threading.AutoResetEvent(False)
Private megszakitas As System.Threading.TimerCallback = _
AddressOf végrehajtás
Private idozito As System.Threading.Timer, szamlalo As Integer
Sub adatki(ByRef adat As Byte)
PortOut(888, adat)
End Sub
Function adatbe() As Byte
adatbe = PortIn(888)
End Function
Sub start()
szamlalo = 0
idozito = _
New System.Threading.Timer(megszakitas, esemeny, 0, 1000)
End Sub
Sub állj()
idozito.Dispose()
End Sub
Sub végrehajtás(ByVal stateInfo As Object)
Dim autoEvent As System.Threading.AutoResetEvent = _
DirectCast(stateInfo, System.Threading.AutoResetEvent)
adatki(szamlalo) : szamlalo += 1
If szamlalo >= 256 Then szamlalo = 0
End Sub
End Class7: "Form1 [design]" fül aktiválása, majd Dupla katt a "Form" közepébe.
A form1 így nézzen ki:Public Class Form1
Private button1, button2 As New Button
Private konz As New Konzol, konzinditvae As Boolean = False
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
With button1 : .Top = 10 : .Left = 10 : .Text = "INDÍTÁS"
AddHandler .Click, AddressOf Indítás_Click
End With
With button2 : .Top = button1.Top : .Left = button1.Right + 5
.Text = "Állj"
AddHandler .Click, AddressOf Állj_Click
End With
With Me
AddHandler .FormClosing, AddressOf Form1_FormClosing
.Text = "LPT próba" : .Width = 185 : .Height = 75
With .Controls
.Add(button1) : .Add(button2)
End With
End With
End Sub
Private Sub Indítás_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
If konzinditvae Then Exit Sub
konzinditvae = True : konz.start()
End Sub
Private Sub Állj_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
If Not konzinditvae Then Exit Sub
konz.állj() : konzinditvae = False
End Sub
Private Sub Form1_FormClosing(ByVal sender As Object, ByVal e As System.Windows.Forms.FormClosingEventArgs)
If konzinditvae Then konz.állj()
RemoveHandler button1.Click, AddressOf Indítás_Click
RemoveHandler button2.Click, AddressOf Állj_Click
RemoveHandler Me.FormClosing, AddressOf Form1_FormClosing
End Sub
End Class8: Build menü - Build parancs
9: "PARMON.EXE" indítása.
A "PARMON.EXE" -ben a "connector" - t illik átállítani "MALE" - re.
10: Lefordított program indítása.
Az "INDÍTÁS" gombra kattitva a "PARMON.EXE" mutatja a munka eredményét.Ha valaki közvetlenül az LPT-n szeretne feszültséget mérni, annak sincs akadálya, csak arra
figyeljen, hogy rövidzár ne keletkezzen!Ha az űrlapon létrehozunk egy "LABEL" - t, valamint egy új időzitőt kb. 0.3, 0.5 sec időzítéssel
és az "adatbe" függvénnyel lekérdezzük a port értékét, akkor a "PARMON.EXE" használata
feleslegessé válik.Jó programozást mindenkinek!
-
#10382336
törölt tag
válasz
#10382336
#1195
üzenetére
Nagy nehezen sikerült az "mscommlib" -et belevarázsolnom a
referenciába. A folyamatát leírom, hátha valakinek szüksége lesz rá,
természetesen nem profiknak.1: letölteni az "MSCOMM32.OCX" fájlt, például innen:
[link]
Természetesen máshonnan is letölthető.
2: Az "MSCOMM32.OCX" fájlt át kell másolni a
C:\WINDOWS\SYSTEM mappába. NEM a system32 -be !!!!
3: Start menü futtatás parancsába beírni:
Regsvr32.exe C:\WINDOWS\SYSTEM\MSCOMM32.OCX -
martonx
veterán
-
#10382336
törölt tag
Sziasztok!
Az lenne a kérdésem, hogy hogyan lehet visual studio 2008 - al
az LPT - re adatot küldeni.
Ezt azért kérdezem, mert régebben készítettem egy borland
pascal programot, amivel idővezérelten tudom változtatni
az LPT kimenetét. Ezt a jelet elektronikusan feldolgozva
különböző elektronikus eszközöket lehet az idő függvényében
vezérelni Dos-ban.
Ennek a programnak azonban Windows alatt csak a vizuális része
működik. Tehát parancssori ablakban kijelzi, hogy az adatot
elküldte az LPT - re, azonban a jel ott nem jelenik meg.Az eredeti borland pascal - ban írt assembly rész így néz ki:
procedure egyesbe;assembler;asm
mov dx,0378h;mov al,1;out dx,al;
end;Ha valaki tudja, hogy ezt Visual Basic -ben ez hogyan nézne ki,
Kérem írja meg.Előre is köszönöm!
-
ferkoa
csendes tag
Hello!
Egy két kérdésem lenne, biztos van itt vki, aki jobban konyít a VBhez.
Szóval, rengeteg adatpárból (4096 db pár) kéne grafikont készíteni, de nem Excelben, hanem Visual Studio 2008 / Visual basic 6.0-ban.
Vmi tanács?
Cserébe én is segítek amit tudok...
Előre is köszi!
F -
LámaZ
addikt
Keresek egy profi és gyors programozót szövegfeldolgozási feladatra.
A probléma a következő: adott egy b. 40k szót (főnevet és melléknevet) tartalmazó adatbázis, és ezeknek kell létrehozni a ragozott formáit. Pszeudo-programozási kódot fogok adni, és ennek alapján kellene megírni a programot. Más szóval, nem folyamatábrát adok, hanem Clipper-szerűen megírt programsorokat, amelyek tartalmazzák az if..else utasításokat, de azt, hogy miként kell megnyitni az adatbázist, végiglépkedni az egyes rekordokon, megkeresni a szó legutolsó karakterét, ill. magánhangzóját, kigyűjteni a magánhangzókat, és egy tömbbe helyezni őket, stb. már a programozó feladata lenne. Szóval, jól kell ismerni a string-kezelő függvényeket.A két adatbázisom (főnevek és melléknevek) egy-egy Excel táblában van; az első oszlopban vannak a főnevek/melléknevek, és a következő 56 oszlopba kellene beírni a ragozott alakokat (a megadott szabályoknak megfelelően).
Egy jó programozónak ez kb. 1 órai munka, nekem a Clipperben (ill. a HMG-ben) ez túl sok időmet venné el.
Kérek egy árajánlatot privátban. Kérésre elküldöm a pszeudo-programkódot.
-
csimmasz
aktív tag
válasz
martonx
#1185
üzenetére
De értsd meg hogy aki nem foglalkozik programozással annak nem egyértelmü.
Tökmindegy,azért a stilusodon lenne mit csiszolni!
És hidd el ahelyett hogy le idiotázol valakit,mondjuk el is mondhattad volna azt az egyszerü dolgot,legközelebb már nekem is egyértelmű lett volnaPace!
-
martonx
veterán
válasz
csimmasz
#1184
üzenetére
Finoman arra akartam utalni, hogy mielőtt hülyeséget kérdezel, egy minimális utána járást illene megejteni.
Ez olyan mintha úgy akarnál autót vezetni, hogy még életedben nem is láttál autót, de még a kereket sem ismered. Remélem érthető volt a példám.
Tehát az, hogy egy stringet (nyugodtan guglizz rá, hogy ez vajon mi lehet) idézőjelek közé kell tenni, olyan alap dolog, mint hogy 1+1 az kettő (nyugodtan próbáld ki számológéppel, tényleg ennyi).
És nagy Respect ArchElfnek
-
csimmasz
aktív tag
válasz
martonx
#1182
üzenetére
Örülök hogy neked totálisan egyértelmü minden!
Ha vágom a dolgokat nem kérdezek,mivel nem értek hozzá és a leirtak alapján próbáltam mindent,de állandóan hibát jelzett bármit bárhova irtam.
De ha tudsz olvasni láthatod hogy a gond az volt hogy nem raktam macskakörmök közé amit kellett.
Ugyan erre vonatkozóan nem kaptam utalást!De ugylátom ide csak egyetemisták járhatnak!
Én kérek elnézést,hogy zavarni mertem a 100-as iq klubot!Egyébkén köpködés helyett segiteni is lehet a még oly ostoba szerencsétleneken is mint szerény személyem!
Archelf :tegnap addig próbálgattam amig sikerült beüzemelnem.
Köszönöm mégegyszer. -
martonx
veterán
válasz
csimmasz
#1180
üzenetére
Úristen. Miért nem lehet legalább egy minimális alap tudással / IQ-val nekivágni fórumozni?
Most komolyan hova lehet még süllyedni? A legközelebbi kérdező analfabéta lesz, és nem ismeri a betűket, és anyukája fog helyette írni a fórumba?
Ne válaszoljatok rá, csak költői kérdés volt.
-
ArchElf
addikt
válasz
csimmasz
#1177
üzenetére
Option Explicit
'strFolder -> kívánt könyvtárnevet beleírni
'fShell -> utorrent.exe teljes elérési útvonala (dupla quote kell, ha az elérési útvonal tartalmaz space-t)
Dim sFolder, oFSO
Dim oShell, fShell
sFolder = "S:\Share"
fShell = """c:\ProgramFiles\uTorrent\uTorrent.exe"""
Set oFSO = CreateObject("Scripting.FileSystemObject")
While not oFSO.FolderExists(strFolder)
WScript.Sleep 30000
Wend
Set oFSO = Nothing
WScript.Sleep 5000
Set oShell = WScript.CreateObject ("WScript.Shell")
oShell.run fShell
Set oShell = Nothing
A két változó értékét beállítod:
- share könyvtár helye (célszerű map-elve meghajtóra)
- torrent program elérési útvonalaA script fél percenként megnézi, hogy elérhető-e a share, amikor igen, elindítja a programot.
AE
-
csimmasz
aktív tag
Sziasztok szeretnék segitséget kérni vb script ügyben.
Van egy letöltögépem és egy Nas-om amire menti a dolgokat.Azt szeretném elérni hogy a pc-n a utorrent csak akkor induljon el hogyha a nas-on az állományok elérhetőek!(vagyis be van kapcsolva és elérhető a hálózaton)
Elkerülendő hogy a utorrent netalálja az állományokat majd legközelebb ujra kelljen ellenőriznie mindet.
Próbáltam magamtól utánna nézni de nekem kinai,pedig annó basic-ban bepötyögtünk dolgokat c64-en,profiknag gondolom 2-perc.
Egy szkriptet valaki belinkelt a másik topikban ami egy program inditást késleltet,gondolom ez sem lehet túl bonyolult.Előre is köszi.
-
tomazin
veterán
válasz
tomazin
#1174
üzenetére
Na közben egy másik irányból révbe értem
Dim x As Object
Set x = CreateObject("vbscript.REgExp")martonx : Köszönöm szépen a gyors válaszod,megnézem azt is,h azzal hogyan működik. De alapvetően az a class nem volt meg,amit írtál (MicrofosVBARegExp),so úgy látom most már megy is amit eddig csináltam.
-
martonx
veterán
válasz
tomazin
#1174
üzenetére
Szia!
Például így lehet regex-ezni VBA-ban:
Dim MyExpression As Regex
Set MyExpression = New Regex'Fontosabb tulajdonságok
MyExpression.Global = True
MyExpression.Pattern = "*€$"'Kis-nagy betűt figyelje-e
'MyExpression.IgnoreCase = true'Használata
If MyExpression.Test(MyString) = True Then
MsgBox "Benne van"
Else
MsgBox "Nincs benne"
End IfAhhoz, hogy a VBA ismerje a Regex objektumot a refernciák közé hozzá kell adnod a"Microsoft VBScript Regular Expressions" -t.
Remélem segítettem. -
tomazin
veterán
Hahó!
Excelben kinlódok,és mailvalidálást szeretnék csinálni,amihez kellene regexp.
Ehhez be kellene húzni a System.Text.RegularExpressions könyvtárat,amit excel alatt nem tudom hogyan lehet.Valakinek valami ötlete,hogy .Net-es könyvtárak egyátalán elérhetőek-e,és ha igen, akkor hogyan officeban? -
sonar
addikt
válasz
zsotesz81
#1169
üzenetére
Nekem megvan és olvastam is. Helyenként vannak benne hibák. De ha rendesen olvasod akkor megtalálod a megoldást. A fejezet végén a teljes progik viszont általában hibátlanok.
Viszont VB6-ot már szerintem nem érdemes komolyan megtanulni ha csak vmi oknál fogna nem szűkségszerű. Inkább javasolnám én is a egy VB.NET megtanulását.
Főleg, hogy az Expressz változat ingyenes fejlesztőkörnyezet biztosít.
-
martonx
veterán
válasz
zsotesz81
#1171
üzenetére
Első ránézésre szinte semmiben.
Aztán mihelyst valami komolyabb programot akarsz csinálni, akkor már mindenben.
Plusz a VB.NET már teljesen objektum orientált, a VB6 még csak részben.
Aztán ott vannak a fejlesztőeszközök különbözőségei.Én napi szinten programozok VBScriptben, excel VBA-ban (bár ez a kettő 99%-ban megegyezik), és VB.NET-ben.
A VB6 valahogy mindig kimaradt az életemből. És soha nem is volt rá szükségem. VB.NET létezik 2001 óta. A VBScript és az excel makró meg változatlannak tűnik hosszú évek óta. Bár a VBScript utódja már megjött a Powershell képében (ráadásul ez már 2.0-nál tart), de az excel makró még az Office 2010-ben is változatlannak tűnik.
-
martonx
veterán
válasz
zsotesz81
#1169
üzenetére
Talán 2010-ben nem egy a 90-es években megjelent VB verzió tanulását kellene erőltetni.
Ha már VB, akkor VB.NET. Abból is áprilisban jelenik meg a 2010-es 4.0-ás verzió.
Az internet tele van oktató videókkal VB.NET-hez.
Tessék kezdetnek: http://msdn.microsoft.com/en-us/vbasic/ms789086.aspx
-
zsotesz81
senior tag
Hali!
Valaki ismeri/olvasta a Visual Basic 6 kék könyvet. Csak azért kérdezem mert most próbálom tanulni ezt a programozást. Viszont már az első programot sem sikerül megcsinálni, úgy érzem mintha nem volna minden leírva meg egy két dolog megmagyarázása kimaradt volna.
-
PetX
aktív tag
Megoldódott.
Akkor ezek szerint rosszul kérdeztem. Azt a tök egyszerű példát pontosan azért írtam, h ne kelljen leírnom pontosan mire is fogom használni, mert nem érdekes.
Cél: Adott egy string pl.: "123$$$-321$$$567" egy .xml adatfile-bol.
Megtörténik ebben a formában a kiolvasás és ezt követően a "$$$" jellel elválasztott értékeket számtanilag összeadni, DE úgy hogy a nyomonkövethetőség miatt ne csak a végeredmény szerepeljen a cellában, hanem az is hogy milyen értékeket adott(kivont) egymásból.A probléma az volt, hogy mikor a tömbben található stringeket, megpróbáltam összefűzni, és az elejére egy "=" hozzáadni akkor gyakorlatilag ugyan azt jelenítette meg a cellában.
És én azt szerettem volna, hogy a cellában a végösszeg szerepeljen ha viszont kiválasztom a cellát akkor lássam benne az elkövetett műveleteket.De, mint modtam már megoldódott, máskor majd figyelek a pontos kérdésemre.
-
shev7
veterán
nem ertem minek ehhez a teljes kod.
Azt mondtad:
"A lényeg, hogy a benne található műveletek megmaradjanak a cellában, viszont amit mutat az az eredmény legyen.
Gondoltam, hogy összefűzöm az értéket szimplán egy "=" jellel de nem akar sikerülni. "Erre mondtam en, hogy marpedig ez a megoldas, fuzd ossze egy "=" es mukodni fog. A problemad megoldasanak semmi koze a teljes kododhoz.
-
martonx
veterán
Figyi, pusztán jótanács.
1. Mindig azzal kezd a segítség kérést, hogy leírod röviden, tömören, érthetően, hogy mit akarsz csinálni. A kiinduló hozzászólásod alapján úgy tűnt, hogy egy összeadás, kivonást nem tudsz megcsinálni.
2. Nem érdekel a komplett kódod. Elég ha a hibás részt, és a hozzá kapcsolódó kód részeket leírod.
Mert most mit is látunk: Valamit meg akarsz oldani, egy terjedelmesen bemásolt kóddal. De vajon mi lehet az a valami? Egy összeadás, kivonás? Adatbázis lekérdezés? Adatok összepárosítása? Persze, ha hosszasan tanulmányoznám a legelső hozzászólásodat, és a kódodat, lehet közelebbi sejtéseim lennének, de légy oly jó, és tedd könnyebbé, hogy segítsünk.
Ha más is tanácstalan, hogy hogyan kérjen segítséget, pl. ilyen formájú hozzászólás tökéletes lenne:
Van egy excel táblám, ennek A és B oszlopaiban számok vannak. Hogy lehetne makróval megoldani, hogy gombnyomásra C oszlopban összegződjenek az értékeik?
Eddig ezzel próbálkoztam: bla-bla - kód - bla-bla
De nem működik -
PetX
aktív tag
válasz
martonx
#1154
üzenetére
Már elnézést, de ha neked ez banális probléma akkor sajnálom, nekem nem, ezért fordultam segítségért.
Nem vagyok programozó, kényszerből kezdtem el írni az egészet, mert szükséges ahhoz amit csinálok.
Ehhez a részhez kértem a segítséget:
ActiveWorkbook.Worksheets("SZUMMA").Cells(CS_SOR, CS_OSZLOP) = xSTRSub CSILLAG()
Dim CS_SOR As Integer
Dim OSZLOP As Integer
Dim CS_OSZLOP As Integer
Dim cella As Range
Dim cim_1 As String
Dim cim_2 As String
Dim keres As String
Dim INPUT_STR As String
Dim SPLITTER() As String
Dim xDB As Integer
Dim COUNTNONBLANK As Integer 'file-ok megszámlálásához
Dim MYRANGE As Range 'file-ok megszámlálásához
Dim xSZAMOL As Integer 'az .xml file-ok db számát adja vissza
Dim xSOR As Integer
Dim xREG As String
Dim xSTR As String
'MsgBox ("csillag")
Worksheets.Add().Name = "SZUMMA"
keres = "$$$"
Worksheets("Szamla").Select
OSZLOP = 38
ELORE:
' MENNYISÉG+TOTAL
For i = 0 To 15
Columns(OSZLOP).Select
Set cella = ActiveWorkbook.Worksheets("Szamla").Columns(OSZLOP).Find(what:=keres)
If Not cella Is Nothing Then 'ha talál akkor
Sheets("Szamla").Select
cella.Activate 'akkor aktiválja a cellát
cim_1 = ActiveCell.Address
While Not cim_1 = cim_2
Set cella = ActiveWorkbook.Worksheets("Szamla").Columns(OSZLOP).FindNext(cella)
cella.Activate
cim_2 = ActiveCell.Address
CS_OSZLOP = ActiveCell.Column
CS_SOR = ActiveCell.Row
INPUT_STR = Cells(CS_SOR, CS_OSZLOP)
SPLITTER = Split(INPUT_STR, "$$$")
For xDB = LBound(SPLITTER) To UBound(SPLITTER)
If Right(SPLITTER(xDB), 1) = "-" Then 'ha csak egy negatív van a cellában akkor nem bántja
SPLITTER(xDB) = (Replace(SPLITTER(xDB), "-", "")) * -1
SPLITTER(xDB) = Replace(SPLITTER(xDB), ".", ",")
Else
SPLITTER(xDB) = Replace(SPLITTER(xDB), ".", ",")
SPLITTER(xDB) = "+" + SPLITTER(xDB)
End If
xSTR = xSTR + SPLITTER(xDB)
Next xDB
ActiveWorkbook.Worksheets("SZUMMA").Cells(CS_SOR, CS_OSZLOP) = xSTR
xSTR = ""
Wend
Else
End If
OSZLOP = OSZLOP + 7
Next i
If OSZLOP = 150 Then
OSZLOP = 42
GoTo ELORE
Else
If OSZLOP = 154 Then
OSZLOP = 43
Else
End If
End If
'EGYSÉGÁR
For j = 0 To 15
Columns(OSZLOP).Select
Set cella = ActiveWorkbook.Worksheets("Szamla").Columns(OSZLOP).Find(what:=keres)
If Not cella Is Nothing Then 'ha talál akkor
Sheets("Szamla").Select
cella.Activate 'akkor aktiválja a cellát
cim_1 = ActiveCell.Address
While Not cim_1 = cim_2
Set cella = ActiveWorkbook.Worksheets("Szamla").Columns(OSZLOP).FindNext(cella)
cella.Activate
cim_2 = ActiveCell.Address
CS_OSZLOP = ActiveCell.Column
CS_SOR = ActiveCell.Row
INPUT_STR = Cells(CS_SOR, CS_OSZLOP)
SPLITTER = Split(INPUT_STR, "$$$")
' For xDB = LBound(SPLITTER) To UBound(SPLITTER)
'Sheets("SZUMMA").Select
xDB = 0
ActiveWorkbook.Worksheets("SZUMMA").Cells(CS_SOR, CS_OSZLOP) = SPLITTER(xDB)
' Next xDB
Wend
Else
End If
OSZLOP = OSZLOP + 7
Next j
MsgBox ("kész")
End Sub -
PetX
aktív tag
válasz
martonx
#1154
üzenetére
Már elnézést, de ha neked ez banális probléma akkor sajnálom, nekem nem, ezért fordultam segítségért.
Nem vagyok programozó, kényszerből kezdtem el írni az egészet, mert szükséges ahhoz amit csinálok.
Ehhez a részhez kértem a segítséget:
Sub CSILLAG()
Dim CS_SOR As Integer
Dim OSZLOP As Integer
Dim CS_OSZLOP As Integer
Dim cella As Range
Dim cim_1 As String
Dim cim_2 As String
Dim keres As String
Dim INPUT_STR As String
Dim SPLITTER() As String
Dim xDB As Integer
Dim COUNTNONBLANK As Integer 'file-ok megszámlálásához
Dim MYRANGE As Range 'file-ok megszámlálásához
Dim xSZAMOL As Integer 'az .xml file-ok db számát adja vissza
Dim xSOR As Integer
Dim xREG As String
Dim xSTR As String'MsgBox ("csillag")
Worksheets.Add().Name = "SZUMMA"
keres = "$$$"
Worksheets("Szamla").Select
OSZLOP = 38ELORE:
' MENNYISÉG+TOTALFor i = 0 To 15
Columns(OSZLOP).Select
Set cella = ActiveWorkbook.Worksheets("Szamla").Columns(OSZLOP).Find(what:=keres)
If Not cella Is Nothing Then 'ha talál akkor
Sheets("Szamla").Select
cella.Activate 'akkor aktiválja a cellát
cim_1 = ActiveCell.Address
While Not cim_1 = cim_2
Set cella = ActiveWorkbook.Worksheets("Szamla").Columns(OSZLOP).FindNext(cella)
cella.Activate
cim_2 = ActiveCell.Address
CS_OSZLOP = ActiveCell.Column
CS_SOR = ActiveCell.RowINPUT_STR = Cells(CS_SOR, CS_OSZLOP)
SPLITTER = Split(INPUT_STR, "$$$")For xDB = LBound(SPLITTER) To UBound(SPLITTER)
If Right(SPLITTER(xDB), 1) = "-" Then 'ha csak egy negatív van a cellában akkor nem bántja
SPLITTER(xDB) = (Replace(SPLITTER(xDB), "-", "")) * -1
SPLITTER(xDB) = Replace(SPLITTER(xDB), ".", ",")
Else
SPLITTER(xDB) = Replace(SPLITTER(xDB), ".", ",")
SPLITTER(xDB) = "+" + SPLITTER(xDB)
End If
xSTR = xSTR + SPLITTER(xDB)Next xDB
ActiveWorkbook.Worksheets("SZUMMA").Cells(CS_SOR, CS_OSZLOP) = xSTR
xSTR = ""
Wend
Else
End IfOSZLOP = OSZLOP + 7
Next iIf OSZLOP = 150 Then
OSZLOP = 42
GoTo ELORE
Else
If OSZLOP = 154 Then
OSZLOP = 43
Else
End If
End If'EGYSÉGÁR
For j = 0 To 15
Columns(OSZLOP).Select
Set cella = ActiveWorkbook.Worksheets("Szamla").Columns(OSZLOP).Find(what:=keres)
If Not cella Is Nothing Then 'ha talál akkor
Sheets("Szamla").Select
cella.Activate 'akkor aktiválja a cellát
cim_1 = ActiveCell.Address
While Not cim_1 = cim_2
Set cella = ActiveWorkbook.Worksheets("Szamla").Columns(OSZLOP).FindNext(cella)
cella.Activate
cim_2 = ActiveCell.Address
CS_OSZLOP = ActiveCell.Column
CS_SOR = ActiveCell.RowINPUT_STR = Cells(CS_SOR, CS_OSZLOP)
SPLITTER = Split(INPUT_STR, "$$$")
' For xDB = LBound(SPLITTER) To UBound(SPLITTER)
'Sheets("SZUMMA").Select
xDB = 0
ActiveWorkbook.Worksheets("SZUMMA").Cells(CS_SOR, CS_OSZLOP) = SPLITTER(xDB)
' Next xDB
Wend
Else
End IfOSZLOP = OSZLOP + 7
Next j
MsgBox ("kész")
End Sub -
PetX
aktív tag
válasz
martonx
#1154
üzenetére
Már elnézést, de ha neked ez banális probléma akkor sajnálom, nekem nem, ezért fordultam segítségért.
Nem vagyok programozó, kényszerből kezdtem el írni az egészet, mert szükséges ahhoz amit csinálok.
Ehhez a részhez kértem a segítséget:
Sub CSILLAG()
Dim CS_SOR As Integer
Dim OSZLOP As Integer
Dim CS_OSZLOP As Integer
Dim cella As Range
Dim cim_1 As String
Dim cim_2 As String
Dim keres As String
Dim INPUT_STR As String
Dim SPLITTER() As String
Dim xDB As Integer
Dim COUNTNONBLANK As Integer 'file-ok megszámlálásához
Dim MYRANGE As Range 'file-ok megszámlálásához
Dim xSZAMOL As Integer 'az .xml file-ok db számát adja vissza
Dim xSOR As Integer
Dim xREG As String
Dim xSTR As String'MsgBox ("csillag")
Worksheets.Add().Name = "SZUMMA"
keres = "$$$"
Worksheets("Szamla").Select
OSZLOP = 38ELORE:
' MENNYISÉG+TOTALFor i = 0 To 15
Columns(OSZLOP).Select
Set cella = ActiveWorkbook.Worksheets("Szamla").Columns(OSZLOP).Find(what:=keres)
If Not cella Is Nothing Then 'ha talál akkor
Sheets("Szamla").Select
cella.Activate 'akkor aktiválja a cellát
cim_1 = ActiveCell.Address
While Not cim_1 = cim_2
Set cella = ActiveWorkbook.Worksheets("Szamla").Columns(OSZLOP).FindNext(cella)
cella.Activate
cim_2 = ActiveCell.Address
CS_OSZLOP = ActiveCell.Column
CS_SOR = ActiveCell.RowINPUT_STR = Cells(CS_SOR, CS_OSZLOP)
SPLITTER = Split(INPUT_STR, "$$$")For xDB = LBound(SPLITTER) To UBound(SPLITTER)
If Right(SPLITTER(xDB), 1) = "-" Then 'ha csak egy negatív van a cellában akkor nem bántja
SPLITTER(xDB) = (Replace(SPLITTER(xDB), "-", "")) * -1
SPLITTER(xDB) = Replace(SPLITTER(xDB), ".", ",")
Else
SPLITTER(xDB) = Replace(SPLITTER(xDB), ".", ",")
SPLITTER(xDB) = "+" + SPLITTER(xDB)
End If
xSTR = xSTR + SPLITTER(xDB)Next xDB
ActiveWorkbook.Worksheets("SZUMMA").Cells(CS_SOR, CS_OSZLOP) = xSTR
xSTR = ""
Wend
Else
End IfOSZLOP = OSZLOP + 7
Next iIf OSZLOP = 150 Then
OSZLOP = 42
GoTo ELORE
Else
If OSZLOP = 154 Then
OSZLOP = 43
Else
End If
End If'EGYSÉGÁR
For j = 0 To 15
Columns(OSZLOP).Select
Set cella = ActiveWorkbook.Worksheets("Szamla").Columns(OSZLOP).Find(what:=keres)
If Not cella Is Nothing Then 'ha talál akkor
Sheets("Szamla").Select
cella.Activate 'akkor aktiválja a cellát
cim_1 = ActiveCell.Address
While Not cim_1 = cim_2
Set cella = ActiveWorkbook.Worksheets("Szamla").Columns(OSZLOP).FindNext(cella)
cella.Activate
cim_2 = ActiveCell.Address
CS_OSZLOP = ActiveCell.Column
CS_SOR = ActiveCell.RowINPUT_STR = Cells(CS_SOR, CS_OSZLOP)
SPLITTER = Split(INPUT_STR, "$$$")
' For xDB = LBound(SPLITTER) To UBound(SPLITTER)
'Sheets("SZUMMA").Select
xDB = 0
ActiveWorkbook.Worksheets("SZUMMA").Cells(CS_SOR, CS_OSZLOP) = SPLITTER(xDB)
' Next xDB
Wend
Else
End IfOSZLOP = OSZLOP + 7
Next j
MsgBox ("kész")
End Sub -
martonx
veterán
Te semmit. Sőt a létező legbanálisabb problémára is igyekeztél válaszolni. Bocs, ha félreérthető voltam.
Arra utaltam, hogy valami elképesztő kérdésekkel jönnek elő néhányan.
Én szívesen válaszolok, de van egy szint, amikor a kérdező vagy tökéletesen alkalmatlan a programozásra, vagy azt az 1 perc gondolkodást sem szánja rá a probléma megoldására.Nos, én nem tudok ezekre a kérdésekre válaszolni. Ezért is csak off-ként jegyeztem a véleményemet.
-
PetX
aktív tag
Sziasztok!
egy olyan problémám van, hogy string-et tartalmazó változó értékét szeretném visszaalakítani integer típusuvá.
Pontosabban:
változó értéke pl:
a="0-99-56+64"A lényeg, hogy a benne található műveletek megmaradjanak a cellában, viszont amit mutat az az eredmény legyen.
Gondoltam, hogy összefűzöm az értéket szimplán egy "=" jellel de nem akar sikerülni.
Tudnátok ebben segíteni?
-
martonx
veterán
Két megoldás lehetséges:
1. Minden control-od visible és enabled tulajdonságát átállítod false-ra, míg a másik kupac controlodét meg true-ra. Ez a nem elegáns módszer.
2. Másik formot .show-val tudod megnyitni (ugye most VB.NET-ről beszélünk?). Az újat megnyitod, a régit bezárod. Figyelem fontos a sorrend
Egyúttal project tulajdonságainál be kell állítani, hogy akkor lépjen ki, mikor az utolsó formot is bezártad, ne pedig az alapértelmezett form bezárásakor. Ez az elegánsabb módszer.+1. Elfelejted a winforms-t, és megcsinálod wpf-ben. No, ez egy külön történet, de ez a legelegánsabb módszer
-
dany27
őstag
válasz
martonx
#1146
üzenetére
kössz a tippet már közben én is rájöttem!
Am az mért van hogy egyszerű kis szar 14 megát eszik kicsit sokallom. Pedig nem csinál nagy dolgokat. (Csak XP alatt win7 alatt mindössze csak 3megát...).
Ne nevessetek ki, de windóz calculator kópiát csinálok
Suliba adta a tanár h valamivel letudjon kötni míg a tanár próbálja még az alap algoritmusokat a többiek fejébe verniJah hamár itt vagyunk hogy tudom azt megoldani hogy nem zárom be a formot és nem is rejtem el hanem mást töltök bele?? (Egyszerű/tudományos nézethez kell)
close parancsot találtam hozzá de mivel nyitom meg a másikat ??Előre is kössz!
-
martonx
veterán
Sima sub-ot akarsz meghívni, vagy ahogy nézem a hibaüzenetet egy form event subját???
Te itt egy gombnyomás subját próbálod meghívni? Miért??? Nem hiszem, hogy ez így sikerülne.
Ha azért akarod azt meghívni, mert abban van egy bizonyos kódrészed, és nem akarod kétszer leírni, akkor tedd ki egy sima szubrutinba, vagy funkcióba, és arra hivatkozz mindenhol.
-
-
-
Polyák
tag
Ebből kiindulhatsz:
A Label1-be az ascii kódot irja a Label2-be hogy milyen betű. A Chr(x) parancsal, az x helyén ascii kóddal a betűt tudod megjeleniteni. A keypress-sel figyeli a lenyomásokat és ascii kódba adja vissza. Most nincs fenn nekem a VB ugyhogy nem tudom kipróbálni.
(VB6 ba irtam)Private Sub Form_KeyPress(KeyAscii As Integer)
Label1.Caption = KeyAscii
Label2.Caption = Chr(KeyAscii)
If Label2.Caption = Chr(9) Then Label4.Caption = "Tabulátor"
If Label2.Caption = Chr(13) Then Label4.Caption = "Enter"
If Label2.Caption = Chr(32) Then Label4.Caption = "Szóköz"
If Label2.Caption = Chr(8) Then Label4.Caption = "Backspace"
If Label2.Caption = Chr(10) Then Label4.Caption = "Új oldal"
End If
End SubRemélem segitettem azért valamit. Ezt egy régi programomból másoltam ki.
-
Atti1112
aktív tag
válasz
martonx
#1137
üzenetére
A képernyőkímélő rendesen elindul.Beállítom,mondjuk 10 percre és simán megy.Ez ok.De ,ha beállítom az energia gazdálkodási lehetőségeknél az alvó állapotot mondjuk 10 percre,azt nem hajlandó.Ezért gondoltam,hogy ha elindul a képernyővédő, akkor még azzal együtt elkéne indulnia egy *.bat vagy shell parancsnak ,ami leviszi alvóba a gépet.Egyébként rájöttem közben,hogy miért nem aktiválta : futott a google desktop sidebar és az nem hagyta elindulni.Ha azt kikapcsoltam,akkor már működött is az alvás opció.Viszont ,ha rá lehetne beszélni a windowst,hogy a képernyővédővel együtt végrehajtódjon egy batch file,akkor már nyert ügyem van.Maradhatna az oldalsáv és működne az alvás opció is.Erre ötleted ? Esetleg xp alá egy olyan oldalsáv ,ami nem nyúl bele az alvás opcióba ? A Samurize tudja ezt szerinted ? Ui : előző hozzászólásomban arra utaltam,hogy a bat vagy shell progiban eltárolnám ezt a sort : rundll32.exe PowrProf.dll SetSuspendState és így máris menne alvóba.Vagyis ha egy parancsikont készítek az asztalra amibe ezt írom : rundll32.exe PowrProf.dll SetSuspendState ,akkor rákattintásnál már alszik is a gép.Így már érted ?
-
Atti1112
aktív tag
válasz
martonx
#1135
üzenetére
Nagyon szépen köszi a választ.Az Autoit-el barátkozom, sokat tud ,de elég bonyesz.
Olyan ötleted nincs, ami mondjuk a képernyő kímélő elindulásakor (helyett) lefuttat egy *.batot vagy shell-t ? Ez annyiból is jobb lenne, mivel ha megy egy film a kmplayerrel,akkor nem menne le 1/4 óránként alvóba, és nem kéne 1/4 óránkét visszakapcsolni a filmet A kmplayer ,meg nem engedi futni a képernyőkmélőt ,ha ő fut,így nem menne le alvóba a gép. -
martonx
veterán
válasz
Atti1112
#1134
üzenetére
VBScripttel oldd meg:
Dim X_absolute, Y_absolute
X_absolute = window.event.offsetX
Y_absolute = window.event.offsetYEzzel megkapod az egér koordinátáit (bár még sose próbáltam). 15 perc múlva megint lekérdezed, ha a kettő ugyanaz akkor shell parancsként futtatod: %windir%\system32\rundll32.exe PowrProf.dll, SetSuspendState
Vagy az ilyen automatizálás feladatokra még jobb az AutoIt környezet.
-
Atti1112
aktív tag
Sziasztok !
Egy olyan feladatot kell megoldanom , ami a következő : ha az egér pozíciója 15 percig nem változik meg ,akkor legyen végrehajtva ez a parancs :
%windir%\system32\rundll32.exe PowrProf.dll, SetSuspendState. Vagyis lemegy alvóba a gép. Tudom,hogy energiagazdálkodásnál meglehetne oldani (nekem ott nem megy a beállítás, illetve beállítom hogy negyed óra múlva aludjon, de nem teszi)
,ezért kéne egy nyúlfarknyi programocska ,ami a háttérben futna.Ha valaki itt leírna erre egy megoldást, örülnék neki. -
-
ArchElf
addikt
Pendrive - csak írni kell egy dummy drivert, ami USB drive-nak hazudja magát
Általában a webes ellenőrzzéses - webservice-es? -, no meg a jól bevált kulcsgenerálós megoldások mennek mostanában szerintem.Esetleg lehet használni hardveres megoldást is (smartcard, titkosított pendrive) ha tényleg erősen fizetős megoldást lesz, de itt már rendesen bele kell gányolni a kódba is, hogy nehezen törhető legyen.
AE
-
sonar
addikt
válasz
martonx
#1125
üzenetére
Hát csak nem mindegy, hogy milyen könnyen lehet visszafejteni.
Pl.: egy UPX-el titkositod akkor azt még az upx vissza is tudja fejteni. De mondjuk egy Armadillo-val már keményen trükközni kell és ismerni az gépikódot...A kérdés mindig az, hogy kitől kell védeni a sw-t.
@dobozossör - esetleg még egy pendrive sn-t kiolvasni és kötni a kódhoz.
Igy nem indulna el másik pendrive-val. -
#1126
Dobozossör
tag
sonar
#1124
Dobozossör
tag
Helló!
Annyira nem kell komoly védelem, nem egy akkora cucc, csak valamihez akarom kötni, hogy ne lehessen egy sorozatszámmal ezerszer feltenni. A proginak mindenképp netkapcsolat kell, úgyhogy szerintem limitálni fogom a szériaszámok aktiválását, amit minden indításnál leellenőriz, és ha "bannolva" van, akkor nem engedi elindítani.
-
-
#1124
sonar
addikt
Dobozossör
#1123
sonar
addikt
válasz
Dobozossör
#1123
üzenetére
Hát .Net nem arról híres, hogy ne lehetne visszacompilálni
DotNet protector kulcsszóra keress rá a googliban.Többiben sajnos én sem vagyok jó, de ha találsz vmi jó megoldást ne felejsd el megosztani velünk is
-
#1123
Dobozossör
tag
Dobozossör
tag
Helló!
Vb.net-ben készül egy program. Milyen védelmet ajánlanátok hozzá? Alaplap vagy vinyó sorozatszámhoz nem akarom kötni, mert hiba esetén sok a szenvedés vele (meg ki tudja, hogy nem csak egy másik gépre teszik fel). Valami hardverkulcsos megoldással foglalkozott valaki? Akár egy memóriakártyás, pendriveos vagy smart kártyás megoldás is érdekelne.
Köszönöm!
-
-
martonx
veterán
Vagy ami még egyszerűbb lett volna, ha a varázslóval megcsináltatod az adatbázis kapcsolatot, majd az ott kialakított connectionstringet használod. Sok connectionstringes szopástól megkíméltem már magam a varázslóval.
Ha jól emlékszek a varázsló automatikusan hozzáadja a szükséges referenciákat is, a solution-höz. Ezután már ninics más dolgod, mint kitörölni a kapott dataset-et, és beírni a kilesett connectionstringet a gomb nyomás mögé. -
rákász
csendes tag
Megvan a megoldás
Oledb objektumcsoport = mdb file-okhoz történő csatlakozás esetén használatos
SqlServerCe objektumcsoport = sdf file-okhoz történő csatlakozás esetén használjuk.Én Oledb.OledbConnection objektummal akartam meghívni egy olyan adatbázishoz történő csatlakozást, melyhez valójában SqlServerCe.SqlCeConnection objektum kell...
Amit még tudni kell, hogy az SqlServerCe objektumcsoport csak akkor meghívható, ha a Project -> Add Reference menü alatt, a .NET tabnál hozzáadod a System.Data.SqlServerCe referenciát a projektedhez.
Hát ennyire volt egyszerű a megoldás, de hála a microsoftos gyerekek hamar válaszoltak.
-
rákász
csendes tag
Sziasztok!
Bízom benne, hogy valaki ért a Visual Basic 2008 Express Edition-höz...
A következő a gondom.Adott egy form (Form1) és rajta egy gomb (Button1). A feladata a gombnak az lenne, hogy létrehoz egy kapcsolatot a form és a merevlemezen lévő adatbázis (MyDatabase.sdf) között. Mindehhez eddig hiába írogattam kódot, mindhiába. Az alábbi kóddal próbálkoztam a Button1 Click eseményéhez -
Dim con As New OleDb.OleDbConnection
Dim str As String = "Data Source=C:\FirstDatabase.sdf"
con.ConnectionString = str
con.Open()Itt a hibaüzenet a harmadik sornál az alábbi: A ConnectionString kapcsolódási karakterláncban nincs meghatározva az OLE DB szolgáltató. Példa: „Provider=SQLOLEDB
OK, írjunk be a szolgáltatót. A connectionstrings.com aszongya, hogy a .NET Framework Data Provider for Microsoft SQL Server Compact 3.5 szolgáltatóhoz a Provider=SQLNCLI10 fog működni. A kód így változik:
Dim con As New OleDb.OleDbConnection
Dim str As String = "Provider=SQLNCLI10;Data Source=C:\FirstDatabase.sdf"
con.ConnectionString = str
con.Open()Ekkor a hibaüzenet a negyedik sornál: Invalid authorization specification
Nincs több ötletem, pedig nagyon úgy érzem hogy valami egyszerű dologról van szó...
Segítsetek pls! -
ArchElf
addikt
Pl., a beviteli mezők ne legyen összekötve a táblával, hanem egy megírt insert-tel tedd be az adatokat az adatbázisba.
Persze ez hackelés
Azt is csinálhatod, hogy beteszel a táblába egy kötelező mezőt érték ellenérzéssel (Yes/No típus, "validation rule" = True) , és úgy csak akkor tud adatot feltölteni, ha a checkbox be van kapcsolva...AE
-
martonx
veterán
Kapsz valami hibaüzenetet? Gondolom debugolnod kellene. Ránézésre gyanús amúgy a szintaktika, ahogy a jelölőnégyzet checkstate-t ellenőrzöd. A RunCommandban sem vagyok biztos, hogy jó-e így?
De ez csak ránézés.
Írj be egy stop-ot az if-es sor elé, aztán F8-al lépkedj végig rajta, hogy kiderüljön mi nem jó. -
lapad
csendes tag
Hello mindenki!
Kezdő vagyok és abban szeretnék segítséget kérni, hogy MS Access-ben el lehet érni azt valahogy, hogy a beviteli mezőbe írt adatokat ne tegye be rögtön a táblába.
Én arra jutotttam, hogy egy checkbox-ot tennék be amit egy gomb lenyomás leellenőriz, és akkor engedi menteni a recordot.
Private Sub mentes_Click()
If jelolonegyzet.CheckState = CheckState.Checked Then
RunCommand acCmdSaveRecord
Else
MsgBox ("Nem jelölte be az elfogadást !")
End Sub
Mi lehet a hiba?
Segítséget előre is köszi! -
#1110
ArchElf
addikt
Dobozossör
#1109
ArchElf
addikt
válasz
Dobozossör
#1109
üzenetére
Asszem láttam 1-2 éve a codeproject-en ribbon bar komponenst. Lehet, hogy nem vb, hanem c# alatt volt megírva, de ez a .NET motort nem nagyon izgatja.
AE
-
#1109
Dobozossör
tag
Dobozossör
tag
Helló!
Tudtok ajánlani valami ingyenes kiegészítőt Visual Studio 2008 (jelenleg Express) alá, amivel tudok Ribbon Bart készíteni Basicben?
Köszönöm!
-
Akita
tag
Üdvözöllek benneteket. Segítséget szeretnék kérni, Budapesten élő informatikustól, informatikát oktató szakembertől. Fiam barátnője a gödöllői egyetemen környezetmérnöki szakán tanul és már másodszorra veszi fel az ehhez szükséges számtech-et. Segítségre lenne szüksége, legkésőbb holnap, 05.12.-én, mert 13.-án zh-t kell írnia belőle. A pontos témakör a visual basic, és valami folyamatábrákat kell alkotnia ezzel összefüggésben. Témában otthonosan mozgó szakember segítségét szívesen megfizetném.
Bencsetler Attila 06 30 3247444 -
PetX
aktív tag
Sziasztok!
Légyszíves aki tud segítsen.
.XML file-okat kellene kiolvasni, egy könyvtáron belül több file.
Egy excel táblában szerepelnek a file-ok nevei (mivel az elnvezésük azonos a gyári számaikkal, elektromos mérőórák kiolvasási adatai).Na már most, hogyan lehet macroval/visual basic-el megoldani azt, hogy az excelben eltárolt file nevek alapján behívjam az xml-t?
Ez az egy amit nem tudok megoldani, ki tudom szedni az .xml-ekből amire szükségem van csak nem tudom behívni, hogy automatikusan lefuttatom a macrot és hivogassa be egymás után.
Arra gondoltam, hogy magát a file nevet változóként használom és megadom neki azt az elérési útban. De nem megy. Nem vagyok járatos benne, ha tud valaki segíteni azt nagyon megköszönném!
-
#1103
DelArco
senior tag
kovacstibor79
#1102
válasz
kovacstibor79
#1102
üzenetére
Hali!
Ez ugyan egy .NEt-es jegyzet és azon belül is Cx-os de esetleg ha Visual Basic.NEt-et használsz akkor lehet hogy működik azzal is és ez egy eléggé részletes leírás.
[link] -
#1102
kovacstibor79
aktív tag
kovacstibor79
aktív tag
Sziasztok!
Egy olyan kérdéssel fordulnék hozzátok hogy segítsen valaki abban hogyan lehet azt megoldani hogy van 2-3 beviteli mezőm, és az ott bevitt adatokat egy XML file-ben elmenteni pl. egy gombnyomásra.
Köszi előre is.
Tibi -
válasz
DelArco
#1100
üzenetére
no közben csináltam egy kettős for ciklusos végigjárást ami ugyan nem olyan szép mint egy beépített függvény de mivel lehet hogy ez a beépített függvény nem is létezik ezért elfogadható az eredmény
Ellenben felvetödött egy másik probléma közben amit sehogy nme tudtam megoldani.
Szóval adott az eredmény megtalálja a keresett szöveget a program csak nekemaz kéne hogy az adott cella legyen kijelölve csak a datagridviewban.
Persze ez egyszerű lenne ha a selectionMode tulajdonság FullRowSelecten kell hogy legyen.Próbálkoztam sokmindennel de nem jött össze sajnos.
Többek között pl azzal hogy alapból CellSelect van beállítva és ha CellClick eseményben megpróbáltam Selected-nek kiválasztani az adott sort.
Vagy azzal is hogy amikor lefut a keresés átváltok CellSelect módba és akkor csak a sima egy db cella lesz kijelölve. A click eseményben pedig visszaváltok vagy vmi ilyesmi.Sajnos egyik sem vezetett megfelelő eredményre szóval aki tudsz az segítsen pls!
Új hozzászólás Aktív témák
Hirdetés
- MOBILTELEFON / TARTOZÉK / OKOSÓRA / OKOS KIEGÉSZÍTŐ beárazás
- Linux Mint
- Genshin Impact (PC, PS4, Android, iOS)
- Milyen házat vegyek?
- Túra és kirándulás topic
- Motorola Edge 40 - jó bőr
- Samsung Galaxy A33 5G - a három az majdnem öt
- AMD Ryzen 9 / 7 / 5 9***(X) "Zen 5" (AM5)
- Milyen asztali (teljes vagy fél-) gépet vegyek?
- OLED monitor topik
- További aktív témák...
- UF Lenovo Yoga 9i x360 Érintős Hajtogatós Laptop Tab 14" -60% i7-1360P 16/1TB Iris Xe 2,8K OLED 90Hz
- Lenovo Yoga 9i x360 Érintős Hajtogatós Laptop Tab 14" -60% i7-1260P 16/512 Iris Xe 2,8K OLED 90Hz
- Új DELL Inspiron 16 Fémházas Multimédiás Laptop 16" -40% Ryzen 7 8840U 8mag 16/1TB FHD+ IPS
- Új DELL Inspiron 16 Fémházas Multimédiás Laptop 16" -40% Ryzen 7 8840U 8mag 16/1TB FHD+ IPS
- Sony FE 28-70 mm F3.5-5.6 OSS
- Azonnali készpénzes INTEL CPU NVIDIA VGA számítógép felvásárlás személyesen / postával korrekt áron
- LG OLED Televíziók: FRISS SZÁLLÍTMÁNY -30%
- AKCIÓ! HP Elitedesk 800 G1 USDT mini asztali számítógép - i7 4770S 16GB RAM 128GB SSD Intel HD
- ÁRGARANCIA!Épített KomPhone Ryzen 7 7700X 32/64GB RAM RX 9070 16GB GAMER PC termékbeszámítással
- Eladó Apple iPhone Xr 64GB fekete / ÚJ KIJELZŐ / 100% AKKU / 12 hónap jótállással!
Állásajánlatok
Cég: CAMERA-PRO Hungary Kft
Város: Budapest
Cég: PC Trade Systems Kft.
Város: Szeged