QB64.org Forum

Active Forums => Programs => Topic started by: TempodiBasic on May 07, 2021, 05:23:44 pm

Title: ASCII squared pattern demo
Post by: TempodiBasic on May 07, 2021, 05:23:44 pm

Hi QB64 community
here a little demo of ASCII pattern art
the program prints a pattern of simmetric image in a square stamp.

Code: QB64: [Select]

1. DefInt I
2. Const True = -1, False = 0, It = 10, En = 20
3. Dim iPlay, inpNum, iTotc, iLang, a As String
4. iLang = False
5. iPlay = True
6. While iLang = False
7.     Locate 10, 28
8.     Print "Choose language... IT or EN "
9.     a = UCase$(InKey$)
10.     If Len(a) > 0 Then
11.         If Asc(a) = 69 Then iLang = En
12.         If Asc(a) = 73 Then iLang = It
13.     End If
14. Wend
15.  
16. While iPlay = True
17.     guida iLang
18.     Input inpNum
19.     If inpNum > 0 And inpNum <= 10 Then
20.         iTotc = (2 * inpNum) + (2 * (inpNum - 1))
21.         ' met… superiore
22.         For iCount = 1 To inpNum Step 1
23.             StampaSpazio (iCount - 1) ' spazi iniziali
24.             StampaNum (iCount) ' cifra in *
25.             StampaSpazio (iTotc - 2 * (iCount - 1) - (2 * iCount)) 'spazi intermedi
26.             StampaNum (iCount) 'cifra in *
27.             StampaSpazio (iCount - 1) 'spazi finali
28.             Print
29.         Next
30.  
31.         For iCount = inpNum To 0 Step -1
32.             StampaSpazio (iCount - 1) 'spazi all'inizio
33.             StampaNum (iCount) ' cifra in *
34.             StampaSpazio (iTotc - 2 * (iCount - 1) - (2 * iCount)) 'spazi intermedi
35.             StampaNum (iCount) ' cifra in *
36.             StampaSpazio (iCount - 1)
37.             Print
38.         Next
39.     End If
40.     If inpNum = 0 Then iPlay = False
41. Wend
42. End
43.  
44. Sub guida (iL As Integer)
45.     If iL = It Then
46.         Print " Questo programma disegna un pattern quadrato in base al numero immesso"
47.         Print " prego inserire un numero da 1 a 10 e 0 per terminare"
48.     ElseIf iL = En Then
49.         Print " This program draws a pattern squared on the number of input taken"
50.         Print " please insert a number from 1 to 10 and 0 to quit program "
51.     End If
52. End Sub
53.  
54. Sub StampaSpazio (iChar)
55.     Dim iCount As Integer
56.     For iCount = 0 To iChar Step 1
57.         Print " ";
58.     Next
59. End Sub
60.  
61. Sub StampaNum (iChar)
62.     Dim iCount As Integer
63.     For iCount = 1 To iChar Step 1
64.         Print "*";
65.     Next
66. End Sub

Thanks to take a look.

Title: Re: ASCII squared pattern demo
Post by: bplus on May 07, 2021, 07:02:15 pm

That's pretty good for ASCII :)

Title: Re: ASCII squared pattern demo
Post by: TempodiBasic on May 09, 2021, 12:06:40 pm

@bplus
we must wait for Pete's judgement, the King of ASCII. ;)

This my code is a procedural solution about the task but I think that it can be solved using a math model for calculations to drive the output.

It needs more research.

Text Only | Text with Attachments