S.a herkeze.Vb ile ilgili fazla ilgilenemiyorum.Delphi ve C bölümüne ders hazırlıyoruz sürekli.Ufak bir fırsatım oldu sizin için incelemeniz açısından basit bir uygulama yazdım bugün..
Ücreti giriyorsunuz Kdv cinsinden dahil ve haricini hesaplayıp yazdırıyoruz.Vergisinide hesaplıyor.

CODE:

Public Ucret As Double

Public Vergi As Double

Public KDV08 As Double

Public KDV18 As Double





Private Sub Command1_Click()



List1.Clear

KDV08 = Ucret * 0.08





KDV18 = Ucret * 0.18



List1.AddItem (Now)

List1.AddItem ("*******************************************************************************************************")

List1.AddItem ("Ücret                                               :  " & Ucret)

List1.AddItem ("KDV %08                                           :  " & KDV08)

List1.AddItem ("TOPLAM + KDV%08                            :  " & Ucret + KDV08)

List1.AddItem ("KDV %18                                           :  " & KDV18)

List1.AddItem ("TOPLAM + KDV%18                            :  " & Ucret + KDV18)



If Ucret >= 400 Then



Select Case Ucret

Case 100 To 200

Vergi = Ucret * 0.2

Case 201 To 300

Vergi = Ucret * 0.25

Case 301 To 400

Vergi = Ucret * 0.3



End Select



ElseIf Ucret < 400 Then

Vergi = Ucret * 0.4

End If



List1.AddItem  ("Vergi                                                :  " & Vergi)

List1.AddItem  ("******************************************************************************************************")

End Sub



Private Sub Text1_Change()



Ucret = CDb1 (Text1.Text)



End Sub

edit/reklam yasak