click the image below!
python

CASHIER FORM of a SALES APPLICATION

VBA CODEs: to fill Ecxel Cell

             
            Private Sub cmdTambah_Click()
            Dim ada As Integer
        
            ActiveWorkbook.Sheets("KASIR").Activate
            Range("C8").Select
            Do
            If IsEmpty(ActiveCell) = False Then
                ActiveCell.Offset(1, 0).Select
            End If
    
            Loop Until IsEmpty(ActiveCell) = True
                ActiveCell.Value = NoTranstxt.Value
                ActiveCell.Offset(0, 0) = NoTranstxt.Value
                ActiveCell.Offset(0, 1) = TextBox2.Value
                ActiveCell.Offset(0, 2) = TxtNama_Brg.Value
                ActiveCell.Offset(0, 3) = TxtHarga.Value
                ActiveCell.Offset(0, 4) = TextBox6.Value
                ActiveCell.Offset(0, 5) = Sattxt.Value
                ActiveCell.Offset(0, 6) = TextBox7.Value
                ActiveCell.Offset(0, 7) = Range("F5").Value
                ActiveCell.Offset(0, 8) = Range("E6").Value
            

            If TextBox8.Text <> "" Then
                Pesan = MsgBox("Lanjut dengan mengisi discount?", vbQuestion + vbYesNo, "Konfirmasi")
            If Pesan = vbYes Then
                    Range("C8").Select
                Do
                If IsEmpty(ActiveCell) = False Then
                    ActiveCell.Offset(1, 0).Select
                End If
            
            Loop Until IsEmpty(ActiveCell) = True
                Me.TxtBarang.Text = "disc"
                Me.TxtNama_Brg.Text = "Discount"
                Me.TxtHarga.Value = "-" + Me.TextBox8.Value
                Me.TextBox6.Value = "1"
                Me.TextBox7.Value = (IIf(Me.TxtHarga.Value = "", 0, Me.TxtHarga.Value)) * _
                    (IIf(Me.TextBox6.Value = "", 0, Me.TextBox6.Value))
        
                ActiveCell.Value = NoTranstxt.Value
                ActiveCell.Offset(0, 0) = NoTranstxt.Value
                ActiveCell.Offset(0, 1) = TextBox2.Value
                ActiveCell.Offset(0, 2) = TxtNama_Brg.Value
                ActiveCell.Offset(0, 3) = TxtHarga.Value
                ActiveCell.Offset(0, 4) = TextBox6.Value
                ActiveCell.Offset(0, 5) = Sattxt.Value
                ActiveCell.Offset(0, 6) = TextBox7.Value
                ActiveCell.Offset(0, 7) = Range("F5").Value
                ActiveCell.Offset(0, 8) = Range("E6").Value
            Bersih
            End If
            End If
            End Sub

VBA Codes: to save data to Transaction Table

             
             Sub SimpanData()
                Sheets("KASIR").Select
                Range("C7").Offset(1, 0).Select
                If Range("Q6") = 1 Then
                    Range(Selection, Selection.End(xlToRight)).Select
                Else
                    Range(Selection, Selection.End(xlToRight)).Select
                    Range(Selection, Selection.End(xlDown)).Select
                End If
                Selection.Copy
    
                Sheets("DATA TRANSAKSI").Select
                If Range("A2").Offset(1, 0).Value = "" Then
                    Range("A2").Offset(1, 0).Select
                Else
                    Range("A2").End(xlDown).Offset(1, 0).Select
                End If
                ActiveSheet.Paste
    
                Sheets("KASIR").Select
                Range("C8:K100") = ""
                Range("I4") = ""
                Range("F4") = "=today()"
                Range("F5") = "UMUM"
            End Sub

