Un conseils pour les débutants qui viennent sur le forum ...
Publié : jeu. 16/oct./2008 14:54
bonjour
un conseils pour les débutants qui viennent sur le forum
je viens d'acheter ce livre pour apprendre la programmation
http://www.microapp.com/livre_debuter_e ... _1571.html
c'est un excellent moyen d'apprendre à programmer en pb
j'ai dù installer VB 2005 express edition pour faire les exemples et ensuite une fois que j'ai compris l'exemple je reécris l' exemple en PB .
exemple du livre:
en VB :
Public Class Form1
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Dim num As Integer
num = 100
num = num + 100
MessageBox.Show(num.ToString)
End Sub
End Class
le meme en PB
un conseils pour les débutants qui viennent sur le forum
je viens d'acheter ce livre pour apprendre la programmation
http://www.microapp.com/livre_debuter_e ... _1571.html
c'est un excellent moyen d'apprendre à programmer en pb
j'ai dù installer VB 2005 express edition pour faire les exemples et ensuite une fois que j'ai compris l'exemple je reécris l' exemple en PB .
exemple du livre:
en VB :
Public Class Form1
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Dim num As Integer
num = 100
num = num + 100
MessageBox.Show(num.ToString)
End Sub
End Class
le meme en PB
Code : Tout sélectionner
; Exemple 2
; les constantes
Enumeration
#Fenetre_0
EndEnumeration
; les procedures
Procedure Affichage()
If OpenWindow(#Fenetre_0,0,0,200,200,"Exemple 2 ",#PB_Window_SystemMenu|#PB_Window_ScreenCentered|#PB_Window_MinimizeGadget|#PB_Window_TitleBar)
EndIf
EndProcedure
Procedure compte()
Nombre = 100
text$= Str(Nombre)
MessageRequester("Alerte",text$,#PB_MessageRequester_Ok)
EndProcedure
; boucle du programme
Affichage()
compte()
Repeat
Select WaitWindowEvent()
Case #PB_Event_CloseWindow
Fermer_0 =1
EndSelect
Until Fermer_0 =1
End
