Notes

```vba
Sub CreateTechyVBAppt()
Dim pptApp As Object
Dim pptPres As Object
Dim slideIndex As Integer

' Create a PowerPoint application object
Set pptApp = CreateObject("PowerPoint.Application")
pptApp.Visible = True

' Create a new presentation
Set pptPres = pptApp.Presentations.Add

' Add slides
slideIndex = slideIndex + 1
With pptPres.Slides.Add(slideIndex, 1) ' 1 means ppLayoutTitle
.Shapes(1).TextFrame.TextRange.Text = "Introduction"
.Shapes(2).TextFrame.TextRange.Text = "Nowadays, if a consumer would like to buy something at a shopping mall, consumers need to take the particular items from the display shelf and then queue up and wait for their turn to make payment. To try to solve the problems previously identified, recent years have seen the appearance of several technological solutions for hypermarket assistance. All such solutions share the same objectives to save consumer’s time."
End With

slideIndex = slideIndex + 1
With pptPres.Slides.Add(slideIndex, 2) ' 2 means ppLayoutText
.Shapes(1).TextFrame.TextRange.Text = "ABSTRACT"
.Shapes(2).TextFrame.TextRange.Text = "The traditional barcode scanning process during checkout often leads to long queues and time-consuming transactions. With the existing system, each product needs to be individually scanned using a barcode scanner, which can significantly slow down the process. Moreover, without an automatic billing system, customers are left waiting in lengthy queues, resulting in frustration and inefficiency. In contrast, the proposed system introduces a new technology utilizing RFID tags instead of barcodes. With the Smart Trolley equipped with an RFID reader and LCD module, customers can quickly scan products by simply placing them in the trolley. The RFID tag allows for instant recognition of the product, with its cost and name displayed on the LCD screen upon scanning. This eliminates the need for manual scanning and speeds up the checkout process, enhancing the overall shopping experience. Furthermore, the system's microcontroller stores the scanned products' details and calculates the total bill in real-time. If a product is removed from the trolley, the system automatically adjusts the count and amount accordingly. By leveraging RFID technology, the proposed system aims to streamline the billing process, reduce waiting times, and improve efficiency, ultimately creating a more seamless and convenient shopping experience for customers."
End With

slideIndex = slideIndex + 1
With pptPres.Slides.Add(slideIndex, 2)
.Shapes(1).TextFrame.TextRange.Text = "Group Members"
.Shapes(2).TextFrame.TextRange.Text = "Abhinav Sujith" & vbCrLf & "Ajaynath P" & vbCrLf & "Akarsh K C" & vbCrLf & "Belfin Baby"
End With

slideIndex = slideIndex + 1
With pptPres.Slides.Add(slideIndex, 2)
.Shapes(1).TextFrame.TextRange.Text = "Existing System"
.Shapes(2).TextFrame.TextRange.Text = "• The existing system makes use of traditional method of barcode scanning." & vbCrLf & "• Using the barcode scanner we need to scan each product and so this method becomes very slow." & vbCrLf & "• A barcode reader is associate in electronic device for reading with the barcodes. In this process we have no automatic billing system and the customer has wait for the billing process in the long queues. This eventually results in the long queues"
End With

slideIndex = slideIndex + 1
With pptPres.Slides.Add(slideIndex, 2)
.Shapes(1).TextFrame.TextRange.Text = "Proposed System"
.Shapes(2).TextFrame.TextRange.Text = "•In the proposed system, the customer scans the RF tag of the product and places it in the trolley." & vbCrLf & "•The price of the product is taken and stored in the system's memory upon scanning." & vbCrLf & "•If a match is found, the product's cost and name are displayed on the LCD screen." & vbCrLf & "•If an unwanted product is removed, the count and amount are adjusted accordingly." & vbCrLf & "•The RFID tag allows for quick scanning without the need for human labor."
End With

slideIndex = slideIndex + 1
With pptPres.Slides.Add(slideIndex, 2)
.Shapes(1).TextFrame.TextRange.Text = "METHODOLOGY"
.Shapes(2).TextFrame.TextRange.Text = "The methodology that we propose is based on the idea of creating an automatic billing system while shopping made possible using RFID . All the products in the shopping malls or supermarkets are provided a unique RFID tag instead of a barcode. Each shopping trolley has its own setup which contains an RFID reader, buzzer to indicate addition and removal of products and an LCD screen to display all information related to the item."
End With

' Add block diagram
slideIndex = slideIndex + 1
With pptPres.Slides.Add(slideIndex, 1)
.Shapes.AddPicture "path_to_your_block_diagram_image.jpg", False, True, 0, 0
End With

End Sub
```