VB Ödevi

max1226.01.20132 cevap986 görüntüleme

2013'den beri3 mesaj

#1
26.01.2013 15:00

slm arkadaşlar benim bi ödevim var yardımcı olabilecek varsa çok sevinirim.
soru: dışarıdan girilen bir kelimeyi ekrana dikey olarak yazdıran (harfleri alt altta) programın akış diyagramını çizip vb diliyle kodlayınız? şimdiden tşk ederim..

Cevaplar

algea

2011'den beri505 mesaj

#2
26.01.2013 17:52

Aşağıdaki kodu inceleyebilirsin.

Private Sub Form_Load()
frmMain.AutoRedraw = True
End Sub

Private Sub cmdPrint_Click()
Dim retval As Integer
retval = PrintVerticalString(0, 0, "Hello World")
End Sub

Private Function PrintVerticalString(pCurX As Integer, pCurY As Integer, pText As String) As Integer
Dim FontHeight As Integer
Dim i As Integer
Dim retval As Integer

FontHeight = frmMain.TextHeight("X")
frmMain.CurrentY = pCurY
For i = 1 To Len(pText)
    frmMain.CurrentX = pCurY
    frmMain.CurrentY = FontHeight * (i - 1) + pCurY
    frmMain.Print Mid(pText, i, 1)
Next
PrintVerticalString = retval
Exit Function
End Function

max12 Konuyu açan

2013'den beri3 mesaj

#3
27.01.2013 14:25

tşkler algea kardeşim.:)

Cevabını yaz

Cevap yazmak için giriş yap ya da üye ol. Eski forum kullanıcı adın ve parolanla girebilirsin.