Hirdetés
-
Már elstartolt az AMD nyári játékpromóciója
ph Ezúttal a Navi 32 XL és XT GPU-val szerelt videokártyákhoz kaphatunk két, tavaly megjelent programot, amiket egy négyes listából válogathatunk ki.
-
Mesterportrékkal érkezett a Honor 200 Pro
ma A Honor AI a Studio Harcourt módszerén edzett, a Pro mellett befutott a Honor 200 is.
-
Retro Kocka Kuckó 2024
lo Megint eltelt egy esztendő, ezért mögyünk retrokockulni Vásárhelyre! Gyere velünk gyereknapon!
Új hozzászólás Aktív témák
-
sonar
addikt
Esetleg lemez infót hogyan tudok kiolvasni? azt nem tudja vki?
dvd-nél milyen alapanyag,....A tudást mástól kapjuk, a siker a mi tehetségünk - Remember: Your life – Your choices!
-
sonar
addikt
LPT porthoz nincs vkinek vmi jó kis anyaga?
A tudást mástól kapjuk, a siker a mi tehetségünk - Remember: Your life – Your choices!
-
sonar
addikt
Hogyan tudom kiolvasni a hdd serial számát? (Nem a kötetre gondolok! ami minden formázáskor más)
Turom ezt a rohadt guglit de csak shareware progikat/dll-t találok, source-t sehol
vki tudna segítení?A tudást mástól kapjuk, a siker a mi tehetségünk - Remember: Your life – Your choices!
-
sonar
addikt
Azt tudja vki,hogy az Public Even() mire jó? Hogyan kell kezelni?
[Szerkesztve]A tudást mástól kapjuk, a siker a mi tehetségünk - Remember: Your life – Your choices!
-
sonar
addikt
Funkció billentyűket hogyan lehet használatra birni?
Van vkinek vmi jó kis leírása?A tudást mástól kapjuk, a siker a mi tehetségünk - Remember: Your life – Your choices!
-
sonar
addikt
Találtam egy egész hasznos oldalt. http://www.pgacon.com/visualbasic.htm
vannak rajt források is [link]A tudást mástól kapjuk, a siker a mi tehetségünk - Remember: Your life – Your choices!
-
sonar
addikt
válasz [HUN]Zolee #738 üzenetére
pl csinálsz egy ilyet
Dim sor as string
sor= str(id) & '','' & nev...
aztán
open ''file'' for output as #1
output (sor, #1)
close #1
és ezt az egészet egy for ciklusba
vissza olvasni meg inputra nyitod meg a fájlt és szétdarabolod a stringet.A tudást mástól kapjuk, a siker a mi tehetségünk - Remember: Your life – Your choices!
-
sonar
addikt
Sziasztok, ha vkinek szüksége lenne valaha a funkció gombok használatára akkor
mentse le ezt a forrást.
Az időzítőt én 100-200 ra szoktam állítani, lassúbb gépen elég a 200 is bár nem vettem
észre, hogy zabálná a procit. Kell egy Text box is (Text1 néven, a gyengébbek kedvéért)
és abba lehet figyelni,hogy éppen milyen funkció billentyű lett lenyomva.
üdv sonar
Option Explicit
Private Declare Sub keybd_event Lib ''user32'' (ByVal bVk As Byte, ByVal bScan As Byte, ByVal dwFlags As Long, ByVal dwExtraInfo As Long)
Private Declare Function GetAsyncKeyState Lib ''user32'' (ByVal vKey As Long) As Integer
'******************Function Key*******************
Private Const VK_F1 = &H70
Private Const VK_F2 = &H71
Private Const VK_F3 = &H72
Private Const VK_F4 = &H73
Private Const VK_F5 = &H74
Private Const VK_F6 = &H75
Private Const VK_F7 = &H76
Private Const VK_F8 = &H77
Private Const VK_F9 = &H78
Private Const VK_F10 = &H79
Private Const VK_F11 = &H7A
Private Const VK_F12 = &H7B
Private Sub Form_Load()
Call FunctionClear
Timer1.Enabled = True
End Sub
Private Sub Timer1_Timer()
If GetAsyncKeyState(VK_F1) Then
Text1 = ''F1'' & vbCrLf & Text1
ElseIf GetAsyncKeyState(VK_F2) Then
Text1 = ''F2'' & vbCrLf & Text1
ElseIf GetAsyncKeyState(VK_F3) Then
Text1 = ''F3'' & vbCrLf & Text1
ElseIf GetAsyncKeyState(VK_F4) Then
Text1 = ''F4'' & vbCrLf & Text1
ElseIf GetAsyncKeyState(VK_F5) Then
Text1 = ''F5'' & vbCrLf & Text1
ElseIf GetAsyncKeyState(VK_F6) Then
Text1 = ''F6'' & vbCrLf & Text1
ElseIf GetAsyncKeyState(VK_F7) Then
Text1 = ''F7'' & vbCrLf & Text1
ElseIf GetAsyncKeyState(VK_F8) Then
Text1 = ''F8'' & vbCrLf & Text1
ElseIf GetAsyncKeyState(VK_F9) Then
Text1 = ''F9'' & vbCrLf & Text1
ElseIf GetAsyncKeyState(VK_F10) Then
Text1 = ''F10'' & vbCrLf & Text1
ElseIf GetAsyncKeyState(VK_F11) Then
Text1 = ''F11'' & vbCrLf & Text1
ElseIf GetAsyncKeyState(VK_F12) Then
Text1 = ''F12'' & vbCrLf & Text1
End If
End Sub
Public Sub FunctionClear()
' Azért kell mert első induláskor néha marad bent vmi szemét és egy üres
' kiolvasással megszűnik ez a probléma
GetAsyncKeyState (VK_F1)
GetAsyncKeyState (VK_F2)
GetAsyncKeyState (VK_F3)
GetAsyncKeyState (VK_F4)
GetAsyncKeyState (VK_F5)
GetAsyncKeyState (VK_F6)
GetAsyncKeyState (VK_F7)
GetAsyncKeyState (VK_F8)
GetAsyncKeyState (VK_F9)
GetAsyncKeyState (VK_F10)
GetAsyncKeyState (VK_F11)
GetAsyncKeyState (VK_F12)
End SubA tudást mástól kapjuk, a siker a mi tehetségünk - Remember: Your life – Your choices!
-
sonar
addikt
Igen és ha vki elüt egy betüt akkor micsinál?
Amugy a beolvasást egy rutinba irnám meg, rövidebb lenne átláthatóbb később könnyebb módosítani
If Combo1.Text = ''Magyar'' Then
Open ''c:\1.txt'' For Input As #1
call beolvas
sub beolvas
Line Input #1, cimke1$
Line Input #1, lab1$
Line Input #1, lab2$
Line Input #1, lab3$
Line Input #1, txt1$
Line Input #1, txt2$A tudást mástól kapjuk, a siker a mi tehetségünk - Remember: Your life – Your choices!
-
sonar
addikt
Erre varjatok gombot, már mindjárt szétütöm a gépet ezt miért csinálja
sub txtText_lostfocus
dim tmp as string
tmp=txtText
tmp=Format(tmp,''######0.00'')
txtText=tmp
end sub
és ha alapban 1.00 van benne akkor mikor lelépek vmi 35620.00 számot ad be
de miért?
Már variáltam több stringel átpakolom egyik változóból a másikba de hiábaA tudást mástól kapjuk, a siker a mi tehetségünk - Remember: Your life – Your choices!
-
-
sonar
addikt
Hogyan tudom megcsinálni, hogy ha rálépek egy textboxra, akkor a benne lévő szöveg alapba kijelölt legyen?
A tudást mástól kapjuk, a siker a mi tehetségünk - Remember: Your life – Your choices!
-
sonar
addikt
Jester jó fele jártál, íme a megoldás:
text1_gotfocus.sub
text1.selstart=0
text1.sellength=len(text1)
end sub
mivel nem copy paste volt hanem fejböl irtam ezért elirás lehet benneA tudást mástól kapjuk, a siker a mi tehetségünk - Remember: Your life – Your choices!
-
sonar
addikt
Na ezt kapjátok el ne a náthát! Ma ezzel szívtam
Ugye ha format parancsnál számnak veszem a beírt adatokat akkor oda ',' (vessző) kell különben dátumnak veszi a vb. No de ha számolni is akarsz vele akkor alakísd vissza!!! tizedespontra mert különben nem fog számolni.A tudást mástól kapjuk, a siker a mi tehetségünk - Remember: Your life – Your choices!
-
-
-
sonar
addikt
Adatbázis kezeléssel kapcsolatban van vkinek vmi jól értelmezhető tutorja/anyaga?
A tudást mástól kapjuk, a siker a mi tehetségünk - Remember: Your life – Your choices!
-
-
sonar
addikt
Azt nem tudjátok lesz e vmi új revizió a vistahoz ill 64 bithez?
A tudást mástól kapjuk, a siker a mi tehetségünk - Remember: Your life – Your choices!
-
sonar
addikt
Ma olyat szivok amilyet még ember nem látott.
IDE-n belül simán futtatom a progit, de ha le akarom fordítani akkor ad egy üres hiba ablakot és leáll.
Egy sima ablak piros x el benne és nincs ott semmi szöveg!
Csak egy Ok meg sugó.
Természetesen sugóra nem jön be semmi
Ok-ra meg nem csinál semmit.
Ilyennel már találkozott vki?A tudást mástól kapjuk, a siker a mi tehetségünk - Remember: Your life – Your choices!
-
sonar
addikt
Közben meglett a megoldás. Sérült a partición több adat és ez okozta a problémát.
Reinstall megoldott mindendtA tudást mástól kapjuk, a siker a mi tehetségünk - Remember: Your life – Your choices!
-
sonar
addikt
Abban nem tud vki segíteni,hogy Data vezérlővel miért nem tudok kapcsolódni dBase adatbázishoz?
ISAM nincs instalálvát reklomál, egyszer régen vhogy megoldottam, de már nem emléxem rá vkinek építő ötlete van?A tudást mástól kapjuk, a siker a mi tehetségünk - Remember: Your life – Your choices!
-
sonar
addikt
válasz KissTboy #841 üzenetére
No most fejből nyomom, szal ha hibás lesz akkor debugolni kell.
ha vki már egyszer programozást tanul akkor vakarja meg azt a kis buksiját és kezdjen el gondolkodni ha meg nem akkor ne is jelenkezzen programozónak, a f@szom kivan hogy mindig tróger emberek miatt kell a cégnél is többlet munkát végeznem.
Most is jött egy frissdiplomás aztán egy shell scriptet kellett volna módosítania, de megfeküdt vele. Én meg egy másik sráccal akik életünkben nem linuxoztunk megcsinálltuk.
Itt van, a többit meg egyszerü logikával ki lehet találni.
sub text1 keypress(keyascii as integer)
if keyascii< asc(''0'') or keyascii > asc(''9'') then
keyascii=0
end if
end subA tudást mástól kapjuk, a siker a mi tehetségünk - Remember: Your life – Your choices!
-
sonar
addikt
válasz [HUN]Zolee #845 üzenetére
Azért ez már több mint durva, ha jól olvasom 5. éves és ennyit se tud.
Vmilyen szinten meglehet tanulni a dolgokat, csak időt kell rá szentelni.
Én se vagyok nagy programozó, de ami kell azzal foglalkozok.
Kiváncsi vagyok hogy az illető mennyit foglalkozott a témával.
No mindegy szerintem is egyszerübb megkérdezni, de azzal takarózni,hogy a tanár se tudja nevetséges.
bocs a kirohanásért és az offértA tudást mástól kapjuk, a siker a mi tehetségünk - Remember: Your life – Your choices!
-
sonar
addikt
válasz KissTboy #842 üzenetére
Hogy ON legyek:
Private Sub Text1_KeyPress(KeyAscii As Integer)
' csak számokat lehet beírni
If (KeyAscii < 48) Then
If Not KeyAscii = 44 Then ' a '','' engedélyezése (tizedes)
If Not KeyAscii = 8 Then ' backspace engedélyezése
KeyAscii = 0
End If
End If
ElseIf (KeyAscii > 57) Then
KeyAscii = 0
End If
End SubA 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
- Xbox One játékok (EXTREM OLCSÓN)
- HGST 10TB 7.2K 12Gbps 256MB 3,5" SAS HDD Több darab is van
- Poco X6 Pro 12/512 garanciális
- INGYEN POSTA! AsRock B550M, Ryzen 5 5500, RX 6600XT, 16Gb DDR4 3200Mhz CL16, 250Gb M.2, 600W Gold
- CTO ÚJ Bontatlan MacBook Pro 16 M3 Pro 12CPU/18GPU 18GB/1TB SSD Magyar billentyűzet Azonnal átvehető
- Hp pavilion 14-ce0000nh kijelző
- Noctua NF-A9x14 HS-PWM Chromax Black Swap 14 mm vékony ventilátor - GARIVAL, 2 db, újszerű - ELADÓ!
- Új Anbernic RG35XX H 64Gb / muOS Portmaster
- Lenovo T420 eladó + billentyűzet
- Bontalan ÚJ Iphone SE 3 (2022) egy év Apple garis + akkis tok, QI töltő, fali töltő - ingyen Foxpost