TextBox’a girilen değer kadar form’a yıldızlı üçgen çizme Vb.Net

TextBox’a girilen değer kadar form’a yıldızlı üçgen çizme Vb.Net 

Daha fazla örnek için  www.gorselprogramlama.com 

Soru : TextBox’a girilen değer kadar form’a yıldız (*) karakteri ile üçgen çizen programın kodlarını yazınız.Sorunun Form görüntüsü yukarıdadır. 

[code language=”vbnet”] 

Public Class Form1 

Dim g As Graphics 

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click 

Dim i, j As Integer 

For i = 1 To Val(TextBox1.Text) 

For j = 1 To i 

Me.CreateGraphics.DrawString("*", New Font("arial", 30), New SolidBrush(Color.Red), j * 15, i * 15) 

Next j 

Next i 

End Sub 

End Class 

‘Daha fazla örnek için  www.gorselprogramlama.com 

[/code]

Daha fazla örnek için  www.gorselprogramlama.com