开通博客赚积分
发布资源赚积分
分类

源码开发语言/平台
当前位置：首页 > 源码/资料 > Windows编程 > 查看源码
Demarrage.bas
资源名称：Interface.zip　[点击查看]
上传用户：lq8868
上传日期：2017-06-13
资源大小：25k
文件大小：3k
源码类别：

Windows编程

开发平台：

DOS

Demarrage.bas：源码内容
  1. Attribute VB_Name = "Demarrage"
  2. Sub Main()
  3.     'Chargement des param鑤res par d閒aut du port s閞ie
  4.     Choix_Vitesse = Val(GetSetting(App.Title, "Settings", "Vitesse", 5))
  5.     Choix_Parite = Val(GetSetting(App.Title, "Settings", "Parite", 2))
  6.     Choix_Bit_Donnee = Val(GetSetting(App.Title, "Settings", "Bit_donnee", 4))
  7.     Choix_Bit_Arret = Val(GetSetting(App.Title, "Settings", "Bit_Arret", 0))
  8.     Choix_Flux = Val(GetSetting(App.Title, "Settings", "Flux", 0))
  9.     Choix_Port = Val(GetSetting(App.Title, "Settings", "Port", 1))
  10.     Time_Out_Debut = Val(GetSetting(App.Title, "Settings", "Time_Out_Debut", 5))
  11.     Time_Out_Fin = Val(GetSetting(App.Title, "Settings", "Time_Out_Fin", 5))
  12.     
  13.     'Chargement et configuration de la fen阾re Configuration
  14.     Load Configuration
  15.     Load frm_Analyse_Bas_Niveau
  16.     
  17.     'La vitesse de la transmission
  18.     Vitesse(0) = "110"
  19.     Configuration.Combo1.AddItem (Vitesse(0))
  20.     Vitesse(1) = "300"
  21.     Configuration.Combo1.AddItem (Vitesse(1))
  22.     Vitesse(2) = "600"
  23.     Configuration.Combo1.AddItem (Vitesse(2))
  24.     Vitesse(3) = "1200"
  25.     Configuration.Combo1.AddItem (Vitesse(3))
  26.     Vitesse(4) = "2400"
  27.     Configuration.Combo1.AddItem (Vitesse(4))
  28.     Vitesse(5) = "4800"
  29.     Configuration.Combo1.AddItem (Vitesse(5))
  30.     Vitesse(6) = "9600"
  31.     Configuration.Combo1.AddItem (Vitesse(6))
  32.     Vitesse(7) = "14400"
  33.     Configuration.Combo1.AddItem (Vitesse(7))
  34.     Vitesse(8) = "19200"
  35.     Configuration.Combo1.AddItem (Vitesse(8))
  36.     Vitesse(9) = "28800"
  37.     Configuration.Combo1.AddItem (Vitesse(9))
  38.     Vitesse(10) = "38400"
  39.     Configuration.Combo1.AddItem (Vitesse(10))
  40.     Vitesse(11) = "56000"
  41.     Configuration.Combo1.AddItem (Vitesse(11))
  42.     Vitesse(12) = "128000"
  43.     Configuration.Combo1.AddItem (Vitesse(12))
  44.     Vitesse(13) = "256000"
  45.     Configuration.Combo1.AddItem (Vitesse(13))
  46.     
  47.     Rem La parite de la transmission
  48.     Parite(0) = "E"
  49.     Configuration.Combo2.AddItem (Parite(0))
  50.     Parite(1) = "M"
  51.     Configuration.Combo2.AddItem (Parite(1))
  52.     Parite(2) = "N"
  53.     Configuration.Combo2.AddItem (Parite(2))
  54.     Parite(3) = "O"
  55.     Configuration.Combo2.AddItem (Parite(3))
  56.     Parite(4) = "S"
  57.     Configuration.Combo2.AddItem (Parite(4))
  58.     
  59.     Rem Le nombre de bits de donnees de la transmission
  60.     Bit_Donnee(0) = "4"
  61.     Configuration.Combo3.AddItem (Bit_Donnee(0))
  62.     Bit_Donnee(1) = "5"
  63.     Configuration.Combo3.AddItem (Bit_Donnee(1))
  64.     Bit_Donnee(2) = "6"
  65.     Configuration.Combo3.AddItem (Bit_Donnee(2))
  66.     Bit_Donnee(3) = "7"
  67.     Configuration.Combo3.AddItem (Bit_Donnee(3))
  68.     Bit_Donnee(4) = "8"
  69.     Configuration.Combo3.AddItem (Bit_Donnee(4))
  70.     
  71.     Rem Le nombre de bits d'arr阾 de la transmission
  72.     Bit_Arret(0) = "1"
  73.     Configuration.Combo4.AddItem (Bit_Arret(0))
  74.     Bit_Arret(1) = "1.5"
  75.     Configuration.Combo4.AddItem (Bit_Arret(1))
  76.     Bit_Arret(2) = "2"
  77.     Configuration.Combo4.AddItem (Bit_Arret(2))
  78.     
  79.     Rem Le flux de communication
  80.     Flux(0) = "comNone"
  81.     Configuration.Combo5.AddItem (Flux(0))
  82.     Flux(1) = "comXOnXOff"
  83.     Configuration.Combo5.AddItem (Flux(1))
  84.     Flux(2) = "comRTS"
  85.     Configuration.Combo5.AddItem (Flux(2))
  86.     Flux(3) = "comRTSXOnXOff"
  87.     Configuration.Combo5.AddItem (Flux(3))
  89.     'Lance l'閏ran de configuration
  90.     Fin_Application = False
  91.     Configuration.Show
  92.     Configuration.Affiche_Parametres
  93. End Sub