Sub CreatePPTPresentation()
' Declare variables for PowerPoint application and presentation
Dim pptApp As Object
Dim pptPres As Object
Dim pptSlide As Object
Dim slideIndex As Integer
' Create a new instance of PowerPoint application
Set pptApp = CreateObject("PowerPoint.Application")
pptApp.Visible = True
' Add a new presentation
Set pptPres = pptApp.Presentations.Add
' Array to hold slide titles and contents
Dim slideTitles() As Variant
Dim slideContents() As Variant
slideTitles = Array("Title Slide", "Remerciements", "Résumé du Projet", "Objectifs du Projet", _
"Cadre de Travail", "Présentation Technologique", "Spécifications Fonctionnelles", _
"Conception Générale", "Interfaces Utilisateur", "Réalisation", _
"Interfaces Graphiques", "Conclusion Générale", "Questions et Réponses")
slideContents = Array( _
Array("Projet de Fin d’Études - Shamshi Camping", "Conception et développement d'une application web", _
"Presented by: Guesmi Nadim", "Institution: ISET Sidi Bouzid", "Year: 2023/2024"), _
Array("Encadrement: Mme Dali Imen", "Université: ISET Sidi Bouzid", "Ressources: Tutoriels en ligne (YouTube)"), _
Array("Projet: Création d'un site web pour Shamshi Camping", "Objectifs:", "Promouvoir le camping", _
"Attirer des visiteurs", "Faciliter les réservations en ligne", _
"Technologies Utilisées: NicePage, WordPress, XAMPP, Canva, Looka AI, Lucid, Mermaid Live Editor, Microsoft Office, Midjourney"), _
Array("Principaux Objectifs:", "Améliorer la visibilité en ligne", "Faciliter les réservations", _
"Fournir des informations complètes", "Améliorer la communication"), _
Array("Académique:", "Programme de Licence en Informatique, ISET Sidi Bouzid", _
"Parcours: Multimédia et Développement Web (MDW32)", "Professionnel:", _
"Soutenir Shamshi Camping", "Améliorer la visibilité et la gestion des visiteurs"), _
Array("Technologies Utilisées:", "HTML/CSS/JS: Structure et style du site", _
"NicePage: Conception sans codage", "CMS: Gestion de contenu", "Réactivité Mobile: Optimisation pour mobiles", _
"Sécurité des Paiements: Intégrations sécurisées", "Réservation en ligne: Systèmes intégrés"), _
Array("Pages Principales:", "Accueil, À propos de nous, Services, Réservation, Galerie, Contact, Blog", _
"Fonctionnalités Clés:", "Formulaire de réservation", "Système de paiement sécurisé", "Galerie multimédia", "Formulaire de contact"), _
Array("Modèle Conceptuel:", "Structure claire et intuitive", "Sections principales: Accueil, À propos, Activités, Blog, Galerie, Contact"), _
Array("Principes de Conception:", "Intuitive et conviviale", "Responsive", "Attrayante visuellement", _
"Éléments de UI:", "Menu de navigation, Bannière d'accueil, Section de réservation, Footer"), _
Array("Environnement de Développement:", "Matériel: Ordinateur portable, Connexion Internet stable", _
"Logiciel: WordPress, XAMPP, NicePage, Canva, Looka AI, Lucid, Mermaid Live Editor, Microsoft Office, Midjourney", _
"Configuration et Développement:", "Installation et configuration de WordPress et des plugins", _
"Développement des fonctionnalités et intégration des éléments graphiques"), _
Array("Pages Principales:", "Accueil, Profil utilisateur, Réservation, Activités, Services, Blog, Galerie, À propos de nous, Contact"), _
Array("Travail Effectué:", "Création et configuration du site", "Développement et intégration des fonctionnalités", _
"Tests et ajustements", "Taux de Réalisation:", "Projet complété à 100%", _
"Perspectives:", "Améliorations futures: ajout de nouvelles fonctionnalités", "Maintenance continue et mises à jour régulières"), _
Array("Merci pour votre attention!", "Des questions?"))
' Loop through arrays to create slides
For slideIndex = LBound(slideTitles) To UBound(slideTitles)
' Add a new slide
Set pptSlide = pptPres.Slides.Add(slideIndex + 1, 1) ' 1 represents ppLayoutTitle
' Set the slide title
pptSlide.Shapes.Title.TextFrame.TextRange.Text = slideTitles(slideIndex)
' Add slide content
Dim content As String
content = Join(slideContents(slideIndex), vbCrLf)
' Add text box for slide content
With pptSlide.Shapes.AddTextbox(Orientation:=1, Left:=100, Top:=150, Width:=500, Height:=300) ' 1 represents msoTextOrientationHorizontal
.TextFrame.TextRange.Text = content
.TextFrame.TextRange.Font.Size = 20
End With
Next slideIndex
' Save the presentation
pptPres.SaveAs "C:\Path\To\Save\Shamshi_Camping_Presentation.pptx"
' Cleanup
Set pptSlide = Nothing
Set pptPres = Nothing
Set pptApp = Nothing
MsgBox "Presentation created successfully!", vbInformation
End Sub
Write, Run & Share VB.net code online using OneCompiler's VB.net online compiler for free. It's one of the robust, feature-rich online compilers for VB.net language, running on the latest version 16. Getting started with the OneCompiler's VB.net compiler is simple and pretty fast. The editor shows sample boilerplate code when you choose language as VB.net. OneCompiler also has reference programs, where you can look for the sample code to get started with.
OneCompiler's VB.net online editor supports stdin and users can give inputs to programs using the STDIN textbox under the I/O tab. Following is a sample VB.net program which takes name as input and prints hello message with your name.
Public Module Program
Public Sub Main(args() As string)
Dim name as String = Console.ReadLine() ' Reading input from STDIN
Console.WriteLine("Hello " & name) ' Writing output to STDOUT
End Sub
End Module
Visual Basic is a event driven programming language by Microsoft, first released in the year 1991.
Variable is a name given to the storage area in order to identify them in our programs.
Simple syntax of Variable declaration is as follows
Dim variableName [ As [ New ] dataType ] [ = initializer ]
variableName = value
If condition-expression Then
'code
End If
If(conditional-expression)Then
'code if the conditional-expression is true
Else
'code if the conditional-expression is false
End If
If(conditional-expression)Then
'code if the above conditional-expression is true
Else If(conditional-expression) Then
'code if the above conditional-expression is true
Else
'code if the above conditional-expression is false
End If
If(conditional-expression)Then
'code if the above conditional-expression is true
If(conditional-expression)Then
'code if the above conditional-expression is true
End If
End If
Select [ Case ] expression
[ Case expressionlist
'code ]
[ Case Else
'code ]
End Select
For counter [ As datatype ] = begin To end [ Step step ]
'code
[ Continue For ]
'code
[ Exit For ]
'code
Next [ counter ]
For Each element [ As datatype ] In group
'code
[ Continue For ]
'code
[ Exit For ]
'code
Next [ element ]
While conditional-expression
'Code
[ Continue While ]
'Code
[ Exit While ]
'Code
End While
Do { While | Until } conditional-expression
'Code
[ Continue Do ]
'Code
[ Exit Do ]
'Code
Loop
Do
'Code
[ Continue Do ]
'Code
[ Exit Do ]
'Code
Loop { While | Until } conditional-expression
Procedure is a sub-routine which contains set of statements. Usually Procedures are written when multiple calls are required to same set of statements which increases re-usuability and modularity.
Procedures are of two types.
Functions return a value when they are called.
[accessModifiers] Function functionName [(parameterList)] As returnType
'code
End Function
Sub-procedures are similar to functions but they don't return any value.
Sub ProcedureName (parameterList)
'Code
End Sub