text e girilen sayı ytl tarzında yazılacak ve bunlar toplanacak yani dikkat edilmesi gereken şey ytl cinsinden girilip toplanması bunun kodları nasıl??bilen varmı?
forma 1 text ve 1 tanede command ekle ve aşağıdaki kodları command1'in click olayına yapıştır.
Private Sub Command1_Click()
If Val(Text1.Text) >= 1000000 Then
Text1.Text = Val(Text1.Text) / 1000000
Text1.Text = Text1.Text & " YTL"
ElseIf Val(Text1.Text) < 1000000 Then
Text1.Text = Val(Text1.Text) / 10000
Text1.Text = Text1.Text & " Kuruş"
End If
End Sub
kolay gelsin
eğer microsoft wordde yapcaksan
yine bir command ve bir text ekle ve kod bölümüne aşağıdakileri yaz
Private Sub CommandButton1_Click()
If Val(TextBox1.Text) >= 1000000 Then
TextBox1.Text = Val(TextBox1.Text) / 1000000
TextBox1.Text = TextBox1.Text & " YTL"
ElseIf Val(TextBox1.Text) < 1000000 Then
TextBox1.Text = Val(TextBox1.Text) / 10000
TextBox1.Text = TextBox1.Text & " Kuruş"
End If
End Sub