Program vb - kierunki

Kierunki

Program wskazuje w któryk miejscu znajdziemy się obracajšc się np. w prawo.

widok etykiety programu

Private Sub Dół_Click()
x = txt.Text
If x = "Północ" Then
txt = "Południe"
End If
If x = "Południe" Then
txt = "Północ"
End If
If x = "Wschód" Then
txt = "Zachód"
End If
If x = "Zachód" Then
txt = "Wschód"
End If
If x = "północ" Then
txt = "Południe"
End If
If x = "południe" Then
txt = "Północ"
End If
Ifx = "wschód"Then
txt = "Zachód"
End If
If x = "zachód" Then
txt = "Wschód"
End If
End Sub

Private Sub Lewy_Click()
x = txt.Text
If x = "Północ" Then
txt = "Zachód"
End If
Ifx = "Zachód" Then
txt = "Południe"
End If
If x = "Południe" Then
txt = "Wschód"
End If
If x = "Wschód" Then
txt = "Północ"
End If
If x = "północ" Then
txt = "Zachód"
End If
If x = "zachód" Then
txt = "Południe"
End If
If x = "południe" Then
txt = "Wschód"
End If
If x = "wschód" Then
txt = "Północ"
End If
End Sub

Private Sub Prawy_Click()
x = txt.Text
If x = "Północ" Then
txt = "Wschód"
End If
If x = "Wschód" Then
txt = "Południe"
End If
If x = "Południe" Then
txt = "Zachód"
End If
If x = "Zachód" Then
txt = "Północ"
End If
If x = "północ"Then
txt = "Wschód"
End If
If x = "wschód"Then
txt = "Południe"
End If
If x = "południe" Then
txt = "Zachód"
End If
If x = "zachód" Then
txt = "Północ"
End If
End Sub

Pobierz program