Sebelumnya kita telah berguru mengenai Expresi di Visual Basic, kali ini kita akan mengaplikasikan apa yang telah kita pelajari sebelumnya ke agenda VB, Kali ini kita aka menciptakan agenda perhitungan sederhana atau kalkulator, oke berikut tutorialnya :
1. Pertama, menyerupai biasa, buka dan jalankan visual basic, kemudian buat agenda gres Standar EXE
2. Kedua tambahkan 3 label, 3 text box, dan 4 command buttton, atur luasnya, hingga menyerupai ini :
3. Ketiga, ganti properties,
4. Jika sudah, tuliskan script berikut :
Private Sub Command1_Click()
a = Val(Text1) 'Nilai a sesuai dengan apa yang di tuliskan di text1
b = Val(Text2) 'Nilai b sesuai dengan apa yang di tuliskan di text2
c = a + b 'Nilai C ialah a + b, Jika a = 1 dan b = 2, maka nilai c = 3
Text3 = c 'Text3 = Nilai dari Variabel c
End Sub
Private Sub Command2_Click()
a = Val(Text1)
b = Val(Text2)
c = a - b
Text3 = c
End Sub
Private Sub Command3_Click()
a = Val(Text1)
b = Val(Text2)
c = a * b
Text3 = c
End Sub
Private Sub Command4_Click()
a = Val(Text1)
b = Val(Text2)
c = a / b
Text3 = c
End Sub
5. Langkah terakhir, coba jalankan agenda dan anda akan menemukan :
Program secara otomatis, muncul / di mulai dari tengah (Center Screen)
Kita tidak akan dapat melebarkan luas form, pada dikala agenda berjalan (Fixed Single)
Text3 tidak akan dapat di klik menyerupai text1 dan 2 (Enabled = false)
Itulah tutorial mengenai cara menciptakan kalkulator sederhana
sekain tutorial kali ini, Selamat mencoba
1. Pertama, menyerupai biasa, buka dan jalankan visual basic, kemudian buat agenda gres Standar EXE
2. Kedua tambahkan 3 label, 3 text box, dan 4 command buttton, atur luasnya, hingga menyerupai ini :
3. Ketiga, ganti properties,
ITEM | PROPERTIES | KETERANGAN |
Form1 | Border Style | 1. Fixed Single |
Form1 | Start Up Position | 2. Center Screen |
Label1 | Caption | Bilangan 1 |
Label2 | Caption | Bilangan 2 |
Label3 | Caption | Hasil |
Text1, 2, 3 | Text | (Kosongkan) |
Command1 | Caption | + |
Command2 | Cptionn | - |
Command3 | Caption | X |
Command4 | Caption | / |
Text3 | Enable | False |
Command 1,2,3 | Font Size | 18 |
Note :Sehingga menyerupai ini :
- Border Style Fixed Single Di Form berfungsi semoga luasr form tidak dapat di ubah ketika di jalankan
- Start Up Position "Center Screen", Agar Posisi Form ketika di jalankan berada di tengah layar
- Enable "False" Di Label3 di maksudkan semoga text3 tidak dapat gunakan.
4. Jika sudah, tuliskan script berikut :
Private Sub Command1_Click()
a = Val(Text1) 'Nilai a sesuai dengan apa yang di tuliskan di text1
b = Val(Text2) 'Nilai b sesuai dengan apa yang di tuliskan di text2
c = a + b 'Nilai C ialah a + b, Jika a = 1 dan b = 2, maka nilai c = 3
Text3 = c 'Text3 = Nilai dari Variabel c
End Sub
Private Sub Command2_Click()
a = Val(Text1)
b = Val(Text2)
c = a - b
Text3 = c
End Sub
Private Sub Command3_Click()
a = Val(Text1)
b = Val(Text2)
c = a * b
Text3 = c
End Sub
Private Sub Command4_Click()
a = Val(Text1)
b = Val(Text2)
c = a / b
Text3 = c
End Sub
5. Langkah terakhir, coba jalankan agenda dan anda akan menemukan :
Program secara otomatis, muncul / di mulai dari tengah (Center Screen)
Kita tidak akan dapat melebarkan luas form, pada dikala agenda berjalan (Fixed Single)
Text3 tidak akan dapat di klik menyerupai text1 dan 2 (Enabled = false)
Itulah tutorial mengenai cara menciptakan kalkulator sederhana
sekain tutorial kali ini, Selamat mencoba
Comments
Post a Comment