- Karácsonyfaként világíthat a Thermaltake új CPU-hűtője
- Az USA vizsgálja a RISC-V kínai terjedésének kockázatát
- Kicsit extrémre sikerült a Hyte belépője a készre szerelt vízhűtések világába
- Egészen nagy teljesítményspektrumon fedné le a mobil piacot az AMD
- Kihívás a középkategóriában: teszten a Radeon RX 7600 XT
- AMD K6-III, és minden ami RETRO - Oldschool tuning
- Processzorra való vizesblokk az ASUS ROG-os portfóliójában
- OLED TV topic
- NVIDIA GeForce RTX 3080 / 3090 / Ti (GA102)
- Vezetékes FEJhallgatók
- Kormányok / autós szimulátorok topicja
- VR topik (Oculus Rift, stb.)
- AMD Ryzen 9 / 7 / 5 7***(X) "Zen 4" (AM5)
- Milyen asztali (teljes vagy fél-) gépet vegyek?
- Nvidia GPU-k jövője - amit tudni vélünk
Hirdetés
-
Samsung Univerzum: Így ismerhető meg a Galaxy AI bármilyen telefonon
ma A Try Galaxy webalkalmazás kontrollált környezetben mutatja meg, mit tud a One UI 6.1-es rendszer és a mesterséges intelligencia.
-
Megjelenési dátumot kapott a Star Wars: Hunters
gp A tervek szerint június elején végre befut a teljes kiadás mobilokra/tabletekre és Nintendo Switch-re.
-
Súlyos adatvédelmi botrányba kerülhet a ChatGPT az EU-ban
it Egyre nagyobb probléma az AI hallucinálása – most az osztrák adatvédelmi hatóság veheti elő a ChatGPT miatt az OpenAI-t, alapvetően a GDPR megsértése miatt.
Új hozzászólás Aktív témák
-
sonar
addikt
-
[HUN]Zolee
senior tag
mi köze az SP2-nek a VB hez?
Nekem SP1 van fent.
sonar köszi. Most amit tudok azt megírom vb6-ba. majdmegy mail-be a forráskód meg ami még kell.
[Szerkesztve]''<[HUN]DrH>valaki mondjon egy tuningolos programot a mivel kocsis képeket tudok tuningoloni.'' https://ferromag.aranyoldalak.hu/
-
-
sonar
addikt
Hát ránéztem tegnap meccs közbe, de igen kusza a dolog.
egyszer nézd át a mixer.bas ba a hangerő részt. Ott egy csomó komponens van ami nincs is. És ott ha jól emléxem vmi más scrollbar-t használsz mint a frm-on. Ha azt megnézed szerintem jó lesz, mert ott állítja a balancot.
Aztán így ennyire tellett.
No megha kikommentezed akkor magad is rájössz a hibákra. Én legalábbis úgy szoktam a hibáimat keresni.
[Szerkesztve]A tudást mástól kapjuk, a siker a mi tehetségünk - Remember: Your life – Your choices!
-
sonar
addikt
-
sonar
addikt
Ezt az oldalt nem is ismertem, de jó
Igazából ahogy mondják nem érdemes senkit se utánozni, mert akkor csak második lehet az ember de vmi hasonlóra gondoltam. Aztán meg elsőre ugyse lesz tökéletes.A tudást mástól kapjuk, a siker a mi tehetségünk - Remember: Your life – Your choices!
-
sonar
addikt
Szeva!
Megnéztem a progit. A design nagyon bejön.
Bár ahogy a read.me-t elolvastam nem volt egy nehézz program.
Még esetleg olyannal ki tudnád egészíteni, hogy csak számokat lehessen
az adott mezőbe írni, a rang+hsz mezőbe meg ne lehessen írni.
+ ha nincs meg a readme fájl akkor ne runtime erroral száljon el.
De ezek tényleg csak apróságok.
Más:
Azt nem tudja vki, hogy paramétert hogyan vesz át az exe?
pl.: mint bach programozásnál a %1
vagy mint a notepad is megeszi ha azt irom be, hogy:
notepad c:\sss.txt akkor megnyitja, ha nem létezik akkor létre hozza.
Hogyan tudom én ezt a paramétert/kapcsolót lekezelni?
Erre nincs vkinek tutorja vagy akármilye?
Már fél netet feltúrtam de sehol semmi használhatót nem találtam.
üdv sonarA tudást mástól kapjuk, a siker a mi tehetségünk - Remember: Your life – Your choices!
-
sonar
addikt
-
sonar
addikt
webbrowserbe tölsd be, ezt most csak rögtönöztem de vhogy igy kell
Public Sub ShowAnimatedGIF()
Dim sHTML As String, ut as string
' ut = a gif helye
sHTML = ''about:'' & _
''<html>'' & _
''<body leftMargin=0 topMargin=0 marginheight=0 marginwidth=0 scroll=no>'' & _
''<img src='''''' & ut & ''''''></img></body></html>''
.Silent = True
.Navigate sHTML
End SubA tudást mástól kapjuk, a siker a mi tehetségünk - Remember: Your life – Your choices!
-
sonar
addikt
Nem bonyolult ez, annyira. Csak a html tagot mindenképpen hozzá kell vágni.
Portál dolog is alakul csak még van pár kérdés amit meg kell fontolnom meg el kell intézni és már mehet is a dolog.A tudást mástól kapjuk, a siker a mi tehetségünk - Remember: Your life – Your choices!
-
sonar
addikt
az az igazság, hogy szeptemberig sztem nem lesz belőle semmi.
Heti 2xer angolra járok munka után, meg most melóba is hajtás van. Mert szept 1ig át kell adni egy rendszert... emiatt mondtam le egy Németországi nyaralást is
de nincs elfelejtve a project!A tudást mástól kapjuk, a siker a mi tehetségünk - Remember: Your life – Your choices!
-
[HUN]Zolee
senior tag
-
MODERÁTOR
Használd az inStr és az inStrRev kereső funkciókat
pl: mid (filename, inStrRev(cstr(filename),''\'')+1, 255)
ha a filename =''e:\kepek\vegyes\uj.jpg''
akkor a végeredmény uj.jpg lesz
A meghajtó betűjelét nagyon egyszerű megállapítani (ugye csak az első karaktere a filenévnek), a maradékot meg e kettő levágásából kapod.
Egyébként ez VBScript, de gondolom VB-ben is ugyanígy kell használni.
[Szerkesztve]***
-
Jester01
veterán
1. mert a \ után következő kartaktertől akarod visszakapni a stringet
2. oda a hossz kerül, csak kihasználta, hogy a string hosszánál nagyobb számot is oda lehet írni
3. a rev az hátulról keres
Amúgy ilyesmire a Scripting.FileSystemObject és társai valók. Pl:
set fso = CreateObject(''Scripting.FileSystemObject'')
set f = fso.GetFile(filename);
és utána az f tulajdonságait (Drive, Path, Name) tetszés szerint használhatod.Jester
-
MODERÁTOR
Eccerű, a VB egy objektum orientált (khmm, inkább objektum alapú) nyelv. Egy objektum viszont önmagában csak akkor fog létezni ,ha először létrehozzuk, erre szolgál a Set parancs. Na most a filerendszer is önmagában egy objektum, és ez az objektum tartalmazza pl a fileokat, a megnyitó (open) parancsot, stb.
A te példádban az fso csak az objektum neve, ez bármi lehetne.***
-
sonar
addikt
vb6
C nekem azért lenne praktikus mert progizok néha mikorvezérlőket is és asm-mel kiegészítve hatékony lenne. Amugy semmi bajom nem lenne az egésszel ha nem ilyen szarul lenne megcsinálva.
A frameworkel is az a bajom,hogy nekem sok régi gyengébb gépre kell kódolnom és ott eszméletlen lassú v nem is fut...A tudást mástól kapjuk, a siker a mi tehetségünk - Remember: Your life – Your choices!
-
sonar
addikt
-
Gh0sT
addikt
Nah, akkor felvázolom a teljes feladatot:
Timert használok, de nem erre. Egy adatbázishoz nyúlok hozzá meghatározott időközönként és futtatok le egy lekérdezést. Erre kell nekem a timer. A timer_tick eseményen belül kell a formot popup ablakként felvillantanom. Viszont nem tudom, hogy timeren belül lehet-e még egy timert aktiválni, ráadásul szerintem 100% lenne a proci terheltség.Soha nem késő, hogy azzá válj, aki lehettél volna.
-
Möhönce
csendes tag
Üdv!
A hibakód: 429 Runtime error
A program egy másik alkalmazást vezérel SendeKeys-ekkel. (Aminek a Windows neve zárójelben van a Tasks-nál. Ez elvileg bármi lehet ami éppen fut, pl. ''Számológép''.)
Word-ben csináltam aztán VB6-tal is rendben volt sokáig. Ennek már 6 éve most meg egyikben sem megy ez az egyetlen sor.
Probáltam win98 alatt is a régi gépemen ugyanúgy ahogy akkoriban lehetett de teljesen ugyanez az eredmény.
Annyira jutottam összesen hogy beíráskor csak akkor jelenik meg a Tasks() paramétere, ha a References ablakban kijelölöm a Microsoft word Object Libraryt.
Talán valamilyen objektum vagy referencia kellhet ami régen megvolt most meg hiányzik? -
[HUN]Zolee
senior tag
Ezt úgyoldottam meg, hogy egy poligont rajzoltatok ki mindíg ,csa hozzáveszem az új képpontot.
VB7 be kb így néz ki :
e = egér esemény
korivp1 = a pontokat tartalmazó tömb, amelynek elemszam nagyságú
Dim p As New Point(e.X, e.Y)
pont = p
korok()
ReDim Preserve korivp1(elemszam)
korivp1(elemszam) = p
elemszam += 1
g.DrawArc(pens.Red,
volt = True
If elemszam >= 2 Then
g.DrawLines(Pens.Red, korivp1)
End If''<[HUN]DrH>valaki mondjon egy tuningolos programot a mivel kocsis képeket tudok tuningoloni.'' https://ferromag.aranyoldalak.hu/
-
[HUN]Zolee
senior tag
Üdv. pl egy jó megoldás, ha minden egyes objektumot beleszórsz egy nagy tömbbe beleteszed az összes objektumot, és akkor a beolvasott fáljban lévő neveket könnyen át lehet állítani
objektumok : object
beolvasás :
nyelv(X,2) : szöveg
ciklus eof(file)
i+=1
nyelv(1,1)=cimkenév
nyelv(1,2)=magyar szöveg
ciklus vége
magyarítás:
for i=1 to X
for j=1 to X
ha objektumok(i)=nyelv(j,1) akkor
objektumok(i).text/value = nyelv(j,2)
elágazás vége
ciklus vége
ciklus vége
asszem ennyi az elméletem
remélem érted.
7 be működik, 6 om nincs fent
[Szerkesztve]''<[HUN]DrH>valaki mondjon egy tuningolos programot a mivel kocsis képeket tudok tuningoloni.'' https://ferromag.aranyoldalak.hu/
-
[HUN]Zolee
senior tag
7 be így néz ki
Dim elemek(3) As Object
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
elemek(1) = Label1
elemek(2) = Button1
elemek(3) = TextBox1
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
If elemek(1).text = ''AK'' Then
elemek(1).text = ''ASdf''
elemek(2).text = ''Gomb''
elemek(3).text = ''Doboz''
End If
End Sub
ez csak az hogy hogyan gondoltam, a ciklus meg a beolvasás nincs benne, de gondolom az menni fog
(7 be a label nek caption helyett text-je van már.)
[Szerkesztve]''<[HUN]DrH>valaki mondjon egy tuningolos programot a mivel kocsis képeket tudok tuningoloni.'' https://ferromag.aranyoldalak.hu/
Új hozzászólás Aktív témák
- Vodafone-ra áttért Digi Mobilosok
- AMD K6-III, és minden ami RETRO - Oldschool tuning
- WoW avagy World of Warcraft -=MMORPG=-
- Processzorra való vizesblokk az ASUS ROG-os portfóliójában
- EA Sports WRC '23
- Új Beats fej- és fülhallgatók jelentek meg
- OLED TV topic
- Fotók, videók mobillal
- Tüzi: Geek-hatarozo
- Kupon kunyeráló
- További aktív témák...
- Ryzen5 esport Gamer(16gb ddr4/m2 ssd/win10/Vega11)
- HP ProBook 430 G6, 13,3" FULL HD IPS, I5-8265U, 8GB DDR4, 256GB SSD, WIN 10/11, SZÁMLA, GARANCIA
- Dell Latitude 3420, 14" FULL HD IPS, I5-1145G7 CPU, 8GB DDR4, 256GB SSD, W11, Számla, Garancia
- Dell Latitude 7280, 12,5" FHD IPS Kijelző, I5-6300U, 8GB DDR4, 256GB SSD, WIN 10, Számla, garancia
- Lenovo ThinkPad X280, 12,5" HD Kijelző, I5-8250U CPU, 8GB DDR4, 256GB SSD, WIN 10/11, Számla, Garanc