about-me

MySQL


Portfolio




click the image below!
python
python delphi excel mysql

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