Programalama > VISUAL BASIC.NET

Private Sub Check1_Click()
yuzde = 18

If Check1.Value = 1 Then
Check1.Caption = " KDV DAHİL "
  Text4 = Abs((Text4 * yuzde / 100) + Text4)
End If

If Check1.Value = 0 Then
 Check1.Caption = " KDV DAHİL DEĞİLDİR "
 Text4 = Val(Text2) * Val(Text3)
End If

Text4 = Format(Text4, "#,##0.00;(#,##0.00)")
End Sub

Private Sub Command1_Click()
yuzde = InputBox("Uygulamak İstediğiniz İndirim Yüzdesini (%) Giriniz!", "İndirim Uygulama", "0")
If yuzde = Cancel = True Then Exit Sub

    sonuc = Abs((Text4 * yuzde / 100) - Text4)
    Label5.Caption = Format(sonuc, "#,##0.00")
    
End Sub


Private Sub Option1_Click()
If Option1.Value = True Then Text1 = Option1.Caption
Text2.SetFocus
End Sub

Private Sub Option2_Click()
If Option2.Value = True Then Text1 = Option2.Caption
Text2.SetFocus
End Sub

Private Sub Option3_Click()
If Option3.Value = True Then Text1 = Option3.Caption
Text2.SetFocus
End Sub
Private Sub Option4_Click()
If Option4.Value = True Then Text1 = Option4.Caption
Text2.SetFocus
End Sub
Private Sub Option5_Click()
If Option5.Value = True Then Text1 = Option5.Caption
Text2.SetFocus
End Sub
Private Sub Option6_Click()
If Option6.Value = True Then Text1 = Option6.Caption
Text2.SetFocus
End Sub

Private Sub Text2_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then Text3.SetFocus
End Sub

Private Sub Text2_LostFocus()
Text2 = Format(Text2, "#,##0.00;(#,##0.00)")
End Sub



Private Sub Text3_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
toplam = Val(Text2) * Val(Text3)
End If

Text4 = Format(toplam, "#,##0.00;(#,##0.00)")
End Sub

Private Sub Text3_LostFocus()
toplam = Val(Text2) * Val(Text3)
Text4 = Format(toplam, "#,##0.00;(#,##0.00)")
End Sub



derya duymamış
derya_cantry.1686@hotmail.com