- Samsung Galaxy S22 és S22+ - a kis vagány meg a bátyja
- Xiaomi 14 - párátlanul jó lehetne
- Samsung Galaxy S24 Ultra - ha működik, ne változtass!
- Vodafone mobilszolgáltatások
- Samsung Galaxy S23 Ultra - non plus ultra
- Poco X6 Pro - ötös alá
- Milyen okostelefont vegyek?
- Realme 8 - az igazi nyolcas
- DIGI Mobil
- Milyen GPS-t vegyek?
Hirdetés
-
Van, amit nehéz lett megtalálni a Google keresőjével
it A titkosított levelezést kínáló Tuta Mail arra panaszkodik, hogy a DMA bevezetése óta szinte eltűntek a Google keresőjéből.
-
Világító alma helyett világító tok és szíj az almákra
ma Megjelent a Glow 2.0, a Nomad fluoreszkáló iPhone védőtokjának és Apple Watch szíjának második generációja.
-
Übergyors Samsungnak próbál látszani egy hamisított NVMe SSD
ph A kissé megtévesztő külsejű, M.2-es modell valóságtól elrugaszkodott árral, illetve sebességgel kecsegtet.
Új hozzászólás Aktív témák
-
Victorius
tag
Sajnos kipróbálni még nem tudtam, de azt javaslom, hogy azt az a változót pedig próbáld meg modulszinten globálisnak deklarálni:
public a as boolean
Ezt úgy írd be, hogy a form kódszerkesztő ablaka fölötti választóban válaszd ki a (General)-t. (Ekkor a jobbra elhelyezkedő választóban a (Declarations) jelenik meg.)
Sik sikert! -
Victorius
tag
Ja, még a goto-hoz: ha csak számot adsz meg címkének (a la Commodore basic), akkor nem kell utána kettőspont.
-
Victorius
tag
Ja, még a goto-hoz: ha csak számot adsz meg címkének (a la Commodore basic), akkor nem kell utána kettőspont.
-
MODERÁTOR
A gomb on Click eseményébe kell beletenni a kódrészt (ha a form sezrkesztőben rákkattintasz 2x a gombra, akkor automatikusan oda tesz a kódban), bár úgy tűnik, hogy ott is van az általad bemásolt kóda lapján. Viszont honnan tudod, hogy nem fut? Ránézésre semmit sem jelez ki program, szóval akár futhat is a nélkül, hogy tudnád. Tegyél be a végére egy msgbox függvényt, hogy lásd, hogy lefutott e.
***
-
sonar
addikt
Helló!
Nos kicsit előbbre jutottam miközben a könyvet lapozgattam.
Rájöttem, hogy a Do Loop ciklus helyett a While --wend páros nekem a megfelelőbb. És arra is rájöttem, hogy miért nem reagált semmire se a start se a stop gomb. A megoldás egyszerű: létre kell hozni egy eljárást (add procedure) és a start/stop rutin végére oda kell bigyeszteni ennek az eljárásnak a nevét és akkor már frankó lesz. De még mindig van egy kis gondom: hogy ugye nekem a start lenyomása után a stopra már nem reagál, mert bent ragad a while wend ciklusban. Szerintem a gomb vmelyik tulajdonságának megváltoztatásával lehetne ezt orvosolni v nem?
Így néz ki a progi:
(Értelmet ne keressetek benne, csak otthon tanulok programozni!)
Dim X As Double, Y As Double, z As Double, ala As Boolean
Private Sub Command1_Click()
ala = True
Szamol
End Sub
Private Sub Command2_Click()
ala = False
Szamol
End Sub
Public Sub Szamol()
While ala = True
For X = 1 To 793479731 Step 0.1
Y = X * X
z = 2 * X - Y * 1.5
Next
Wend
End Sub
Azt kérdem még, hogy a következő Button tulajdonságok pontosan mit is jelentenek:
Cancel :True/False
CausesValidation
TabIndex
Tabstop
Tag
Előre is köszönök újfent minden hasznos információt.
>>>I wish you a Merry Christmas!<<<A tudást mástól kapjuk, a siker a mi tehetségünk - Remember: Your life – Your choices!
-
sonar
addikt
Az nem jó ha a klikk részbe teszem! Mert ez folyamatosan megy és akkor nem reagál a másik gombra. És az esély sincs meg rá hogy reagáljon, mert nem lép ki abból a sub ból. Vagy rosszul gondolom?
A tudást mástól kapjuk, a siker a mi tehetségünk - Remember: Your life – Your choices!
-
Victorius
tag
Hát, az az igazság, hogy rábukkantam valamire, de jó szokásomhoz híven kipróbálni nem tudtam. Szóval lehet, hogy erre van szükséged:
DoEvents()
''Az utasításként használt függvény egy esemény feldolgozásának idejére átadja a vezérlést az operációs rendszernek. Használata esetén a program ugyan lassabban működik, de a formok fogadják a beavatkozásainkat.''
A súgó (többek között) ezt írja:
''DoEvents is most useful for simple things like a l l o w i n g a u s e r to c a n c e l a p r o c e s s a f t e r i t h a s s t a r t e d, for example a search for a file.''
A használatához nézd meg a példát a súgóban (vagy kérdezz meg egy nálam okosabbat....
Remélem, tudtam segíteni. -
Victorius
tag
Az a helyzet, hogy én is az voltam eddig
Kipróbáltam ezt itt alant, és a stop gombra megállt!
Szóval:
Private Sub Indit_Click()
Dim a As Long
Dim b As Long
Dim c As Long
Dim openforms
Do
a = 0: b = 0: c = 0
If megall = True Then Exit Do
Do
b = 0: c = 0
a = a + 1
If a = 1000000000 Then Exit Do
If megall = True Then Exit Do
sz1.Caption = Str(a)
Do
c = 0
b = b + 1
If megall = True Then Exit Do
If b = 1000000000 Then Exit Do
sz2.Caption = Str(b)
Do
c = c + 1
If c = 1000000000 Then Exit Do
If megall = True Then Exit Do
sz3.Caption = Str(c)
If c Mod 1000 = 0 Then openforms = DoEvents()
Loop
Loop
Loop
Loop
vege:
End Sub
Hmm, hát ha azt mondod, kicsit eltúloztam a ciklusok számát, nyilván igazad van... (meg biztosan nem is túl szép a kód).
Tehát ez volt az indítógomb eljárása. A megállító csak annyit tartalmaz, mint a tiéd (átállítja igazra a megall változót).
Apropó megall változó. Hiányolhatod, hogy hol deklaráltam. Létrehoztam egy külön modult csak ennek a kedvéért:
Public megall as boolean
Ez azért van így, mert csak itt lehet globálisan deklarálni egy változót. Persze elképzelhető, hogy nem kell ennyire túlbonyolítani, de nálam csak így akaródzott menni.
Szóval ez a bizonyos DoEvents() utasításként is alkalmazható, de függvény formájában kell meghívni (és jelen esetben tökmindegy, mivel tér vissza).
Jó munkát! -
Victorius
tag
Elnézést, az elején a Dim-ek alól kimaradt egy értékadás:
megall=false
(Volt ott még egy msgbox, meg egy goto is (azért van a rutin végén cimke), és kitöröltem azokkal együtt.) -
sonar
addikt
Köszi! Majd kipróbálom
A tudást mástól kapjuk, a siker a mi tehetségünk - Remember: Your life – Your choices!
-
PWR
aktív tag
SEGICCSEEEG!!!
haat szivok! Problem: access 200-ben csinaltam egy query form-ot. mikor a luzer a Query gombra kattint, szerentem leellenörizni, hogy legalabb egy search criteria meg lett-e adva. Ezt ugy neznem meg, hogy if fieldname.value = 0 then stb. De nem müxik, valahogy a VB mashogy ertelmezi az üres mezöt mint en! Alapertelmezett erteknek megadtam a fieldbe ''emty string''-et, Null-t, nem megy! ugyse, hogy if fieldname.value is null. Pliiz HELP!Üdv
-
PWR
aktív tag
odaig jutottam el, hogy van egy clear gomb, ami minden fieldet kitöröl, azaz empty stringet helyez a fieldbe es a form betöltödesekor is vegig ''empty stringeli'' a fieldeket. ez viszont felvetett egy ujabb problemat: ha kitörlöm egy field tartalmat nem a clear gombbal, akkor annak tartalma nem empty string lesz es igy befolyasolja a keresest is. a megoldas valami olyan lenne, ha lehetne ellenörizni, hogy a fieldben most empty string van-e vagy abszolut semmi (is null). A gaz az, hogy az (if fieldname.value is null) ''object required'' hibaüzivel leall... van erre valami megoldas? csak kell lennie...
Üdv
-
Goose-T
veterán
Hali! Nem tudja valaki, mi annak a controlnak a neve, amivel file-t lehet megnyitni? Arra a formra lenne szükségem, ami bármelyik programban megjelenik, amikor rányomok a File menüben az Open pontra! Vagy ez valamelyik objektumnak a metódusa? Nem akarom a DirListBox-ot meg a társait használni, mert kőgagyik...
Rockbandám: https://fb.me/scharlotterhodes *** Gitárelektronikai műhelyem: https://www.fb.me/goosetgitar
-
sonar
addikt
Helló Victorius
Nos mostanság nem igazán voltam a VB-vel elfoglalva.
Kipróbáltam, de vmi miatt nekem nem akart menni.
Ezeknél a soroknál mindig megállt: sz1.Caption = Str(a)
sz2.Caption = Str(b); sz3.Caption = Str(c)
Mit jelentenek ezek a sorok? Esetleg nem tudnád elküldeni egy rar-ban
ami neked működik.
üdv sonarA tudást mástól kapjuk, a siker a mi tehetségünk - Remember: Your life – Your choices!
-
Victorius
tag
Sonarr: Azok a sorok, illetve az str függvény használata, lehet, hogy fölösleges...
Elvieg arra jó, hogy a számból füzért (stringet -> str) csináljon, és azt rakja bele a label vezérlő Caption tulajdonságába (vagyis kiírja a képernyőre).
Lehet, hogy a Visaul Basic automatikusan megcsinál egy csomó típuskonverziót, köztük ezt is. Viszont a tudós könyvem azt írja, hogy ezeknek a konverzióknak nem mindig az az eredménye, amire mi gondolunk, amit mi szeretnénk, és így ravasz hibákat eredményezhetnek. Jelen esetben lehet, hogy nem lehet többféleképpen értelmezni és oknvertálni) ezt a kifejezést, de én azért az egyértelmű ''megfogalmazást'' szeretném megszokni.
A forrást küldöm! -
Victorius
tag
Nekem is lenne egy kérdésem.
Meg szeretném nézni egy Word dokumentumban a VB rutinokat, de a projekttallózóban nem is engedi megnyitni magát a projetktet sem arra hivatkozva, hogy ''zárolva van''.
Jelszóval védettel már találkoztam, az OK. De ez ellen lehet valamit tenni? -
[HUN]Zolee
senior tag
Hy Tudtok ajánlani nekem valami jó Visual Basic 6 könyvet? Most fogom kezdeni ezt a nyelvet és kéne egy jó könyv.
[Szerkesztve]''<[HUN]DrH>valaki mondjon egy tuningolos programot a mivel kocsis képeket tudok tuningoloni.'' https://ferromag.aranyoldalak.hu/
-
[HUN]Zolee
senior tag
Senki se tud ajánlani eg yjó könyvet?
''<[HUN]DrH>valaki mondjon egy tuningolos programot a mivel kocsis képeket tudok tuningoloni.'' https://ferromag.aranyoldalak.hu/
-
sonar
addikt
válasz [HUN]Zolee #121 üzenetére
Programozás Visual Basic 6 nyelven
Van belőle kék (kezdőknek, haldóknak) -én is ezt használom- meg van a black a profiknak
Kiadja a kiskapuA tudást mástól kapjuk, a siker a mi tehetségünk - Remember: Your life – Your choices!
-
Victorius
tag
Jó könyv, csak egy kicsit ''sokat akar a szarka...'' érzésem van tőle. (Jó vastag, de egyrészt annyi mindent szeretne átfogni, hogy aztán semmiben sem tud elmélyedni igazán, másrészt egyszerre akarja a ''vezessük végig a tanulót egy-egy példán, lépésről-lépésre (=jó értelemben szájbarágósan, receptszerűen) módszer szerint tanítani , ugyanakkor sok dologról csak utalásszerűen tesz említést).
Én másodikként a Computerbooks könyvét ajánlanám (Programozzunk Visual Basic rendszerben). Ha nem vagy egészen kezdő, akkor szerintem az a jobb. (Én az voltam (vagyok ehhez az egész Windows alatti programozáshoz, és az első időkben nagyon jó szolgálatot tett a kék könyv, de aztán inkább emezt forgattam.) Ja, van különy könyv hozzá programozási példákkal, feladatokkal.
Nekem is van egy kérdésem: a fetekete könyv nem csak a .NET-ről szól? -
[HUN]Zolee
senior tag
Most fogok áttérni pascalról és kéne egy normális könyv. Én is láttam a kék könyvet, de a prog.hu-n semmi leírásszerű nem volt róla. Majd még körülnézek hátha van valmi hogy kb mi van benne + ienek, de ti is adhattok linket ha ráértek
''<[HUN]DrH>valaki mondjon egy tuningolos programot a mivel kocsis képeket tudok tuningoloni.'' https://ferromag.aranyoldalak.hu/
-
Victorius
tag
A Turbo Pascalt én is szeretem. Ahhoz képest a VB nagyon gyönge néhány dologban (pl. a változótípusok elég szegényesek, felhasználói típust éppen lehet definiálni, de a Pascal-féle variáns típushoz képest ez meglehetősen nevetséges... stb).
-
MODERÁTOR
-
Victorius
tag
-
-
Victorius
tag
Azt én tudom. Mégis ugyanazokból a könyvekből lehet megtanulni. Legalábbis az alapjait.
Sajnos VBA-ból nem tudok semmilyen magyarul megjelent könyvről, illetve van egy régi, még a '97-es Excelhez, azzal meg nem sokat érek (nem azért , mert régi, hanem azért, mert Excel). Marad a súgó (no meg a makrórögzítő.... -
return.value
tag
Szia!
1. Én nem tudok ingyenes fordítóról. (Talán a mono project keretében csináltak VB.NET fordítót, de VB6-ost nem tudok.)
2. Nem hasonlít a Pacalhoz, sem a C-hez. Mindkettő erőssen típusos nyelv, mig a VB nem igazán az.
+1 link: Bővebben: link -
sonar
addikt
Hali!
Egy olyan kérdésem lenne, hogy: ha én bináris v hexa adatokat akarok
küldeni a soros portra akkor azt hogyan kell megadnom?
A nagy kék könyvbe nem is találtam ilyenről semmit!
kicsit átfogalmazva, Milyen formában kell megadnom ha hexával v
bináris adatokkal akarok dolgozni?
(hexánál 0xXX ???)
üdv sonarA tudást mástól kapjuk, a siker a mi tehetségünk - Remember: Your life – Your choices!
-
[HUN]Zolee
senior tag
Mi a különbség a VB6 és a VB.NET között?
''<[HUN]DrH>valaki mondjon egy tuningolos programot a mivel kocsis képeket tudok tuningoloni.'' https://ferromag.aranyoldalak.hu/
-
sonar
addikt
VB-ben hogyan lehet külső programot meghívni?
A kék könyvben nem találtam erről semmi infót.A tudást mástól kapjuk, a siker a mi tehetségünk - Remember: Your life – Your choices!
-
F-ECT$
titán
VB 6-tal lesz dolgom az elkövetkező 2 hónapban. Van vmi ''getting started'' a neten a témában?
Dive ever, work never.
-
F-ECT$
titán
UP!
Dive ever, work never.
-
sonar
addikt
Talán a kék könyv amit fentebb irtam, de vki ajánlott mást is. Sajna nincs viszonyítási alapom
A tudást mástól kapjuk, a siker a mi tehetségünk - Remember: Your life – Your choices!
-
Victorius
tag
Hát, a hálón van valami Visual Basic developper forum. Meg egy csomó egyéni honlap. Igazán kezdőknek való cuccról nincs tudomásom. Én is a nyomtatott változatokat ajánlom. A kék könyvet például.
-
Goose-T
veterán
válasz [HUN]Zolee #134 üzenetére
Röviden: ég és föld.
[Szerkesztve]Rockbandám: https://fb.me/scharlotterhodes *** Gitárelektronikai műhelyem: https://www.fb.me/goosetgitar
-
[HUN]Zolee
senior tag
-
return.value
tag
válasz [HUN]Zolee #143 üzenetére
Az egyik .NET alapú, a másik pedig nem.
Evvel elmondtam az összes különbséget. -
Goose-T
veterán
válasz [HUN]Zolee #143 üzenetére
A .NET objektumorientált, a 6.0 pedig csak annak látszik. Nincs időm most ecsetelni a különbségeket.
Rockbandám: https://fb.me/scharlotterhodes *** Gitárelektronikai műhelyem: https://www.fb.me/goosetgitar
-
F-ECT$
titán
-
Goose-T
veterán
Jó lenne... Bár elég kevesen lehetnek már ott azok közül, akiket még ismerek. Beszéljük meg ebben a topikban: Bővebben: link.
[Szerkesztve]Rockbandám: https://fb.me/scharlotterhodes *** Gitárelektronikai műhelyem: https://www.fb.me/goosetgitar
-
sonar
addikt
Külső programot milyen paranccsal tudok meghívni?
Mert azt kéne megcsinálnom, hogy egy - egy gomra más más progi induljon el. Csak ebbe a kib@szott kék könyvbe erről semmi sincs.
THXA tudást mástól kapjuk, a siker a mi tehetségünk - Remember: Your life – Your choices!
Új hozzászólás Aktív témák
- A személyre szabott reklám lehet a streaming következő slágere
- Tőzsde és gazdaság
- Samsung Galaxy S22 és S22+ - a kis vagány meg a bátyja
- HThomas: Kia Ceed SW JD vs CD tapasztalatok
- Kínában túl sok az EV, fokozódik az árháború
- Kerékpárosok, bringások ide!
- SONY LCD és LED TV-k
- AMD GPU-k jövője - amit tudni vélünk
- PayPal
- Counter-Strike: Global Offensive (CS:GO) / Counter-Strike 2 (CS2)
- További aktív témák...
- iPhone 14 Pro 128 GB Space Black, 11 hónapos, kártyafüggetlen, 2024. május végéig garis , akku 91%
- Asus VivoBook X509JA-BQ904T
- HP EliteBook 640 G9 Ezüst (14" / Intel i5-1235U / 16GB / 512GB SSD / Win 11 Pro) -10% Most 203.990 F
- Lenovo M810z AIO Core I5 6400 4x2700/8GB/120G SSD/wifi/cam 21,5 -10% 66.950 ft
- Microsoft Surface Book 2 - i7-8650u/8GB/256GB SSD/Windows 11 -. 10% Most Csak 125990 Forint