porta tartının indikatöründen bilgi girişi mevcut. sadece basic ile okutabilmek gerekiyor. ilk adım indikatörü acces e tanıtmak gerekiyor.
tartım yapılan bilgisayarda çalışıyor olsam çözerdik vakit olmuyor..
uğraştım yarım kaldı kodlar şu şekilde
Option Explicit
Dim PortOpen As Boolean
Public Function PortTest(COMPortNummer As Integer) As Boolean
MSComm1.CommPort = COMPortNummer
On Error Resume Next
MSComm1.PortOpen = True
If Err = 0 Then
PortTest = True
MSComm1.PortOpen = False
Else
PortTest = False
MSComm1.PortOpen = False
End If
End Function
Private Sub command1_Click()
Me.text1 = Me.text1 & Str(Time) & " +++ Text yollama denemesi" & vbCrLf
If PortOpen = False Then
MsgBox "Lütfen önce bir Port acin"
Me.text1 = Me.text1 & Str(Time) & _
" +++ Text gönderiminde hata, Port " & _
"acik degil" & vbCrLf & vbCrLf
Exit Sub
End If
If Me.text2 = "" Then
MsgBox "Text e ne oldu"
Me.text1 = Me.text1 & Str(Time) & " +++ Text eksik" & _
vbCrLf & vbCrLf
Exit Sub
End If
On Error Resume Next
MSComm1.Output = Me.text2 + vbCr
If Err <> 0 Then
MsgBox "Text hatasiz olarak yollanamadi!"
Me.text1 = Me.text1 & Str(Time) & " +++ Text " & _
"hatasiz yollandi" & vbCrLf & vbCrLf
Else
Me.text1 = Me.text1 & Str(Time) & _
" +++ """ + Me.text2 & """ yollandi" & _
vbCrLf & vbCrLf
End If
End Sub
Private Sub Command2_Click()
Dim Portzaehler As Integer
Me.text1 = Me.text1 & Str(Time) & _
" +++ Mevcut olan COM-Ports taraniyor" & vbCrLf
Me.combo1.Clear
For Portzaehler = 1 To 16
If PortTest(Portzaehler) Then
Me.combo1.AddItem "COM" & Str(Portzaehler)
End If
Next
If Me.combo1.ListCount = 0 Then
Me.combo1.AddItem "Mevcut Comport bulunamadi"
Me.text1 = Me.text1 & Str(Time) & _
" +++ Comport mevcut degil" & _
vbCrLf & vbCrLf
Else
Me.text1 = Me.text1 & Str(Time) & _
" +++" & Str(Me.combo1.ListCount) & _
" Comport(s) mevcut" & vbCrLf & vbCrLf
End If
Me.combo1.ListIndex = 0
End Sub
Private Sub Command3_Click()
Dim CPort As Byte
Dim Settings As String
Me.text1 = Me.text1 & Str(Time) & _
" +++ Acma denemesi COM-Port icin" _
& vbCrLf
If PortOpen = True Then
MsgBox "Su anda acik durumda bir Port var lütfen " & _
"önce acik olani kapatiniz!"
Me.text1 = Me.text1 & Str(Time) & _
" +++ COM-Port acilamadi " & _
"halen acik olan bir Port mevcut" _
& vbCrLf & vbCrLf
Exit Sub
End If
CPort = Val(Mid(Me.combo1.List(Me.combo1.ListIndex), 4, _
Len(Me.combo1.List(Me.combo1.ListIndex))))
If CPort = 0 Then
MsgBox "Hata COMM-Port mevcut degil "
Me.text1 = Me.text1 & Str(Time) & _
" +++ COM-Port acilamadi " & vbCrLf & vbCrLf
Else
MSComm1.CommPort = CPort
Settings = Me.Combo2.List(Me.Combo2.ListIndex)
Select Case Me.Combo4.ListIndex
Case 0: Settings = Settings & ",E"
Case 1: Settings = Settings & ",M"
Case 2: Settings = Settings & ",N"
Case 3: Settings = Settings & ",O"
Case 4: Settings = Settings & ",S"
End Select
Settings = Settings & "," & _
Me.Combo3.List(Me.Combo3.ListIndex)
Settings = Settings & "," & _
Me.Combo5.List(Me.Combo5.ListIndex)
MSComm1.Settings = Settings
On Error Resume Next
MSComm1.PortOpen = True
If Err <> 0 Then
MsgBox "Hata COM-Ports " & _
"mevcut degil yada ayarlarda hata var?"
Me.text1 = Me.text1 & Str(Time) & _
" +++ COM-Port acilamadi" _
& vbCrLf & vbCrLf
Else
MSComm1.RThreshold = 1
MSComm1.SThreshold = 1
MSComm1.InputLen = 0
Me.text1 = Me.text1 & _
Str(Time) & " +++ COM-Port acilmistir" _
& vbCrLf & vbCrLf
PortOpen = True
End If
End If
End Sub
Private Sub Command4_Click()
Me.text1 = Me.text1 & Str(Time) & _
" +++ COM-Port kapama denemesi" & vbCrLf
If PortOpen = False Then
MsgBox "Acik olan COMM-Port yok, kapatmaya gerek yok "
Me.text1 = Me.text1 & Str(Time) & _
" +++ COM-Port kapatilamadi " & vbCrLf & vbCrLf
Else
On Error Resume Next
MSComm1.PortOpen = False
If Err <> 0 Then
MsgBox "Port kapatimi sirasinda hata olustu"
Me.text1 = Me.text1 & _
Str(Time) & " +++ COM-Port kapatilamadi " & _
vbCrLf & vbCrLf
Else
Me.text1 = Me.text1 & Str(Time) & " +++ COM-Port " & _
"kapali" & vbCrLf & vbCrLf
PortOpen = False
End If
End If
End Sub
Private Sub Form_Load()
Me.combo1.Clear
Me.combo1.AddItem "Comm Port yok!!!"
Me.combo1.ListIndex = 0
Me.Combo2.AddItem "4800"
Me.Combo2.AddItem "9600"
Me.Combo2.AddItem "19200"
Me.Combo2.AddItem "38400"
Me.Combo2.AddItem "57600"
Me.Combo2.AddItem "115200"
Me.Combo2.ListIndex = 4
Me.Combo3.AddItem "4"
Me.Combo3.AddItem "5"
Me.Combo3.AddItem "6"
Me.Combo3.AddItem "7"
Me.Combo3.AddItem "8"
Me.Combo3.ListIndex = 4
Me.Combo4.AddItem "Dosdogru"
Me.Combo4.AddItem "Dosdogru degil"
Me.Combo4.AddItem "BOs"
Me.Combo4.AddItem "Secili"
Me.Combo4.AddItem "Bosluk"
Me.Combo4.ListIndex = 2
Me.Combo5.AddItem "1"
Me.Combo5.AddItem "1.5"
Me.Combo5.AddItem "2"
Me.Combo5.ListIndex = 0
PortOpen = False
Me.text1 = Str(Time) & _
" +++ Program basliyor. Hosgeldiniz." & _
vbCrLf & vbCrLf
End Sub
Private Sub MSComm1_OnComm()
Select Case MSComm1.CommEvent
Case comOverrun: MsgBox "Bilgi kaybolusu!"
Case comRxOver: MsgBox "Bilgi kaybolusu!"
Case comEvReceive: Me.text3 = Me.text3 + MSComm1.Input
End Select
End SubTextBox’a Satyr Eklemek
Karakter deyerleri
VB menü elemany Format tanytymy
Dosya iylemleri 2. Bölüm
Özellik Eklemek
Formu Kaydyrma
Slider – Cetvel
Add-Ins Mönüsü
Sql TABLO ByLGyLERyNyN SIRALANMIy OLARAK LySTELENMESy:
Bir AvrasyaSoft Hizmetidir. Since 2007
Murat Çetin
