Selamün Aleyküm vb.net i öğrenmeye çalışıyorum ve bunun için küçük programlar yazmaya başladım 2 tane program yazdım ve 2 sindede ters giden birşeyler var önce ilkinden başlayım
Programın adı "Cheat Engine Eğitim Programı" Programın ilk aşamasını bitirdim. Programın amacı Cheat Engine yi ilk defa açtığınızda gelen tutorial i türkçeleştirmek 2 görüntü atayım programdan zaten 2 form var şimdilik
evet program böyle şimdi size yapamadığım yeri anlatayım
PROGRAMDAKİ DEĞER CHEAT ENGİNEDE ÇIKMIYO
kodla alakalı birşey olduğunu sanmıyorum programın linki burda birr deneyin olmuyo
PROGRAMI İNDİR
VİRUSTOTAL
--> Ve bir sorum daha olucak ben bunu kaydettim ama açamıyorum nasıl açıcam
-------------------------------------------------------------------------------------------------------
2. sorunum bir de hesap makinası yaptım
bundada hakkında bölümüne tıkladığımda önce ses geliyo sonra msgbox ikisinin aynı anda gelmseini nasıl sağlarım and veya onun gibi bir komutlamı
ve tüm kodları görmek isteyenler için
YARDIMCI OLURSANIZ ÇOK SEVİNİRİM
Programın adı "Cheat Engine Eğitim Programı" Programın ilk aşamasını bitirdim. Programın amacı Cheat Engine yi ilk defa açtığınızda gelen tutorial i türkçeleştirmek 2 görüntü atayım programdan zaten 2 form var şimdilik
evet program böyle şimdi size yapamadığım yeri anlatayım
PROGRAMDAKİ DEĞER CHEAT ENGİNEDE ÇIKMIYO
kodla alakalı birşey olduğunu sanmıyorum programın linki burda birr deneyin olmuyo
PROGRAMI İNDİR
VİRUSTOTAL
--> Ve bir sorum daha olucak ben bunu kaydettim ama açamıyorum nasıl açıcam
-------------------------------------------------------------------------------------------------------
2. sorunum bir de hesap makinası yaptım
bundada hakkında bölümüne tıkladığımda önce ses geliyo sonra msgbox ikisinin aynı anda gelmseini nasıl sağlarım and veya onun gibi bir komutlamı
Kod:
[B] Private Sub Button6_Click(sender As Object, e As EventArgs) Handles Button6.Click
oku.speak("This software is written by Jacob for education")
MsgBox("Bu program Yakup tarafından eğitim amaçlı yazılmıştır." & Chr(13) & "This software is written by Jacob for education", MsgBoxStyle.Information, "Hakkında")
End Sub[/B]
Kod:
Imports System.Threading
Public Class Form1
Dim ilk As Integer
Dim iki As Integer
Dim oku = CreateObject("SAPI.spvoice")
Private Sub Label1_Click(sender As Object, e As EventArgs)
End Sub
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
If TextBox1.Text <> "" And IsNumeric(TextBox1.Text) And TextBox2.Text <> "" And IsNumeric(TextBox1.Text) Then
TextBox3.Text = Val(TextBox1.Text) + Val(TextBox2.Text)
Else : MsgBox("Lütfen sayı giriniz")
TextBox1.Clear()
TextBox2.Clear()
TextBox3.Clear()
End If
End Sub
Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
If TextBox1.Text <> "" And IsNumeric(TextBox1.Text) And TextBox2.Text <> "" And IsNumeric(TextBox1.Text) Then
TextBox3.Text = Val(TextBox1.Text) - Val(TextBox2.Text)
Else : MsgBox("Lütfen sayı giriniz")
TextBox1.Clear()
TextBox2.Clear()
TextBox3.Clear()
End If
End Sub
Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click
If TextBox1.Text <> "" And IsNumeric(TextBox1.Text) And TextBox2.Text <> "" And IsNumeric(TextBox1.Text) Then
TextBox3.Text = Val(TextBox1.Text) * Val(TextBox2.Text)
Else : MsgBox("Lütfen sayı giriniz")
TextBox1.Clear()
TextBox2.Clear()
TextBox3.Clear()
End If
End Sub
Private Sub Button4_Click(sender As Object, e As EventArgs) Handles Button4.Click
If TextBox1.Text <> "" And IsNumeric(TextBox1.Text) And TextBox2.Text <> "" And IsNumeric(TextBox1.Text) Then
TextBox3.Text = Val(TextBox1.Text) / Val(TextBox2.Text)
Else : MsgBox("Lütfen sayı giriniz")
TextBox1.Clear()
TextBox2.Clear()
TextBox3.Clear()
End If
End Sub
Private Sub Button5_Click(sender As Object, e As EventArgs) Handles Button5.Click
oku.speak(TextBox3.Text)
End Sub
Private Sub Button6_Click(sender As Object, e As EventArgs) Handles Button6.Click
oku.speak("This software is written by Jacob for education")
MsgBox("Bu program Yakup tarafından eğitim amaçlı yazılmıştır." & Chr(13) & "This software is written by Jacob for education", MsgBoxStyle.Information, "Hakkında")
End Sub
Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
End Sub
Private Sub Button7_Click(sender As Object, e As EventArgs) Handles Button7.Click
TextBox1.Clear()
TextBox2.Clear()
TextBox3.Clear()
End Sub
End Class
