بهرام الكترونيك

کنترل کامپیوتر ، لوازم متصل به آن و یا نرم افزار رایانه  .....

 دانلود فایل های مدار ( دانلود فقط برای اعضا امکان پذیر است ):

کلیک کنید 

1. ‘ Kumandanın 1 numaralı tuşuna basınca hesap makinesi çalışacak’ 
2. Private Sub Text2_Change() 
3. If Text2.Text = "128" Then 
4. Shell ("calc.exe") 
5. Text2.Text = "" 
6. End If 
7.  
8. If Text2.Text = "129" Then 
9. Shell ("C:\Program Files\WinZip\WINZIP32.EXE") 
10. Text2.Text = "" 
11. End If 
12.  
13. ‘kumandanın kapat tuşuna basınca ALT F4 tuş gönderimi yaparak açık olan pencereyi kapatacak’ 
14. If Text2.Text = "149" Then 
15. SendKeys ("%{f4}") 
16. Text2.Text = "" 
17. End If 
18.  
19. ‘ Kumandanın 3 numaralı tuşuna basınca not defteri çalışacak’ 
20. If Text2.Text = "130" Then 
21. Shell ("notepad.exe") 
22. Text2.Text = "" 
23. End If 
24.  
25. End Sub