VBA CODEs: to yields text files as a simple daily report of daily sales
that will be sent automatically to the cloud drive, then can be accessed by owner
from their devices

            
            Private Sub Laporhrnbtn_Click()
            Dim range_nya As Range
            Dim lokasi As String
            Dim path As String, namafile As String, datestring As String
            Dim j As Integer, i As Integer
  
            Worksheets("DATA TRANSAKSI").Range("A2:I2").AutoFilter Field:=9, Criteria1:=Range("A1").Value
            Range("G2").Offset(1, 0).Select
            Range(Selection, Selection.End(xlDown)).Select
            Set range_nya = Selection
  
            range_nya.SpecialCells(xlCellTypeVisible).Select
  
            Range("G1") = WorksheetFunction.Sum(range_nya.SpecialCells(xlCellTypeVisible))
  
            Range("A2").Offset(1, 0).Select
            Range(Selection, Selection.End(xlDown)).Select
            Range(Selection, Selection.End(xlToRight)).Select
            Set range_nya = Selection
            range_nya.SpecialCells(xlCellTypeVisible).Select
            Selection.Copy
    
            Sheets("LAPORAN").Select
            Sheets("LAPORAN").Range("A2").Offset(1, 0).Select
            ActiveSheet.Paste
  
            datestring = Format(Worksheets("LAPORAN").Cells(3, 2), "ddmmyyyy")
 
            If Worksheets("DATA TRANSAKSI").Cells(1, 1) <> "*" Then
            namafile = Worksheets("DATA TRANSAKSI").Cells(1, 1) & datestring & ".txt"
            Else
                namafile = "All" & datestring & ".txt"
            End If
  
            If Worksheets("LAPORAN").Cells(1, 12) <> "" Then
                Worksheets("LAPORAN").Cells(2, 12) = Worksheets("LAPORAN").Cells(1, 12) & namafile
                path = Worksheets("LAPORAN").Cells(2, 12)
                cetaklaporanhrn
            End If
  
            If Worksheets("LAPORAN").Cells(1, 16) <> "" Then
               Worksheets("LAPORAN").Cells(2, 12) = Worksheets("LAPORAN").Cells(1, 16) & namafile
               path = Worksheets("LAPORAN").Cells(2, 12)
               cetaklaporanhrn
            End If
  
            lokasi = Worksheets("LAPORAN").Cells(2, 12)
            Shell "notepad.exe " & lokasi, vbNormalFocus
            MsgBox "Selesai"
  
            On Error Resume Next
            Worksheets("DATA TRANSAKSI").Range("A3:C3").AutoFilter.ShowAllData
            Sheets("DATA TRANSAKSI").Select
            Sheets("DATA TRANSAKSI").Range("A2").Offset(1, 0).Select
  
            Sheets("LAPORAN").Select
            Sheets("LAPORAN").Range("A2").Offset(1, 0).Select
            End Sub

DATA VISUALISATION of a customer sales on a simple SALES DASHBOARD

DATA SCIENCE

kebutuhan akan Data Science tidak hanya pada perusahaan-perusahaan saja, namun juga untuk keperluan Riset, ataupun Data Processing yang dibutuhkan oleh Mahasiswa pada saat menyelesaikan Thesisnya juga menjadi salah satu service Lombok Data Science, secara detail tentang apa saja cakupan DATA SCIENCE dapat dilihat pada "Services"

The demand of Data Science is not only in companies, but also for Research purposes, or Data Processing needed by Students when completing their Thesis, is also one of the Lombok Data Science services, in detail about the scope of DATA SCIENCE can be seen in "Services"

DATA ANALYTICS

Salah satu bidang pada Data Analytics adalah Data Scraping, yang juga menjadi salah satu "Service Lombok Data Science"
Contoh nyata kebutuhan akan Data Scraping yaitu perusahaan yang ingin memantau seberapa besar produk-produk mereka yang telah dilempar ke pasar oleh distributor-distributor mereka, untuk lebih detail tentang Data Scraping , dapat dilihat pada Sevices kami.
Source Codes Data Scrapping dapat ditemukan pada Python Portfolio saya.Silakan klik pada gambar python!, have fun...

One of the fields in Data Analytics is Data Scraping, which is also one of the "Service of Lombok Data Science"
A real example of the need for Data Scraping is a company that wants to monitor how much of their products have been thrown into the market by their distributors, for more details about Data Scraping, please see our Services.
The Source Codes for Data Scrapping can be found on my Python Portfolio. please click the python image!, have fun...

#935
18.97.14.85
19-04-2025 03:10:48am

MySQL

Portfolio

DATA SCIENCE

DATA ANALYTICS