İlk olarak oto hp veya mp pot basma amacım.
![[Resim: VyqQXV.png]](http://i.hizliresim.com/VyqQXV.png)
Yukarıda gördüğünüz projenin "Gelişmiş Pot" bölümüdür.
İlk olarak F6 basınca fare ile tıkladığım yerdeki renk resimde gördüğünüz siyah alana (Panel) gönderiliyor. Yani bir nevi seçilmiş renk tutuluyor. F6 basınca Timer7 çalışıyor.
Timer7 :
En üstte "Public Class Form1" in altında aşağıdaki kodları ilgilendiren kodlar :
Kod:
Kod:
Dim sTmp As String
Dim lColor As Integer
Private Structure POINTAPI
Dim x As Integer
Dim y As Integer
End Structure
Private Declare Function GetPixel Lib "gdi32" (ByVal hdc As Integer, ByVal x As Integer, ByVal y As Integer) As Integer
'UPGRADE_WARNING: Structure POINTAPI may require marshalling attributes to be passed as an argument in this Declare statement. Click for more: 'ms-help://MS.VSCC.v90/dv_commoner/local/redirect.htm?keyword="C429C3A5-5D47-4CD9-8F51-74A1616405DC"'
Private Declare Function GetCursorPos Lib "user32" (ByRef lpPoint As POINTAPI) As Integer
Private Declare Function GetWindowDC Lib "user32" (ByVal hWnd As Integer) As Integer
Private Declare Function GetAsyncKeyState Lib "user32" (ByVal vKey As Integer) As Short
Private Const VK_LBUTTON As Integer = &H1
Private Const VK_RBUTTON As Integer = &H2Kod:
Kod:
Dim tPOS As POINTAPI
Dim lDC As Integer
Xtxt.Text = MousePosition.X
Ytxt.Text = MousePosition.Y
If GetAsyncKeyState(VK_LBUTTON) Then
lDC = GetWindowDC(0)
Call GetCursorPos(tPOS)
lColor = GetPixel(lDC, tPOS.x, tPOS.y)
CPpanel.BackColor = System.Drawing.ColorTranslator.FromOle(lColor)
sTmp = VB.Right("000000" & Hex(lColor), 6)
Redtxt.Text = VB.Right(sTmp, 2)
Greentxt.Text = Mid(sTmp, 3, 2)
Bluetxt.Text = VB.Left(sTmp, 2)
Timer9.Start()
Timer7.Stop()
End IfTimer9 da ise sorgu yapılacak. Yani önceden seçilen renk değişirse (Yani pot azalırsa) tuşa bas. Hangi tuşa TextBox11 'e yazılan tuşa.
Yaızlan tuşu örnek ( 1,2,3,4) bastırırken 5 kere bassın o renk azalancaya kadar.Azalınca yine tuşa bassın 5 kere.
![[Resim: PEL7MN.png]](http://i.hizliresim.com/PEL7MN.png)
Timer9 :
Kod:
Kod:
If sTmp.Equals(CPpanel.BackColor) Then
au.Send(TextBox11.Text)
Else
Timer9.Stop()
End If![[Resim: JEoVqY.png]](http://i.hizliresim.com/JEoVqY.png)
Sorun şu : Pot basıyor fakat durmuyor.
Cevaplarınızı bekliyorum. Şimdiden teşekkürler.
Çok ugrastım artık yapamadım size danısım dedim projenin amacı şu videoda açıkca belli oluor
