text1 visual basic 6.0 kodlarındaki nesnede bulunuyor. Textbox1 ise visual basic.net için kullanılan nesne sen kodları 6.0 da kullandıysan sorunla karşılaşmış olabilirsindoğrudur.
ben senin kodların üzerine biraz daha ekleme yaptım.sahneye 1 text bir de buton ciz kod bölümüne sadece bukodları n yazın artık 4 basamak değil istediğiniz kadar basamaklı sayı girin hapsini basamagını topluyor yanlız bu kodlar visual basic 6.0 a göre :
Private Sub Command1_Click()
a = Len(Text1.Text)
For i = 1 To a
z = (Text1.Text \ (10 ^ (i - 1))) Mod 10
toplam = toplam + z
Next
MsgBox toplam
End Sub
UYARI: SANALKURS'ta yer alan materyaller ile ilgili her türlü sorumluluk hazırlayan veya gönderene aittir. SANALKURS'ta yer alan hiçbir makale, yazarından izinsiz başka bir yerde yayınlanamaz. SANALKURS kullanıcıları ve üyeleri, üçüncü kişilerin telif hakkı sahibi bulunduğu her türlü fikri eser, fotoğraf, resim vb. materyal ve ürünleri kullanamazlar. SANALKURS kullanıcı ve yazarlarının, üçüncü kişilerin telif hakkı sahibi olduğu yazı, resim vb. ürünleri kullanması durumunda, her türlü hukuki ve cezai sorumluluk kendilerine aittir. Söz konusu haksız kullanım nedeniyle SANALKURS .NET'in hiçbir hukuki sorumluluğu bulunmamakta olup, haksız kullanım nedeniyle SANALKURS.NET'in üçüncü kişilere ödemek zorunda kalabileceği her türlü tazminat ve/veya adli/idari para cezaları ilgili Sanalkurs kullanıcılarından rücu edilecektir.