Şimdi ELimde bir programın kodları var string girdiğimiz 1 karekteri ascii ye çevirio ve hemen altındaki bölümde girdiğimiz ascii kodunu string ifadece çeviriyor ama sadece 1 karakterlik çevirmeler yapıyor

Kaynak Kodlar:
Private Sub Command1_Click()
a = Text1.Text
a = Asc(a)
Text2.Text = Str(a)
End Sub

Private Sub Command2_Click()
b = Text3.Text
b = Val(b)
If b > 255 Then GoTo son
b = Chr(b)
Text4.Text = b
son:
End Sub


Arkadaşlar ben mesela text1.text e forumtr değeri girdim o program 5 harfinde ascii sini yanyana text2 kutusunda göstermesini nası saĞLAYABİLİRİM

2. örneğin yanyana ascii kodlarını verdi dielim onu topluca text3.text e yazdıkdan sonra text4 kutusunda forumtr yazısını göstermek istiom bunu nası yapabilirim yardımlarınız için çok teşekkürler

basit olarak şöyle yapabilirsin:

kod:

S = "forumtr"
For i = 1 To Len(S)
Text1.Text = Text1.Text & "-" & Asc(Mid(S, i, 1))
Next i
' bu kod "forumtr" askii kodunu text1 içine yazar. tırnak ile ayırarak tabi

----------------------------------------

s = "12-34-35-78-112"
ST1 = Split(s, "-")
For Each i In ST1
Text1.Text = Text1.Text & Chr(i)
Next i

'bu kodda tırnak içinde verilen sayıları katara çevirir. gerisini kendin keliştirirsin . fikir vermek açısından yazdım. kodları denedim çalışıyor

Sana Ne kadar teşekkür etsem az valla çok güzel oldu

Şimdi bi sorunum daha var

ya ben bi mdi form yaptım bi butona tıklayınca form1.show komutuyla sdi formu gösteriyor ama sdi form mdi form un sınırlarında açılıo yani onun penceresenini dışına çıkamıyor
ben bir msgbox gibi olmasını istiorum o sdi formun yani isteniğin yere çekebilcen mdi dan bağımsız bunu nası yapabilirim

iki önerim var:
1-formların child özelliği vardır o özelliğe false değerini ata
ondan sonra MDİ kapsamından çıkacağını tahmin ediyorum.

2-)MDi formu kullanmayabilirsin. böylece bir sorun kalmaz.

ya abi birden fazla form için mdi kullanmak gerkemiomu ?

bide mdi ın ekranı kapla tuşunu iptal edemezmisyiz sdi da bu properties penceresinden oluodu mdi a göremedim ama

s = "12-34-35-78-112"
ST1 = Split(s, "-")
For Each i In ST1
Text1.Text = Text1.Text & Chr(i)
Next i
ben bu ksımı calıştırmadım yardımcı olurmusunuz???
splitte hatta verdi bana acil lazım bu kısım