Vb is there a text generator matrix code-CodePudding

The following

* * * * * * * * * * * * * * * * *
* * * * *
* * * * * * * * * * * * * * *
* * * * *
* * * * * * * * * * * * * * * * * *

The corresponding 0 1 2 3

CodePudding user response:

 Private Sub Command1_Click () 
Dim As Long y 
Dim x As Long 
Dim As Long c 
Dim h As Long 
Dim w As Long 
Form1. ScaleMode=3 'Pixel 
Form1. Print "0123"; 
H=12 
W=6 
For c=0 To 3 
For y=0 To h - 1 
For x=0 To 1 
 w -If Form1. Point (c * w + x, y)=0 Then 
Form1. CurrentX=25 + + x (w) (c *) * 8 
Form1. CurrentY=15 + y * 8 
Form1. Print "*"; 
End the If 
Next 
Next 
Next 
End Sub