Új hozzászólás Aktív témák
-
VIC20
őstag
válasz ArchElf #1035 üzenetére
Hát, igen, az első megoldás az lenne, hogy összecsomagolom, és használati utasításként mellé írom, hogy a c:\xyz könyvtárba KELL kitömöríteni, és csak oda, mert máshol nem működik. (Bár ez nem igazi megoldás.)
Valami szabvány telepítőre gondoltam; gondoltam, azzal nem lesz sok gond. Tartalmaznak az ilyenek valami módszert a registry írásra vagy más effélére?
[ Szerkesztve ]
-
VIC20
őstag
válasz ArchElf #1039 üzenetére
Igen, ebbe a statikus-dinamikus dologba én is beleszaladtam, még az elején, így egyelőre statikus maradt. Az vigasztal, hogy a végén elég egyszerűnek ígérkezik lecserélni relatívra.
Lehet, hogy lamerség, de azért megkérdem, hol találom konkrétan a futó folyamat indítási könyvtárát? Köszi!
-
VIC20
őstag
válasz ArchElf #1042 üzenetére
Köszi a tippeket!
Egyébként most miben programozol? Fejlettebb VB-ben, vagy úgy általában abbahagytad a VB-t? Csak azért kérdeztem, mert én most ezen gondolkodom. Megpróbáltam egy projektet átvinni VB2005 alá, de nem sikerült. Annyival eltérnek az újabb verziók? Annyira, hogy gyakorlatilag újra kell tanulni a programozásukat? Megéri?
-
zabomate
csendes tag
-
ArchElf
addikt
válasz ArchElf #1128 üzenetére
Amúgy lassan feltöri az IPhone-os srác a PS3-at...
http://geohotps3.blogspot.com/AE
Csinálok egy adag popcornt, és leülök fórumozni --- Ízlések és pofonok - kinek miből jutott --- Az igazi beköpőlégy [http://is.gd/cJvlC2]
-
csimmasz
aktív tag
-
ArchElf
addikt
válasz ArchElf #1189 üzenetére
Vagy MS forrásból (minimum VS.NET 3.5):
http://code.msdn.microsoft.com/mschartAE
[ Szerkesztve ]
Csinálok egy adag popcornt, és leülök fórumozni --- Ízlések és pofonok - kinek miből jutott --- Az igazi beköpőlégy [http://is.gd/cJvlC2]
-
martonx
veterán
válasz ArchElf #1258 üzenetére
Aha. Sosem tagadtam, hogy a winforms-os idők (beleértve VB6-ot és elődeit) kimaradtak az életemből.
Bár most pont lesz egy szakdolgozós ismerősöm, így egy picit megint bele kell majd mélyed nem. Főleg a Chart kontroltól félek
AE neked van tapasztalatod Chartok rajzolásáról Win Formsban? Ahogy nézem elég triviális, de félek lesz egy-két egyéni igény...
Én kérek elnézést!
-
sonar
addikt
válasz ArchElf #1288 üzenetére
Igaz, de azért ki az a hülye ha van egy kód és csak ki kell egészíteni pár dologgal amiatt átírja az egészet új platformra
Tényleg, ha már itt tartunk. Van rá mód, hogy a .NET-es kódot vmi jóféle protectorral levédjem?A tudást mástól kapjuk, a siker a mi tehetségünk - Remember: Your life – Your choices!
-
Dobozossör
tag
válasz ArchElf #1353 üzenetére
Teljesen igazad van, nem a proxy volt a hiba, valamit nagyon elnéztem... A linkeket köszönöm, későbbiekben még jól fognak jönni!
Olyat meg lehet oldani, hogy van egy program, ami fel van telepítve pl 4 gépre és egy szerverre kommunikál. A szerver egy sima SQL szerver, amiből adatokat nyerek ki, vagy törlök. Mindegyik programban van egy pl. ListView ami az SQL lekérdezés eredményeit tartalmazza. A feladat az lenne, ha az egyik gépről törlök az SQL-ből, akkor a többin is módosítsa a ListView tartalmát új SQL lekérdezés nélkül? Ez első sorban LAN-on lenne érdekes, de előfordulhat már IP címen lévő, egymástól távol lévő gépekkel is.
Valakinek valami ötlete van erre?
Olcsó Interworx tárhelyek - https://hosting.tri-software.com
-
Dobozossör
tag
válasz ArchElf #1355 üzenetére
Ezek nagyon jó ötletek! A Triggeres verzió lesz szerintem, ha nem sikerül SQL nélkül megoldani. Az SQL mellőzését úgy értettem, hogy nem kell folyamatosan letölteni az adatokat, mert nem történik jelentős változás a táblában.
Például: Egy ListView-ben vannak tárolva hibabejelentések, amiket egy kezelőnek fel kell dolgoznia. De ezt a táblát, amiből a program kiolvasta a listát, több felhasználó is eléri. Ha egy felhasználó elkezd dolgozni az adott hibabejeltéssel (SQL tábla X. sora), akkor a másik gép listájában pl. inaktiválja azt a sort, nem tudja kezelni pl egy duplaklikkel. Az SQL módosítása nem lenne szükséges, csak annak a felhasználónak, aki elkezdett vele dolgozni, ott meg értelem szerűen nem lehet kihagyni a lekérdezéseket.
Eltekintve az SQL háttérről, az érdekel, hogy hálózaton belül van-e valami megoldás másik gépen lévő, ugyanazon szoftverben található Form-ot módosítani.
Olcsó Interworx tárhelyek - https://hosting.tri-software.com
-
martonx
veterán
válasz ArchElf #1384 üzenetére
Nem értitek. A Basic Stamp a mikrovezérlő programnyelve.
Én mondtam, hogy keveredik a szezon a fazonnal
Azaz a Basic Stamp-ben írt program nem a számítógépen fog futni, hanem a mikrovezérlőn.
Csak annyi kell, hogy fel kell telepíteni a Basic Stamp editort (én csak windows-os verziót találtam, úgyhogy ubuntu bukónak látszik), majd USB-n keresztül összekötöd a cuccot a PC-vel, és feltöltöd rá a megírt programot.
Erre mondtam, hogy ebben kb. bárki fog tudni segíteni, akinek van Parallax mikrovezérlős robotja kéznél Tele van a világ ilyenekkel, nem?
A programozás rész sem lesz bonyolult, mert ezek a mikrovezérlők nagyon buták.
Ez az LPT, meg soros port buzerálás is valami alapvető félreértés lesz, mivel ezeken a cuccokon USB port van (már egy pár éve), akkor miért kellene már rég nem létező portokkal hülyéskedni?Van egy mérnök informatikus diplomám is maszekban néha szoktam robotokhoz is programot írni, legutóbb haletető robothoz írtam menedzsment felületet .Net WPF-ben, igaz az txt fájlokkal kommunikált a PC-s adatbázissal. Basic Stamp-pel még életemben nem találkoztam, csak hallottam róla. A többi robotos munkám is mind USB porton keresztül kommunikál.
Én kérek elnézést!
-
martonx
veterán
válasz ArchElf #1388 üzenetére
Miért kellene ehhez C?
http://msdn.microsoft.com/en-us/library/system.io.ports.serialport.aspx
Linux alatt ott van a monodeveloper. Abban mondjuk nem vagyok 100% biztos, hogy IO szinten is jól működik, de egyébként általában hibátlanul mennek a .Net kódok monodeveloperrel Linux alatt is.
Még mondja azt valaki, hogy .Net-el csak windows platformon lehet dolgozni
Konkértan a serialport használatához csak C#-os munkáim vannak, de ha kell szívesen lefordítom azt a néhány sort VB.Net-re
Én kérek elnézést!
-
Baboka
tag
válasz ArchElf #1397 üzenetére
sajna value-vel sem megy ugyan azt dobja ki, kérdezz meg bármit válaszolok mindenre csak már nem ez az első makró aminél ezt a hibát kapom
For i = fk + 1 To ssz
If (Sheets(2).Cells(i, eo).Value <> "") Then
For j = fk + 1 To ssz
If (Sheets(1).Cells(j, mo1).Value = Sheets(2).Cells(i, mo1).Value) And (Sheets(1).Cells(j, mo2) = Sheets(2).Cells(i, mo2)) And (Sheets(1).Cells(j, mo3) = Sheets(2).Cells(i, mo3)) Then
For k = 1 To osz
Sheets(1).Cells(j, k) = Sheets(2).Cells(i, k)
Next k
End If
Next j
End If
Next i -
Oly
senior tag
válasz ArchElf #1411 üzenetére
Angol mindegyik!
Talán a dátum és a Local beállítások nem egyeznek, mert egyiken 2011.09.14, másikon 14/09/2011 formátumban írta a dátumot, de ez nem volt zavaró azon a gépen, amin néztem.
Van amelyik PC-n, van ami terminal serveren (2003) fut, de nem ez okozza...
SonyEricsson T20 - T68 - T610 - K700 - W800 - K750 - K800 - C702 - P1 - MOTO Defy - Galaxy S Advance - Galaxy S4 - Lumia 820 - Honor 7 - iPhone 5S
-
-
#90999040
törölt tag
-
#90999040
törölt tag
válasz ArchElf #1421 üzenetére
Ez így tökéletesen működik:
Class RelStore
'Cache Time 5 min
Private d_Timer
Private b_Member
Private b_Init
Private VALIDITY
Private Sub Class_Initialize
VALIDITY = 300
d_Timer = 0
b_Member = False
b_Init = False
End Sub
Public Function Initialize(Membership)
d_Timer = Timer
b_Member = Membership
b_Init = True
End Function
Public Sub Invalidate()
Class_Initialize
End Sub
Public Function IsMember()
IsMember = b_Member
End Function
Public Function IsValid()
IsValid = (b_Init AND ((Timer > d_Timer + VALIDITY) OR (Timer < d_Timer)))
End Function
End Class
Set rs = new RelStore
DebugWrite rs.isvalidSzerintem ez: htCache(SearchString) nem RelStore classt ad vissza.
-
Oly
senior tag
válasz ArchElf #1428 üzenetére
Sziasztok
Sajnos ez nekem nem mond sokat.
Nem programoztam még sosem, csak így magamtól, mókolgattam össze ezeket a dolgokat.Ezt a gyakorlatban hogy oldhatom meg?
Segít, ha becopyzom a forráskódot?SonyEricsson T20 - T68 - T610 - K700 - W800 - K750 - K800 - C702 - P1 - MOTO Defy - Galaxy S Advance - Galaxy S4 - Lumia 820 - Honor 7 - iPhone 5S
-
Oly
senior tag
válasz ArchElf #1438 üzenetére
Igen, Access Űrlapon egy gomb.
A Bontás Pending a Fájl név.
a probalkozasok, a kiertesites és a kiertesito az űrlapon található textBoxok.
Egyébként ide menti, hogy ki és mikor "próbálkozott".
3 próba után lezárjuk.
Ezeket is deklaráljam? (Eddig működött nélküle)A user() pedig Module1-ben van:
Declare Function GetUserName Lib "advapi32.dll" Alias _
"GetUserNameA" (ByVal lpBuffer As String, nSize As Long) _
As Long
Function user()
Dim s As String
Dim cnt As Long
Dim dl As Long
Dim CurUser As String
cnt = 199
s = String(200, 0)
dl = GetUserName(s, cnt)
If dl <> 0 Then
CurUser = Left$(s, cnt - 1)
Else
CurUser = ""
End If
user = CurUser
End FunctionEzzel adom meg az aktuális felhasználó NT login nevét. (keresztnev.vezetkenev)
[ Szerkesztve ]
SonyEricsson T20 - T68 - T610 - K700 - W800 - K750 - K800 - C702 - P1 - MOTO Defy - Galaxy S Advance - Galaxy S4 - Lumia 820 - Honor 7 - iPhone 5S
-
Cpt. Flint
tag
válasz ArchElf #1498 üzenetére
szóval, itt több rendbeli félreértés van.
1. maga a KeyCode úgy tűnik, nem vihető át, mert rendszerváltozó, hiába teszem public-ká, akkor is üres lesz, amint másik sub-ba ugrok. természetesen tudom, hogy egy felhasználói publikus változóba kiíratva átvihető, alkalmaztuk is, csak reménykedtünk, hátha mégis lehet az eredetit használni, merthogy úgyis azt kínálja fel a rendszer, mikor egy új keydown subot létrehozol. megspóroltunk volna egy saját változót, meg minden ilyen subban egy plusz sort.
2. honnan jön a tb változó? mert mi pont azt szeretnénk megspórolni, hogy minden keydown subban konkrétan (az adott vezérlő nevével/indexével) értéket kelljen neki adni. mivel ez esetben ez a rész mindegyik subban eltérő lesz, azaz nem lehet simán másolni, oda kell figyelni.
magyarul én a set tb=TextBox1 helyett a set tb=ActiveControl kifejezést szeretném használni, mert ez univerzális. csakhogy nem működik, mert az ActiveControl a VB szerint nem a TextBox1, amiben épp kavarok, hanem a MultiPage1. ez a problem.
3. A "Locked"-nek az az értelme, hogy így egyszerűen nem íródik be a textboxba a hibás karakter, és passz, megy tovább.
4. "Changed" az mi? Én nem találom. Ha a "Change"- re gondolsz, akkor azért a KeyDown-ból megy az egész, és nem a Change-ből, mert a KeyDown még a karakter megjelenése _előtt_ lefut, a Change meg csak utána (tehát ott már csak törölni tudnék).masked textbox hogy megy? a Format()-ra gondolsz?
-
Cpt. Flint
tag
válasz ArchElf #1500 üzenetére
Általánosságban: jó, majd olvasgatok, ha lesz időm. (de azért, mert _itt_ újonc vagyok, még nem bizti, hogy totál hülye is.)
VB 6.5, Office 2003 SP31-2. Melyik függvény hozza létre újra, ha public?
Én ezt csináltam (volna, ha menne):Private Sub TextBox1_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer) 'Ügyirat főszámba csak számot enged írni
Dim vezerlo As Object
set vezerlo = ActiveControl
csakszamEnd Sub
Sub csakszam()
If Shift <> 0 Then
vezerlo.Locked = True
Else
If KeyCode = 8 Or KeyCode = 46 Or _
(KeyCode >= 48 And KeyCode <= 57) _
Or (KeyCode >= 96 And KeyCode <= 105) Then
vezerlo.Locked = False
Else
vezerlo.Locked = True
End If
End IfEnd Sub
Úgy gondoltam, hogy amikor a KeyDown subból meghívom a csakszam subot, akkor a KeyCode és a Shift ott is ugyanazt az értéket fogja még tartalmazni. De nem, ezek kiürülnek. Akkor is, ha külön felveszem őket public változóként. Ezért a KeyDown subban mindkettő értékét kiíratom egy-egy saját változóba (kc=KeyCode, ks=Shift) és a csakszam subban már azokat használom. Ez nem probléma, csak két plusz sor és két plusz változó.
Kipróbáltad, hogy át lehet-e adni (úgy, ahogy írtad) a KeyCode-ot? Mert nálam nem lehet, csakszam TextBox1, KeyCode-re ezt kapom: Compile error: ByRef type mismatch.
És mint írtam, pont azt szeretném elkerülni, hogy a TextBox1-et bárhol is leírjam (értékadásba vagy érték átadásba), mert azt majd akkor minden egyes subban át kell írnom a megfelelőre (ráadásul még ComboBox is lesz). Ezért szeretném az ActiveControlt használni helyette, ami általános, és elvileg mindig azt adná, ami épp kell).
"le kell ellenőrizni, hogy az aktuális ActiveControl TextBox-e"
Leellenőriztem, nem az. De MIÉRT nem az, mikor azon van a fókusz, abban szerkesztek, abból fut le a KeyDown sub??? A VB helpje szerint az ActiveControl az, amelyik épp fókuszban van. De mégsem a TextBox1-et kapom, hanem a MultiPage1-et.
Próbáltam így: set vezerlo=MultiPage1.Pages(0).ActiveControl. Ez eggyel beljebb vitt, mert így Frame1-et kaptam eredménynek, amiben a TextBox1 is van, de még mindig nem a textboxot... És ez már ebben a formában úgysem érne semmit, hiszen már akkor ha a konkrét lapot meg kell adnom, az sem jobb semmivel, mintha éppenséggel a konkrét vezérlőt adom meg.
Én sem igen szeretem a globális változókat szaporítani, de miért kell elfelejteni? Van valami komoly hátrányuk?
3. Miért lenne hack? Ez egy egyszerű, frappáns megoldás, egy darab létező tulajdonságot állítok át, és a felhasználó annyit lát, hogy ha nem megfelelő billentyűt nyom, egész egyszerűen nem történik semmi. Nyista vágólap, mert a Ctrl+akármit ez a rutin a KeyCode-ok közül nem engedélyezi (ugye vizsgálom a Shift-et, és ha nem 0, akkor eleve locked, de ha éppen nem a Ctrl-ra, akkor meg a v-re lenne az).
4. sem a VB helpjében, sem az Object Browserben nem találok MaskedEditet, egyetlen Mask tulajdonságot leltem, ami csak a CommandBarButton-ra alkalmazható.
Osztályom sincs olyan, hogy MaskEdBox, vagy akár MaskedTextBox. Sőt, az ominózus MSMASK32.OCX sem található meg a gépemen.Egyébként természetesen köszönöm a segítséget és az eszmecserét, sokat tanulok belőle.
-
martonx
veterán
válasz ArchElf #1502 üzenetére
ember te nagyon diplomatikus vagy.
Cpt. Flint pedig nem attól hülye, hogy itt mi a rangja, hanem a kérdése minőségétől.
Értsd ha egy programozás fórumban megkérdezed, hogy miért piros a majom feneke, akkor nem azért fognak kiröhögni mert újoncként kérdezed. Sőt egy újoncnak még esetleg jobban el is néznek egy ilyen kérdést.
Devportálon meg prog.hu-n mostanában renike24 nick tud olyanokat kérdezni ASP.Net vonalon, hogy ajánlom mindenki figyelmébe, aki jót akar röhögni. Próbáltam volna rávezetni a megoldásra (tanulás, olvasás), de még én lettem leszólva, hogy miért nem mondom meg a megoldást.
Biztos én vagyok a bunkó, de egyszerűen valami hihetetlen mélységekből jönnek elő ezek a mai fiatalok.Én kérek elnézést!
-
Cpt. Flint
tag
válasz ArchElf #1502 üzenetére
nem vagyok fejlesztő. ez probléma? itt csak azok lehetnek tagok? mert akkor szorri, lelépek. autodidakta excel vba projekt író vagyok (mondjuk), félig kényszerből, félig szórakozásból. Az angolom is hagy kívánnivalót maga után, úgyhogy ha nagy ritkán végképp nem találok valamire megoldást, akkor szoktam jólelkű fórumozókhoz fordulni. nyilván valszleg magában az objektumorientált programozás alapjaiban is vannak hiányosságaim, ezt vagy elnézitek nekem, vagy nem. ha nem, akkor nem válaszoltok, volt már ilyen.
ha egy többszázas google találati oldalt linkelsz, az nemigen ösztönzi az embert olvasásra. ettől függetlenül szemezgettem belőle, de az általad írtakat sajna pont nem találtam meg."- Ha egy függvény definíciójában van definiálva egy változó (vastaggal)
Private Sub TextBox1_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
azt hiába definiálod előre, az adott függvényben az itt definiált "változat" fog élni."
most már érteni vélem (úgy látszik, mégis el tudod magyarázni ha van kedved, ugye nem is kellett hozzá olyan hatalmas energia). arra valóban nem gondoltam, hogy a KeyDown függvény paramétereiben voltaképp újradefiniálom a változót...
de nekem úgy tűnik, a csakszam-hoz már elég ez is: Sub csakszam(KeyCode, Shift)már látom, hogy mi volt a ByRef hiba oka; többféle változónévvel futottunk itt a példákban, aztán nem egyezett az átadott az átvettel. úgyhogy valóban, köszi, működik.
Az a GetActive nagyon frappáns ki hackelés , mélységes hálám a visszafejtésért (vannak benne önmagukban is új/hasznos dolgok számomra); de hogy miért (csak) így működik, azt nem tudod véletlenül? Szerintem az ActiveControl így elég használhatatlan/bacsapós önmagában... nincs olyan utasítás, ami ténylegesen, közvetlenül, azonnal azt az egy darab, fókuszban levő vezérlőt adná eredményül?
masked editre akkor semmi ötlet?
-
ArchElf
addikt
válasz ArchElf #1528 üzenetére
Helyes VB szintaktikával (c# -al volt az előző kód keverve, sorry)
If (ev Mod 400 = 0) Then
szokoev = True
ElseIf (ev Mod 100 = 0) Then
szokoev = False
ElseIf (ev Mod 4 = 0) Then
szokoev = True
Else
szokoev = False
End IfAE
Csinálok egy adag popcornt, és leülök fórumozni --- Ízlések és pofonok - kinek miből jutott --- Az igazi beköpőlégy [http://is.gd/cJvlC2]
Új hozzászólás Aktív témák
- sziku69: Fűzzük össze a szavakat :)
- Formula-1
- Elden Ring
- Így nem hajlik, úgy kettétörik az új iPad
- NVIDIA GeForce RTX 4060 / 4070 S/Ti/TiS (AD104/103)
- WoW avagy World of Warcraft -=MMORPG=-
- Kerékpárosok, bringások ide!
- DIGI kábel TV
- DIGI Mobil
- Call center-forradalom: AI alakítja át az ideges telefonálók hangját
- További aktív témák...
Állásajánlatok
Cég: Ozeki Kft.
Város: Debrecen
Cég: Ozeki Kft.
Város: Debrecen