Колега помогнете , как да задам на Label1.Caption да върти буквите от азбуката ? Евентуално Timer , но нямам и дея как да стане

Нямам кой знае какви познания във VB, но от обща култура бих препоръчал да пробваш да си напълниш едномерен масив с буквите от азбуката и после с for цикъл да минаваш през стойностите на масива.

Редактирано 17 декември 201114 г. от Disasterpiece (преглед на промените)

Колега помогнете ,

как да задам на Label1.Caption да върти буквите от азбуката ? Евентуално Timer , но нямам и дея как да стане

Public Class Form1
    Dim count As Integer

    Private Sub Timer1_Tick(sender As System.Object, e As System.EventArgs) Handles Timer1.Tick
	    count = (count Mod 26) + 1
	    Label1.Text = Chr(count + 64)
    End Sub

    Private Sub Form1_Shown(sender As System.Object, e As System.EventArgs) Handles MyBase.Shown
	    Timer1.Enabled = True
	    count = 0
    End Sub
End Class

Public Class Form1
	Dim count As Integer

	Private Sub Timer1_Tick(sender As System.Object, e As System.EventArgs) Handles Timer1.Tick
		count = (count Mod 26) + 1
		Label1.Text = Chr(count + 64)
	End Sub

	Private Sub Form1_Shown(sender As System.Object, e As System.EventArgs) Handles MyBase.Shown
		Timer1.Enabled = True
		count = 0
	End Sub
End Class

Ken този код работи , но върти англ. азбука с няколко ненужни символа , да речем че имам този масив :

bg_azbuka.Add ("А")

bg_azbuka.Add ("Б")

bg_azbuka.Add ("В")

bg_azbuka.Add ("Г")

bg_azbuka.Add ("Д")

bg_azbuka.Add ("Е")

bg_azbuka.Add ("Ж")

bg_azbuka.Add ("З")

bg_azbuka.Add ("И")

bg_azbuka.Add ("Й")

bg_azbuka.Add ("К")

bg_azbuka.Add ("Л")

bg_azbuka.Add ("М")

bg_azbuka.Add ("Н")

bg_azbuka.Add ("О")

bg_azbuka.Add ("П")

bg_azbuka.Add ("Р")

bg_azbuka.Add ("С")

bg_azbuka.Add ("Т")

bg_azbuka.Add ("У")

bg_azbuka.Add ("Ф")

bg_azbuka.Add ("Х")

bg_azbuka.Add ("Ц")

bg_azbuka.Add ("Ч")

bg_azbuka.Add ("Ш")

bg_azbuka.Add ("Щ")

bg_azbuka.Add ("Ъ")

bg_azbuka.Add ("Ю")

bg_azbuka.Add ("Я")

Как да сглобя кода така че да се получи желания резултат ( примерно чрез for цикъл)

Не знам bg_azbuka от какъв тип е, но с един нормален масив - bg_azbuka(0 to 28) as string или bg_azbuka(0 To 28) As Char, би изглеждало така:

Private Sub Timer1_Tick(sender As System.Object, e As System.EventArgs) Handles Timer1.Tick
		Count = (Count Mod 29) + 1
		Label1.Text = bg_azbuka(Count - 1)
		End Sub

Редактирано 18 декември 201114 г. от Ken (преглед на промените)

Мерси Ken блестиш както винаги , с малко преработка се получи перфектно ! За да не пускам нова тема - менюто ми е на бг. и разбирасе при неправилно кофигуриран Windows излизат вапросителни и маймунки да знаеш някакво решение на този проблем ?

Редактирано 18 декември 201114 г. от slav4opk (преглед на промените)