ایجاد شکل ستاره

[s3t]

این برنامه رو نوشتم ولی بهینه نیست!!!:41:ممنون میشم اگه یه روشی دیگه که این َشکل ستاره رو تولید کنه (بهینه و با توضیح) کد برنامه خودم به این صورته:)

Private Sub Command1_Click()
a = 0
tf = True
While (tf)
Print Spc(2); ("*");
q = q + 1
a = a + 1
If a = 12 Then
Print
Print Spc(2);
End If
If a = 22 Then
Print
Print Spc(5);
End If
If a = 30 Then
Print
Print Spc(8);
End If
If a = 36 Then
Print
Print Spc(11);
End If
If a = 40 Then
Print
Print Spc(14);
End If
If a = 42 Then
Print
Print Spc(18);
Print "*";
Print
Print Spc(16);
End If
If a = 43 Then
Print
Print Spc(15);
End If
If a = 45 Then
Print
Print Spc(12);
End If
If a = 49 Then
Print
Print Spc(9);
End If
If a = 55 Then
Print
Print Spc(6);
End If
If a = 63 Then
Print
Print Spc(3);
End If
If a = 73 Then
Print
Print Spc(-1);
End If
If a = 85 Then
tf = False
End If
Wend
End Sub
کد رو واسم به این آدرس بفرستید»»مرسی:40:s3t.Dance@yahoo.com

[sosani2007]

این برنامه رو نوشتم ولی بهینه نیست!!!:41:ممنون میشم اگه یه روشی دیگه که این َشکل ستاره رو تولید کنه (بهینه و با توضیح) کد برنامه خودم به این صورته:)
Private Sub Command1_Click()
a = 0
tf = True
While (tf)
Print Spc(2); ("*");
q = q + 1
a = a + 1
If a = 12 Then
Print
Print Spc(2);
End If
If a = 22 Then
Print
Print Spc(5);
End If
If a = 30 Then
Print
Print Spc(8);
End If
If a = 36 Then
Print
Print Spc(11);
End If
If a = 40 Then
Print
Print Spc(14);
End If
If a = 42 Then
Print
Print Spc(18);
Print "*";
Print
Print Spc(16);
End If
If a = 43 Then
Print
Print Spc(15);
End If
If a = 45 Then
Print
Print Spc(12);
End If
If a = 49 Then
Print
Print Spc(9);
End If
If a = 55 Then
Print
Print Spc(6);
End If
If a = 63 Then
Print
Print Spc(3);
End If
If a = 73 Then
Print
Print Spc(-1);
End If
If a = 85 Then
tf = False
End If
Wend
End Sub
کد رو واسم به این آدرس بفرستید»»مرسی:40:s3t.Dance@yahoo.com

دمت گرم از این کدت خیلی خوشم اومد ولی این کد ساعت شنی درست می کنه نه ستاره من خودم کد ستاره رو برات سند می کنم بعداً