Typwnontas enan Rimvo

Συζητήσεις για τις γλώσσες του dot Net και για του Visual Studio της Microsoft

Συντονιστές: WebDev Moderators, Super-Moderators

Απάντηση
Άβαταρ μέλους
Basilakis
PHP Moderator
Δημοσιεύσεις: 8574
Εγγραφή: 17 Νοέμ 2003 13:03
Τοποθεσία: Womans' Brain
Επικοινωνία:

Typwnontas enan Rimvo

Δημοσίευση από Basilakis » 04 Μάιος 2009 19:42

thelw na tipwsw to parakatw

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

Twra den kserw ean to petixa me ta diamantakia m :P

Exw afto

Κώδικας: Επιλογή όλων

Dim I As Long
For I = 5 To 1 Step -1
     Form1.Print Space(I - 1) + "*"
Next I
For I = 0 To 4
    Form1.Print Space(I) + "*"
Next I
alla mou dinei tin mia plevra tou diamiantiou... ti prepei na kanw gia na pernw kai ti defterh?

Άβαταρ μέλους
Basilakis
PHP Moderator
Δημοσιεύσεις: 8574
Εγγραφή: 17 Νοέμ 2003 13:03
Τοποθεσία: Womans' Brain
Επικοινωνία:

Typwnontas enan Rimvo

Δημοσίευση από Basilakis » 04 Μάιος 2009 20:18

Δουλεύωντας το λίγο ακόμη έβγαλα άκρη

Κώδικας: Επιλογή όλων

Dim addspace As Integer
Private Sub Command1_Click()
    addspace = 0
    For I = 5 To 1 Step -1
        Form1.Print Space(I - 1) + "*" + Space(addspace) + "*"
        addspace = addspace + 2
    Next I
    addspace = 8
    For I = 0 To 4
        Form1.Print Space(I) + "*" + Space(addspace) + "*"
        addspace = addspace - 2

    Next I
    
End Sub
Αλλα θέλω, να βάζω ένα κείμενο στο text box και να μου τυπώνει το κείμενο αυτό στην θέση των αστεριών σε μορφή ρόμβου! Αλλα αυτό που έκανα είναι τερατούργημα :)

Κώδικας: Επιλογή όλων

Dim textform As String
Dim addspace As Integer
Dim I, y As Integer

Private Sub Command1_Click()
textform = Trim(Text1.Text)
addspace = 0
If textform = "" Then
MsgBox "Grapse kati re"
Else
For y = 1 To Len(textform)
    For I = 5 To 1 Step -1
        Form1.Print Space(I - 1) + Mid(textform, y, 1) + Space(addspace) + Mid(textform, y, 1)
        addspace = addspace + 2
    Next I
          Next y
    SpaceBetweenAsterisk = 8
    For y = 1 To Len(textform)
        For I = 0 To 4
            Form1.Print Space(I) + Mid(textform, y, 1) + Space(addspace) + Mid(textform, y, 1)
            addspace = addspace - 2
    Next I
    Next y
    End If
    
End Sub

Απάντηση

Επιστροφή στο “dot Net και Visual Studio”

Μέλη σε σύνδεση

Μέλη σε αυτήν τη Δ. Συζήτηση: Δεν υπάρχουν εγγεγραμμένα μέλη και 0 επισκέπτες