- Luck Dragon: Asszociációs játék. :)
- hdanesz: Elektromos autózás - Hyundai Ioniq 28 kWh - 2018
- Gurulunk, WAZE?!
- ZUK Z2 - Kicsi a bors, de erős!
- hdanesz: Elektromos autózás - első élmények
- sziku69: Fűzzük össze a szavakat :)
- eBay-es kütyük kis pénzért
- sziku69: Szólánc.
- D1Rect: Nagy "hülyétkapokazapróktól" topik
- lezso6: Nem látszik a kurzor Chrome alatt a beviteli mezőkben?
Új hozzászólás Aktív témák
-
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 -
Baboka
tag
sziasztok!
Elkezdtem egy táblaösszemásoló makrót megírni, még kezdő vagyok nagyon, ezt kérem figyelembe venni, de az a problémám hogy mindig a jó kis runtime error 1004 jön ki a program ciklusainál
For i = fk + 1 To ssz
If (Sheets(2).Cells(i, eo) <> "") Then <----------------itt áll le
For j = fk + 1 To ssz
If (Sheets(1).Cells(j, mo1) = Sheets(2).Cells(i, mo1)) 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 ifk: táblafejléc kezdete
eo: ellenőrző oszlop, ha üres akkor meg sem kell vizsgálni
mo1,2,3: adatoszlopok száma, amiket meg kell vizsgálniaha tudtok segíteni akkor előre is köszönöm!
-
#1395
martonx
veterán
papaja-xbox
#1394
martonx
veterán
válasz
papaja-xbox
#1394
üzenetére
Igen ezt mondtam. Manapság (kb. 5 éve) már megszűnt a PC-ken a serial, és az lpt port.
Csodálom is, hogy milyen régi cuccot akarhatsz összekötni, mert a mikrovezérlők is jópár éve USB-re álltak át.
Azért sok szerencsét hozzá! -
#1394
papaja-xbox
tag
martonx
#1393
papaja-xbox
tag
válasz
martonx
#1393
üzenetére
Értem , minden igaz holnap veszek usb->lpt port közbe kiderült hogy ebbe a gépbe nincs is lpt csatlakozo mert van 3 gépem :S + 2 az ágy alat na mind 1 és veszek lpt s bkábel és serial port kábel és kezdődhet a banzáj . Ez a uln2803 ez egy bipolári motor vezérlő ez a bitekel csinál valamit csak sajnos most nem találtam leírást .
-
#1393
martonx
veterán
papaja-xbox
#1392
martonx
veterán
válasz
papaja-xbox
#1392
üzenetére
Fogalmam sincs. Én mindig csak megmondom a kódnak, hogy mit küldjön, ha akarom kiolvasom, hogy mit küldött a periféria, de hogy ezt a .Net framework pontosan hogy is valósítja meg az már nem az én gondom.
Hogy maga a .Net milyen serial port lábakon mit csinál ahhoz, hogy mondjuk én egy 9-est kiküldjek serial porton a periféria felé, fingom sincs, és őszintén nem is akarom tudni
A lényeg, hogy működik. -
#1392
papaja-xbox
tag
papaja-xbox
tag
Serialport is ugyan az a variáció van mint lpt porton? Mert azt tudom hogy pinek vannak ?
-
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
-
#1390
ArchElf
addikt
papaja-xbox
#1389
ArchElf
addikt
válasz
papaja-xbox
#1389
üzenetére
Azért mert soros/párhuzamos porti kezelést szeretnél linux alatt.
Mivel linux alá dolgozol célszerű ott támogatott nyelvet használni, ami lehet C vagy C++. De ha nincs kedved hozzá, használhatsz akár python-t is (ott is van soros portos kommunikációt támogató csomag: PySerial - ez tartalmaz parallel porti modult is)AE
-
#1388
ArchElf
addikt
papaja-xbox
#1387
ArchElf
addikt
válasz
papaja-xbox
#1387
üzenetére
Akkor mégis látogass át a C topicba
AE
-
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. -
#1384
ArchElf
addikt
papaja-xbox
#1383
ArchElf
addikt
válasz
papaja-xbox
#1383
üzenetére
Ubuntu + Basic? WTF???
Szerintem nézz át a C topicba
AE
-
#1382
ArchElf
addikt
papaja-xbox
#1381
ArchElf
addikt
válasz
papaja-xbox
#1381
üzenetére
Feszültséget nem lehet módosítani (a hagyományos értelemben) LPT-n; illetve be-ki állapot van (alacsony-magas jelszint).
Milyen OS-alá készülne a program?AE
-
#1380
ArchElf
addikt
papaja-xbox
#1379
ArchElf
addikt
válasz
papaja-xbox
#1379
üzenetére
Serialra ott az mscomm32.dll (vagy .ocx, vagy valami hasonló), formra kipakolható - nem túl okos, de használható. LPT-re google (kapásból nem tudok biztos megoldást mondani).
AE
-
#1377
martonx
veterán
papaja-xbox
#1375
martonx
veterán
válasz
papaja-xbox
#1375
üzenetére
Szerintem keverjük a szezont a fazonnal.
Amiről te beszélsz az egy bizonyos mikrovezérlő BASIC Stamp programnyelve.
Namármost nem találsz olyan embert, aki ezt ismeri, egy-két éppen ezt használón kívül.
Másrészt maga a szintaktika pofonegyszerű basicnek tűnik, szóval egy ilyen eszközzel a soros portján, és a szükséges fejlesztői kereteszközöket feltelepítve kb. bármelyik programozó tud neked segíteni a beüzemelésben. -
#1376
ArchElf
addikt
papaja-xbox
#1375
ArchElf
addikt
válasz
papaja-xbox
#1375
üzenetére
Kód nélkül nem túl egyszerű erre bármit is mondani...
AE
-
#1375
papaja-xbox
tag
papaja-xbox
tag
Üdv lenne egy olyan kérdésem hogy szeretnék építeni egy robotott az elektronika megvan csak a program hiányzik . Adtak egy példált hozzá de nem akar lefutni mi a progbléma? A pdf tartalmát kimásoltam (angol)
A real-world example
Francis Rogers of Sun City West, Arizona wrote me to describe an application he’d like
to build with the Stamp. He has a PC with barcode software that can read membership
cards for his S.C.W. Metals Club. The barcode software generates a code through the PC
serial port when it’s presented with a valid card. Mr. Rogers would like the Stamp to read
this code and energize a relay to unlatch a door.
This fits perfectly with the theme of this month’s column. Figure 6.3 is the schematic.
I’ve made some assumptions about Mr. Rogers’ barcode software: that it can be set to
output at 2400 baud, and that all valid cards output some common code for the Stamp to
recognize.
Thanks to the serial-input (Serin) command’s built-in “qualifier” feature, the entire
program takes just a few lines of Stamp code:loop:
low 7 ' Pin 7 low to latch door (relay open)
serin 0,N2400,("OK") ' Watch serial input until "OK" rec'd.
high 7 ' Pin 7 high to unlatch door (relay closed).
pause 5000 ' Wait 5 seconds. Latch door and resume
goto loop ' Watching serial input.Of course, Mr. Rogers will have to substitute the actual password for “OK” in the
program above.
That’s it for this month. Next time, we’ll look at a nifty IC that lets the Stamp transmit
and receive DTMF tones (telephone touch tones). In addition to obvious telephone
applications, DTMF can be used as a form of low-speed, high-reliability data transfer.
Stay tuned!The Nuts and Volts of BASIC Stamps (Volume 1) • Page 57
-
ezekiel
aktív tag
válasz
martonx
#1373
üzenetére
Szia!
A hálózat megosztós Sub:
Sub halozat_megoszt(ByVal targetname As String, ByVal ip As String)
Dim megosztas As NetSharingManager = New NetSharingManager
Dim kapcs As INetConnection
Dim prop As IntPtr
Dim s As Object
For Each kapcs In megosztas.EnumEveryConnection
If megosztas.NetConnectionProps(kapcs).Name = My.Forms.Form3.ComboBox1.SelectedItem Then
megosztas.INetSharingConfigurationForINetConnection(kapcs).EnableSharing(tagSHARINGCONNECTIONTYPE.ICSSHARINGTYPE_PUBLIC)és ezután kéne megadnom azt hogy melyik otthoni kapcsolaton akarom leosztani de erre nincs ötletem. Googlet egy hete túrom eredmény nélkül
-
ezekiel
aktív tag
Sziasztok!
Segítségeteket kérném. Programot írok hálózati kapcsolat megosztás és wirtual router létrehozásával kapcsolatban.
Majdnem minden kész. Egy valami hiányzik az pedig az hogy a kívánt hálózati kapcsolat megosztás füle alatt kitudjam választani azt a kártyát amin megakarom osztani. Az is megvan hogy kipppantom a megengedem a hálózat más felhasználóinak hogy ezt a kapcsolatot használják de erre az egyre nem tudok rájönni.
Visual basicről van szó.
Tud valaki ebben segíteni nekem?
Üdv, Győző
-
#1371
ArchElf
addikt
Watercolour
#1367
ArchElf
addikt
válasz
Watercolour
#1367
üzenetére
nem kell ehhez makró, egy cellában ki lehet számolni az eredményt:
- ha számok mennyiságe = 1, akkor az össz idő = az egy szám lesz
- ha számok mennyiságe = 2, akkor az össz idő = a nagyobb szám lesz
- ha számok mennyiságe > 2, akkor az össz idő = az összes idő összege minusz a legrövidebb idő + (az átkelők száma - 2) szorozva a legrövidebb idővel (magyarul saját magán kívül mindenkit átkísér, és utána viszajön amíg van valaki a túlparton)
Függvényben (kicsit egyszerűsítve):
=IF(COUNT(A:A)<2; SUM(A:A);(COUNT(A:A)-3)*MIN(A:A)+SUM(A:A))AE
-
Taybore
aktív tag
válasz
martonx
#1369
üzenetére
Ezt már végignyálaztam, de itt nincs (nem találtam) erre vonatkozó beállítási lehetőség(et).
Másrészről időközben kaptam egy tippet, ami be is jött, ezért most ide is közzéteszem, megválaszolva a saját kérdésem mások okulására is:
http://msdn.microsoft.com/en-us/library/bb209605.aspx
Ezzel a módszerrel működik -
Taybore
aktív tag
Sziasztok!
Nekem egy olyan problémám van, hogy írtam egy macrot még Excel 2003-ban, ami egyszerűen egy képet szúrt be. Ha ezt elküldtem e-mailben, akkor a fogadó fél is látta a képet, ergo a macro "beágyazta" a képet az xls-be. Ugyanez a macro viszont erre nem hajlandó Excel 2010-ben, ugyanis én látom, hogy milyen képet rakott bele, de nem ágyazza be, és másik számítógépen megnyitva csak egy üres keret jelenik meg piros X-el, és a fájlméret se módosul számottevően. Kb olyan, mintha csak hivatkozna egy külső fájlra, ami ha nincs meg, nem jeleníti meg. Nekem az kéne, hogy ágyazza bele a képet az xls-be, ahogy a 2003-as Excel tette.
A kód eléggé egyszerű:
Set fs = CreateObject("Scripting.FileSystemObject")
If fs.fileexists("c:\Pic\xy.jpg") Then
ActiveSheet.Pictures.Insert("c:\Pic\xy.jpg").Select
Selection.ShapeRange.LockAspectRatio = msoTrue
Selection.ShapeRange.Height = 59.25
Selection.ShapeRange.Width = 59.25
End IfMi lehet e megoldás? Valami Excel biztonsági beállítás vagy ilyesmi? Lehet, hogy nem a macroval van a baj, hanem az Excel beállítással? Mit nézzek meg, hol keressem?
Köszi: Norbi
-
#1367
Watercolour
aktív tag
Watercolour
aktív tag
Üdv,
segítségeteket kérném Excel VB makróban. A nyelvet nem ismerem, bár sikerült alapszinten megértenem a szintaxisát, viszont a problémám a (matematikai) logikájával van ennek a feladatnak.
A lényeg az, hogy a feladat megoldása HIBÁS. Magával az algoritmussal van baj, gyanítom az, hogy létezik ennél optimálisabb megoldás.
A lényeg az lenne, hogy ki kellene javítani optimálisra.
Fontos lenne, aki tud, kérem nézzen rá.Adott a következő feladat:
Adott egy híd, amin N ember át szeretne kelni. Azt tudjuk, hogy nem feltétlenül egyenlő sebességgel képesek haladni. Az egyes emberek átjutásához szükséges időket jelölje T(I). Egyszerre csak ketten tudnak átkelni a hídon. Sötét van, ezért szükségük van egy lámpásra. Leghamarabb mennyi idő alatt tudnak mindnyájan a túlsó partra jutni? (NE feledjük, a lámpást az egyik átjutottnak vissza kell hoznia, hogy a többiek is lássanak az átkelés során!)Van hozzá egy megoldás leírása:
Látható, hogy 3 ember esetén a leggyorsabb bárki mással átmehet, ő jön vissza, és aki még maradt azzal újra átmegy a hídon. Az átkeléshez szükséges idő összesen T(1)+T(2)+(T(3) feltéve, hogy az embereket az átkelés sebessége szerint csökkenőbe (ez időben növekvőt jelent) rendeztük. Azaz pl. átmegy az 1. és a 2. (Idő: T(2)), visszajön az 1. (Idő: T(1)), és végül átmegy az 1. és a 3. (Idő: T(3)). Ha 4 ember van, akkor ez helyesen pl. úgy alakul, hogy: átmegy az 1. és a 2., visszajön az 1., átmegy a 3. és a 4., visszajön a 2., és végül átmegy az 1. és a 2. Észrevehető, hogy az 1. és a 2. tulajdonképpen átjuttatja a 3. és 4. párosát, és ehhez pontosan T(1)+2*T(2)+T(4) időre van szükség. majd végül ők is átmennek (Idő: T(2)). Ha az átkelők száma páros, akkor - az előzőekből helyesen következtetve - úgy tudjuk kiszámolni, hogy mennyi időre van szükség, hogy a leglassúbb idejéből elindulva minden másodikat összegzünk egészen T(4)-ig, és ehhez annyiszor T(1)+2*T(2)-t adunk hozzá, amennyi az átjuttatott párok száma. Végül ehhez még hozzáadunk T(2)-t. Páratlan esetben a 3.-at gondolatban kivéve páros esethez jutunk, és az így kapott összidőhöz még T(1)+T(3)-at hozzáadunk.És itt van rá egy kész megoldás (ami feltételezem az előző megoldás leírás alapján készült):
Itt van a hibás megoldás (xls)A makró kód a következő:
Dim N As Integer ' Az átkelni szándékozók száma
Dim Lap As Object
Dim S As Long
Dim Allando As Integer
Dim I As Integer, J As Integer
Dim A1 As Integer, A2 As Integer
Set Lap = Sheets("Alapadatok")
N = Lap.Cells(1, 1).CurrentRegion.Rows.Count - 1
Lap.Copy After:=Sheets(Sheets.Count)
Sheets("Alapadatok (2)").Name = "Átkelés"
Range(Cells(2, 1), Cells(N + 1, 1)).Select
Selection.Sort Key1:=Cells(2, 1), Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal
Cells(2, 2).Activate
A1 = Cells(2, 1).Value
A2 = Cells(3, 1).Value
Allando = 2 * A2 + A1
S = A2
J = 0
For I = N + 1 To 5 Step -2
J = J + 2
S = S + Allando + Cells(I, 1).Value
Cells(J, 3).Value = A1 & " + " & A2
Cells(J, 4).Value = A1
Cells(J, 5).Value = A1 + A2
Cells(J + 1, 3).Value = Cells(I - 1, 1).Value & " + " & Cells(I, 1).Value
Cells(J + 1, 4).Value = A2
Cells(J + 1, 5).Value = A2 + Cells(I, 1).Value
Next
If N Mod 2 = 1 Then
S = S + Cells(4, 1).Value + Cells(2, 1).Value
J = J + 2
Cells(J, 3).Value = A1 & " + " & A2
Cells(J, 4).Value = A1
Cells(J, 5).Value = A1 + A2
Cells(J + 1, 3).Value = A1 & " + " & Cells(4, 1).Value
Cells(J + 1, 5).Value = Cells(I, 1).Value
Else
J = J + 2
Cells(J, 3).Value = A1 & " + " & A2
Cells(J, 5).Value = A2
End If
Cells(2, 2).Value = S
End SubElőre is köszönöm a segítséget.
-
#1365
#90999040
törölt tag
dani850430
#1364
#90999040
törölt tag
válasz
dani850430
#1364
üzenetére
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 -
#1364
dani850430
csendes tag
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.
-
#1357
ArchElf
addikt
Dobozossör
#1356
ArchElf
addikt
válasz
Dobozossör
#1356
üzenetére
Szerintem ne legyen 'auto edit' jellegű megoldás, ha módosítani akar valaki egy mezőt, akkor kérdezze le a program, hogy az adott mező szerkeszthető-e, és ha igen, akkor zárolja a sort (Tranzakcióban update-eljen egy mezőt, ami a zárolást jelzi, vagy egy másik táblát, amiben a zárolások nyilván vannak tartva).
Igazából amit keresel, arra nem hiszem, hogy van dobozos megoldás - ráadásul, amit szeretnél az nem is igazán szép.
Igazi LAN-on (ahol nincs az udp multicast tiltva) elméletileg megoldható egy ilyen megoldás SQL nélkül - UDP multicastba téve a gépeket, ahol mindenki bemondja az éterbe, hogy épp mit csinál. Ám egyrészt az UDP nem megbízható (nincs garancia, hogy mindenki megkapja a csomagot és fel is dolgozza), másrészt egy nagyobb céges hálóban általában szűrve vannak a multicast hívások a VLAN-ok között. Ráadásul ebben az esetben nincs kizárás, tehát elméletileg előfordulhat, hogy "egyszerre" jelenti be mind a két gép a szerkesztést, és vagy mindkettő szerkesztő üzemmódban marad, vagy mindkettőnél letiltódik a szerkesztés (megvalósítástól függően).AE
-
#1356
Dobozossör
tag
ArchElf
#1355
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.
-
#1355
ArchElf
addikt
Dobozossör
#1354
ArchElf
addikt
válasz
Dobozossör
#1354
üzenetére
SQL lekérdezés nélkül nem nagyon megy... Honnan tudja a kliens, hogy más is nézi azt a view-t? Ha sok adat van a view-ban és nem akarsz folyton mindent lekérdezni, akkor egy ID mezőre le lehet mondjuk kérdezni egy SELECT Max(ID) FROM View -val, hogy van-e újabb rekord, vagy ha frissülhetnek a mezők, akkor legyen a táblában egy TimeStamp mező (DateTime) ami frissítéskor frissül és akkor a SELECT Max(TimeStamp) FROM View-val megnézni, hogy van-e újabb adat. Esetleg csinálni egy Triggert, ami UPDATE/INSERT/DELETE-re frissít egy DateTime mezőt egy külön státusz táblában...
Szóval lekérdezés nélkül nekem semmi nem jut az eszembe, lekérdezésekkel, meg a fentiek.AE
-
#1354
Dobozossör
tag
ArchElf
#1353
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?
-
#1353
ArchElf
addikt
Dobozossör
#1352
ArchElf
addikt
válasz
Dobozossör
#1352
üzenetére
Ez talán egy kicsit kisegít:
http:
//stackoverflow.com/questions/844835/sending-mail-throught-http-proxy
Amúgy röviden csak annyit, hogy a HTTP proxy-nak semmi köze nincs az SMTP-hez. Ha céges hálózatban vagy és nem megy ki az SMTP, akkor az nem a proxy/kliens hibája, hanem a tűzfalon van letiltva a kimenő SMTP. Amennyiben mégis szeretnél valamiért HTTP-n keresztül "kimenni" úgy pl. azt a megoldást tudom ajánlani, amint a mi a fent linkelt eszélgetés végén található - persze céges hálózaton ez nagy valószínűség szerint a helyi szabályokba ütközik..És még ezt találtam neked: http://www.lesnikowski.com/blog/index.php/tag/mail-dll/
AE
-
ArchElf
addikt
Csinálsz szerintem egy szimpla PKData definíciót, és az összes PX-tömbelemnek add azt értékül:
'Px Kiürítése
Dim EmptyPkData as PkData
For ix = 1 to UBound(Px)
Px(ix) = EmptyPkData
Next ixmod: Mivel a VB6 automatikusan inicializál, így az EmptyPkData biztos, hogy üres lesz, az értékadásnál pedig egyszerűen felülírja a régi értéket (és mivel value type, nem pedig class, így nem ugyanarra az objektumra fog hivatkozni az összes tömbelem - az egyetlen gondot az jelentheti, ha a type definíció osztályokat is tartalmaz).
AE
-
sonar
addikt
Sziasztok,
A következő problémám lenne.
Adott egy type változó
Public Type PkData
PlayerName As String
PlayerID As Integer
Seat As String
...
end typemajd ezt használom tömbként
Dim Px(1 To 10) As PkDatailyen esetben hogyan tudom a px tömböt kiüríteni???
mert ugye Px.playername... stb változóim vannak. És kb 30 változó van a típusban definiálva.
Egyessével nagyon macerás lenne -
#1349
martonx
veterán
Dobozossör
#1348
martonx
veterán
válasz
Dobozossör
#1348
üzenetére
Engem az érdekel mire volt jó mindez? VB alatt titkosítani valamit? Mi lett ettől biztonságosabb? Vagy fájl alapú adattárolást használt valaki? Csak erre tudok gondolni. De ez a gondolat meg elég valószerűtlen, így 2011-ben amikor már mindenki adatbázist használ.
Ha meg már ott a VB.Net minek a PHP?
Eh mindegy, sok kérdés felmerült bennem, igaziból egyedül a konkrét megoldás nem érdekelt
-
Dobozossör
tag
válasz
Dobozossör
#1347
üzenetére
A probléma megoldódott, akit esetleg érdekel, ez alapján csináltam.
-
#1347
Dobozossör
tag
Dobozossör
tag
Helló!
Van valakinek tapasztalata, hogy lehetne megoldani, hogy egy VB programmal titkosított fájlt php alatt mcryptel visszafejtsek? Az mcrypt string IV-t és kulcsot kér, a VB byte-t. Rijndael-128-al próbálkozom.
Köszönöm!
-
surixxx
tag
Üdv kedves fórumozók!
Tudja netán valaki hogy PictureBox-ot miképp tudok elővarázsolni excel-ben. Függvényt szeretnék rajzoltatni bele, de nem találom a vezérlők közt (vagy nem tudom milyen néven kellene látnom). Ha nincs ilyen a gépen, akkor honnan tudom beszerezni?
Szép napot!
-
TakkerX
aktív tag
sziasztok, remélem jó helyre írok, vba script lenne excelben.
eléggé amatőr vagyok benne, az szeretném megcsinálni, hogy miután a felhasználó lementette a fájlt, akkor azokat a cellákat amik adatot tartalmaznak, zárja le. és csak jelszóval lehessen ezt feloldani. Lapvédelem be van állítva, az üres cellák alapesetben nem zároltak ugye.
az megvan, hogy rögtön az adat beviltel után lezárja a cellát. így:Private Sub Worksheet_Change(ByVal Target As Range)
ActiveSheet.Unprotect ("password")
Target.Locked = True
ActiveSheet.Protect ("password")
End Subde én úgy szeretném, hogy csak mentéskor zárja le. lehetséges?
-
martonx
veterán
Arra gondolsz, hogy van egy A nevű exceled, ebben megnyomod a mentés gombot, és ekkor jelenjen meg és mentődjön le egy B nevű exceled az általad megadott névvel.
B-nek egy munkafüzete legyen, annak a neve a mai dátum?
És mi legyen B egyetlen munkafüzetében? Vagy ez üres legyen?
Ahányszor rányomsz a mentés gombra mindig ez játszódjon le, vagy csak naponta egyszer?Annyiszor le van fentebb írva, hogy értelmesen fogalmazzátok meg, hogy mit akartok, mert ezek abszolút nem triviális kérdések, még ha te magad érted is, hogy mit akarsz, ahhoz hogy segíthessünk, nekünk is meg kell érteni téged.
-
opapa
csendes tag
Sziasztok!
Segítséteket kérem! Excelben (2003-as) munkalapot szeretnék menteni olyan módon, hogy adott napon adott munkafüzetben nyisson egy-egy új munkalapot az általam megadott névvel. ( Tulajdonképpen anyag mentéséről lenne szó, de külön munkafüzetbe és ott a megadott névvel új lapot kellene nyitnia.)
Köszönöm! -
#1339
martonx
veterán
borovszkyg
#1338
martonx
veterán
válasz
borovszkyg
#1338
üzenetére
A sok félrebeszéd helyett inkább küldök egy megoldást:
elkapod az adott munkalap cella kijelölés eseményét, és abba beleírod az alábbi sort:
Range("A1").Value = Cells(ActiveCell.Row, 15)
Ahol a 15 - annak az oszlopnak a száma, amelyiknek az értékét az A1-ben látni akarod.
A fenti párbeszédünkre való tekintettel, inkább leírom a komplett 3 sort, ami kell nekünk:
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Range("A1").Value = Cells(ActiveCell.Row, 15)
End Sub -
#1338
borovszkyg
csendes tag
martonx
#1337
-
#1337
martonx
veterán
borovszkyg
#1336
martonx
veterán
válasz
borovszkyg
#1336
üzenetére
Jól értem, hogy ennyit akarsz:
Excel tábláról beszélünk (ugye???), és bármely cellát jelölöm ki, annak az értékét látni akarom az A1 cellában. Ennyi???
Mert akkor ez könnyen megoldható.
-
#1336
borovszkyg
csendes tag
martonx
#1335
borovszkyg
csendes tag
válasz
martonx
#1335
üzenetére
Megpróbálom.
A fix cella legyen pl. az A1-es. Ezt a cellát az ablaktablábla rögzítése segítségével mindig látom. Ebben a cellában kellene megjelennie egy fix oszlop azon sorának értéke, amelyik sorban éppen az aktív cella található. Ahogy mozgatom az egérrel vagy a nyilakkal az aktív cella kijelölését úgy változik az A1 cellában az érték. A lényeg, hogy egy nagy táblázat előre meghatározott fix oszlopából mindig lássam az aktív cella sorának értékét. boro -
#1335
martonx
veterán
borovszkyg
#1334
martonx
veterán
válasz
borovszkyg
#1334
üzenetére
Ha érthetően leírod, hogy mit akarsz, akkor biztos tudunk segíteni.
-
#1334
borovszkyg
csendes tag
borovszkyg
csendes tag
Sziasztok!
Szeretném megoldani, hogy egy fix cellában mindíg annak a sornak egy oszlopából legyen adat kijelezve amelyik sorban épp az aktív cella áll. Ez megoldható?
Köszönöm: boro -
#1333
martonx
veterán
dani850430
#1332
martonx
veterán
válasz
dani850430
#1332
üzenetére
Az biztos, hogy működik a dolog visszafelé is, INSERT sql paranccsal tudsz az adatbázisodba adatokat írni.
Léptetést rs.next-el tudsz csinálni, ha jól sejtem, vagy valami ilyesmivel, sose használtam VB6-ot.
-
#1332
dani850430
csendes tag
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
-
#10382336
törölt tag
válasz
#10382336
#1330
üzenetére
A következőképpen sikerült megoldani:
1: A táblázatot tartalmazó .html fájl letöltése a helyi gépre:
My.Computer.Network.DownloadFile(forrashtml, celfajl, felhasznalonev, jelszo, False, 10000000, True)2: A letöltött fájl beolvasása egy stringbe:
Dim s0 As String = Join(System.IO.File.ReadAllLines(celfajl, System.Text.Encoding.Default), "")3: A stringből a tabulátor - chr(9) - karakterek kitörlése.
4: A string átalakítása úgy, hogy egy sor vagy egy tag-ot, vagy egy szövegsort tartalmazzon.
Ezek után egy sor vagy így néz ki: "<tagnév tagtulajdonságok>"+vbcrlf ,
vagy így: "szöveg"+vbcrlf
így el lehet dönteni, hogy egy sor mit tartalmaz, ha a sor első karaktere "<" akkor tag,
egyébként szöveg.5: Ezek után "csak" fel kell dolgozni a sorokat a táblázat parancsai szerint:
<table> </table> - új táblázat, ill. táblázat vége
<tr> </tr> - következő sor, sor vége
<th> </th> - aktuális sor köv. oszlopának fejlécének kezdete/vége
<td> </td> - akt. sor köv. oszlopának eleme.
Minden más tag figyelmen kívűl hagyandó. A <th> tag-nál azonban még arra figyelni
kell, hogy <th colspan="2"> az adott sorban két cella egyesítését jelenti.A próba során célobjektumnak "datagrid" -et használtam, amit "datagridview" -el
írattam ki a "form" -ra. Összehasonlítva az eredeti weboldallal az adatok megegyeztek.Ez a megoldás valószínűleg nem a legegyszerűbb, azonban működik.
Ha valakinek van egyszerűbb megoldása, nem sértődnék meg, ha leírná.KELLEMES ÜNNEPEKET MINDENKINEK!!!
-
#10382336
törölt tag
válasz
martonx
#1329
üzenetére
A httpwebrequest, httpwebclient - el pár napja kísérletezgettem weboldalon lévő fájlok letöltése kapcsán, de ezzel én csak .html fájlt tudtam létrhozni, amire rákattintva megnyilt az alapértelmezett böngésző(firefox), ami a letöltendő fájlra mutatott és feldobta a mentés másként ablakot, amivel le tudtam tölteni.
Mivel azonban ehhez kattintgatni is kell, és én közvetlenül .net -ből akartam letölteni, ezért a httpwebrequest,httpwebclient -el való kísérletezést végül abbahagytam.
A webclient-el egyszer a Form-ra is sikerült rávarázsolnom egy bizonyos weboldalt.
Akkor végül is az egyszerű My.Computer.Network.DownloadFile() eljárás oldotta meg a problémámat.
Ezek szerint ismét vissza kell térnem ezekhez az objektumokhoz és tovább kísérletezgetni velük.köszi a javaslatokat.
-
martonx
veterán
válasz
#10382336
#1328
üzenetére
Hali!
Két megoldási utat látok.
1. Watin-t használsz, ezzel egyszerűen, könnyen lehet böngészőt automatizálni. Javascript szerűen (teljes .net) ki tudod vele szedni az adatokat a HTML DOM-ból. Viszont nem túl elegáns módszer villogtatni a böngészőt, az adatok kinyerésekor. Kérdés mennyire lényeges az elegancia?
2. Használd a httpwebrequest, httpwebclient osztályokat. Na, ezekkel nincs semmi tapasztalatom, viszont brutál jó dolgokat lehet velük csinálni, aki ért hozzájuk. A webes játékokhoz a botokat is ezekkel az osztályokkal csinálják a hardcore gamerek A PHUpper is ezekkel működik. Nagyon elegáns ezeket az osztályokat használni, viszont sok tanulást utánajárást igényel, mire beletanulsz.Ha van időd a feladatra, akkor mindenképpen a 2-es megoldást javaslom. Ha csak gyorsan össze kell dobni egy működőképes megoldást, akkor az 1-est.
-
#10382336
törölt tag
válasz
martonx
#1327
üzenetére
No ezt a COM-ot szeretném kihagyni. Tulajdonképpen ha a böngészőkből kiadom a
Internet explorer esetén a Fájl - Mentés másként...
Firefox esetén a Fájl - Oldal mentése
parancsot, és szövegfájlként mentem, majdnem ugyanazt az eredményt érem el, azzal a külnbséggel, hogy így a weboldal nem csak a táblázatot adja vissza (mint az excel -nél), hanem az egész oldalt.Ezért érdekelne, hogy .NET-ből hogyan lehet ezt megcsinálni.
Erre a httpwebclient alkalmas? -
martonx
veterán
válasz
#10382336
#1324
üzenetére
1. Nem.
2. Ha mégis telepítve van, akkor le tudod menteni a kapott eredményt bármibe, amibe az exceled menteni tud. .net-el tudod COM-on keresztülhasználni az excelt, azaz a felhasználó nem is látja, hogy te excelt hívogatsz a háttérben.Ha pusztán .net-tel akarsz megoldani valamilyen feladatot, talán egyszerűbb lenne, ha elárulnád mi az a feladat, és mi elmondjuk a javaslatainkat.
Például ebben az esetben a httpwebclient és a httpwebrequest osztályok használatát javaslom inkább, ha az elvira oldalát akarod automatizáltan hívogatni valami .net-es alkalmazásból. -
#10382336
törölt tag
Sziasztok!
2 egymással összefüggő kérdésem lenne:
1: Lehetséges-e az "Excel" "Weblekérdezés" parancsát végrehajtó eljárást vagy függvényt írni csak .net -ben úgy, hogy az "Excel" nincs telepítve?
2: Ha igen, akkor ezt milyen objektumba / fájlba a legegyszerűbb ("datagrid"/szövegfájl???), és hogyan? (erről elképzelésem sincs).
A konkrét weblekérdezés jelen esetben:
Workbooks(Xlsnev).Sheets("Szeged").QueryTables.Add(Connection:= _
"URL;http://elvira.mavinformatika.hu/elvira.dll/AF?a=szeged" _
, Destination:=Workbooks(Xlsnev).Sheets("Szeged").Range("A1"))Természetesen az "Excel" telepítve van, de a kérdésben azért ilyen sarkosan fogalmaztam, mert a feladatot csak .net -el szeretném megoldani.
-
válasz
martonx
#1322
üzenetére
akkor elküldöm az adatlapodon található mailcímr, nagyon hálás lennék ha megnéznéd
a szakdolgozatomnak amúgy ehhez semmi köze, teljesen más téma. ez még egy 2. félévről visszamaradt programtervezés c. tárgy, amit eddig nem volt idő megcsinálni. amúgy ez az utolsó félév amikor oktatnak még visual basicet, jövőre már csak c-t.
-
martonx
veterán
Ugye VB.NET-ről beszélünk? Mert ha igen, akkor elküldheted a kódod. Megoldás szempontjából végülis mindegy, hogy .Net vagy nem.
Ha már megvan a mini adatbázisod, és a csv-d, akkor olvasd be csvből az adatokat, majd azokon végiglépdelve, amit nem találsz meg az adatbázisodban, azt beletöltöd.
Amúgy, ahhoz nem kell csv-hogy excellel kezeld az adatokat, sima COM objektumon keresztül tudsz kommunikálni az excellel. Ezt sokkal elegánsabbnak tartanám.
Vagy csinálsz egy excel makrót, ami szintén beleír az adatbázisodba
BME-n már ilyen szakdolgozatokért is adnak diplomát?
-
válasz
martonx
#1315
üzenetére
hát egy rekord fájlban tároljuk az adatokat (mini adatbázis) és ezeket exportáljuk egy csv fájlba, hogy azt excellel is tudjuk kezelni. és azt kellene megoldani, hogy ha az így kiimportált .csv-t megnyitjuk excellel, és hozzáírunk még néhány rekordot (ami 3 mezőből áll) akkor azokat be tudjuk importálni a programfelületen keresztül a rekord típusú fájlunkba. szerintem is hülyeség, mivel a programmal simán hozzá tudjuk adni. nade ezen a hülye tárgyon múlik, hogy mehessek államvizsgázni, muszáj összekapnom magam. ha gondolod el tudom küldeni az eddigi programot..
-
-
martonx
veterán
válasz
#10382336
#1316
üzenetére
A *.hlp fájlok rtf-ből álló lapok halmaza. Így ha megcsinálod az rtf-eidet, akkor ezekből egy compilerrel tudsz *.hlp fájlt generálni.
Meglévő *.hlp-t szerkeszteni nem fogsz tudni, hacsak nincs meg a forrásod, amiből generálódott a .hlp.Ha pedig egy meglévő projektedhez akarsz automatikusan help-et generálni, akkor használd a Sandcastle-t (sose használtam, csak sokat hallottam róla), és az elvártnak megfelelően kommentezd a kódodat.
-
sziasztok!
simét VB kérdéssel fordulnék hozzátok. már van egy jó kis programunk, ami képes feltölteni egy rekord típusú fájlt, 3 féle adat tartozik egy rekordhoz. ezt a fájlt ki is tudjuk iratni egy exceláltal is kezet .csv formátumú soros fájlba. az lenne a kérdésem, hogy az hogyan oldható meg, hogy ha én ebbe a soros .csv fájlba beírok még adatokat, azt a program be tudja olvasni, és el tudja tárolni a már említett rekord típusú fájlba, vagyis elvégezni a műveletet visszafelé.
remélem érthető a kérdés
köszi előre is a segítséget!
-
opr
nagyúr
válasz
martonx
#1311
üzenetére
Jól érzed, ez van
De ha már ilyen szénné gányolt-hackelt alami van, akkor legalább ez a része legyen egyelőre mentes a káosztól.
(úgy értem, hogy midnenhez van egy html file, egy button a hta-ban a html-hez, meg egy vbs, mind-mind azonos néven... agyrém, de legalább könnyen megszokható ) -
martonx
veterán
Szívesen!
Érdekes, és marhára elcseszett egy architektúra az, amit ti használtok. A .hta kvázi vastag kliensnek számít, ennek ellenére úgy próbáljátok meg használni, mintha egy IIS-ről futó klasszikus ASP alkalmazás lenne. Aztán megy a nagy csodálkozás, hogy ez miért nem működik, miközben mindent úgy csinálunk, mint a tutorialokban.
Azért kell a külön vbs hogy átláthatóbb legyen az egész??? Ezen betegre röhögtem magam, annak alapján, ahogy leírtad az architektúrátokat.
HIHETETLEN
Tudom nem te tehetsz róla, ehhez kell alkalmazkodnod, de röhejesen béna ez az egész
Veszünk egy kicsit innen - aztán onnan, végül megfűszerezzük ezzel - azzal. Amikor nem működik megpatkoljuk, buheráljuk, végül agyonbonyolítjuk az átláthatóság jegyében.
VÁÁÁÁ -
opr
nagyúr
válasz
martonx
#1309
üzenetére
Nah, ezaz, köszönöm
jquery nem jutott eszembe, mint lehetőség. Egyébként igen, háttérben akarom, interakció nélkül (ehhez kell a vbs), van is szívás a hülye vista+office12 security(ehhez meg egy macro) marhaságaival (certificate-ek), de ez már egy totál másik kérdés, azt már rég megoldottamKülön vbs file meg összvissz azért kell, mert ez a szokás, és mivel ez a szokás így sokkal átláthatóbb az egész. Ha a későbbiekben módosítani kell bármit jó, ha van egy adott rendszer, még akkor is ha néha hülyén jön ki az egész.
-
martonx
veterán
Naponta használok javascript framework-öket, bár én a jquery-re esküszök (mondjuk tagadhatatlan, hogy a dojo és a dhtmlx nagyon látványos dolgokat tud). jquery + dhtmlx kombó a kedvencem.
Megoldási javaslatom:
1. használj jquery-t. Igen, lehet a kettőt párhuzamosan is használni. Jquery játszva kiolvassa neked a textarea értékét.
2. egyúttal jqueryvel a gombodhoz hozzáadnék egy mailto href-et, amit jqueryvel szépen előre összeállítok, és tartalmazná a textarea értékét a bodyban.
3. öröm, boldogságMihez kell itt vbscript? Ha tudsz egy kicsit html-ezni, akkor tudod, hogy a mailto elindítja az alapértelmezett levelezőt, ráadásul szépen lehet paraméterezni.
Vagy az email küldést a háttérben akarod, a felhasználó interakciója nélkül futtatni? Ha már .hta-ról beszélünk, akkor erre is van lehetőséged, de még ekkor sem értem miért kell külön vbs fájl ehhez. -
opr
nagyúr
válasz
martonx
#1304
üzenetére
Ok, nem kell bunkózni. Először is, írtm, hogy dojo-t használunk. A válaszokból kiderült, hogy nem tudjátok mi az, vagy figyelmetlenek voltatok. Másodszor, a halál se akarja, ezt a feladatot kaptam, hogy oldjam meg, pont. Meglévő rendszerben megy a meló, nem nagyon szólhatok bele. Akkor a lényeg, mégegyszer:
Van egy fos .hta oldal, amin fut a dojo, meg nyilván aloldalanként egy raklap html. A dojo egy javascript engine, ami megoldja, hogy a scripteknek át tudjuk adni amit az isten is úgy akar.
A lényeg, hogy van egy script request form, a user kitölti, örül, elégedett, stb, előbb-utóbb jelezzük neki, hogy kész a script és pont. (multi környezetben automatizálunk olyanokat, amiket a biodroidok csinálnak.)
Amit csinálni kell, egy kurva aloldal (igen, fontos, hogy html legyen, és nem, nem elég az inputbox), amin van egy valami, ahova a user beírja a feedback-et vagy amit akar, és egy gomb megnyomására outlook-al elküldi a megadott címekre egy script a textarea tartalmát.
Ehhez egy inputbox nem elég, és a jelenlegi struktúra miatt nem megoldható, hogy a hta/html file-ba beírom a scriptet, hanem, mint midnen másnál külön fileba kell pakolni.
A rendszer nem az én művem, még csak ötlet szintjén sem, és mivel általában csak textbox-ok vannak, amik a hülye dojo-ban object-ként átadhatók, ezért működnek is. A probléma, hogy feedback-et mi másba írjon a user, mint textarea, ami viszont nem object a dojo-ban.
Tehát a probléma röviden: adott oldal, adott html, külön mappában külön script, ezek így vannak és pont. Az oldal tartalmát variálhatom, valóban.Remélem, így már nem tűnök annyira nagyon hülyének...
szerk: ha rajtam múlna az egész marhaságot átírnám vb/delphi-re, kb. két nap alatt, és nem lenne ilyen szenvedés... De nem rajtam múlik
-
ArchElf
addikt
VBS-t nem gazán lehet úgy meghívni, mint fuattatható fájlt htmlből (legalábbis értelme sok nincs). A Wscript.Arguments-be amúgy a futtatott fájl argumentumai kerülnek át - pl.:
a popupmessage.vbs "user" "üzenet" esetén az első argumentum a "user", a második az "üzenet".
Egyrészt ez azért problémás, mert a commandline hossza korlátos (255 körül, így az átadható adatmennyiség is korlátos), másrész egy HTML kódnál van meghívható függvény opció, így felesleges trükközni és hackelni, hogy a href mezőbe az ember valahogy belepaszírozza a textarea tartalmát is (ami nem mellesleg lehet, hogy bele sem fér).AE
-
-
opr
nagyúr
válasz
martonx
#1302
üzenetére
van egy html file, abban a textarea, meg egy gomb, meg van egy .vbs file, ami nyilván a script. A gomb feladata: meghívni a .vbs file-t úgy, hogy argumentumként a textarea.value-t adja át.
A scriptben pedig wscript.arguments-et használva akarom megoldani, hogy megkapja a változó ezt az értéket.
Amit szeretnék
Új hozzászólás Aktív témák
Hirdetés
- Luck Dragon: Asszociációs játék. :)
- Milyen billentyűzetet vegyek?
- Hálózati / IP kamera
- Apple Watch Sport - ez is csak egy okosóra
- Riasztó topik
- Milyen asztali médialejátszót?
- Kamionok, fuvarozás, logisztika topik
- Kertészet, mezőgazdaság topik
- Témázgatunk, témázgatunk!? ... avagy mutasd az Android homescreened!
- Háztartási gépek
- További aktív témák...
- HP EliteBook x360 830 G8 Core i5 1145G7 2.6GHz/16GB RAM/512GB
- 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
- Lenovo V130-15IGM laptop (Pentium Silver N5000/8GB/256GB SSD
- Csere-Beszámítás! Asztali számítógép játékra! I5 14400F / RX 6900 XT 16GB / 32GB DDR5 / 1TB SSD
- 18 éve! Billentyűzet magyarítás magyarosítás. Festés vagy lézerezés és egyebek! 3 lehetőség is van.
- Apple iPhone 12 128GB, Kártyafüggetlen, 1 Év Garanciával
- BESZÁMÍTÁS! 4TB Toshiba P300 SATA HDD meghajtó garanciával hibátlan működéssel
Állásajánlatok
Cég: CAMERA-PRO Hungary Kft
Város: Budapest
Cég: PC Trade Systems Kft.
Város: Szeged