BU BENİM YAPTIĞIM HESAPLAMA YONTEMİ;
Private Sub Command1_Click()
Dim tuketim As Double
Dim para As Double

tuketim = InputBox("tuketim değerini girin")
If tuketim > 0 And tuketim < 151 Then
para = tuketim * 44000
ElseIf tuketim > 150 And tuketim < 301 Then
para = (150 * 44000) + ((tuketim - 30) * 66000)
ElseIf tuketim > 301 Then
para = (150 * 44000) + (150 * 66000) + ((tuketim - 30) * 75000)
End If
MsgBox ("odeyeceğiniz para=" & para)
End Sub
HOCANIN İSTEDİĞİ RANDOM VE SIRALI İKİ AYRI ŞEKİLDE,BİRİ CIKSA DİĞERİ KOLAY OLCAK.
HOCANIN İSTEDİĞİNE GORE ;
-ABONE NUMARASI
-ABONE ADI
-ABONE ADRESİ
-BİRİM FİYATI
-tuketim miktarı
Mesela 10 kişi artlalanda bilgileri girilmiş olcak mesela abone noya gore cağırcam.ordan tuketim değerini girip fatura kescem.diyelim 1 numaralı abone x kişi.1 yazınca işte bilgileri cıkcak tuketim değeri girin butonuna tıklıcaz artlalanda hesaplayıp yazcak.bide 1 numaralı abone pasif duruma gelcek bi daha goruntulenemicekmiş.yardım edin lutfen ya..
__________________