staticiation

ilk önce formumuza 6 adet option düğmesi(optionbox),
3 tane komut butonu(command button),
2 tane çerçeve(frame),
8 tane etiket(label),
8 tane metin kutusu(textbox) nu şekildeki gibi yerleştiriyoruz...


formumuzun görüntüsü aşağıdaki gibi olacaktır...




isterseniz formdaki nesneleri properties(özellikler) penceresini kulanarak caption(adlarını) değiştirebilirsiniz...ben öyle yaptım


daha donra programımızı kodlamaya başlıyalım....

Private Sub Command1_Click()
If Option1.Value = True Then 'true olması option butonunun seçilmiş olduğunu gösterir...
Label9.Caption = (Val(Text1) * 0.75) + (Val(Text2) * 0.527) + (Val(Text3) * 2.226) + (Val(Text4) * 2.218) + 128.37'eğer text kusunun içeriğinde bir sayı söz konusu ise bu sayıyı öğrenirken val komutunu kullanmamız yanlışlıkların önüne geçmek için iyi olacaktır...çarpılan sayılar ise netlerin katlsayıları olacaktır...
End If'if bloğu sona erdi...
If Option2.Value = True Then
Label9.Caption = (Val(Text1) * 2.549) + (Val(Text2) * 1.886) + (Val(Text3) * 0.682) + (Val(Text4) * 0.648) + 127.05
End If
If Option3.Value = True Then
Label9.Caption = (Val(Text1) * 2.128) + (Val(Text2) * 0.842) + (Val(Text3) * 2.138) + (Val(Text4) * 0.677) + 126.202'burada dikkat edilmesi gereken programın düzgün çalışabilmesi için puanı nereden hesaplanıcaksa (örnek :sayısal1,sözel2 vs.)o bölümün katsayıları doğru kodlanmalıdır...
End If
If Option4.Value = True Then
Label9.Caption = (Val(Text1) * 0.801) + (Val(Text2) * 0.563) + (Val(Text3) * 1.191) + (Val(Text4) * 1.187) + (Val(Text7) * 1.372) + (Val(Text8) * 1.045) + 115.158
End If
If Option5.Value = True Then
Label9.Caption = (Val(Text1) * 1.219) + (Val(Text2) * 0.901) + (Val(Text3) * 0.653) + (Val(Text4) * 0.62) + (Val(Text5) * 1.323) + (Val(Text6) * 1.163) + 123.568
End If
If Option6.Value = True Then
Label9.Caption = (Val(Text1) * 1.056) + (Val(Text2) * 0.838) + (Val(Text3) * 1.061) + (Val(Text4) * 0.672) + (Val(Text5) * 1.149) + (Val(Text7) * 1.22) + 120.12
End If
End Sub

Private Sub Command2_Click()
MsgBox "Programın 2005-2006 verilerine göre sonuç bulmaktadır. Bu sene netleriniz yeni katsayılar ile çarpılacağından, program kesin sonuç vermez yalnız yaklaşık puanlarınızı hesaplar. by staticiation
End Sub


End Sub

Private Sub Frame1_DragDrop(Source As Control, X As Single, Y As Single)burada çerçevelerin değişken özellikleri kodlanıyor...
End Sub

Private Sub Frame2_DragDrop(Source As Control, X As Single, Y As Single)burada çerçevelerin değişken özellikleri kodlanıyor...

End Sub

Private Sub Label5_Click()

End Sub

Private Sub Text1_Click()
Text1 = ""çift tırnak simgesi text e tıklandığında text in içeriğinin boşaltılacağını gösterir...
End Sub
Private Sub Text2_Click()
Text2 = ""
End Sub
Private Sub Text3_Click()
Text3 = ""
End Sub
Private Sub Text4_Click()
Text4 = ""
End Sub
Private Sub Text5_Click()
Text5 = ""
End Sub
Private Sub Text6_Click()
Text6 = ""
End Sub
Private Sub Text7_Click()
Text7 = ""
End Sub
Private Sub Text8_Click()
Text8 = ""
End Sub
Private Sub Text2_GotFocus()Bir metin kutusunun içeriğinin TAB tuşuyla veya başka bir şekilde aktif olmasıyla seçilmesini, aşağıdaki kodları metin kutusunun Got_Focus özelliğine ekleyerek sağlayabilirsiniz.
Text2 = ""
End Sub
Private Sub Text3_GotFocus()
Text3 = ""
End Sub
Private Sub Text4_GotFocus()
Text4 = ""
End Sub
Private Sub Text5_GotFocus()
Text5 = ""
End Sub
Private Sub Text6_GotFocus()
Text6 = ""
End Sub
Private Sub Text7_GotFocus()
Text7 = ""
End Sub
Private Sub Text8_GotFocus()
Text8 = ""
End Sub


programımız bitti... ama size görsel olarak güzel şeyler veremıyorum...program ın görüntüsü aşağıdaki gibi olacaktır.. siz ona göre nesnelerin isimlerini değiştirebilirsiniz ...ama program gayet guzel çalışıyor... bu programı her kullandığınızda beni hatırlayın...



2007 ÖSS PUAN HESABI TIKLA dosya boyutu 5.46 kbyte
ALTERNATİF LİNK
rar şifresi yok...
bystaticiation
ALINTI DEĞİLDİR ALAYINI KENDİM YAPTIM....

entegre

butur derslerin devamını bekliyorum teşekkürler