Hirdetés
Új hozzászólás Aktív témák
-
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?
Minek iszol és vezetsz, ha szívhatsz és repülhetsz!?
-
shev7
veterán
akkor probald jobban.
excel 2003-ban siman mukodik, hogy ha egy egyenloseggel osszefuzom amit irtal, akkor a cellaban a lathato ertek -91 lesz, de a "keplet" megmarad
''Gee, Brain, what do you want to do tonight?'' ''The same thing we do every night, Pinky: Try to take over the world!''
-
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.
Én kérek elnézést!
-
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 SubMinek iszol és vezetsz, ha szívhatsz és repülhetsz!?
-
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 SubMinek iszol és vezetsz, ha szívhatsz és repülhetsz!?
-
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[ Szerkesztve ]
Minek iszol és vezetsz, ha szívhatsz és repülhetsz!?
-
PetX
aktív tag
Hoppsz. ezt kicsit sokszor küldte el. Sry
Minek iszol és vezetsz, ha szívhatsz és repülhetsz!?
-
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Én kérek elnézést!
-
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.
''Gee, Brain, what do you want to do tonight?'' ''The same thing we do every night, Pinky: Try to take over the world!''
-
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.
Minek iszol és vezetsz, ha szívhatsz és repülhetsz!?
-
Chris16
csendes tag
Sziasztok! Kaptam egy házi feladatot, amit VB-ben kellene megoldani. Az a feladat, hogy rekurzió segítségével készítsem el a Leibniz-féle sort. A baj az, hogy fogalmam sincs, hogyan kell ezt megírni. Tudnátok segíteni?
Chris
-
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.
-
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
Én kérek elnézést!
-
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.
Én kérek elnézést!
-
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.[ Szerkesztve ]
A tudást mástól kapjuk, a siker a mi tehetségünk - Remember: Your life – Your choices!
-
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? -
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.Én kérek elnézést!
-
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.
[ Szerkesztve ]
-
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.
Ha kártya kell - https://www.plasticcard.it https://plasztikkartyainfo.hu Egyéb nyomtatás miatt - https://exinprint.hu
-
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
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
-
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.
Én kérek elnézést!
-
ArchElf
addikt
válasz csimmasz #1181 üzenetére
Sorry, bug volt, strFolder helyett sFolder kellett volna a figyelésbe...
While not oFSO.FolderExists(strFolder)
helyett
While not oFSO.FolderExists(sFolder)mod: ja meg az elején a kommentbe is...
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]
-
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.Ha kártya kell - https://www.plasticcard.it https://plasztikkartyainfo.hu Egyéb nyomtatás miatt - https://exinprint.hu
-
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
Én kérek elnézést!
-
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!
Ha kártya kell - https://www.plasticcard.it https://plasztikkartyainfo.hu Egyéb nyomtatás miatt - https://exinprint.hu
-
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.
Legyen minden jó!
-
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[ Szerkesztve ]
-
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]
-
#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!
-
martonx
veterán
válasz #10382336 #1192 üzenetére
Szia!
Nem tudom mennyire megy a VB.Net programozás. A programodhoz hozzá kell adnod az MSCommLib refernciát.
Amikor ez megvan: Dim MSComm1 As MSComm -al létrehozod az MSComm1 objektumot, ami az LPT-dnek fog megfelelni.
Innentől kezdve azt csinálsz vele, amit akarsz.
Én kérek elnézést!
-
#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 -
#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!
-
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 programozniRespekt!
Én kérek elnézést!
-
#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.
Új hozzászólás Aktív témák
Hirdetés
Állásajánlatok
Cég: Ozeki Kft
Város: Debrecen
Cég: Ozeki Kft
Város: Debrecen