- Honor Magic6 Pro - kör közepén számok
- Google Pixel 6/7/8 topik
- Drágább lett a Pixel 8a
- MG5 menetpróba
- Samsung Galaxy S22 és S22+ - a kis vagány meg a bátyja
- Okosóra lett a Huawei fitnesz karperecéből
- Elkaszálhatja az Apple az iPhone Plust
- Honor Magic5 Pro - kamerák bűvöletében
- Samsung Galaxy S23 és S23+ - ami belül van, az számít igazán
- Motorola Edge 40 neo - színre és formára
Hirdetés
-
MG5 menetpróba
ma Elektromos, kombi és most már elég jó áron van, de nem egy friss konstrukció. Vajon megéri?
-
AMD Radeon undervolt/overclock
lo Minden egy hideg, téli estén kezdődött, mikor rájöttem, hogy már kicsit kevés az RTX2060...
-
Masszív előrelépésnek tűnik a Zen 5
ph Az AMD a gyártók felé már nem is az Intelhez méri a dizájn sebességét, hanem az újabb ARM magokhoz.
Új hozzászólás Aktív témák
-
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!
Új hozzászólás Aktív témák
- A fociról könnyedén, egy baráti társaságban
- Kötelező BIOS frissítéssel orvosolná a Core CPU-k stabilitási gondját az Intel
- Milyen billentyűzetet vegyek?
- SSD kibeszélő
- AMD GPU-k jövője - amit tudni vélünk
- Konzolokról KULTURÁLT módon
- Kétventilátoros ASUS Radeon VGA-k az AMD-s felsőházban
- Milyen asztali médialejátszót?
- Mindenkinek elérhetővé teszi a képgenerálást a Lossless Scaling
- ASUS routerek
- További aktív témák...
- nVidia RTX 3080 Ti 12GB Founders Edition + GARANCIA
- Dell Latitude 3310, 13,3" HD Kijelző, I5-8265U CPU, 8GB RAM, 256GB SSD, WIN 10/11
- GameBoy Advanced SP (AGS-001) + Final Fantasy V és némi ajándék.
- Samsung Galaxy TAB A8 /// Szinte ÚJ // Számla + GARANCIA
- Acer játékra is,15,6", FullHD,6.gen.core i7,GT940 4!!/6GB VGA,8GB Ram,SSD+HDD,jó akku
Állásajánlatok
Cég: Promenade Publishing House Kft.
Város: Budapest
Cég: Ozeki Kft.
Város: Debrecen