A
B
C
Ç
D
E
F
G
Ğ
H
I
İ
J
K
L
M
N
O
P
R
S
Ş
T
U
Ü
V
Y
Z
Q
W
X
+ Ekle
Nota Bulucu (Gitar İçin)

Nota Bulucu (Gitar İçin) Nota Bulucu (Gitar İçin)
Gitar üzerindeki bir perdenin hangi notaya karşı geldiğini ve bu notanın oktavlarının gitar üzerinde nerede olduğunu bulan program...

Private Sub command1_click()
x$ = Text1.Text
i$ = Text2.Text
y = Val(i$)
If y = i$ Then
If x$ = "e" Or x$ = "b" Or x$ = "a" Or x$ = "g" Or x$ = "d" Or x$ = "E" Or x$ = "B" Or x$ = "A" Or x$ = "G" Or x$ = "D" Then
If x$ = "e" Or x$ = "E" Then
y = y Mod 12
If y = 0 Then
Label1 = "Mi"
Label6 = "E-0 , E-12    D-2 , D-14    B-5 , B-17" + Chr$(10) + "A-7 , A-19    G-9 , G-21"



ElseIf y = 1 Then
Label1 = "Fa"
Label6 = "E-1 , E-13    D-3   , D-15    B-6 , B-18" + Chr$(10) + "A-8 , A-20    G-10 , G-22"
ElseIf y = 2 Then
Label1 = "Fa #"
Label6 = "E-2 , E-14    D-4   , D-16    B-7 , B-19" + Chr$(10) + "A-9 , A-21    G-11 , G-23"
ElseIf y = 3 Then
Label1 = "Sol"
Label6 = "E-3   , E-15    D-5 , D-17    B-8 , B-20" + Chr$(10) + "A-10 , A-22    G-0 , G-12"
ElseIf y = 4 Then
Label1 = "Sol #"
Label6 = "E-4   , E-16    D-6 , D-18    B-9 , B-21" + Chr$(10) + "A-11 , A-23    G-1 , G-13"
ElseIf y = 5 Then
Label1 = "La"
Label6 = "E-5 , E-17    D-7 , D-19    B-10 , B-22" + Chr$(10) + "A-0 , A-12    G-2 , G-14"
ElseIf y = 6 Then
Label1 = "Si b"
Label6 = "E-6 , E-18    D-8 , D-20    B-11 , B-23" + Chr$(10) + "A-1 , A-13    G-3 , G-15"
ElseIf y = 7 Then
Label1 = "Si"
Label6 = "E-7 , E-19    D-9 , D-21    B-0 , B-12" + Chr$(10) + "A-2 , A-14    G-4 , G-16"
ElseIf y = 8 Then
Label1 = "Do"
Label6 = "E-8 , E-20    D-10 , D-22    B-1 , B-13" + Chr$(10) + "A-3 , A-15    G-5   , G-17"
ElseIf y = 9 Then
Label1 = "Do #"
Label6 = "E-9 , E-21    D-11 , D-23    B-2 , B-14" + Chr$(10) + "A-4 , A-16    G-6   , G-18"
ElseIf y = 10 Then
Label1 = "Re"
Label6 = "E-10 , E-22    D-0 , D-12    B-3 , B-15" + Chr$(10) + "A-5   , A-17    G-7 , G-19"
ElseIf y = 11 Then
Label1 = "Mi b"
Label6 = "E-11 , E-23    D-1 , D-13    B-4 , B-16" + Chr$(10) + "A-6   , A-18    G-8 , G-20"
End If
ElseIf x$ = "a" Or x$ = "A" Then
y = y Mod 12
If y = 0 Then
Label1 = "La"
Label6 = "E-5 , E-17    D-7 , D-19    B-10 , B-22" + Chr$(10) + "A-0 , A-12    G-2 , G-14"
ElseIf y = 1 Then
Label1 = "Si b"
Label6 = "E-6 , E-18    D-8 , D-20    B-11 , B-23" + Chr$(10) + "A-1 , A-13    G-3 , G-15"
ElseIf y = 2 Then
Label1 = "Si"
Label6 = "E-7 , E-19    D-9 , D-21    B-0 , B-12" + Chr$(10) + "A-2 , A-14    G-4 , G-16"
ElseIf y = 3 Then
Label1 = "Do"
Label6 = "E-8 , E-20    D-10 , D-22    B-1 , B-13" + Chr$(10) + "A-3 , A-15    G-5   , G-17"
ElseIf y = 4 Then
Label1 = "Do #"
Label6 = "E-9 , E-21    D-11 , D-23    B-2 , B-14" + Chr$(10) + "A-4 , A-16    G-6   , G-18"
ElseIf y = 5 Then
Label1 = "Re"
Label6 = "E-10 , E-22    D-0 , D-12    B-3 , B-15" + Chr$(10) + "A-5   , A-17    G-7 , G-19"
ElseIf y = 6 Then
Label1 = "Mi b"
Label6 = "E-11 , E-23    D-1 , D-13    B-4 , B-16" + Chr$(10) + "A-6   , A-18    G-8 , G-20"
ElseIf y = 7 Then
Label1 = "Mi"
Label6 = "E-0 , E-12    D-2 , D-14    B-5 , B-17" + Chr$(10) + "A-7 , A-19    G-9 , G-21"
ElseIf y = 8 Then
Label1 = "Fa"
Label6 = "E-1 , E-13    D-3   , D-15    B-6 , B-18" + Chr$(10) + "A-8 , A-20    G-10 , G-22"
ElseIf y = 9 Then
Label1 = "Fa #"
Label6 = "E-2 , E-14    D-4   , D-16    B-7 , B-19" + Chr$(10) + "A-9 , A-21    G-11 , G-23"
ElseIf y = 10 Then
Label1 = "Sol"
Label6 = "E-3   , E-15    D-5 , D-17    B-8 , B-20" + Chr$(10) + "A-10 , A-22    G-0 , G-12"
ElseIf y = 11 Then
Label1 = "Sol #"
Label6 = "E-4   , E-16    D-6 , D-18    B-9 , B-21" + Chr$(10) + "A-11 , A-23    G-1 , G-13"
End If
ElseIf x$ = "d" Or x$ = "D" Then
y = y Mod 12
If y = 0 Then
Label1 = "Re"
Label6 = "E-10 , E-22    D-0 , D-12    B-3 , B-15" + Chr$(10) + "A-5   , A-17    G-7 , G-19"
ElseIf y = 1 Then
Label1 = "Mi b"
Label6 = "E-11 , E-23    D-1 , D-13    B-4 , B-16" + Chr$(10) + "A-6   , A-18    G-8 , G-20"
ElseIf y = 2 Then
Label1 = "Mi"
Label6 = "E-0 , E-12    D-2 , D-14    B-5 , B-17" + Chr$(10) + "A-7 , A-19    G-9 , G-21"
ElseIf y = 3 Then
Label1 = "Fa"
Label6 = "E-1 , E-13    D-3   , D-15    B-6 , B-18" + Chr$(10) + "A-8 , A-20    G-10 , G-22"
ElseIf y = 4 Then
Label1 = "Fa #"
Label6 = "E-2 , E-14    D-4   , D-16    B-7 , B-19" + Chr$(10) + "A-9 , A-21    G-11 , G-23"
ElseIf y = 5 Then
Label1 = "Sol"
Label6 = "E-3   , E-15    D-5 , D-17    B-8 , B-20" + Chr$(10) + "A-10 , A-22    G-0 , G-12"
ElseIf y = 6 Then
Label1 = "Sol #"
Label6 = "E-4   , E-16    D-6 , D-18    B-9 , B-21" + Chr$(10) + "A-11 , A-23    G-1 , G-13"
ElseIf y = 7 Then
Label1 = "La"
Label6 = "E-5 , E-17    D-7 , D-19    B-10 , B-22" + Chr$(10) + "A-0 , A-12    G-2 , G-14"
ElseIf y = 8 Then
Label1 = "Si b"
Label6 = "E-6 , E-18    D-8 , D-20    B-11 , B-23" + Chr$(10) + "A-1 , A-13    G-3 , G-15"
ElseIf y = 9 Then
Label1 = "Si"
Label6 = "E-7 , E-19    D-9 , D-21    B-0 , B-12" + Chr$(10) + "A-2 , A-14    G-4 , G-16"
ElseIf y = 10 Then
Label1 = "Do"
Label6 = "E-8 , E-20    D-10 , D-22    B-1 , B-13" + Chr$(10) + "A-3 , A-15    G-5   , G-17"
ElseIf y = 11 Then
Label1 = "Do #"
Label6 = "E-9 , E-21    D-11 , D-23    B-2 , B-14" + Chr$(10) + "A-4 , A-16    G-6   , G-18"
End If
ElseIf x$ = "g" Or x$ = "G" Then
y = y Mod 12
If y = 0 Then
Label1 = "Sol"
Label6 = "E-3   , E-15    D-5 , D-17    B-8 , B-20" + Chr$(10) + "A-10 , A-22    G-0 , G-12"
ElseIf y = 1 Then
Label1 = "Sol #"
Label6 = "E-4   , E-16    D-6 , D-18    B-9 , B-21" + Chr$(10) + "A-11 , A-23    G-1 , G-13"
ElseIf y = 2 Then
Label1 = "La"
Label6 = "E-5 , E-17    D-7 , D-19    B-10 , B-22" + Chr$(10) + "A-0 , A-12    G-2 , G-14"
ElseIf y = 3 Then
Label1 = "Si b"
Label6 = "E-6 , E-18    D-8 , D-20    B-11 , B-23" + Chr$(10) + "A-1 , A-13    G-3 , G-15"
ElseIf y = 4 Then
Label1 = "Si"
Label6 = "E-7 , E-19    D-9 , D-21    B-0 , B-12" + Chr$(10) + "A-2 , A-14    G-4 , G-16"
ElseIf y = 5 Then
Label1 = "Do"
Label6 = "E-8 , E-20    D-10 , D-22    B-1 , B-13" + Chr$(10) + "A-3 , A-15    G-5   , G-17"
ElseIf y = 6 Then
Label1 = "Do #"
Label6 = "E-9 , E-21    D-11 , D-23    B-2 , B-14" + Chr$(10) + "A-4 , A-16    G-6   , G-18"
ElseIf y = 7 Then
Label1 = "Re"
Label6 = "E-10 , E-22    D-0 , D-12    B-3 , B-15" + Chr$(10) + "A-5   , A-17    G-7 , G-19"
ElseIf y = 8 Then
Label1 = "Mi b"
Label6 = "E-11 , E-23    D-1 , D-13    B-4 , B-16" + Chr$(10) + "A-6   , A-18    G-8 , G-20"
ElseIf y = 9 Then
Label1 = "Mi"
Label6 = "E-0 , E-12    D-2 , D-14    B-5 , B-17" + Chr$(10) + "A-7 , A-19    G-9 , G-21"
ElseIf y = 10 Then
Label1 = "Fa"
Label6 = "E-1 , E-13    D-3   , D-15    B-6 , B-18" + Chr$(10) + "A-8 , A-20    G-10 , G-22"
ElseIf y = 11 Then
Label1 = "Fa #"
Label6 = "E-2 , E-14    D-4   , D-16    B-7 , B-19" + Chr$(10) + "A-9 , A-21    G-11 , G-23"
End If
ElseIf x$ = "b" Or x$ = "B" Then
y = y Mod 12
If y = 0 Then
Label1 = "Si"
Label6 = "E-7 , E-19    D-9 , D-21    B-0 , B-12" + Chr$(10) + "A-2 , A-14    G-4 , G-16"
ElseIf y = 1 Then
Label1 = "Do"
Label6 = "E-8 , E-20    D-10 , D-22    B-1 , B-13" + Chr$(10) + "A-3 , A-15    G-5   , G-17"
ElseIf y = 2 Then
Label1 = "Do #"
Label6 = "E-9 , E-21    D-11 , D-23    B-2 , B-14" + Chr$(10) + "A-4 , A-16    G-6   , G-18"
ElseIf y = 3 Then
Label1 = "Re"
Label6 = "E-10 , E-22    D-0 , D-12    B-3 , B-15" + Chr$(10) + "A-5   , A-17    G-7 , G-19"
ElseIf y = 4 Then
Label1 = "Mi b"
Label6 = "E-11 , E-23    D-1 , D-13    B-4 , B-16" + Chr$(10) + "A-6   , A-18    G-8 , G-20"
ElseIf y = 5 Then
Label1 = "Mi"
Label6 = "E-0 , E-12    D-2 , D-14    B-5 , B-17" + Chr$(10) + "A-7 , A-19    G-9 , G-21"
ElseIf y = 6 Then
Label1 = "Fa"
Label6 = "E-1 , E-13    D-3   , D-15    B-6 , B-18" + Chr$(10) + "A-8 , A-20    G-10 , G-22"
ElseIf y = 7 Then
Label1 = "Fa #"
Label6 = "E-2 , E-14    D-4   , D-16    B-7 , B-19" + Chr$(10) + "A-9 , A-21    G-11 , G-23"
ElseIf y = 8 Then
Label1 = "Sol"
Label6 = "E-3   , E-15    D-5 , D-17    B-8 , B-20" + Chr$(10) + "A-10 , A-22    G-0 , G-12"
ElseIf y = 9 Then
Label1 = "Sol #"
Label6 = "E-4   , E-16    D-6 , D-18    B-9 , B-21" + Chr$(10) + "A-11 , A-23    G-1 , G-13"
ElseIf y = 10 Then
Label1 = "La"
Label6 = "E-5 , E-17    D-7 , D-19    B-10 , B-22" + Chr$(10) + "A-0 , A-12    G-2 , G-14"
ElseIf y = 11 Then
Label1 = "Si b"
Label6 = "E-6 , E-18    D-8 , D-20    B-11 , B-23" + Chr$(10) + "A-1 , A-13    G-3 , G-15"
End If
End If
Else
MsgBox "Lutfen girisi E,A,D,G,B seklinde yapiniz...", 48, "HATA"
End If
Else
MsgBox "Lutfen perde numarasini bir sayi olarak giriniz", 48, "HATA"
End If
End Sub

Private Sub command2_click()
End
End Sub