Táblázatot hogyan tudok csinálni visual basic 6.0-ban? Osztályokkal?
Sziasztok!
Segítséget szeretnék kérni abban, hogy a gép bekapcsolásától óránként jelenjen meg egy figyelmeztetõ ablak. Az ablak még megy is, de az idõzítés nem.
Kösz.
Sziasztok!
Segítséget szeretnék Tõletek kérni. Visual Basicben kell programot írni, de nem tudom megcsinálni. Nekem ezek a programozás dolgok egyszerûen nem mennek sajnos, de szombatig el kell küldeni a házit.
Ez a feladat:
Nagyszámú dolgozatjegy eloszlását kell meghatározni a rendszer bemenetérõl érkezõ osztályzatok sorozatából, amely a 0 végjelig tart. Írassa ki egy Excel állományba, hogy hány egyes, kettes, hármas, négyes és ötös dolgozatot írtak a tanulók.
Esetleg meg írná valaki?
Elõre is nagyon köszönöm a segítséget!
Üdv! A problémám a következõ:
Írtam egy kisebb programot, ami egy bizonyos DLL-t referenciaként használ. Ezzel semmi gond, a generált exe mellé teszem a DLL-t és mûködik, viszont nekem arra lenne szükségem, hogy a DLL-t az eredeti helyérõl használja. Addig eljutottam, hogy létrehoztam egy App.config fájlt, ahol konfiguráltam az elérhetõségét. A kérdés az lenne, hogyan tudnám elérni a DLL-t úgy, hogy ne kelljen könnyen olvasható helyeken letárolnom? Van lehetõség a projekten belül beállítani?
Elõre is köszönöm a segítséget!
sziasztok,
ha valaki ért a Windows Mobilra programozásához VB-ben (Visual Studio 2005) légyszives segítsen kicsit..
Szeretnék egy DataGridet használni, mögötte valamilyen adatforrással.. magamtól nem jövök rá hoyg lehet ezt megoldani és amit a Neten találok az vagy nem mûködik, vagy nem érthetõ számomra ,vagy C-ben van..
Esetleg egy mûködõ mintapélda jól jönne..
köszi
sziasztok!
újfent egy probléma!
a feladat az, hogy vb6-ban megírni egy exe-t, ami elindít egy másik programot. Ott akadtam el, hogy shell utasítással meghívtam a programot, megkerestem az ablak nevét, de innentõl meghaladja a tudásomat. Tudnátok segíteni?
üdv
Sziasztok! Sikerült megoldanom.
Így:
Public Class Form1
Private Sub TextBox1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox1.TextChanged
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
A kimeneten a sortörés tûnik el, de bármi más is amit a vbNullChar után írok.
Köszi.
Sziasztok. Azt szeretném kérdezni, hogy backspace utasítást hogyan lehet programozni? Tehát hogy egy gomb lenyomására ugyanaz történjen mintha a billentyûn backspace-t nyomnék. Hiába próbáltam, nekem csak egy karakter jelenik meg, de semmi egyéb. Köszi a segítséget!
Van két sheet. az egyiken adatok, a másikon chart-ok.
Amikor megnyomom a gombot az adatok sheet-en, akkor a másikon update-elni kéne a chartot.
Viszont. A chart tartalma minden nappal változik, tehát a range amivel dolgozom mindig változik.
Eddig igy néz ki:
CurCol az oszlop ami minden nappal egyel nõ, a sorok mindig ugyanazok:
Set xy = Worksheets("Metrics").Range(Sheets("Metrics").Cells(CurCol, 10), Sheets("Metrics").Cells(CurCol, 12))
itt viszont mindig meghal:
Worksheets("Charts").ChartObjects("Chart 3").SetSourceData Source:=xy
Valami ötlet?
sziasztok!
Újfent egy kis segítségre lenne szükségem. Excel makrónál belefutottam egy olyan problémába, amibe számtalan fórumozó, de igazi megoldást nem találtam rá.
1., az excel 2007 alatt megírt makró, nem fut 2003 alatt, pedig .xls-ént van elmentve, és If Munka1.Range("K2") = True Then i = "RF" kifejezésbõl a .Range kifejezésre mutat hibának. Miért?
2., már grafikon készítési metódusban:
ActiveChart.SetSourceData Source:=Sheets("alapadatok").Range(Cells(2, 1), Cells(r1, 12)).Select, _
PlotBy:=xlColumns
Range Object hibát hoz. Láttam különbözõ megoldásokat, de eggyik se mûködött.
Ha tudjátok a választ, megköszönném, ha rávezetnétek.
Üdv
Sziasztok! A segítségeteket kérném. A problémám, hogy egy textboxban szeretnék megjeleníteni folyamatosan változó szöveget. Ezt egy ciklussal megoldottam, de miután lefut a ciklus, mindíg csak az utolsó sor jelenik meg. tehát ahogy változik a szöveg, mindíg felülírja az elõzõ szöveget. Hogyan lehetne a cikluson belül több sort kiírni? A sortörés nem megoldás mert közben számolni kell. Tehát egy sor, aztán egy halom számítás, majd a második sor és így tovább... Köszönöm a segítséget!
Sziasztok! Azt szeretném valahogy megoldani, hogy egy képre kattintva a programomban kiírja a kattintás koordinátáját. Ez nem is hangzik vészesen, mert meg is tudtam csinálni. Addig hogy az alap felületre kattintok és úgy kiírja. Ha a képre kattintok se kép se hang... Nem tudom hogy a képre kattintást miért nem érzékeli kattintásnak. Van valami ötletetek?
Szerintem a textboxot ilyen téren nem tudod formázni.
Max. a numerikus értéket, amit beteszel a textbox-ba, azt formázd meg!
Hellosztok, lenne egy olyan prblémám, hogy szeretnék egy oldalra belépni (Excel-VBA)
Már a felhasználónevet és a jelszót is beírattam, de nem tudok belépni, mivel a Belépés gombnak nincs HTML neve, ha meg az actionre próbálok navigálni:
appIE.navigate sURL + "\default.asp?action=login"
akkor meg kiírja, hogy hibás felhasználónév, vagy jelszó, azaz nem érzékeli a beírt szöveget, anélkül hívja meg az oldalt. Valahogy rá kellene kattintanom a belépés gombra, csak nincsen neve
Köszönöm a tanácsokat! menézem amiket megjelöltél nekem.
üdv
"Igen, nos távoli elérése van a berendezésnek, etherneten kersztül érem el a regisztereit."
Ahhoz akkor winsock kell. Excel alá azt kellemes kis dolog beüzemelni. ;)
Vagy a Visual Basichez adott, vagy egy 3. féltõl származó (például a nem-kereskedelmi felhasználásra ingyenes Ostrosoft Winsock - elérhetõ innen, példa itt).
Szervusz!
Igen, nos távoli elérése van a berendezésnek, etherneten kersztül érem el a regisztereit. Megnéztem a példát köszönöm, jó kiindulási alap.
Üdv
Hogy jobban értsd: Modbus mehet soros porton át - itt láthatsz egy példát, hogyan vezérelnek soros portról hajtható reléket (nem Modbus protokollon, de ez egy példa a soros port Excelbõl vezérlésére).
De Modbus mehet Etherneten keresztül is, vezeték nélkül, stb...
Sõt a Modbusnak van sok protokollja (Modbus RTU, Modbus ASCII, Modbus TCP/IP, Modbus over TCP/IP, Modbus Plus), interfész- és eszköz-függõ hogy melyiket kell használnod.
Pont a lényeges kérdéseket hagytad ki: milyen interfészen keresztül kommunikálsz az eszközökkel (ugyanis az interfészhez kell "illesztõprogramot" kreálni), illetve vannak-e az adott eszközöknek valamilyen specialitása (ezért kérdeztem, milyen célra kell)?
Jó lenne tudni milyen hardvert használsz (mert arra az interfészre kell írni egy hardvert kezelni képes függvényt, illetve valószínûsítem, hogy a végeszközöknek vannak bizonyos specifikus dolgai), illetve hogy a küldendõ adatok hogyan helyezkednek el az Excelben?
Ugyanis a egésznek a folyamatát valahogy így tudnám elképzelni:
Excelben levõ adatok ----esemény (például gomb lenyomása)---> Modbus protokoll szerinti adat létrehozása ---> adat átküldése a megfelelõ interfészen keresztül ---> válasz feldolgozása (ha kell, de ez opcionális)
sziasztok!
írtatok már excel alá modbus kommunikációt? hogy fogjak neki?
elõre is kösz
"egy "kisebb" dogát kell írnom a BASIC történetérõl, a commodore-os idõszakból...mért fikázták, mért utálták annyira és mi lett vele azóta..."
A BASIC (Beginner's All-purpose Symbolic Instruction Code ~ általános célú programozási nyelv) 1964-bõl származik, Kemény György József volt az egyik megalkotója - szóval a Commodore-os idõszak elõtt (bár a 70-es, 80-as években, a mikroszámítógépek idejében terjedt el).
Hello!
egy "kisebb" dogát kell írnom a BASIC történetérõl, a commodore-os idõszakból...mért fikázták, mért utálták annyira és mi lett vele azóta...ha valaki tud valamit, megköszönném ha leírni!
elõre is thx
Hello! Kezdõ vb használó vagyok és lenne egy olyan problémám, hogy a pascal háromszöget kéne megjelenítenem excelben. A szélén az egyesek megvannak, de atöbbi része valahogy nem megy. Tudna valaki segíteni?
Háromszög alakban kéne az egész, kb így:
1
1
1 2
1
1
Elõre is köszi!
a
sziasztok
fájlok elérési útvonalát szeretném kiolvasni táblából, hogy ne kelljen minden Visual basic kódot átírni mindig
pl.: Me.Kép0.Picture = "c:\Documents and Settings\.......\" & Me.Szöveg2
a "" közötti részt nem tudom, valaki segítsen!!
Köszi
kis segítség kellene. excel makróval egy oszlopba kigyûjtöttem file-neveket és ezeket a kigyûjtött file-okat kellene egy adott könyvtárból egy másikba másolnom. Köszi X
sziasztok újra!
Még annyi lenne az elõzõ témához a kérdésem, ha lefordítottam ocx é telepítettem miért marad szürke a háttér?
sziasztok!
Kezdõként egy kis segítséget kérnék vb6-hoz. egy lekérdezés sor végrehajtása közben "futáshiba 340, a következõ vezérlõelemtömb nem létezik 124". nem látom a fától az erdõt. egy változóval definiálta a tömböt és szerintem van adat abban a tömbben és létezik is. A másik hiba: 2 tizedesjegy helyett 4 tizedesig jelenít meg a text boxban ezt se találom hol kellene beállítani.
ha tudtok segítsetek légyszíves
köszönöm
Köszi, de közben úgy döntöttem maradok a kék könyvnél, az volt a gond, hogy nem lett bescannelve két oldal, így azok hiányoznak, ezért nem értettem.
Attól függ milyen programot használsz.Mert egy kicsit átalakult a Visual Basic. Javaslom, hogy szerez be a VB2005 és ehhez tartozókönyvet.
Igaz, hogy azóta megjelent a VB2008,VB2010 (nem soká)is.
Javaslom ezt a könyvet. Benne van a VB2005 express program is.
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.
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?
Sziasztok! Ezt a feladatot hogyan hoznátok össze? Mindenféle segítséget szívesen vennék!
Keressük meg az elsõ ötjegyu prímszámot! (A program legyen könnyen átalakítható úgy, hogy pl. az elsõ háromjegyu vagy nyolcjegyu prímszámot lehessen megkeresni vele!)
'random-szám generátor inicializálás
Randomize()
' Generáljuk a számot 0 és N között.
Dim szam As Integer = CInt(Int((N * Rnd())))
Sziasztok! Egy olyan kérdésem lenne, hogy VS 2005 Visual Basic-bõl hogyan érem el egy Access adatbázis egy táblájának valamely mezõjének "cím" tulajdonságát?
Tables(1).Columns(1).Caption a mezõ nevét adja, nem a címét.
Accessben tábla tervezõnézetben van egy olyan mezõ, hogy "cím". Azt szeretném elérni, hogy a felhasználó ne azt lássa pl.: hogy "ID", hanem azt hogy "Azonosító". Segítségeteket elõre is köszönöm!
Üdv Mindenkinek!Egy kis segítségre lenne szükségem, van egy N elemû integer típusú tömböm és ebbõl szeretnék véletlenszerûen kiválasztatni egy elemet,légyszi segítsetek!Köszönöm elõre is!
Sziaztok!
Hogy tudom egy picturebox hátterét átlátszóvá tenni, úgy hogy ami a képen átlátszó, az valóban átlátszó legyen? Ha a backcolort transparentre állítom, csak a form1 színét veszi át, és a mögötte levõ gombok és más pictureboxokat nem mutatja.
Bocsi ha furán írtam le, és köszi elõre a választ:D
Van egy régi könyv amiben megvan.Próbáld megszerezni.
A könyv címe: Programozzunk Visual Basic-be.A cd-rajta van. Könyv
Hello.Van egy programozás feladatom és sajnos nagyon nehezen megy az elkészítéése.A legföbb bajom hogy integrálni kell holott még nem tanultam és az elvet sem tudom.
A feladatom a következõ:Feladat
Még kezdõ vagyok a témában, mer suliba tanuljuk, de elkezdett érdekelni a téma, és poénból nekiálltam egy játékot írni(Console aplication-be) csak van egy kis problémám:D van egy rész a programban, amikor egy jatekszbaly.txt-bõl kiírja az adatokat, de ezt egy ciklusba tettem, és amikor újra be akarnék lépni a ciklusba, akk azt írja, h a jatekszabaly,txt-t már használja egy program.
If menugomb.Key = ConsoleKey.F2 Then
Dim jateksz1 As New IO.FileStream("jatekszabaly.txt", IO.FileMode.Open)
Dim jateksz2 As New IO.StreamReader(jateksz1)
Do While jateksz2.EndOfStream = False
dim p as string
p = jateksz2.ReadLine()
Console.WriteLine(p)
Loop
End If
Vmi ilyesmi lenne, csak ez benn van egy ciklusban. Az érdekelne, h nincs-e egy olyan parancs, hogy miután ezt beolvasta és kiírta, utána kilépjen a jatekszabaly.txt-bõl és ha újra a ciklusba lépne, újra be tudná olvasni.
Köszi:Nick
Access is tartalmaz makrót mely a visual basic-ben meglehet írni..
Visual Basicban egy pizzarendelõ progi megírását kaptam házinak. A program egy része mûködik addig hogy 1 féle pizzából akármennyi mennyiséget + tudok rendelni viszont ha több pizzából akarok rendelni akkor hibát ír ki és nem számol. ezt a kódot írtam be: Label6(ahova az összeget írja majd)= Text1(adott pizza db) * 600(az ára) idáig mûködik. viszont van egy text 2->750ft + egy Text3 ->900ft-os adott mennyiségû pizza. Ezeket szeretném összekapcsolni hogy mindegyikbõl lehessen egyszerre rendelni akármennyit.
Köszi Szépen elõre is
Na,ebben azért nem lennék ennyire biztos.... :D
Ha jó helyen kérdeznéd, biztos. Csak az Access-nek semmi köze a VB-hez!
köszi :)
közben böngészgettem a témában egy ilyet találtam :
Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
Dim myplayer As New SoundPlayer("C:\hangok\hang")
myplayer.Play()
End Sub
de ez bibidzik, mert wavot nem szeretne ...
valamit :
Imports System.Media
Imports System.IO
Public Class Form1
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
'Streambõl
Dim stream As New FileStream("C:\mydir\mywav.wav", FileMode.Open)
Dim smyplayer As New SoundPlayer(stream)
smyplayer.Play()
stream.Close()
'Direkt fájlútvonal
Dim myplayer As New SoundPlayer("C:\mydir\mywav.wav")
myplayer.Play()
End Sub
End Class
ehhez nem értek, legalábbis a streamhoz nem, az milyen elmagyarázná valaki ?
Na arcok most egy stratégia játékot kezdtünk el készíteni, hangok meg minden lesz benne. Ehhez kéne segítség, ugyanis mp3 formátumú hangok vannak hozzá (konvertálás nem akadály) sóval azt szeretném, megtudni, hogy hangfájlokat hogyan lehet beolvastatni ?
Segítséget szeretnék kérni olyan emberektõl akik értenek a VISUAL C# -hoz, mert kéne csinálnon egy beadandó feladatot, de nekem a programzás nem az erõsségem. Álítólag nem egy bonyolult feladat, egy hozzáértõ 10-15perc alatt meg tudja csinálni. Aki tud kérem segitsen nagyon fontos lenne.
Elõre is köszönöm! [email protected]
Üdv srácok kellene nekem egy kis help egy parancsban a problémám az lenne h akarok csinálni egy dvdt amin volna egy VB file és a dvdröl futtatna egy két filet de nem tom a változot h mivel lehet ezt megadni szal pls help mondjuk ha a dvdn van egy mappa xy néven és egy file xy.exe néven elõre is köszi
Hmmm...igazad van.
Közben kipattant 1 újabb (körülményes, de lehet, hogy eddigi legjobb) megoldás.
Private Sub Command2_Click()
Label1 = ("27 / 7 / 2009" > (Now)) = "0 év" Or Label1 = ("27/07/2009" = (Now)) = "1 év"
End Sub
[Csak nem mûködik xÐ :S] <- Próbálok javítani még rajta, valami nem oké, mert mindig ezt kapom: False
Na, vmi olyasmit hámoztam ki, hogy az évnél a fordulópont mindig január 1 és nem az, hogy eltelt e az 1 év... tehát nem a mai napot tekinti fordulópontnak...
próbáld ki:
"2008/12/31" = 1 év
"2009/01/01" = 0 év
szerintem osszad az eltelt napokat 365,5-el és a maradékot dobd a csába... :):) én ezt csinálnámmm
Hálás lennék. Mert nem nagyon akar sikerülni.
Ha gondolod holnap segitek, most lépek mert 4 kor kelés...
mindenkinek szép estét...
Tanácsot kérnék...
Hálozatban vannak a gépek... A-ember megnyitja mondjuk irásra az < adatok.txt > filét...
A filét lock-al lezártam az irás idejére...
B-ember szintén megakarja nyitni mondjuk olvasásra..
Kérdés mi történik B-embernél???
a progi várakozik az unlockra, majd utánna olvassa?
a progi hibával leáll....
Nagyon szépen köszönöm a segítségeteket! Sokat segítettetek. Sikerül elkészítenem és már csak 1 apró finomság hiányzik.
Private Sub Command1_Click()
Label1 = DateDiff("m", "22/08/2008", (Now)) & " Hónap"
End Sub
Private Sub Command2_Click()
Label1 = DateDiff("yyyy", "22/08/2008", (Now)) & " Év"
End Sub
Private Sub Command3_Click()
Label1 = DateDiff("d", "22/08/2008", (Now)) & " Nap"
End Sub
Private Sub Form_Load()
Label1 = DateDiff("d", "22/08/2008", (Now)) & " Nap"
End Sub
Rákattintok a Command2-re akkor 1 évet ír..De ez még nincs egy év :S
Csinálj a formon mondjuk 3 db. text_ablakot és 1 db. parancs_gombot...
a parancsgomb clickjéhez ird be:
Private Sub Command1_Click()
DATUM_1 = text1.Text ' ide kerül majd a kisebbik dátum
DATUM_2 = Text2.Text ' ide kerül majd a nagyobbik dátum
For x = 1 To 1000000 ' a két idõpont közötti maximális idõ napban
If Str(DateAdd("d", x, DATUM_1)) = DATUM_2 Then Text3.Text = x: Exit Sub
Next x
End sub
Ha elindítod és az ablakokba beirsz egy-egy dátumot a harmadikba kiirja a két dátum közötti napot...
Persze átvariálhatod, a text3 lehet label, a command valaminek a része stb...
Lenne 1 óriási kérésem. Elõször is, nemrég kezdtem el Visual Basic-kel "ismerkedni". Lehet, hogy még korai lenne ilyen feladattal kezdeni, de egy egyszerû progira gondoltam, ami számomra nem egyszerû max számotokra lenne az. Szóval egy olyan progit szeretnék ami annyiból áll, hogy megmutatja, hogy PL: szilveszter óta hány nap telt el[nem mintha nagy szükségem lenne rá, de ez könnyûnek ígérkezett] A gond annyi, hogy el se tudom kezdeni. Próbálkoztam elõször azzal, hogy 2 idõpont között mennyi különbség van:
Private Sub Command1_Click()
MsgBox Year(Date) - 2008
End Sub
és valahogy az elõbb említett feladatot szeretném megcsinálni, ha tudtok kérlek segítsetek!
Én vb 4-est használok, ha gondolod leírom, hogy tudsz hangeffekteteket a progiba építeni...
Informatika és tudomány
