Power

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