Reprise du message précédent :
salut à tous
je ne suis pas un débutant en qbasic, j'ai deja fait une machine numérique 5 axes via le port // et joy.
mais la je calle. si j'achete une camera à la con chez conerad par ex, comien de fils y a t'il à traiter, et quel type d'info. je voudrai faire un prog qui affiche ce que voi la cam pour pouvoir utiliser l'image pour du positionnement!!!
si il en à qui save ,.............. merci

Ca dépasse mes compétences, mais ça m'étonnerait fort qu'on puisse faire ça en QBasic !
De plus la caméra doit délivrer de l'analogique et l'ordinateur ne sait traiter que du numérique, alors il faut une conversion matérielle préalable ?

Salut, j'ai fait quelques programmes en basic dans ma jeunesse, vous pouvez les consulter sur mon site à cette page:
http://gary.zozo.free.fr/index.php?ch=progs
Les sources sont disponibles, mais non commentées... Les exécutables sont disponibles pour la majorité des programmes.
Pour ceux connaissant le problème des tours de hanoï, j'ai réalisé un programme qui en fait la simulation.
Bonne visite

Ton site est sympathique, dommage qu'il n'y ait que des programmes de jeunesse mais je comprends bien que le basic est un peu dépassé.
Tu dis qu'étant en Dos plein écran tu n'as pas pu faire de captures d'écran... c'est assez simple de faire des captures d'écran graphique en mode Screen 12 sous forme de fichiers .bmp standards (avec un petit sous-programme appelé par appui sur une touche prédéfinie par exemple).

salut
comment calculer le jour de son anniversaires en qbsic
petit programme en qbasic
 
merci

salut  
comment calculer le jour de naissance
petit programme en QBASIC
 
merci

Je remonte ce vieux topic, je suppose que la question ci-dessus revient à celle-ci: quel est le jour de la semaine qui correspond à une date donnée ? voici une réponse sous forme de SUB
 
SUB JourSem (Annee, Mois, Jour, Jsem)
'Jour de la semaine (1= Dimanche … 7= Samedi, 0 si date invalide)
IF Annee < 179 THEN y = Annee + 1900 ELSE y = Annee
IF Mois < 1 OR Mois > 12 OR Jour < 1 OR Jour > 31 OR y < 1753 OR y > 2078 THEN
  Jsem = 0: EXIT SUB: 'date invalide
ELSE
  SELECT CASE Mois
    CASE 1: Result# = 0#
    CASE 2: Result# = 31#
    CASE 3: Result# = 59#
    CASE 4: Result# = 90#
    CASE 5: Result# = 120#
    CASE 6: Result# = 151#
    CASE 7: Result# = 181#
    CASE 8: Result# = 212#
    CASE 9: Result# = 243#
    CASE 10: Result# = 273#
    CASE 11: Result# = 304#
    CASE 12: Result# = 334#
  END SELECT
  Result# = Result# + CDBL(Jour) - 1#
  IF y MOD 4 = 0 AND (y MOD 100 > 0 OR y MOD 400 = 0) THEN
    IF Mois > 2 THEN Result# = Result# + 1#
  END IF
  DO UNTIL y <= 1753
  y = y - 1
  IF y MOD 4 = 0 AND (y MOD 100 > 0 OR y MOD 400 = 0) THEN
    Result# = Result# + 1#
  END IF
  Result# = Result# + 365#
  LOOP
END IF
DateSerial# = Result# - 53688#
tmp = CLNG(DateSerial#) MOD 7&
SELECT CASE tmp
  CASE IS < 0: tmp = tmp + 7
  CASE IS = 0: tmp = 7
  CASE ELSE
END SELECT
Jsem = tmp
END SUB

Je suis étonné de constater que ce topic a été lu plus de 5000 fois (?) et qu'il n'y ait pas plus de contributions ou de réactions ?
Personnellement je m'oriente actuellement vers le RapidQ (après avoir essayé plusieurs autres choses qui m'ont découragé, LibertyBasic, etc), qui reprend pratiquement toutes les fonctions du QBasic avec la même syntaxe (ainsi on n'est pas dépaysé), mais qui permet beaucoup plus de choses, et surtout sous Windows.
Ca permet de commencer simple et de progresser à son rythme. Et il y a une bonne documentation.
Il permet aussi de compiler des exécutables autonomes.

slut,
 
j´aimerai avoir la commande Qbasic qui me permet d´afficher à l´écran la suite de chiffres allant de 0.1 à 100.0 sur plusieurs lignes, de maniere à respecter 10 chiffres par ligne.
 
merci bien

Ca fait donc 100 lignes à afficher à l'écran, le nombre maximum de lignes étant de 60 (en mode SCREEN 12)...
Sinon, grossièrement:

 
Une solution serait d'obtenir plus de lignes par page en utilisant une librairie qui permet une plus grande résolution.
 
À titre d'exemple, j'ai fait un programme avec une résolution de 800 x 600 ce qui n'est pas à dédaigner.
 
Sur mon site WEB, http://www.quickbasic.future.library.ca.tt, je donne un petit tutorial sur la librairie Future.Library. Le hic de cette librairie est que la carte vidéo doit accepter le mode VESA dont je crois un standard. J'ai un pentium II, 400, Win98.
 
Le programme que j'ai fait est une belle démonstration de ce que nous pouvons réaliser avec QuickBASIC et une librairie externe. Ce programme, calcul matriciel, est très pratique dans le domaine électronique entre autre.
 
A+

Salut à tous.
J'ai fait quelques programmes en QB et j'aimerais savoir ce que vous en pensez.
 
comment pui-je faire pour vous les envoyer ?  
 
PS: je n'ai pas de site web.

Salut,
 
Même si tu n’as pas de page WEB, tu peux sûrement les transmettre via le forum. Entre en contact avec l’administrateur du forum pour la façon de procéder.
 
A+
 
AE
------------------