- Telekom mobilszolgáltatások
- iOS alkalmazások
- Ennyibe kerülnek a Huawei Pura modellek Európában
- Samsung Galaxy S21 FE 5G - utóirat
- Honor Magic V2 - origami
- Samsung Galaxy S24 Ultra - ha működik, ne változtass!
- Nemzetközi piacra érkezik az Amazfit Helio Ring
- Samsung Univerzum: Az S23-at is megbabonázta a Galaxy AI
- Milyen okostelefont vegyek?
- Apple AirPods Pro (2. generáció) - csiszolt almaságok
Hirdetés
-
A legtöbb amerikai szerint a TikTok egy őket befolyásoló eszköz
it Egy felmérés szerint a legtöbb amerikai osztja azon véleményt, hogy a TikTok egy őket befolyásoló eszköz.
-
A Keychron ismét egy űr betöltését vállalta magára az egerek szegmensében
ph A cég újdonsága azokat célozza, akik egy nagyobb fajta, hüvelykujjtámasszal ellátott, ugyanakkor pehelysúlyú eszközt vásárolnának.
-
AMD Radeon undervolt/overclock
lo Minden egy hideg, téli estén kezdődött, mikor rájöttem, hogy már kicsit kevés az RTX2060...
Új hozzászólás Aktív témák
-
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
[ 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]
-
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
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]
-
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
-
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
[ 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]
-
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
-
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
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]
-
ezredes
csendes tag
Hi!
valaki tudja, hogy működik a 2010-es excel alatt az ürlapkészítés???
olyat szeretnék hogy egy listából kiválasztok egy elemet, s egy másik
listában ettől függően jelennek meg a választható elemek, s végül
kiíratni az eredményt. -
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.
-
#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 -
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.
[ Szerkesztve ]
-
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
-
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 -
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
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]
-
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ő
-
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
-
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
[ Szerkesztve ]
-
ArchElf
addikt
válasz papaja-xbox #1375 üzenetére
Kód nélkül nem túl egyszerű erre bármit is mondani...
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]
-
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.Én kérek elnézést!
-
ArchElf
addikt
válasz martonx #1377 üzenetére
Pfff... a stamp code rész felett el is siklottam
Azt hittem valami pszeudo-kódBár jobban belegondolva még megvalósítható is volna, csak a megfelelő dll-exportok hiányoznak
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]
-
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
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]
-
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
[ 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]
-
ArchElf
addikt
válasz papaja-xbox #1383 üzenetére
Ubuntu + Basic? WTF???
Szerintem nézz át a C topicbaAE
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 #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!
-
ArchElf
addikt
válasz papaja-xbox #1387 üzenetére
Akkor mégis látogass át a C topicba
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]
-
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
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 #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!
-
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 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.Én kérek elnézést!
-
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 .
-
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á!Én kérek elnézést!
-
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!
-
ArchElf
addikt
így próbáltad?
(Sheets(2).Cells(i, eo).Value
Ja és használj kódbeillesztést, mert tagolatlan kódot kínszenvedés olvasni...
A változónevek sem mondanak amúgy sokat...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]
-
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 -
ArchElf
addikt
Próbáld meg elötte kiválasztani a sheet-et és a cellát és utána lekérdezni. Esetleg nézz át az Excel topicba, ott sokkal több tapasztalat van az excel makrók tekintetében.
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]