![cara membuat program kasir dengan visual basic 6.0 cara membuat program kasir dengan visual basic 6.0](https://image.slidesharecdn.com/tutorialmembuataplikasikasirdenganvb6-0-130520101627-phpapp01/85/tutorial-membuat-aplikasi-kasir-dengan-vb-60-6-320.jpg)
Linehour.Y2 = 700 * Sin(dblHour * pi / 180) + Linehour. Linehour.X2 = 700 * Cos(dblHour * pi / 180) + Linehour.X1 LineMinute.Y2 = 900 * Sin(dblMinute * pi / 180) + LineMinute.Y1 LineMinute.X2 = 900 * Cos(dblMinute * pi / 180) + LineMinute.X1 Linesecond.Y2 = 1000 * Sin(dblSecond * pi / 180) + Linesecond.Y1 Linesecond.X2 = 1000 * Cos(dblSecond * pi / 180) + Linesecond.X1 Private Sub lblTime_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)ĭim dblSecond As Double, dblMinute As Double, dblHour As DoubleĭblMinute = (Minute(Now) + Second(Now) / 60) * 6 - 90ĭblHour = (Hour(Now) + Minute(Now) / 60) * 30 - 90 Ada beberapa project yang biasa digunakan oleh banyak pengguna Visual Basic, antara lain: (1) Standard EXE: Project standar dalam Visual Basic dengan komponen-komponen standar. Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single) Visual Basic 6.0 menyediakan 13 jenis project yang bisa dibuat seperti terlihat pada gambar 1.3 di atas. Private Sub Form_KeyDown(Ke圜ode As Integer, Shift As Integer) SetWindowRgn objObject.hWnd, CreateRoundRectRgn(0, 0, lngWidth, lngHeight, Value, Value), True LngHeight = objObject.Height / Screen.TwipsPerPixelY LngWidth = objObject.Width / Screen.TwipsPerPixelX Static lngHeight, lngLong, lngReturn, lngWidth As Long Private Sub MakeRoundObject(objObject As Object, Value As Long) Private Declare Function SetWindowRgn Lib "user32" (ByVal hWnd As Long, ByVal hRgn As Long, ByVal bRedraw As Boolean) As Long Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hWnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long Cara Membuat Aplikasi Penjualan Barang Dengan Visual Basic 6. Private Declare Function ReleaseCapture Lib "user32" () As Long hehe kerenkan meskipun saya masih newbie. hehe Gambar di atas, adalah tampilan hasilnya. Sebenernya ini materi yang ada di matakuliah, mudah-mudahan bermanfaat buat yang sedang mempelajari bahasa pemprograman VB 6.0. Kali ini saya ingin berbagi tentang membuat program sederhana menggunakan Visual Basic 6.0. Private Declare Function CreateRoundRectRgn Lib "gdi32" (ByVal X1 As Long, ByVal Y1 As Long, ByVal X2 As Long, ByVal Y2 As Long, ByVal X3 As Long, ByVal Y3 As Long) As Long Program Kasir Sederhana 'Bread Talk' Dengan Visual Basic 6.0. Private void CBNNamaMknActionPerformed( evt) catch ( Const pi As Double = 3.14159265358979 addComponent(Txtkembalian, _SIZE, _SIZE, _SIZE)))) addComponent(jLabel5, _SIZE, 20, _SIZE))
![cara membuat program kasir dengan visual basic 6.0 cara membuat program kasir dengan visual basic 6.0](https://i.ytimg.com/vi/gKacit2uZ9Q/hqdefault.jpg)
addComponent(txtBayar, _SIZE, _SIZE, _SIZE) addComponent(txtHarga, _SIZE, _SIZE, _SIZE) addComponent(txtBeli, _SIZE, _SIZE, _SIZE))) addComponent(txtharga, _SIZE, _SIZE, _SIZE) addGroup(layout.createParallelGroup( .LEADING) addComponent(CBNNamaMkn, _SIZE, _SIZE, _SIZE)) addGroup(layout.createParallelGroup( .BASELINE) addGroup( .TRAILING, layout.createSequentialGroup() Dan ketika mengklik button keluar akan muncul pilihan “apakah anda ingin keluar dari preogram” lalu klik yes untuk keluar, tetapi jika mengklik button no maka tidak akan keluar dari program.
![cara membuat program kasir dengan visual basic 6.0 cara membuat program kasir dengan visual basic 6.0](https://ahmadrizal.files.wordpress.com/2010/01/trans1.jpg)
Lalu ada pilihan bungkus/makan disini, jika dibungkus maka harga + Rp.2000.Klik button hitung jumlah harga, dengan otomatis akan muncul total harga makanan tersebut.Kita masukan jumlah makanan yang kita beli.Lalu dengan otomatis harga makanan akan muncul.