visualbasic6.0で加速度センサーから傾きを検出するプログラムを作りたいのですが、初心者のため手探りでやっている状態です。
センサーからの信号は16進数で4バイトずつ送られてきます。
これを10進数に直して、前の2バイトと後ろの2バイトを分けて表示したいのですが解かりません。以下が現段階のコードの1部です。
Private Sub MSComm1_OnComm()
Dim bytBuf() As Byte
Dim strDisp As String
Dim lngCount As Long
Select Case MSComm1.CommEvent
Case comEvReceive
If List1.ListCount = 0 Then
MSComm1.InBufferCount = 0
End If
Do
bytBuf = MSComm1.Input
strDisp = ""
For lngCount = LBound(bytBuf) To UBound(bytBuf)
strDisp = strDisp & Right("00" & Hex(bytBuf(lngCount)), 2) & " "
Next
List1.List(0) = List1.List(0) & strDisp
Loop While MSComm1.InBufferCount <> 0
End Select
End Sub
VB.NET+FrameWork1.1環境なのですが、
子ウィンドウの取得の仕方がどうしてもわからず教えて頂きたいです。
Dim Oya As Long
Oya = FindWindow(vbNullString, "電卓")
Dim Ret As Long
Ret = EnumChildWindows(Oya, AddressOf EnumChildWnd, 0)
このようにして使うAPIのようなのですが、
デリゲート型をLong型に変換できませんと出てしまいます。
色々検索してみたのですが、それらしい記事が見つかるも
どうしても理解できず、正常に動作させることが出来ませんでした。
もうしわけございませんが、どなたか実行可能なコードを書いて
いただけないでしょうか。
出力結果はConsole.WriteLineに出るようにして頂けると助かります。
よろしくお願いいたします。m(__)m
vbを始めたばかりですがよろしくお願いします。
Functionの戻り値を配列にしたいのですが
Function fnc(ByVal a As Byte, ByVal b As Byte) As Integer()
fnc(0) = a + b
fnc(1) = a - b
End Function
というような使い方はできないのでしょうか?
一つのFunctionで二つの計算結果をかえすには
どうしたらよいのでしょうか?
お願いします。
TextBox1、TextBox2、TextBox3・・・・TextBox10 と10個のテキストボックスにVB6で使っていたコントロール配列と同じような処理の仕方をコードで教えていただけませんか。
for i=0 to 9
TextBox(i).Text=i
next i
上記のコードをVB.NETで書くとすれば、どのように書けばいいかということさえわかれば、なんとか頑張れる気がします。
以下の場合、(1)で範囲エラーとなります。
redim a(0)とすると、a配列に1個データがあるということで、for文が実行されますが。
Redimしないまま(データが無い意味としたいので)で、このFor文をパスするには、どのように記述すればよいのでしょうか?
dim a() as string
'----->(2)
for i=LBound(a) to UBound(a) '---->(1)
msgbox(a(i))
next i
vb2005です。
DataGridViewコントロールのデータセットにデータベースのテーブルをセットしています。
そのDataGridViewの1列目にコンボボックスを設定し、
そのコンボボックスのデータセットにも別のテーブルをセットしたいのです。
Dim dAdp As OleDb.OleDbDataAdapter
Dim dSet As New DataSet
Dim cn As OleDb.OleDbConnection = New OleDb.OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;" & "Data Source=C:\DB.mdb;")
dAdp = New OleDb.OleDbDataAdapter("SELECT * FROM 商品", cn)
dAdp.Fill(dSet, "t_商品")
DataGridView1.DataSource = dSet.Tables("t_商品")
dAdp = New OleDb.OleDbDataAdapter("SELECT * FROM 品種", cn)
dAdp.Fill(dSet, "t_品種")
Dim col As System.Windows.Forms.DataGridViewComboBoxColumn = DataGridView1.Columns(1) ・・・・★
col.DataSource = dtSet.Tables("t_品種")
col.DisplayMember = "品種名"
col.ValueMember = "品種コード"
上記のように記述しているのですが、★の部分で、下記のエラーになります。
型 'System.Windows.Forms.DataGridViewTextBoxColumn' のオブジェクトを型 'System.Windows.Forms.DataGridViewComboBoxColumn' にキャストできません
データソースを指定したDataGridViewの列にはコンボボックス等の設定は
出来ないのでしょうか?